Télécharger fissu.eso

Retour à la liste

Numérotation des lignes :

  1. C FISSU SOURCE CHAT 05/01/13 00:01:48 5004
  2. C FISSU SOURCE INSL 24/10/96
  3. SUBROUTINE FISSU(S1X,STRNX,TANG,RTM,PENT)
  4. C
  5. C BETON FISSURE : COMPORTEMENT ADOUCISSANT
  6. C ---> TENSION-SOFTENING
  7. C
  8. IMPLICIT INTEGER(I-N)
  9. IMPLICIT REAL*8(A-H,O-Z)
  10. C
  11. TANG=PENT
  12. S1X = RTM-PENT*STRNX
  13. IF(S1X .LE. 0.D0) THEN
  14. S1X = 0.D0
  15. TANG = 0.D0
  16. ENDIF
  17. C
  18. C ACTUALISATION DE LA RESISTANCE EN TRACTION
  19. C
  20. RTM=S1X
  21. RETURN
  22. END
  23.  
  24.  
  25.  

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