Télécharger la plaquette Cast3M


fr en

Télécharger vlf3.eso

Retour à la liste

Numérotation des lignes : 

vlf3

  1. C VLF3      SOURCE    CHAT      05/01/13    04:07:38     5004
  2.       FUNCTION VLF3(X,G)
  3. C************************************************************************
  4. C
  5. C PROJET            :  CASTEM 2000
  6. C
  7. C NOM               :  VLF3
  8. C
  9. C DESCRIPTION       :  Fonction F3 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           : VLF1
  20. C
  21. C************************************************************************
  22. C
  23. C Entrées : X, G
  24. C
  25. C Sorties : VLF3
  26. C
  27. C************************************************************************
  28. C
  29. C HISTORIQUE (Anomalies et modifications éventuelles)
  30. C
  31. C HISTORIQUE :  7.1.98,    Modifié par  A. BECCANTINI, DRN/DMT/SEMT/TTMF
  32. C                          pour ajouter des commentaires
  33. C
  34. C************************************************************************
  35. C
  36. C**** N.B.:  Toutes les variables sont DECLAREES
  37. C
  38.       IMPLICIT INTEGER(I-N)
  39.       IMPLICIT REAL*8 (A-H,O-Z)
  40.       REAL*8 X,G,VLF3,VLF1
  41. C
  42.       VLF3 = 1.0D0/VLF1(X,G)
  43.       RETURN
  44.       END
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  

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