Sources Esope | Cast3M

pcapfu
C PCAPFU    SOURCE    CHAT      05/01/13    02:11:12     5004
c
             FUNCTION PCAPFUNC(VINT)
      IMPLICIT INTEGER(I-N)
      real*8    vint,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.lt.0.D0).or.(abs(vint).eq.0.D0)) then
         pcapfunc=pc0
      else
         pcapfunc=pc0*(1.D0+vint**(1.D0/exr))
      endif
      return
      end