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