Esope source files

   1 : C PCAPFU    SOURCE    CHAT      05/01/13    02:11:12     5004           
   2 : c
   3 :              FUNCTION PCAPFUNC(VINT)
   4 :       IMPLICIT INTEGER(I-N)
   5 :       real*8    vint,pcapfunc
   6 :       real*8    pc0,exr,cca,phi,alp,pcc,paa,qaa,exm,eww,
   7 :      .          cpr,cpm,cfr
   8 :       common /MRScapp/ pc0,exr,cca,phi,alp,pcc,paa,qaa,exm,eww,
   9 :      .                 cpr,cpm,cfr
  10 :       if ((exr.lt.0.D0).or.(abs(vint).eq.0.D0)) then
  11 :          pcapfunc=pc0
  12 :       else
  13 :          pcapfunc=pc0*(1.D0+vint**(1.D0/exr))
  14 :       endif
  15 :       return
  16 :       end      
  17 :  
  18 :  
  19 :