Sources Esope | Cast3M

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