Télécharger cetafu.eso

Retour à la liste

Numérotation des lignes :

  1. C CETAFU SOURCE KK2000 14/04/09 21:15:05 8027
  2. c
  3. FUNCTION C_ETACONFUNC(VINT)
  4. IMPLICIT INTEGER(I-N)
  5. complex*16 vint,c_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. c_etaconfunc=aaa*(xk1)**(1.D0/abs(exv))
  12. else
  13. c_etaconfunc=aaa*exp(-CMPLX(bbb)*vint)*
  14. & (CMPLX(xk1)+vint)**CMPLX(1.D0/exv)+
  15. & CMPLX(xk2*etb)*vint/(CMPLX(xep)+vint)
  16. endif
  17. return
  18. end
  19.  
  20.  
  21.  
  22.  
  23.  

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