Sources Esope | Cast3M

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