Télécharger critpe.eso

Retour à la liste

Numérotation des lignes :

  1. C CRITPE SOURCE CHAT 05/01/12 22:30:49 5004
  2. SUBROUTINE CRITPE (AAA, BBB, FT , ISGNE, FFF)
  3. C Calcul des criteres avec les contraintes principales
  4. C 29/06/95
  5. C
  6. IMPLICIT INTEGER(I-N)
  7. IMPLICIT REAL*8(A-H,O-Z)
  8. C
  9. C======================================================
  10. C Cette routine calcule le critere de rupture en traction ou compression
  11. C de la petite surface
  12. C Les criteres sont ecrits avec les contraintes principales
  13. C
  14. C ENTREES:
  15. C --------
  16. C AAA = Contrainte principale sur laquelle on fait le test
  17. C BBB = Variable d'ecrouissage
  18. C FT = Limite en traction ou traction
  19. C ISGNE = Numero du cas
  20. C 1 --> Critere de traction
  21. C -1 --> Critere de compression
  22. C SORTIES:
  23. C -------
  24. C FFF = Valeur du critere
  25. C
  26. C=====================================================
  27. C
  28. FFF = ISGNE*( AAA - BBB - FT )
  29. C
  30. RETURN
  31. END
  32.  
  33.  
  34.  

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