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