Sources Esope | Cast3M

caln
C CALN      SOURCE    PV090527  23/07/13    21:15:03     11708          
       FUNCTION CALN(SIG1,SIG2,SIGNE,PHI,C)
      IMPLICIT INTEGER(I-N)
       IMPLICIT REAL*8(A-H,O-Z)
-INC CCREEL
C
C----------CALCUL DE LA NORMALE AU CRITERE DE CISAILLEMENT DE LA LOI DE
C----------MOHR COULOMB POUR LES JOINTS 3D
C
       CALN = 0.0D0
       tph=phi
       if (abs(tph).lt.xpetit/xzprec) tph=xpetit/xzprec
       CALN = (-SQRT( (SIG1**2) + (SIG2**2) ))  + (SIGNE / TAN(tph)) + C
C
       RETURN
       END