Sources Esope | Cast3M

cvflca
C CVFLCA    SOURCE    KK2000    14/04/09    21:15:12     8027
c
      SUBROUTINE C_VFLCAMACINV (SIGINV,VARINT,OTRVAR,XP,XQ,XT)
      IMPLICIT INTEGER(I-N)
 
      complex*16 siginv(3),varint,otrvar,xp,xq,xt,pcap,gtet,fr,qqa,
     .          c_wwfunc,c_etaconfunc,c_wwfuncder,c_pcapfunc,q
 
      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
 
      pcap=c_pcapfunc(varint)
      gtet=c_wwfunc(siginv(3),eww)
 
      fr  =(CMPLX(cfr)*pcap-CMPLX(pcc))*c_etaconfunc(otrvar)
      q   =siginv(2)
      qqa =((1.D0,0.D0)+q/CMPLX(qaa))
      xp=(2.D0,0.D0)*(siginv(1)-CMPLX(cpm)*pcap)/(CMPLX(cpr)*pcap)**2
      xq=(2.D0,0.D0)*(gtet/fr)**2*q*
     .        (qqa**CMPLX(2.D0*exm)  +
     &    exm*q*qqa**CMPLX(2.D0*exm-1.D0)/qaa)
      xt=(2.D0,0.D0)*gtet*q**(2.D0,0.D0)*qqa**CMPLX(2.D0*exm) /
     &    fr**(2.D0,0.D0)*c_wwfuncder(siginv(3),eww)
      return
      end