Esope source files

   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 :