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