Télécharger ctraf.eso

Retour à la liste

Numérotation des lignes :

  1. C CTRAF SOURCE CHAT 05/01/12 22:32:09 5004
  2. SUBROUTINE CTRAF(SI,RTA,VCRI)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. C
  6. C----------------------------------------------
  7. C CETTE ROUTINE PERMET DE CALCULER LA |
  8. C VALEUR DU CRITERE DE TRACTION QUAND |
  9. C ON A UNE FISSURE |
  10. C----------------------------------------------
  11. C
  12. VCRI=SI-RTA
  13. RETURN
  14. END
  15.  
  16.  

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