Esope source files

   1 : C GAMTT     SOURCE    CHAT      05/01/13    00:15:54     5004           
   2 :       FUNCTION GAMTT(S3,DS3,R3)
   3 : C
   4 :       IMPLICIT INTEGER(I-N)
   5 :       IMPLICIT REAL*8 (A-H,O-Z)
   6 : C
   7 :       IF(DS3.NE.0.D0) GO TO 1
   8 :       GAMTT=100.D0
   9 :       RETURN
  10 :     1 GAMTT=(R3-S3)/DS3
  11 : C
  12 :       RETURN
  13 :       END
  14 :  
  15 :