Télécharger calcgm.eso

Retour à la liste

Numérotation des lignes :

  1. C CALCGM SOURCE BR232186 12/10/04 21:15:07 7520
  2. SUBROUTINE CALCGM (X,XGAMMT,XGAMMC,Y)
  3. C
  4. C====&===1=========2=========3=========4=========5=========6=========7==
  5. C Commentaires : Subroutine permettant de calculer la fonction GM
  6. C Appelé par la routine lcgldm.eso
  7. C
  8. C Auteur : B. Richard (Dr - Ing.) - CEA/DEN/DANS/DM2S/SEMT/EMSI
  9. C====&===1=========2=========3=========4=========5=========6=========7==
  10. C
  11. C----DECLARATION GENERALES----------------------------------------------
  12. C
  13. IMPLICIT INTEGER(I-N)
  14. IMPLICIT REAL*8(A-H,O-Z)
  15. C
  16. C-----CALCUL DE LA FONCTION Y = GM(X,GAMMT,GAMMC)
  17. C
  18. IF (X.GE.0.0D0) THEN
  19. Y = 1.0D0-XGAMMT
  20. ELSE
  21. Y = 1.0D0-XGAMMC
  22. ENDIF
  23.  
  24. RETURN
  25. END
  26.  
  27.  
  28.  
  29.  

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