Télécharger gamtt.eso

Retour à la liste

Numérotation des lignes :

  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.  
  16.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales