C CPCAPF    SOURCE    CHAT      05/01/12    22:25:53     5004           
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=pc0
      else if (abs(vint).eq.0.D0) then
         c_pcapfunc=pc0
      else
         c_pcapfunc=pc0*(1.D0+vint**(1.D0/exr))
      endif
      return
      end