Sources Esope | Cast3M

trace
C TRACE     SOURCE    CHAT      05/01/13    03:44:16     5004
      FUNCTION TRACE(STOT)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
      DIMENSION STOT(*)
      X=0.
      DO 1 I=1,3
      X=X+STOT(I)
 1    CONTINUE
      TRACE=X
      RETURN
      END