Télécharger etacfu.eso

Retour à la liste

Numérotation des lignes :

  1. C ETACFU SOURCE CB215821 16/04/21 21:16:41 8920
  2. c
  3. FUNCTION ETACONFUNC(VINT)
  4. IMPLICIT INTEGER(I-N)
  5. real*8 vint,etaconfunc
  6. real*8 exm,qaa,pcc,eww,xk1,xk2,etb,exv,xep,paa,cco,
  7. . exl,xnn,aaa,bbb
  8. common /MRScone/ exm,qaa,pcc,eww,xk1,xk2,etb,exv,xep,paa,cco,
  9. . exl,xnn,aaa,bbb
  10. if (exv.lt.0.D0) then
  11. etaconfunc=aaa*(xk1)**(1.D0/abs(exv))
  12. else
  13. etaconfunc=aaa*EXP(-bbb*vint)*(xk1+vint)**(1.D0/exv)+
  14. . xk2*etb*vint/(xep+vint)
  15. endif
  16. return
  17. end
  18.  
  19.  
  20.  
  21.  
  22.  
  23.  

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