  STMT 
 NUMBER         *** STATEMENT ***
          C=------- CS 5 GAUSSIAN ELIMINATION ---------------------------------           
          C GAUSSIAN ELIMINATION.                                                         
    1           TEST (N=4)                                                                
    2           DIMENSION (A(N,N), B(N), X(N))                                            
    3           INPUT (A,B)                                                               
          C                                                                               
          C ELIMINATION.                                                                  
    4           FOR K = 1 TO N-1 BY 1                                                     
    5               FOR I = K+1 TO N BY 1                                                 
    6                   AMULT = A(I,K)/A(K,K)                                             
    7                   FOR J = K+1 TO N BY 1                                             
    8                       A(I,J) = A(I,J) - AMULT*A(K,J)                                
    9                       END (J)                                                       
   10                   B(I) = B(I) - AMULT*B(K)                                          
   11                   END (I)                                                           
   12               END (K)                                                               
          C                                                                               
          C BACK SUBSTITUTION.                                                            
   13           FOR I = N TO 1 BY -1                                                      
   14               X(I) = (B(I) - SUMMATION (A(I,J)*X(J),J=I+1 TO N))/A(I,I)             
   15               END (I)                                                               
   16           OUTPUT (X)                                                                
   17           *STOP                                                                     
                        0 COMPILATION ERROR(S) FOUND
                        0 EXECUTION ERROR(S) FOUND
1*DATA(I) DENOTES THE I-TH DATA VALUE


   *DATA( 1) IS A(  1,  1)       
   *DATA( 2) IS A(  2,  1)       
   *DATA( 3) IS A(  3,  1)       
   *DATA( 4) IS A(  4,  1)       
   *DATA( 5) IS A(  1,  2)       
   *DATA( 6) IS A(  2,  2)       
   *DATA( 7) IS A(  3,  2)       
   *DATA( 8) IS A(  4,  2)       
   *DATA( 9) IS A(  1,  3)       
   *DATA(10) IS A(  2,  3)       
   *DATA(11) IS A(  3,  3)       
   *DATA(12) IS A(  4,  3)       
   *DATA(13) IS A(  1,  4)       
   *DATA(14) IS A(  2,  4)       
   *DATA(15) IS A(  3,  4)       
   *DATA(16) IS A(  4,  4)       
   *DATA(17) IS B(  1)           
   *DATA(18) IS B(  2)           
   *DATA(19) IS B(  3)           
   *DATA(20) IS B(  4)           


 *CONS(I) DENOTES THE I-TH CONSTANT


   *CONS( 1) IS 0.0       


 *INTR(I) DENOTES THE I-TH INTERMEDIATE VALUE


    6   *INTR(  1)   =   *DATA(  2)    /    *DATA(  1)          AMULT            
    8   *INTR(  2)   =   *INTR(  1)    *    *DATA(  5)                           
    8   *INTR(  3)   =   *DATA(  6)    -    *INTR(  2)          A(  2,  2)       
    8   *INTR(  4)   =   *INTR(  1)    *    *DATA(  9)                           
    8   *INTR(  5)   =   *DATA( 10)    -    *INTR(  4)          A(  2,  3)       
    8   *INTR(  6)   =   *INTR(  1)    *    *DATA( 13)                           
    8   *INTR(  7)   =   *DATA( 14)    -    *INTR(  6)          A(  2,  4)       
   10   *INTR(  8)   =   *INTR(  1)    *    *DATA( 17)                           
   10   *INTR(  9)   =   *DATA( 18)    -    *INTR(  8)          B(  2)           
    6   *INTR( 10)   =   *DATA(  3)    /    *DATA(  1)          AMULT            
    8   *INTR( 11)   =   *INTR( 10)    *    *DATA(  5)                           
    8   *INTR( 12)   =   *DATA(  7)    -    *INTR( 11)          A(  3,  2)       
    8   *INTR( 13)   =   *INTR( 10)    *    *DATA(  9)                           
    8   *INTR( 14)   =   *DATA( 11)    -    *INTR( 13)          A(  3,  3)       
    8   *INTR( 15)   =   *INTR( 10)    *    *DATA( 13)                           
    8   *INTR( 16)   =   *DATA( 15)    -    *INTR( 15)          A(  3,  4)       
   10   *INTR( 17)   =   *INTR( 10)    *    *DATA( 17)                           
   10   *INTR( 18)   =   *DATA( 19)    -    *INTR( 17)          B(  3)           
    6   *INTR( 19)   =   *DATA(  4)    /    *DATA(  1)          AMULT            
    8   *INTR( 20)   =   *INTR( 19)    *    *DATA(  5)                           
    8   *INTR( 21)   =   *DATA(  8)    -    *INTR( 20)          A(  4,  2)       
    8   *INTR( 22)   =   *INTR( 19)    *    *DATA(  9)                           
    8   *INTR( 23)   =   *DATA( 12)    -    *INTR( 22)          A(  4,  3)       
    8   *INTR( 24)   =   *INTR( 19)    *    *DATA( 13)                           
    8   *INTR( 25)   =   *DATA( 16)    -    *INTR( 24)          A(  4,  4)       
   10   *INTR( 26)   =   *INTR( 19)    *    *DATA( 17)                           
   10   *INTR( 27)   =   *DATA( 20)    -    *INTR( 26)          B(  4)           
    6   *INTR( 28)   =   *INTR( 12)    /    *INTR(  3)          AMULT            
    8   *INTR( 29)   =   *INTR( 28)    *    *INTR(  5)                           
    8   *INTR( 30)   =   *INTR( 14)    -    *INTR( 29)          A(  3,  3)       
    8   *INTR( 31)   =   *INTR( 28)    *    *INTR(  7)                           
    8   *INTR( 32)   =   *INTR( 16)    -    *INTR( 31)          A(  3,  4)       
   10   *INTR( 33)   =   *INTR( 28)    *    *INTR(  9)                           
   10   *INTR( 34)   =   *INTR( 18)    -    *INTR( 33)          B(  3)           
    6   *INTR( 35)   =   *INTR( 21)    /    *INTR(  3)          AMULT            
    8   *INTR( 36)   =   *INTR( 35)    *    *INTR(  5)                           
    8   *INTR( 37)   =   *INTR( 23)    -    *INTR( 36)          A(  4,  3)       
    8   *INTR( 38)   =   *INTR( 35)    *    *INTR(  7)                           
    8   *INTR( 39)   =   *INTR( 25)    -    *INTR( 38)          A(  4,  4)       
   10   *INTR( 40)   =   *INTR( 35)    *    *INTR(  9)                           
   10   *INTR( 41)   =   *INTR( 27)    -    *INTR( 40)          B(  4)           
    6   *INTR( 42)   =   *INTR( 37)    /    *INTR( 30)          AMULT            
    8   *INTR( 43)   =   *INTR( 42)    *    *INTR( 32)                           
    8   *INTR( 44)   =   *INTR( 39)    -    *INTR( 43)          A(  4,  4)       
   10   *INTR( 45)   =   *INTR( 42)    *    *INTR( 34)                           
   10   *INTR( 46)   =   *INTR( 41)    -    *INTR( 45)          B(  4)           
   14   *INTR( 47)   =   *INTR( 46)    /    *INTR( 44)          X(  4)           
   14   *INTR( 48)   =   *INTR( 32)    *    *INTR( 47)                           
   14   *INTR( 49)   =   *INTR( 34)    -    *INTR( 48)                           
   14   *INTR( 50)   =   *INTR( 49)    /    *INTR( 30)          X(  3)           
   14   *INTR( 51)   =   *INTR(  5)    *    *INTR( 50)                           
   14   *INTR( 52)   =   *INTR(  7)    *    *INTR( 47)                           
   14   *INTR( 53)   =   *INTR( 51)    +    *INTR( 52)                           
   14   *INTR( 54)   =   *INTR(  9)    -    *INTR( 53)                           
   14   *INTR( 55)   =   *INTR( 54)    /    *INTR(  3)          X(  2)           
   14   *INTR( 56)   =   *DATA(  5)    *    *INTR( 55)                           
   14   *INTR( 57)   =   *DATA(  9)    *    *INTR( 50)                           
   14   *INTR( 58)   =   *INTR( 56)    +    *INTR( 57)                           
   14   *INTR( 59)   =   *DATA( 13)    *    *INTR( 47)                           
   14   *INTR( 60)   =   *INTR( 58)    +    *INTR( 59)                           
   14   *INTR( 61)   =   *DATA( 17)    -    *INTR( 60)                           
   14   *INTR( 62)   =   *INTR( 61)    /    *DATA(  1)          X(  1)           


 *OUT(I) DENOTES THE I-TH OUTPUT VALUE


   *OUT( 1) IS *INTR( 62)     X(  1)           
   *OUT( 2) IS *INTR( 55)     X(  2)           
   *OUT( 3) IS *INTR( 50)     X(  3)           
   *OUT( 4) IS *INTR( 47)     X(  4)           
0                   MINICOMPILER VERSION 2.1.79
