cpcapf
C CPCAPF SOURCE KK2000 14/04/09 21:15:11 8027 c FUNCTION C_PCAPFUNC(VINT) IMPLICIT INTEGER(I-N) complex*16 vint,c_pcapfunc real*8 pc0,exr,cca,phi,alp,pcc,paa,qaa,exm,eww, & cpr,cpm,cfr common /MRScapp/ pc0,exr,cca,phi,alp,pcc,paa,qaa,exm,eww, & cpr,cpm,cfr if (exr.eq.0.D0) then c_pcapfunc=CMPLX(pc0) else if (abs(vint).eq.0.D0) then c_pcapfunc=CMPLX(pc0) else c_pcapfunc=CMPLX(pc0)*((1.D0,0.D0)+vint**CMPLX(1.D0/exr)) endif return end
© Cast3M 2003 - Tous droits réservés.
Mentions légales