Télécharger caln.eso

Retour à la liste

Numérotation des lignes :

  1. C CALN SOURCE PV 15/04/13 21:15:01 8474
  2. FUNCTION CALN(SIG1,SIG2,SIGNE,PHI,C)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. -INC CCREEL
  6. C
  7. C----------CALCUL DE LA NORMALE AU CRITERE DE CISAILLEMENT DE LA LOI DE
  8. C----------MOHR COULOMB POUR LES JOINTS 3D
  9. C
  10. CALN = 0.0D0
  11. tph=phi
  12. if (abs(tph).lt.xpetit) tph=xpetit
  13. CALN = (-SQRT( (SIG1**2) + (SIG2**2) )) + (SIGNE / TAN(tph)) + C
  14. C
  15. RETURN
  16. END
  17.  
  18.  
  19.  
  20.  

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