主程序（文件名：AGAUS0,FOR)为 DIMENSION A(4).B(.x(4).(4) DOUBLE PRECISION A.B.X DATA/a.8368019680.1582,1.161,0.2471.0,201.1,165.0.1254 ,0.2563,1.8168.0.1758.0.1397,1.21.0.22.0.1R1.0.14c0/ DATA B/1.B471.1.74n1.L.6471,L5471/ CALLAGAUS(A.B.N.X/L.JS) IF (LNE.O)THEN wRTE+,1o4,X0,=1,0 ENO I 10 FORMAT(IX.X(.12)=,DIS.6) END 运行结果为 X415=.30405BD+01 X2】= .9665D+00 930s3D+00 .881297D叶0 1.2全选主元高斯约当消去法 一、功能 用全选主元高斯-纳当(Gau越-Jordar)消去法词时求解系数矩阵相同面常数响量不 同的多军线性代数方组AX=B, 二、方法说明 设妮性代数方程组为 AX=B 其中 X= 9 及，及：…九 全选主元高约当清去法的计算过程如下。 对于-1,2，“，x作知下变换： 1)全主元 4