Télécharger ctrsf.eso

Retour à la liste

Numérotation des lignes :

  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.  
  20.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales