Télécharger la plaquette Cast3M


fr en

Télécharger wnvxc.eso

Retour à la liste

Numérotation des lignes : 

wnvxc

  1. C WNVXC     SOURCE    CHAT      05/01/13    04:11:45     5004
  2.       SUBROUTINE WNVXC(X,A1,A2,A3,G1,G2,WX,WXP)
  3.       IMPLICIT INTEGER(I-N)
  4.       REAL*8 H1P,H1,G2,H2P,H2,AUX,G1,X,WXP,A3,A2,A1,WX
  5. C************************************************************************
  6. C
  7. C PROJET            :  CASTEM 2000
  8. C
  9. C NOM               :  WNVXC
  10. C
  11. C DESCRIPTION       :  Voir flurie.eso
  12. C
  13. C                      Calcul de la function W de Smoller et de sa derivee.
  14. C
  15. C LANGAGE           :  FORTRAN 77
  16. C
  17. C AUTEUR            :  P. GALON DRN/DMT/SEMT/TTMF
  18. C
  19. C************************************************************************
  20. C
  21. C
  22. C APPELES           :  VLH1
  23. C
  24. C
  25. C************************************************************************
  26. C
  27. C Entrées : X , A1, A2, A3, G1, G2
  28. C
  29. C Sorties :
  30. C
  31. C  WX    fonction  W
  32. C
  33. C  WXP   fonction derivee de W
  34. C
  35. C************************************************************************
  36. C
  37. C HISTORIQUE (Anomalies et modifications éventuelles)
  38. C
  39. C HISTORIQUE :  créé le 1.10.96
  40. C
  41. C************************************************************************
  42. C
  43. C N.B. Toutes les variables sont DECLAREES
  44. C
  45. C
  46.       CALL VLH1(H1,H1P,X,G1)
  47.       AUX=LOG(A2)
  48.       CALL VLH1(H2,H2P,X+AUX,G2)
  49.       AUX=SQRT((G2*A2)/(A1*G1))
  50.       WX  = H1 + AUX*H2 - A3
  51.       WXP = H1P + AUX*H2P
  52.       RETURN
  53.       END
  54.  
  55.  
  56.  
  57.  

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