Esope source files

   1 : C CPHOOK    SOURCE    CHAT      05/01/12    22:26:18     5004           
   2 :       SUBROUTINE CPHOOK(EPSX,EPSY,EPSZ,EPSXY,SIGX,SIGY,SIGZ,SIGXY,              
   3 :      1 YNU,YOUN)                                                                
   4 :       IMPLICIT INTEGER(I-N)
   5 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
   6 : C----------------------------------------------------------------               
   7 : C        PERMET DE CALCULER LE TENSEUR SIGMA FONCTION DU TENSEUR                
   8 : C        EPSILLON                                                               
   9 : C----------------------------------------------------------------               
  10 :       HOOK=YOUN/(1.D0-YNU*YNU)                                                  
  11 :       SIGX=HOOK*(EPSX+YNU*EPSY)                                                 
  12 :       SIGY=HOOK*(YNU*EPSX+EPSY)                                                 
  13 :       SIGZ=0.D0                                                                 
  14 :       SIGXY=HOOK*(1.D0-YNU)*EPSXY                                               
  15 :       RETURN                                                                    
  16 :       END                                                                       
  17 :