Sources Esope | Cast3M

yldcmc
C YLDCMC    SOURCE    CHAT      05/01/13    04:19:16     5004
c
      SUBROUTINE YIELDCAMAC (SIGINV,VARINT,OTRVAR,VALOR)
      IMPLICIT INTEGER(I-N)
      real*8    siginv(3),varint,otrvar,valor,wwfunc,
     .          pcapfunc,etaconfunc,pcap
      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=pcapfunc(varint)
      valor=((siginv(1)-cpm*pcap)/(cpr*pcap))**2+(siginv(2)*
     .      (1.D0+siginv(2)/qaa)**exm*wwfunc(siginv(3),eww)/
     .      (etaconfunc(otrvar)*(cfr*pcap-pcc)))**2-1.D0
      return
      end