Esope source files

   1 : C CALCXIF   SOURCE    BR232186  12/10/04    21:15:11     7520           
   2 :       SUBROUTINE CALCXIF (X,XALFA,XGAMF,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 = XIF(X,ALFA,GAMF,XD1,XD2)
  17 : C
  18 :       IF (X.GE.0.0D0) THEN
  19 :          Y = (XALFA+XGAMF*XD2)/(XALFA+XD2)
  20 :       ELSE
  21 :          Y = (XALFA+XGAMF*XD1)/(XALFA+XD1)
  22 :       ENDIF
  23 : 
  24 :       RETURN
  25 :       END
  26 :       
  27 :       
  28 :       
  29 :       
  30 :