从第表行、第k列开始的右下角子年中运取鲍对值最大的元素，并通过行、列交换将 它交换到生元素的位院上. (2)-化 ay/au→，j-k+1,…两 by/a→b,=1,2, (3)消声 =l,2,…理技 bw-aubu,j尸l,2,-m l,2,≠ 吸后对B行恢复，则B中的每一列为每一个方程组的解， 三、于程序语句 SUBROUTINE AGJDN(A,B.N,M,L,JS) 四、形型明 A 一及精度实型二维数组，体积为NXN,输入参数，存放方程细的系数矩阵，寇可 时将被孩坏。 一双花度实型二维数组，体积为NXM,镜入兼输出参教.河用时存破M组常效 向益，返回M组操向量。 N一一盖型变量，输人希致。方程组数 方程组有端常数向量的组教。 整型交些，输出多级，若返回L一0，说明方程组系数矩阵奇异，水解尖败：若 L≠0，表示正返回。 S一整型一维数组，长度为N.本千程序的工作组 五、子程序（文件名：AGDN.FOR) SUBROUTINE AGIDNCA.B.N.M.LIS) DIMENSION ACN.N).BON.M).ISO) DOUBLE PRECISION A.B.D L=1 D0100K=1,N Q=0.0 D0101=K,N DO10J-K.N IF CABSCA(LJ)).GT.Q)THEN ABS(A(IJ> END IF 10 CONTINUS 匪(Q+1.0.50.1.0)HN 5