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