Sources Esope | Cast3M

cvflca
C CVFLCA    SOURCE    CB215821  25/04/24    21:15:05     12248          
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 =(CMPLX(1.D0,0.D0)+q/CMPLX(qaa))
      xp=CMPLX(2.D0,0.D0)*(siginv(1)-CMPLX(cpm)*pcap)/
     &  (CMPLX(cpr)*pcap)**2
      xq=CMPLX(2.D0,0.D0)*(gtet/fr)**2*q*
     .        (qqa**CMPLX(2.D0*exm)  +
     &    exm*q*qqa**CMPLX(2.D0*exm-1.D0)/qaa)
      xt=CMPLX(2.D0,0.D0)*gtet*q**CMPLX(2.D0,0.D0)*qqa**CMPLX(2.D0*exm)
     &    / fr**CMPLX(2.D0,0.D0)*c_wwfuncder(siginv(3),eww)
      return
      end