Esope source files

   1 : C CVFLCA    SOURCE    CHAT      05/01/12    22:33:10     5004           
   2 : c
   3 :       SUBROUTINE C_VFLCAMACINV (SIGINV,VARINT,OTRVAR,XP,XQ,XT)
   4 :       IMPLICIT INTEGER(I-N)
   5 :       complex*16 siginv(3),varint,otrvar,xp,xq,xt,pcap,gtet,fr,qqa,
   6 :      .          c_wwfunc,c_etaconfunc,c_wwfuncder,c_pcapfunc,q
   7 :       real*8    pc0,exr,cca,phi,alp,pcc,paa,qaa,exm,eww,
   8 :      .          cpr,cpm,cfr
   9 :       common /MRScapp/ pc0,exr,cca,phi,alp,pcc,paa,qaa,exm,eww,
  10 :      .                 cpr,cpm,cfr
  11 :       pcap=c_pcapfunc(varint)
  12 :       gtet=c_wwfunc(siginv(3),eww)
  13 :       fr  =(cfr*pcap-pcc)*c_etaconfunc(otrvar)
  14 :       q   =siginv(2)
  15 :       qqa =(1.D0+q/qaa)
  16 :       xp=2.D0*(siginv(1)-cpm*pcap)/(cpr*pcap)**2
  17 :       xq=2.D0*(gtet/fr)**2*q*
  18 :      .   (qqa**(2.D0*exm)+exm*q*qqa**(2.D0*exm-1.D0)/qaa)
  19 :       xt=2.D0*gtet*q**2*qqa**(2.D0*exm)/fr**2*c_wwfuncder(siginv(3),eww)
  20 :       return
  21 :       end
  22 :  
  23 :  
  24 :