Télécharger cpcapf.eso

Retour à la liste

Numérotation des lignes :

  1. C CPCAPF SOURCE KK2000 14/04/09 21:15:11 8027
  2. c
  3. FUNCTION C_PCAPFUNC(VINT)
  4. IMPLICIT INTEGER(I-N)
  5. complex*16 vint,c_pcapfunc
  6. real*8 pc0,exr,cca,phi,alp,pcc,paa,qaa,exm,eww,
  7. & cpr,cpm,cfr
  8. common /MRScapp/ pc0,exr,cca,phi,alp,pcc,paa,qaa,exm,eww,
  9. & cpr,cpm,cfr
  10. if (exr.eq.0.D0) then
  11. c_pcapfunc=CMPLX(pc0)
  12. else if (abs(vint).eq.0.D0) then
  13. c_pcapfunc=CMPLX(pc0)
  14. else
  15. c_pcapfunc=CMPLX(pc0)*((1.D0,0.D0)+vint**CMPLX(1.D0/exr))
  16. endif
  17. return
  18. end
  19.  
  20.  
  21.  
  22.  
  23.  

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