Télécharger la plaquette Cast3M


fr en

Télécharger calcxim.eso

Retour à la liste

Numérotation des lignes : 

calcxim

  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.  
  37.  

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