Sources Esope | Cast3M

ctraf
C CTRAF     SOURCE    CHAT      05/01/12    22:32:09     5004
      SUBROUTINE CTRAF(SI,RTA,VCRI)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
C
C----------------------------------------------
C     CETTE ROUTINE PERMET DE CALCULER LA     |
C     VALEUR DU CRITERE DE TRACTION QUAND     |
C     ON A UNE FISSURE                        |
C----------------------------------------------
C
      VCRI=SI-RTA
      RETURN
      END