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