Sources Esope | Cast3M

ylddrh
C YLDDRH    SOURCE    CHAT      05/01/13    04:19:26     5004
CCC
C **********************************************************************
CCC
      SUBROUTINE YIELDDRHMC (SIG,NDIMS,VAR,NDIMV,VALOR)
      IMPLICIT INTEGER(I-N)
      integer ndims,ndimv
      real*8  sig(ndims),var(ndimv),valor,siginv(3)
      call InvariantesIJJ(sig,ndims,siginv)
      call yieldrhmc(siginv,valor)
      return
      end