Sources Esope | Cast3M

gamtt
C GAMTT     SOURCE    CHAT      05/01/13    00:15:54     5004
      FUNCTION GAMTT(S3,DS3,R3)
C
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
C
      IF(DS3.NE.0.D0) GO TO 1
      GAMTT=100.D0
      RETURN
    1 GAMTT=(R3-S3)/DS3
C
      RETURN
      END