Télécharger calcxif.eso

Retour à la liste

Numérotation des lignes :

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

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