Sources Esope | Cast3M

cpcapf
C CPCAPF    SOURCE    CB215821  25/04/24    21:15:04     12248          
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)*(CMPLX(1.D0,0.D0)+
     &              vint**CMPLX(1.D0/exr))
      endif
      return
      end