Esope source files

   1 : C TUFIC2    SOURCE    CHAT      05/01/13    03:55:22     5004           
   2 :       SUBROUTINE TUFIC2(XJP,XJE,THETA,IRETOU,PRECIS,XJ1C,T,RAYOM,               
   3 :      &THETA0)                                                                   
   4 :       IMPLICIT INTEGER(I-N)
   5 :       IMPLICIT REAL*8 (A-H,O-Z)                                                 
   6 : C=======================================================================        
   7 : C        POUR SAVOIR SI IL Y A PROPAGATION DE LA FISSURE                        
   8 : C                                                                               
   9 : C        ENTREES:XJP      PARTIE PLASTIQUE DE J                                 
  10 : C                XJE      PARTIE ELASTIQUE DE J                                 
  11 : C                THETA   ANGLE ACTUEL DE LA FISSURE                             
  12 : C                                                                               
  13 : C       SORTIE:IRETOU    0 SI PAS DE PROPAGATION,1 SINON                        
  14 : C=======================================================================        
  15 :       ZERO=0.D0                                                                 
  16 :       IRETOU=0                                                                  
  17 :       CRIT=XJE+XJP-XJ1C-T*RAYOM*(THETA-THETA0)                                  
  18 :       IF(CRIT.GE.PRECIS) IRETOU=1                                               
  19 :       RETURN                                                                    
  20 :       END                                                                       
  21 :