Sources Esope | Cast3M

camcri
C CAMCRI    SOURCE    FANDEUR   13/01/29    21:15:13     7683
      SUBROUTINE CAMCRI(SIG,PI,XMAT,XINV,Y,SELAS)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
      DIMENSION SIG(*),XMAT(*)
      DIMENSION XINV(2),COVNMS(1)
*
      ALFAH=0.D0
      COVNMS(1) = 0.D0
      XINV(1)=TRACE(SIG)/3.D0
      XINV(2)=VONMIS(SIG,1,ALFAH,COVNMS)
      COHE = XMAT(7)
      GM   = XMAT(8)
      SELAS =(PI+COHE) * 0.5D0
      Y = (COHE-XINV(1)-SELAS)**2 + (XINV(2)/GM)**2
      Y = SQRT(Y)
      RETURN
      END