Esope source files

   1 : C CALCXIM   SOURCE    BR232186  12/10/04    21:15:13     7520           
   2 :       SUBROUTINE CALCXIM (X,XGAMMT,XGAMMC,XD1,XD2,Y)
   3 : C
   4 : C====&===1=========2=========3=========4=========5=========6=========7==
   5 : C Commentaires :   Subroutine permettant de calculer la fonction XIM
   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 = XIM(X,GAMMT,GAMMC,XD1,XD2)
  17 : C
  18 :       IF (X.GE.0.0D0) THEN
  19 :          Y = (1.0D0+XGAMMT*XD1)/(1.0D0+XD1)+
  20 :      &         (1.0D0+XGAMMT*XD2)/(1.0D0+XD2)
  21 :          Y = 0.5D0*Y
  22 :       ELSE
  23 :          Y = (1.0D0+XGAMMC*XD1)/(1.0D0+XD1)+
  24 :      &         (1.0D0+XGAMMC*XD2)/(1.0D0+XD2)
  25 :          Y = 0.5D0*Y
  26 :       ENDIF
  27 : 
  28 :       RETURN
  29 :       END
  30 :       
  31 :       
  32 :       
  33 :          
  34 :       
  35 :        
  36 :