WRITE.0) L=0 RETURN END IF 20 FORMAT(IX,'FAI DO 30J=K,N D=AK,J》 AGKJ》-A, -D 30 CONTINUE D00J=1,M D-B(K.D B(K)=BOISD BUIS.D=D 40 CONTINUE D0501-1,h DA(I.K Aa,K=AI,JSK)》 AC,眉K))=D 50 CONTINUE D00J-K+1N 60 AK,J=AK,J》/AK,K) D070J-1,M 0 BK,)-BK,J)/AK,K】 D090【-1N IP (NE.K)THEN 080J=K+1,N 80 A(.D)=AQ.J AO.K)+ACK.D 5J= 5 B(1,)=BI,J》·AI,K)#BK,J) ENO I 90 CONTINUE 100 CONTINUE D010KN1,-1 D=B(K,J) B(K,D)-B(S(K)J) B(S(K),J)=D 110 CONTINUE RETURN END 6