Télécharger calcxim.eso

Retour à la liste

Numérotation des lignes :

  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