Sources Esope | Cast3M

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