Esope source files

   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
  45 :       CALL VLH1(H1,H1P,X,G1)
  46 :       AUX=LOG(A2)
  46 :       CALL VLH1(H2,H2P,X+AUX,G2)
  47 :       AUX=SQRT((G2*A2)/(A1*G1))
  48 :       WX  = H1 + AUX*H2 - A3
  49 :       WXP = H1P + AUX*H2P
  50 :       RETURN
  51 :       END
  52 :  
  53 :  
  54 :