Sources Esope | Cast3M

yldmhe
C YLDMHE    SOURCE    CB215821  16/04/21    21:18:43     8920
CCC
C **********************************************************************
CCC
      SUBROUTINE YIELDMIEHE (SIG,VAR,VALOR)
      IMPLICIT INTEGER(I-N)
      real*8  sig(*),var,valor,sigymiehe
      real*8            sigy0,kiso,siginf,velo,cpar,mpar
      common /miehdata/ sigy0,kiso,siginf,velo,cpar,mpar
      integer m
      m=nint(mpar)
      call yieldmieheb (sig,valor)
      valor=(valor+sigymiehe(var))*SQRT(2.D0/3.D0)
      return
      end