Télécharger wnvxc.eso

Retour à la liste

Numérotation des lignes :

  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