Télécharger calg.eso

Retour à la liste

Numérotation des lignes :

  1. C CALG SOURCE CHAT 05/01/12 21:46:09 5004
  2. FUNCTION CALG(SIG1,SIG2,SIGNE,PHI,C)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. C
  6. C----------CALCUL DU CRITERE DE CISAILLEMENT DE LA LOI DE
  7. C----------MOHR COULOMB POUR LES JOINTS 3D
  8. C
  9. CALG = 0.0D0
  10. CALG = (SQRT( (SIG1**2) + (SIG2**2) )) + (SIGNE * TAN(PHI)) - C
  11. C
  12. RETURN
  13. END
  14.  
  15.  
  16.  

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