Sources Esope | Cast3M

ylddmc
C YLDDMC    SOURCE    CHAT      05/01/13    04:19:24     5004
CCC
C **********************************************************************
CCC
      SUBROUTINE YIELDDMAC (SIG,NDIMS,VAR,NDIMV,VALOR,NMODEL)
      IMPLICIT INTEGER(I-N)
      integer ndims,ndimv,nmodel
      real*8 sig(ndims),var(ndimv),valor,siginv(3)
      call InvariantesPQT(sig,ndims,siginv)
      if (nmodel.eq.21) then
         call yieldcoMAC(siginv,var(1),valor)
      else if (nmodel.eq.22) then
         call yieldcaMAC(siginv,var(1),var(2),valor)
      else if (nmodel.eq.23) then
         call yieldcaMAC(siginv,var(2),var(1),valor)
      endif
      return
      end