Sources Esope | Cast3M

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