  STMT 
 NUMBER         *** STATEMENT ***
          C=-------- CS 13 VARIANTS OF THE GRAM-SCHMIDT METHOD, ONE VERSION ---           
          C  GS, A STANDARD FORMULATION OF THE GRAM-SCHMIDT METHOD.                       
    1           TEST (M=4, N=3)                                                           
    2           DIMENSION (A(M,N), Q(M,N), PROJ(M))                                       
    3           INPUT (A)                                                                 
          C  THE COLUMNS OF Q ARE ORTHOGONAL.                                             
    4           FOR K = 1 TO N BY 1                                                       
    5               IF K.GT.1 THEN                                                        
          C         SUBTRACT THE PROJECTION OF THE K-TH VECTOR ON THE                     
          C         SUBSPACE SPANNED BY THE PREVIOUS K-1 VECTORS.                         
    6                   FOR I = 1 TO M BY 1                                               
    7                       PROJ(I) = 0.0                                                 
    8                       END (I)                                                       
    9                   FOR J = 1 TO K-1 BY 1                                             
   10                       PRODUCT = SUMMATION (A(I,K)*Q(I,J), I = 1 TO M)               
   11                       FOR I = 1 TO M BY 1                                           
   12                           PROJ(I) = PROJ(I) + PRODUCT*Q(I,J)                        
   13                           END (I)                                                   
   14                       END (J)                                                       
   15                   FOR I = 1 TO M BY 1                                               
   16                       A(I,K) = A(I,K) - PROJ(I)                                     
   17                       END (I)                                                       
   18                   END                                                               
          C                                                                               
          C  NORMALIZE.                                                                   
   19               SIZE = SQRT (SUMMATION(A(I,K)*A(I,K), I = 1 TO M))                    
   20               FOR I = 1 TO M BY 1                                                   
   21                   Q(I,K) = A(I,K)/SIZE                                              
   22                   END (I)                                                           
   23               END (K)                                                               
   24           OUTPUT (Q)                                                                
   25           *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)       


 *CONS(I) DENOTES THE I-TH CONSTANT


   *CONS( 1) IS 0.0       


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


   19   *INTR(  1)   =   *DATA(  1)    *    *DATA(  1)                           
   19   *INTR(  2)   =   *DATA(  2)    *    *DATA(  2)                           
   19   *INTR(  3)   =   *INTR(  1)    +    *INTR(  2)                           
   19   *INTR(  4)   =   *DATA(  3)    *    *DATA(  3)                           
   19   *INTR(  5)   =   *INTR(  3)    +    *INTR(  4)                           
   19   *INTR(  6)   =   *DATA(  4)    *    *DATA(  4)                           
   19   *INTR(  7)   =   *INTR(  5)    +    *INTR(  6)                           
   19   *INTR(  8)   =              SQRT    *INTR(  7)          SIZE             
   21   *INTR(  9)   =   *DATA(  1)    /    *INTR(  8)          Q(  1,  1)       
   21   *INTR( 10)   =   *DATA(  2)    /    *INTR(  8)          Q(  2,  1)       
   21   *INTR( 11)   =   *DATA(  3)    /    *INTR(  8)          Q(  3,  1)       
   21   *INTR( 12)   =   *DATA(  4)    /    *INTR(  8)          Q(  4,  1)       
   10   *INTR( 13)   =   *DATA(  5)    *    *INTR(  9)                           
   10   *INTR( 14)   =   *DATA(  6)    *    *INTR( 10)                           
   10   *INTR( 15)   =   *INTR( 13)    +    *INTR( 14)                           
   10   *INTR( 16)   =   *DATA(  7)    *    *INTR( 11)                           
   10   *INTR( 17)   =   *INTR( 15)    +    *INTR( 16)                           
   10   *INTR( 18)   =   *DATA(  8)    *    *INTR( 12)                           
   10   *INTR( 19)   =   *INTR( 17)    +    *INTR( 18)          PRODUCT          
   12   *INTR( 20)   =   *INTR( 19)    *    *INTR(  9)                           
   12   *INTR( 21)   =   *INTR( 19)    *    *INTR( 10)                           
   12   *INTR( 22)   =   *INTR( 19)    *    *INTR( 11)                           
   12   *INTR( 23)   =   *INTR( 19)    *    *INTR( 12)                           
   16   *INTR( 24)   =   *DATA(  5)    -    *INTR( 20)          A(  1,  2)       
   16   *INTR( 25)   =   *DATA(  6)    -    *INTR( 21)          A(  2,  2)       
   16   *INTR( 26)   =   *DATA(  7)    -    *INTR( 22)          A(  3,  2)       
   16   *INTR( 27)   =   *DATA(  8)    -    *INTR( 23)          A(  4,  2)       
   19   *INTR( 28)   =   *INTR( 24)    *    *INTR( 24)                           
   19   *INTR( 29)   =   *INTR( 25)    *    *INTR( 25)                           
   19   *INTR( 30)   =   *INTR( 28)    +    *INTR( 29)                           
   19   *INTR( 31)   =   *INTR( 26)    *    *INTR( 26)                           
   19   *INTR( 32)   =   *INTR( 30)    +    *INTR( 31)                           
   19   *INTR( 33)   =   *INTR( 27)    *    *INTR( 27)                           
   19   *INTR( 34)   =   *INTR( 32)    +    *INTR( 33)                           
   19   *INTR( 35)   =              SQRT    *INTR( 34)          SIZE             
   21   *INTR( 36)   =   *INTR( 24)    /    *INTR( 35)          Q(  1,  2)       
   21   *INTR( 37)   =   *INTR( 25)    /    *INTR( 35)          Q(  2,  2)       
   21   *INTR( 38)   =   *INTR( 26)    /    *INTR( 35)          Q(  3,  2)       
   21   *INTR( 39)   =   *INTR( 27)    /    *INTR( 35)          Q(  4,  2)       
   10   *INTR( 40)   =   *DATA(  9)    *    *INTR(  9)                           
   10   *INTR( 41)   =   *DATA( 10)    *    *INTR( 10)                           
   10   *INTR( 42)   =   *INTR( 40)    +    *INTR( 41)                           
   10   *INTR( 43)   =   *DATA( 11)    *    *INTR( 11)                           
   10   *INTR( 44)   =   *INTR( 42)    +    *INTR( 43)                           
   10   *INTR( 45)   =   *DATA( 12)    *    *INTR( 12)                           
   10   *INTR( 46)   =   *INTR( 44)    +    *INTR( 45)          PRODUCT          
   12   *INTR( 47)   =   *INTR( 46)    *    *INTR(  9)                           
   12   *INTR( 48)   =   *INTR( 46)    *    *INTR( 10)                           
   12   *INTR( 49)   =   *INTR( 46)    *    *INTR( 11)                           
   12   *INTR( 50)   =   *INTR( 46)    *    *INTR( 12)                           
   10   *INTR( 51)   =   *DATA(  9)    *    *INTR( 36)                           
   10   *INTR( 52)   =   *DATA( 10)    *    *INTR( 37)                           
   10   *INTR( 53)   =   *INTR( 51)    +    *INTR( 52)                           
   10   *INTR( 54)   =   *DATA( 11)    *    *INTR( 38)                           
   10   *INTR( 55)   =   *INTR( 53)    +    *INTR( 54)                           
   10   *INTR( 56)   =   *DATA( 12)    *    *INTR( 39)                           
   10   *INTR( 57)   =   *INTR( 55)    +    *INTR( 56)          PRODUCT          
   12   *INTR( 58)   =   *INTR( 57)    *    *INTR( 36)                           
   12   *INTR( 59)   =   *INTR( 47)    +    *INTR( 58)          PROJ(  1)        
   12   *INTR( 60)   =   *INTR( 57)    *    *INTR( 37)                           
   12   *INTR( 61)   =   *INTR( 48)    +    *INTR( 60)          PROJ(  2)        
   12   *INTR( 62)   =   *INTR( 57)    *    *INTR( 38)                           
   12   *INTR( 63)   =   *INTR( 49)    +    *INTR( 62)          PROJ(  3)        
   12   *INTR( 64)   =   *INTR( 57)    *    *INTR( 39)                           
   12   *INTR( 65)   =   *INTR( 50)    +    *INTR( 64)          PROJ(  4)        
   16   *INTR( 66)   =   *DATA(  9)    -    *INTR( 59)          A(  1,  3)       
   16   *INTR( 67)   =   *DATA( 10)    -    *INTR( 61)          A(  2,  3)       
   16   *INTR( 68)   =   *DATA( 11)    -    *INTR( 63)          A(  3,  3)       
   16   *INTR( 69)   =   *DATA( 12)    -    *INTR( 65)          A(  4,  3)       
   19   *INTR( 70)   =   *INTR( 66)    *    *INTR( 66)                           
   19   *INTR( 71)   =   *INTR( 67)    *    *INTR( 67)                           
   19   *INTR( 72)   =   *INTR( 70)    +    *INTR( 71)                           
   19   *INTR( 73)   =   *INTR( 68)    *    *INTR( 68)                           
   19   *INTR( 74)   =   *INTR( 72)    +    *INTR( 73)                           
   19   *INTR( 75)   =   *INTR( 69)    *    *INTR( 69)                           
   19   *INTR( 76)   =   *INTR( 74)    +    *INTR( 75)                           
   19   *INTR( 77)   =              SQRT    *INTR( 76)          SIZE             
   21   *INTR( 78)   =   *INTR( 66)    /    *INTR( 77)          Q(  1,  3)       
   21   *INTR( 79)   =   *INTR( 67)    /    *INTR( 77)          Q(  2,  3)       
   21   *INTR( 80)   =   *INTR( 68)    /    *INTR( 77)          Q(  3,  3)       
   21   *INTR( 81)   =   *INTR( 69)    /    *INTR( 77)          Q(  4,  3)       


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


   *OUT( 1) IS *INTR(  9)     Q(  1,  1)       
   *OUT( 2) IS *INTR( 10)     Q(  2,  1)       
   *OUT( 3) IS *INTR( 11)     Q(  3,  1)       
   *OUT( 4) IS *INTR( 12)     Q(  4,  1)       
   *OUT( 5) IS *INTR( 36)     Q(  1,  2)       
   *OUT( 6) IS *INTR( 37)     Q(  2,  2)       
   *OUT( 7) IS *INTR( 38)     Q(  3,  2)       
   *OUT( 8) IS *INTR( 39)     Q(  4,  2)       
   *OUT( 9) IS *INTR( 78)     Q(  1,  3)       
   *OUT(10) IS *INTR( 79)     Q(  2,  3)       
   *OUT(11) IS *INTR( 80)     Q(  3,  3)       
   *OUT(12) IS *INTR( 81)     Q(  4,  3)       
0                   MINICOMPILER VERSION 2.1.79
  STMT 
 NUMBER         *** STATEMENT ***
          C=-------- CS 13 VARIANTS OF THE GRAM-SCHMIDT METHOD, ANOTHER VERSION           
          C GS*, A GRAM-SCHMIDT VARIANT.                                                  
    1           TEST (M=4,N=3)                                                            
    2           DIMENSION (A(M,N), Q(M,N))                                                
    3           INPUT (A)                                                                 
    4           FOR I = 1 TO M BY 1                                                       
    5               FOR J = 1 TO N BY 1                                                   
    6                   Q(I,J) = A(I,J)                                                   
    7                   END (J)                                                           
    8               END (I)                                                               
          C                                                                               
    9           FOR K = 1 TO N BY 1                                                       
          C     FIRST NORMALIZE COLUMN K.                                                 
   10               SIZE = SQRT (SUMMATION(Q(I,K)*Q(I,K), I = 1 TO M))                    
   11               FOR I = 1 TO M BY 1                                                   
   12                   Q(I,K) = Q(I,K)/SIZE                                              
   13                   END (I)                                                           
   14               IF K.LT.N THEN                                                        
          C         SUBTRACT FROM EACH REMAINING COLUMN ITS PROJECTION                    
          C         ON THE CURRENT COLUMN.                                                
   15                   FOR J = K+1 TO N BY 1                                             
   16                       PRODUCT = SUMMATION (Q(I,K)*A(I,J), I = 1 TO M)               
   17                       FOR I = 1 TO M BY 1                                           
   18                           Q(I,J) = Q(I,J) - PRODUCT*Q(I,K)                          
   19                           END (I)                                                   
   20                       END (J)                                                       
   21                   END                                                               
   22               END (K)                                                               
   23           OUTPUT (Q)                                                                
   24           *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)       


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


   10   *INTR(  1)   =   *DATA(  1)    *    *DATA(  1)                           
   10   *INTR(  2)   =   *DATA(  2)    *    *DATA(  2)                           
   10   *INTR(  3)   =   *INTR(  1)    +    *INTR(  2)                           
   10   *INTR(  4)   =   *DATA(  3)    *    *DATA(  3)                           
   10   *INTR(  5)   =   *INTR(  3)    +    *INTR(  4)                           
   10   *INTR(  6)   =   *DATA(  4)    *    *DATA(  4)                           
   10   *INTR(  7)   =   *INTR(  5)    +    *INTR(  6)                           
   10   *INTR(  8)   =              SQRT    *INTR(  7)          SIZE             
   12   *INTR(  9)   =   *DATA(  1)    /    *INTR(  8)          Q(  1,  1)       
   12   *INTR( 10)   =   *DATA(  2)    /    *INTR(  8)          Q(  2,  1)       
   12   *INTR( 11)   =   *DATA(  3)    /    *INTR(  8)          Q(  3,  1)       
   12   *INTR( 12)   =   *DATA(  4)    /    *INTR(  8)          Q(  4,  1)       
   16   *INTR( 13)   =   *INTR(  9)    *    *DATA(  5)                           
   16   *INTR( 14)   =   *INTR( 10)    *    *DATA(  6)                           
   16   *INTR( 15)   =   *INTR( 13)    +    *INTR( 14)                           
   16   *INTR( 16)   =   *INTR( 11)    *    *DATA(  7)                           
   16   *INTR( 17)   =   *INTR( 15)    +    *INTR( 16)                           
   16   *INTR( 18)   =   *INTR( 12)    *    *DATA(  8)                           
   16   *INTR( 19)   =   *INTR( 17)    +    *INTR( 18)          PRODUCT          
   18   *INTR( 20)   =   *INTR( 19)    *    *INTR(  9)                           
   18   *INTR( 21)   =   *DATA(  5)    -    *INTR( 20)          Q(  1,  2)       
   18   *INTR( 22)   =   *INTR( 19)    *    *INTR( 10)                           
   18   *INTR( 23)   =   *DATA(  6)    -    *INTR( 22)          Q(  2,  2)       
   18   *INTR( 24)   =   *INTR( 19)    *    *INTR( 11)                           
   18   *INTR( 25)   =   *DATA(  7)    -    *INTR( 24)          Q(  3,  2)       
   18   *INTR( 26)   =   *INTR( 19)    *    *INTR( 12)                           
   18   *INTR( 27)   =   *DATA(  8)    -    *INTR( 26)          Q(  4,  2)       
   16   *INTR( 28)   =   *INTR(  9)    *    *DATA(  9)                           
   16   *INTR( 29)   =   *INTR( 10)    *    *DATA( 10)                           
   16   *INTR( 30)   =   *INTR( 28)    +    *INTR( 29)                           
   16   *INTR( 31)   =   *INTR( 11)    *    *DATA( 11)                           
   16   *INTR( 32)   =   *INTR( 30)    +    *INTR( 31)                           
   16   *INTR( 33)   =   *INTR( 12)    *    *DATA( 12)                           
   16   *INTR( 34)   =   *INTR( 32)    +    *INTR( 33)          PRODUCT          
   18   *INTR( 35)   =   *INTR( 34)    *    *INTR(  9)                           
   18   *INTR( 36)   =   *DATA(  9)    -    *INTR( 35)          Q(  1,  3)       
   18   *INTR( 37)   =   *INTR( 34)    *    *INTR( 10)                           
   18   *INTR( 38)   =   *DATA( 10)    -    *INTR( 37)          Q(  2,  3)       
   18   *INTR( 39)   =   *INTR( 34)    *    *INTR( 11)                           
   18   *INTR( 40)   =   *DATA( 11)    -    *INTR( 39)          Q(  3,  3)       
   18   *INTR( 41)   =   *INTR( 34)    *    *INTR( 12)                           
   18   *INTR( 42)   =   *DATA( 12)    -    *INTR( 41)          Q(  4,  3)       
   10   *INTR( 43)   =   *INTR( 21)    *    *INTR( 21)                           
   10   *INTR( 44)   =   *INTR( 23)    *    *INTR( 23)                           
   10   *INTR( 45)   =   *INTR( 43)    +    *INTR( 44)                           
   10   *INTR( 46)   =   *INTR( 25)    *    *INTR( 25)                           
   10   *INTR( 47)   =   *INTR( 45)    +    *INTR( 46)                           
   10   *INTR( 48)   =   *INTR( 27)    *    *INTR( 27)                           
   10   *INTR( 49)   =   *INTR( 47)    +    *INTR( 48)                           
   10   *INTR( 50)   =              SQRT    *INTR( 49)          SIZE             
   12   *INTR( 51)   =   *INTR( 21)    /    *INTR( 50)          Q(  1,  2)       
   12   *INTR( 52)   =   *INTR( 23)    /    *INTR( 50)          Q(  2,  2)       
   12   *INTR( 53)   =   *INTR( 25)    /    *INTR( 50)          Q(  3,  2)       
   12   *INTR( 54)   =   *INTR( 27)    /    *INTR( 50)          Q(  4,  2)       
   16   *INTR( 55)   =   *INTR( 51)    *    *DATA(  9)                           
   16   *INTR( 56)   =   *INTR( 52)    *    *DATA( 10)                           
   16   *INTR( 57)   =   *INTR( 55)    +    *INTR( 56)                           
   16   *INTR( 58)   =   *INTR( 53)    *    *DATA( 11)                           
   16   *INTR( 59)   =   *INTR( 57)    +    *INTR( 58)                           
   16   *INTR( 60)   =   *INTR( 54)    *    *DATA( 12)                           
   16   *INTR( 61)   =   *INTR( 59)    +    *INTR( 60)          PRODUCT          
   18   *INTR( 62)   =   *INTR( 61)    *    *INTR( 51)                           
   18   *INTR( 63)   =   *INTR( 36)    -    *INTR( 62)          Q(  1,  3)       
   18   *INTR( 64)   =   *INTR( 61)    *    *INTR( 52)                           
   18   *INTR( 65)   =   *INTR( 38)    -    *INTR( 64)          Q(  2,  3)       
   18   *INTR( 66)   =   *INTR( 61)    *    *INTR( 53)                           
   18   *INTR( 67)   =   *INTR( 40)    -    *INTR( 66)          Q(  3,  3)       
   18   *INTR( 68)   =   *INTR( 61)    *    *INTR( 54)                           
   18   *INTR( 69)   =   *INTR( 42)    -    *INTR( 68)          Q(  4,  3)       
   10   *INTR( 70)   =   *INTR( 63)    *    *INTR( 63)                           
   10   *INTR( 71)   =   *INTR( 65)    *    *INTR( 65)                           
   10   *INTR( 72)   =   *INTR( 70)    +    *INTR( 71)                           
   10   *INTR( 73)   =   *INTR( 67)    *    *INTR( 67)                           
   10   *INTR( 74)   =   *INTR( 72)    +    *INTR( 73)                           
   10   *INTR( 75)   =   *INTR( 69)    *    *INTR( 69)                           
   10   *INTR( 76)   =   *INTR( 74)    +    *INTR( 75)                           
   10   *INTR( 77)   =              SQRT    *INTR( 76)          SIZE             
   12   *INTR( 78)   =   *INTR( 63)    /    *INTR( 77)          Q(  1,  3)       
   12   *INTR( 79)   =   *INTR( 65)    /    *INTR( 77)          Q(  2,  3)       
   12   *INTR( 80)   =   *INTR( 67)    /    *INTR( 77)          Q(  3,  3)       
   12   *INTR( 81)   =   *INTR( 69)    /    *INTR( 77)          Q(  4,  3)       


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


   *OUT( 1) IS *INTR(  9)     Q(  1,  1)       
   *OUT( 2) IS *INTR( 10)     Q(  2,  1)       
   *OUT( 3) IS *INTR( 11)     Q(  3,  1)       
   *OUT( 4) IS *INTR( 12)     Q(  4,  1)       
   *OUT( 5) IS *INTR( 51)     Q(  1,  2)       
   *OUT( 6) IS *INTR( 52)     Q(  2,  2)       
   *OUT( 7) IS *INTR( 53)     Q(  3,  2)       
   *OUT( 8) IS *INTR( 54)     Q(  4,  2)       
   *OUT( 9) IS *INTR( 78)     Q(  1,  3)       
   *OUT(10) IS *INTR( 79)     Q(  2,  3)       
   *OUT(11) IS *INTR( 80)     Q(  3,  3)       
   *OUT(12) IS *INTR( 81)     Q(  4,  3)       
0                   MINICOMPILER VERSION 2.1.79
  STMT 
 NUMBER         *** STATEMENT ***
          C=-------- CS 13 VARIANTS OF THE GRAM-SCHMIDT METHOD, MGS -----------           
          C MGS, THE MODIFIED GRAM-SCHMIDT METHOD.                                        
    1           TEST (M=4,N=3)                                                            
    2           DIMENSION (A(M,N), Q(M,N))                                                
    3           INPUT (A)                                                                 
    4           FOR I = 1 TO M BY 1                                                       
    5               FOR J = 1 TO N BY 1                                                   
    6                   Q(I,J) = A(I,J)                                                   
    7                   END (J)                                                           
    8               END (I)                                                               
          C                                                                               
    9           FOR K = 1 TO N BY 1                                                       
          C     FIRST NORMALIZE COLUMN K.                                                 
   10               SIZE = SQRT (SUMMATION(Q(I,K)*Q(I,K), I = 1 TO M))                    
   11               FOR I = 1 TO M BY 1                                                   
   12                   Q(I,K) = Q(I,K)/SIZE                                              
   13                   END (I)                                                           
   14               IF K.LT.N THEN                                                        
          C         SUBTRACT FROM EACH REMAINING COLUMN ITS PROJECTION                    
          C         ON THE CURRENT COLUMN.                                                
   15                   FOR J = K+1 TO N BY 1                                             
   16                       PRODUCT = SUMMATION (Q(I,K)*Q(I,J), I = 1 TO M)               
   17                       FOR I = 1 TO M BY 1                                           
   18                           Q(I,J) = Q(I,J) - PRODUCT*Q(I,K)                          
   19                           END (I)                                                   
   20                       END (J)                                                       
   21                   END                                                               
   22               END (K)                                                               
   23           OUTPUT (Q)                                                                
   24           *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)       


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


   10   *INTR(  1)   =   *DATA(  1)    *    *DATA(  1)                           
   10   *INTR(  2)   =   *DATA(  2)    *    *DATA(  2)                           
   10   *INTR(  3)   =   *INTR(  1)    +    *INTR(  2)                           
   10   *INTR(  4)   =   *DATA(  3)    *    *DATA(  3)                           
   10   *INTR(  5)   =   *INTR(  3)    +    *INTR(  4)                           
   10   *INTR(  6)   =   *DATA(  4)    *    *DATA(  4)                           
   10   *INTR(  7)   =   *INTR(  5)    +    *INTR(  6)                           
   10   *INTR(  8)   =              SQRT    *INTR(  7)          SIZE             
   12   *INTR(  9)   =   *DATA(  1)    /    *INTR(  8)          Q(  1,  1)       
   12   *INTR( 10)   =   *DATA(  2)    /    *INTR(  8)          Q(  2,  1)       
   12   *INTR( 11)   =   *DATA(  3)    /    *INTR(  8)          Q(  3,  1)       
   12   *INTR( 12)   =   *DATA(  4)    /    *INTR(  8)          Q(  4,  1)       
   16   *INTR( 13)   =   *INTR(  9)    *    *DATA(  5)                           
   16   *INTR( 14)   =   *INTR( 10)    *    *DATA(  6)                           
   16   *INTR( 15)   =   *INTR( 13)    +    *INTR( 14)                           
   16   *INTR( 16)   =   *INTR( 11)    *    *DATA(  7)                           
   16   *INTR( 17)   =   *INTR( 15)    +    *INTR( 16)                           
   16   *INTR( 18)   =   *INTR( 12)    *    *DATA(  8)                           
   16   *INTR( 19)   =   *INTR( 17)    +    *INTR( 18)          PRODUCT          
   18   *INTR( 20)   =   *INTR( 19)    *    *INTR(  9)                           
   18   *INTR( 21)   =   *DATA(  5)    -    *INTR( 20)          Q(  1,  2)       
   18   *INTR( 22)   =   *INTR( 19)    *    *INTR( 10)                           
   18   *INTR( 23)   =   *DATA(  6)    -    *INTR( 22)          Q(  2,  2)       
   18   *INTR( 24)   =   *INTR( 19)    *    *INTR( 11)                           
   18   *INTR( 25)   =   *DATA(  7)    -    *INTR( 24)          Q(  3,  2)       
   18   *INTR( 26)   =   *INTR( 19)    *    *INTR( 12)                           
   18   *INTR( 27)   =   *DATA(  8)    -    *INTR( 26)          Q(  4,  2)       
   16   *INTR( 28)   =   *INTR(  9)    *    *DATA(  9)                           
   16   *INTR( 29)   =   *INTR( 10)    *    *DATA( 10)                           
   16   *INTR( 30)   =   *INTR( 28)    +    *INTR( 29)                           
   16   *INTR( 31)   =   *INTR( 11)    *    *DATA( 11)                           
   16   *INTR( 32)   =   *INTR( 30)    +    *INTR( 31)                           
   16   *INTR( 33)   =   *INTR( 12)    *    *DATA( 12)                           
   16   *INTR( 34)   =   *INTR( 32)    +    *INTR( 33)          PRODUCT          
   18   *INTR( 35)   =   *INTR( 34)    *    *INTR(  9)                           
   18   *INTR( 36)   =   *DATA(  9)    -    *INTR( 35)          Q(  1,  3)       
   18   *INTR( 37)   =   *INTR( 34)    *    *INTR( 10)                           
   18   *INTR( 38)   =   *DATA( 10)    -    *INTR( 37)          Q(  2,  3)       
   18   *INTR( 39)   =   *INTR( 34)    *    *INTR( 11)                           
   18   *INTR( 40)   =   *DATA( 11)    -    *INTR( 39)          Q(  3,  3)       
   18   *INTR( 41)   =   *INTR( 34)    *    *INTR( 12)                           
   18   *INTR( 42)   =   *DATA( 12)    -    *INTR( 41)          Q(  4,  3)       
   10   *INTR( 43)   =   *INTR( 21)    *    *INTR( 21)                           
   10   *INTR( 44)   =   *INTR( 23)    *    *INTR( 23)                           
   10   *INTR( 45)   =   *INTR( 43)    +    *INTR( 44)                           
   10   *INTR( 46)   =   *INTR( 25)    *    *INTR( 25)                           
   10   *INTR( 47)   =   *INTR( 45)    +    *INTR( 46)                           
   10   *INTR( 48)   =   *INTR( 27)    *    *INTR( 27)                           
   10   *INTR( 49)   =   *INTR( 47)    +    *INTR( 48)                           
   10   *INTR( 50)   =              SQRT    *INTR( 49)          SIZE             
   12   *INTR( 51)   =   *INTR( 21)    /    *INTR( 50)          Q(  1,  2)       
   12   *INTR( 52)   =   *INTR( 23)    /    *INTR( 50)          Q(  2,  2)       
   12   *INTR( 53)   =   *INTR( 25)    /    *INTR( 50)          Q(  3,  2)       
   12   *INTR( 54)   =   *INTR( 27)    /    *INTR( 50)          Q(  4,  2)       
   16   *INTR( 55)   =   *INTR( 51)    *    *INTR( 36)                           
   16   *INTR( 56)   =   *INTR( 52)    *    *INTR( 38)                           
   16   *INTR( 57)   =   *INTR( 55)    +    *INTR( 56)                           
   16   *INTR( 58)   =   *INTR( 53)    *    *INTR( 40)                           
   16   *INTR( 59)   =   *INTR( 57)    +    *INTR( 58)                           
   16   *INTR( 60)   =   *INTR( 54)    *    *INTR( 42)                           
   16   *INTR( 61)   =   *INTR( 59)    +    *INTR( 60)          PRODUCT          
   18   *INTR( 62)   =   *INTR( 61)    *    *INTR( 51)                           
   18   *INTR( 63)   =   *INTR( 36)    -    *INTR( 62)          Q(  1,  3)       
   18   *INTR( 64)   =   *INTR( 61)    *    *INTR( 52)                           
   18   *INTR( 65)   =   *INTR( 38)    -    *INTR( 64)          Q(  2,  3)       
   18   *INTR( 66)   =   *INTR( 61)    *    *INTR( 53)                           
   18   *INTR( 67)   =   *INTR( 40)    -    *INTR( 66)          Q(  3,  3)       
   18   *INTR( 68)   =   *INTR( 61)    *    *INTR( 54)                           
   18   *INTR( 69)   =   *INTR( 42)    -    *INTR( 68)          Q(  4,  3)       
   10   *INTR( 70)   =   *INTR( 63)    *    *INTR( 63)                           
   10   *INTR( 71)   =   *INTR( 65)    *    *INTR( 65)                           
   10   *INTR( 72)   =   *INTR( 70)    +    *INTR( 71)                           
   10   *INTR( 73)   =   *INTR( 67)    *    *INTR( 67)                           
   10   *INTR( 74)   =   *INTR( 72)    +    *INTR( 73)                           
   10   *INTR( 75)   =   *INTR( 69)    *    *INTR( 69)                           
   10   *INTR( 76)   =   *INTR( 74)    +    *INTR( 75)                           
   10   *INTR( 77)   =              SQRT    *INTR( 76)          SIZE             
   12   *INTR( 78)   =   *INTR( 63)    /    *INTR( 77)          Q(  1,  3)       
   12   *INTR( 79)   =   *INTR( 65)    /    *INTR( 77)          Q(  2,  3)       
   12   *INTR( 80)   =   *INTR( 67)    /    *INTR( 77)          Q(  3,  3)       
   12   *INTR( 81)   =   *INTR( 69)    /    *INTR( 77)          Q(  4,  3)       


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


   *OUT( 1) IS *INTR(  9)     Q(  1,  1)       
   *OUT( 2) IS *INTR( 10)     Q(  2,  1)       
   *OUT( 3) IS *INTR( 11)     Q(  3,  1)       
   *OUT( 4) IS *INTR( 12)     Q(  4,  1)       
   *OUT( 5) IS *INTR( 51)     Q(  1,  2)       
   *OUT( 6) IS *INTR( 52)     Q(  2,  2)       
   *OUT( 7) IS *INTR( 53)     Q(  3,  2)       
   *OUT( 8) IS *INTR( 54)     Q(  4,  2)       
   *OUT( 9) IS *INTR( 78)     Q(  1,  3)       
   *OUT(10) IS *INTR( 79)     Q(  2,  3)       
   *OUT(11) IS *INTR( 80)     Q(  3,  3)       
   *OUT(12) IS *INTR( 81)     Q(  4,  3)       
0                   MINICOMPILER VERSION 2.1.79
