Esope source files

   1 : C CPCAPF    SOURCE    CHAT      05/01/12    22:25:53     5004           
   2 : c
   3 :       FUNCTION C_PCAPFUNC(VINT)
   4 :       IMPLICIT INTEGER(I-N)
   5 :       complex*16    vint,c_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.eq.0.D0) then
  11 :          c_pcapfunc=pc0
  12 :       else if (abs(vint).eq.0.D0) then
  13 :          c_pcapfunc=pc0
  14 :       else
  15 :          c_pcapfunc=pc0*(1.D0+vint**(1.D0/exr))
  16 :       endif
  17 :       return
  18 :       end      
  19 :  
  20 :  
  21 :