Sources Esope | Cast3M

yldcom
C YLDCOM    SOURCE    CHAT      05/01/13    04:19:19     5004
c
      SUBROUTINE YIELDCOMAC (SIGINV,VARINT,VALOR)
      IMPLICIT INTEGER(I-N)
      real*8    siginv(3),varint,valor,wwfunc,etaconfunc
      real*8    exm,qaa,pcc,eww,xk1,xk2,etb,exv,xep,paa,cco,
     .          exl,xnn,aaa,bbb
      common /MRScone/ exm,qaa,pcc,eww,xk1,xk2,etb,exv,xep,paa,cco,
     .                 exl,xnn,aaa,bbb
      valor=siginv(2)*(1.D0+siginv(2)/qaa)**exm*wwfunc(siginv(3),eww)-
     .      etaconfunc(varint)*(siginv(1)-pcc)
      return
      end