C CRIT2     SOURCE    CHAT      05/01/12    22:30:41     5004
      FUNCTION CRIT2(XM,XP,THETA,XJP,XJ1C,T,RAYOM,THETA0,EPAI,YOUN)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
C=======================================================================
C
C     CALCULE LA VALEUR DE LA FONCTION D ENDOMMAGEMENT
C
C     ENTREES:XM     VALEUR DU MOMENT
C             XP     VALEUR DE L EFFORT NORMAL
C             XJP    VALEUR DE LA PARTIE PLASTIQUE DE J
C             THETA  ANGLE DE LA FISSURE
C
C     SORTIE:CRIT2   VALEUR DE LA FONCTION
C=======================================================================
      CALL TUFIJE(XM,XP,THETA,XJE,RAYOM,EPAI,YOUN)
      CRIT2=XJE+XJP-XJ1C-T*RAYOM*(THETA-THETA0)
      RETURN
      END