16 IF (Q - A( I ,N)/A( I ,KCOL) ) 17, 18, 18 



17 O = (A( I ,N)/A( I ,KCOL) ) 

 KROW = I 



18 CONTINUE 



IF (Q + 99999999,) 20, 19, 20 



19 PRINT 50 

 GO TO 95 



COMMENT- ONCE THE APPROPRIATE PIVOT ROW AND COLUMN 

 ARE DETERMINED THE FOLLOWING STEPS ARE THE 

 PIVOTING PROCESS. THE OPERATION THEN RETURNS 

 TO THE FIRST QUESTION (STEP NO. 3). 



20 KEEP = KR(KROW) 

 KR(KROW) = KC(KCOL) 

 KC(KCOL) = KEEP . 

 DO 23 11= 1 ,M 



IF (II- KROW) 21, 23, 21 



21 DO 23 JJ= 1 ,N 



IF (JJ- KCOL) 22, 23, 22 



22 A(II,JJ) = A(II,JJ) - ( A(KROW, JJ)*A( I I ,KCOL) )/A(KROW,KCOL) 



23 CONTINUE 



DO 25 11= 1 ,M 



IF (II- KROW) 24, 25, 24 



24 A( I I, KCOL) = A( I I ,KCOL)/A(KROW,KCOL) 



25 CONTINUE 



DO 27 JJ= 1 ,N 



IF (JJ- KCOL) 26, 27, 26 



26 A(KROW,JJ) = (-1 . )*(A(KROW, JJ)/A(KROW,KCOL) ) 



27 CONTINUE 



A(KROW,KCOL) = 1 . /A ( KROW , KCOL ) 

 PRINT 70, KR(KROW) ,KC( KCOL ) , A ( M,N) 

 GO TO 3 



COMMENT- THE FOLLOWING STEPS PRINT OUT THE FINAL 



SOLUTION AND END THE OPERATION. 



95 DO 96 I = 1 ,M 



96 PRINT 60 , KR(I),A(I,N) 

 DO 97 J = 1 ,NI 



97 PRINT 60 , KC(J),A(M,J) 

 END 



