Esope source files

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