Esope source files

   1 : C CAMCRI    SOURCE    FANDEUR   13/01/29    21:15:13     7683           
   2 :       SUBROUTINE CAMCRI(SIG,PI,XMAT,XINV,Y,SELAS)
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
   5 :       DIMENSION SIG(*),XMAT(*)
   6 :       DIMENSION XINV(2),COVNMS(1)
   7 : *
   8 :       ALFAH=0.D0
   9 :       COVNMS(1) = 0.D0
  10 :       XINV(1)=TRACE(SIG)/3.D0
  11 :       XINV(2)=VONMIS(SIG,1,ALFAH,COVNMS)
  12 :       COHE = XMAT(7)
  13 :       GM   = XMAT(8)
  14 :       SELAS =(PI+COHE) * 0.5D0
  15 :       Y = (COHE-XINV(1)-SELAS)**2 + (XINV(2)/GM)**2
  16 :       Y = SQRT(Y)
  17 :       RETURN                                                                    
  18 :       END                                                                       
  19 :  
  20 :