Télécharger la plaquette Cast3M


fr en

Télécharger vlf1.eso

Retour à la liste

Numérotation des lignes : 

vlf1

  1. C VLF1      SOURCE    CHAT      05/01/13    04:07:36     5004
  2.       FUNCTION VLF1(X,G)
  3. C************************************************************************
  4. C
  5. C PROJET            :  CASTEM 2000
  6. C
  7. C NOM               :  VLF1
  8. C
  9. C DESCRIPTION       :  Fonction F1 de SMOLLER
  10. C
  11. C                      (voir FLURIE)
  12. C
  13. C LANGAGE           :  FORTRAN 77
  14. C
  15. C AUTEUR            :  P. GALON DRN/DMT/SEMT/TTMF
  16. C
  17. C************************************************************************
  18. C
  19. C APPELES           : aucun
  20. C
  21. C
  22. C************************************************************************
  23. C
  24. C Entrées : X, G
  25. C
  26. C Sorties : VLF1
  27. C
  28. C************************************************************************
  29. C
  30. C HISTORIQUE (Anomalies et modifications éventuelles)
  31. C
  32. C HISTORIQUE :  27.11.97 , Modifié par  A. BECCANTINI, DRN/DMT/SEMT/TTMF
  33. C                          pour ajouter des commentaires
  34. C
  35. C************************************************************************
  36. C
  37. C**** N.B.:  Toutes les variables sont DECLAREES
  38. C
  39.       IMPLICIT INTEGER(I-N)
  40.       REAL*8 X,G,VLF1,B,EX
  41. C
  42.       IF(X .LE. 0.0D0) THEN
  43. C
  44. C******* X = < 0
  45. C
  46.          B = (G+1.0D0)/(G-1.0D0)
  47.          EX = EXP(X)
  48.          VLF1 = (B+EX)/(1.0D0+B*EX)
  49.       ELSE
  50. C
  51. C******* X  >  0
  52. C
  53.          VLF1 = EXP(-X/G)
  54.       ENDIF
  55. C
  56. C**** N.B.: In X = 0 VLF1 est continue
  57. C
  58.       RETURN
  59.       END
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  

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