S一整型一维数组，长度为N。本子程序的工作数组 五，子程序（文件名：AGAUS..FOR) SUBROUTINE AGAUS(A,B.N,X.L.IS) DIMENSION ACN.N].X(N).B(N).JS(N) DOUBLE PRECISION A.B.X.T L1 150K=N- D=0.0 DO 210I-K,N 0210J=KN IF (ABS(A(L,J)).GT.D)THEN D·A5(A1.J) JS(K)-] 210 CONTINUE IF (D+1.0.EQ1.0)THEN 1.=0 ELSE IF (S(K).NE.K)THEN D0220I- A(.K AIK)=AH.s区)》 AUJJSIKD-T CONTINUE ENDIE IF (IS.NE.K)THEN 02301=K T-A(K) A(K)=A(SJ) A(5,J刀=T 230 CONTINUE T-B(K) (IS) BOS)-T END 1F END IF IF (LEQ.0)THEN WRITE(100) RETURN 2