Sources Esope | Cast3M

vycavc
C VYCAVC    SOURCE    CHAT      05/01/13    04:10:29     5004
 
      SUBROUTINE VYICAMACVARCO (SIG,NDIMS,VARINT,OTRVAR,VALOR)
      IMPLICIT INTEGER(I-N)
      integer ndims
      real*8    siginv(3),varint,otrvar,valor,pcapfunc,pcap,ecf,aux2,
     .          aux3,wwfunc,etaconfunc,etaconfuncder,sig(ndims)
      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
      call InvariantesPQT(sig,ndims,siginv)
      pcap   =pcapfunc(varint)
      ecf    =etaconfunc(otrvar)
      aux2   =siginv(2)*(1.D0+siginv(2)/qaa)**exm*wwfunc(siginv(3),eww)
      aux3   =ecf*(cfr*pcap-pcc)
      valor  =-2.D0*(aux2/aux3)**2/ecf*etaconfuncder(otrvar)
      return
      end