Télécharger fissu2.eso

Retour à la liste

Numérotation des lignes :

fissu2
  1. C FISSU2 SOURCE CHAT 05/01/13 00:01:45 5004
  2. C FISSU2 SOURCE INSL 24/10/96
  3. SUBROUTINE FISSU2(S1X,SIGRX,STRNX,RTM,PENT,TANG)
  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. S1X = RTM-PENT*(STRNX-(RTM-SIGRX)/TANG)
  12. IF(S1X .LE. 0.D0) THEN
  13. S1X = 0.D0
  14. TANG = 0.D0
  15. ENDIF
  16. C
  17. C ACTUALISATION DE LA RESISTANCE EN TRACTION
  18. C
  19. RTM=S1X
  20. C
  21. RETURN
  22. END
  23.  
  24.  
  25.  

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