Esope source files

   1 : C PCAPFD    SOURCE    CHAT      05/01/13    02:11:09     5004           
   2 : c
   3 :              FUNCTION PCAPFUNCDER(VINT)
   4 :       IMPLICIT INTEGER(I-N)
   5 :       real*8    vint,pcapfuncder
   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) then
  11 :             pcapfuncder=0.D0
  12 :       else if (vint.eq.0.D0) then
  13 :         pcapfuncder=pc0*1.D-8**(1.D0/exr-1.D0)/exr
  14 :       else
  15 :         pcapfuncder=pc0*vint**(1.D0/exr-1.D0)/exr
  16 :       endif
  17 :       return
  18 :       end      
  19 :  
  20 :  
  21 :