  STMT 
 NUMBER         *** STATEMENT ***
    1           TEST (N=4)                                                                
          C COMPUTE S = (T INVERSE), WHERE T IS A NONSINGULAR, UPPER                      
          C TRIANGULAR MATRIX.                                                            
    2           DIMENSION (S(N,N), T(N,N))                                                
          C                                                                               
          C INPUT T.                                                                      
    3           FOR J = 1 TO N BY 1                                                       
    4               FOR I = J TO 1 BY -1                                                  
    5                   INPUT (T(I,J))                                                    
    6                   END (I)                                                           
    7               END (J)                                                               
          C                                                                               
          C COMPUTE S.                                                                    
    8           FOR K = 1 TO N BY 1                                                       
    9               S(K,K) = 1.0/T(K,K)                                                   
   10               FOR I = K-1 TO 1 BY -1                                                
   11                   S(I,K) = -SUMMATION(T(I,J)*S(J,K), J = I+1 TO K)/T(I,I)           
   12                   END (I)                                                           
   13               END (K)                                                               
          C                                                                               
          C OUTPUT S.                                                                     
   14           FOR J = 1 TO N BY 1                                                       
   15               FOR I = J TO 1 BY -1                                                  
   16                   OUTPUT (S(I,J))                                                   
   17                   END (I)                                                           
   18               END (J)                                                               
   19           *STOP                                                                     
                        0 COMPILATION ERROR(S) FOUND
                        0 EXECUTION ERROR(S) FOUND
1*DATA(I) DENOTES THE I-TH DATA VALUE


   *DATA( 1) IS T(  1,  1)       
   *DATA( 2) IS T(  2,  2)       
   *DATA( 3) IS T(  1,  2)       
   *DATA( 4) IS T(  3,  3)       
   *DATA( 5) IS T(  2,  3)       
   *DATA( 6) IS T(  1,  3)       
   *DATA( 7) IS T(  4,  4)       
   *DATA( 8) IS T(  3,  4)       
   *DATA( 9) IS T(  2,  4)       
   *DATA(10) IS T(  1,  4)       


 *CONS(I) DENOTES THE I-TH CONSTANT


   *CONS( 1) IS 1.0       


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


    9   *INTR(  1)   =   *CONS(  1)    /    *DATA(  1)          S(  1,  1)       
    9   *INTR(  2)   =   *CONS(  1)    /    *DATA(  2)          S(  2,  2)       
   11   *INTR(  3)   =   *DATA(  3)    *    *INTR(  2)                           
   11   *INTR(  4)   =   *INTR(  3)    /    *DATA(  1)                           
   11   *INTR(  5)   =                 -    *INTR(  4)          S(  1,  2)       
    9   *INTR(  6)   =   *CONS(  1)    /    *DATA(  4)          S(  3,  3)       
   11   *INTR(  7)   =   *DATA(  5)    *    *INTR(  6)                           
   11   *INTR(  8)   =   *INTR(  7)    /    *DATA(  2)                           
   11   *INTR(  9)   =                 -    *INTR(  8)          S(  2,  3)       
   11   *INTR( 10)   =   *DATA(  3)    *    *INTR(  9)                           
   11   *INTR( 11)   =   *DATA(  6)    *    *INTR(  6)                           
   11   *INTR( 12)   =   *INTR( 10)    +    *INTR( 11)                           
   11   *INTR( 13)   =   *INTR( 12)    /    *DATA(  1)                           
   11   *INTR( 14)   =                 -    *INTR( 13)          S(  1,  3)       
    9   *INTR( 15)   =   *CONS(  1)    /    *DATA(  7)          S(  4,  4)       
   11   *INTR( 16)   =   *DATA(  8)    *    *INTR( 15)                           
   11   *INTR( 17)   =   *INTR( 16)    /    *DATA(  4)                           
   11   *INTR( 18)   =                 -    *INTR( 17)          S(  3,  4)       
   11   *INTR( 19)   =   *DATA(  5)    *    *INTR( 18)                           
   11   *INTR( 20)   =   *DATA(  9)    *    *INTR( 15)                           
   11   *INTR( 21)   =   *INTR( 19)    +    *INTR( 20)                           
   11   *INTR( 22)   =   *INTR( 21)    /    *DATA(  2)                           
   11   *INTR( 23)   =                 -    *INTR( 22)          S(  2,  4)       
   11   *INTR( 24)   =   *DATA(  3)    *    *INTR( 23)                           
   11   *INTR( 25)   =   *DATA(  6)    *    *INTR( 18)                           
   11   *INTR( 26)   =   *INTR( 24)    +    *INTR( 25)                           
   11   *INTR( 27)   =   *DATA( 10)    *    *INTR( 15)                           
   11   *INTR( 28)   =   *INTR( 26)    +    *INTR( 27)                           
   11   *INTR( 29)   =   *INTR( 28)    /    *DATA(  1)                           
   11   *INTR( 30)   =                 -    *INTR( 29)          S(  1,  4)       


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


   *OUT( 1) IS *INTR(  1)     S(  1,  1)       
   *OUT( 2) IS *INTR(  2)     S(  2,  2)       
   *OUT( 3) IS *INTR(  5)     S(  1,  2)       
   *OUT( 4) IS *INTR(  6)     S(  3,  3)       
   *OUT( 5) IS *INTR(  9)     S(  2,  3)       
   *OUT( 6) IS *INTR( 14)     S(  1,  3)       
   *OUT( 7) IS *INTR( 15)     S(  4,  4)       
   *OUT( 8) IS *INTR( 18)     S(  3,  4)       
   *OUT( 9) IS *INTR( 23)     S(  2,  4)       
   *OUT(10) IS *INTR( 30)     S(  1,  4)       
0                   MINICOMPILER VERSION 2.1.79
