Esope source files

   1 : C TXAY      SOURCE    CHAT      05/01/13    03:57:30     5004           
   2 :       SUBROUTINE TXAY (MLREE1,MXMAT,MLREE2,MP,MQ,XX)                            
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
   5 : -INC SMLREEL                                                                    
   6 : -INC TMXMAT                                                                     
   7 :       SEGACT MLREE2                                                             
   8 :       JG=MLREE2.PROG(/1)                                                        
   9 :       SEGINI MLREEL                                                             
   9 :       CALL MATVE1(MXMAT.XMAT,MLREE2.PROG,MP,MQ,PROG,2)                          
  10 :       XX=0.D0                                                                   
  11 :       DO 1 I =1,JG                                                              
  12 :       XX= MLREE1.PROG(I)*PROG(I) + XX                                           
  13 :    1  CONTINUE                                                                  
  14 :       SEGSUP MLREEL                                                             
  15 :       RETURN                                                                    
  16 :       END                                                                       
  17 :