DOxJ-K.N P-AR(K,J) AR(K.J)-AR(IS.J) AR(S=P P=A区J AI(KJ)-AJ(S.D AI(IS.J)-P CONTINUE BR(K) aS)-p P-BI(K) BI(K)BI(IS) BCS)=P D050I-1,N P=ARCI.K) ARL,K)=ARI,JSK)】 AR(IJS(K))-P P=AICL.K) AIQ,K) K)P 50 CONTINU D060-K+1,N P-ARK,D·ARKK) Q--AICK.J):AICK,K) S-(AR(K,X)-AT(KK))(AR(K.J)+AIK.) ARK,)=(P一Q)D AKD=(S-P-0)/D 60 ·ARKK 60K S=(AR(K.K)-Al(K.K))*(BR(K)+() 腺K)=(P-Q)D BIK)=(S-P-Q)/D DO90I=K+i.N O别JK+I,N PARC,K)+AR(K.D AR(.J)-/ +q AJ(I,D=AJ(I.D)-S+P+0 80 CONTINUE