Esope source files

   1 : C CTRSF     SOURCE    CHAT      05/01/12    22:32:18     5004           
   2 :       SUBROUTINE CTRSF(TENS,RT,VCTR)                                            
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
   5 :       DIMENSION TENS(3)                                                         
   6 : C                                                                               
   7 : C----------------------------------------------                                 
   8 : C     CETTE ROUTINE PERMET DE CALCULER LA     |                                 
   9 : C     VALEUR DU CRITERE DE TRACTION QUAND     |                                 
  10 : C     ON N A PAS ENCORE DE FISSURE            |                                 
  11 : C----------------------------------------------                                 
  12 : C                                                                               
  13 :       SO=TENS(1)+TENS(2)                                                        
  14 :       DE=(TENS(1)-TENS(2))*(TENS(1)-TENS(2))+4.D0*TENS(3)*TENS(3)               
  15 :       DE=SQRT(DE)                                                               
  16 :       VCTR=(SO+DE)/2.D0-RT                                                      
  17 :       RETURN                                                                    
  18 :       END                                                                       
  19 :