Esope source files

   1 : C CRIT2     SOURCE    CHAT      05/01/12    22:30:41     5004           
   2 :       FUNCTION CRIT2(XM,XP,THETA,XJP,XJ1C,T,RAYOM,THETA0,EPAI,YOUN)             
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8 (A-H,O-Z)                                                 
   5 : C=======================================================================        
   6 : C                                                                               
   7 : C     CALCULE LA VALEUR DE LA FONCTION D ENDOMMAGEMENT                          
   8 : C                                                                               
   9 : C     ENTREES:XM     VALEUR DU MOMENT                                           
  10 : C             XP     VALEUR DE L EFFORT NORMAL                                  
  11 : C             XJP    VALEUR DE LA PARTIE PLASTIQUE DE J                         
  12 : C             THETA  ANGLE DE LA FISSURE                                        
  13 : C                                                                               
  14 : C     SORTIE:CRIT2   VALEUR DE LA FONCTION                                      
  15 : C=======================================================================        
  15 :       CALL TUFIJE(XM,XP,THETA,XJE,RAYOM,EPAI,YOUN)                              
  16 :       CRIT2=XJE+XJP-XJ1C-T*RAYOM*(THETA-THETA0)                                 
  17 :       RETURN                                                                    
  18 :       END                                                                       
  19 :