C CPHOMO    SOURCE    CHAT      05/01/12    22:26:11     5004
      SUBROUTINE CPHOMO(ENT,SOR,YOUN,ANU,ALPHA)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
      DIMENSION ENT(3),SOR(3)
C
C-----------------------------------------------
C     CETTE ROUTINE PERMET DE PASSER DE EPS
C     A SIGMA DANS LE CAS DES CONTRAINTES
C     PLANES
C-----------------------------------------------
C
      YU=YOUN/(1.D0-ANU*ANU)
      SOR(1)=YU*(ENT(1)+ANU*ENT(2))
      SOR(2)=YU*(ENT(2)+ANU*ENT(1))
      SOR(3)=ALPHA*YOUN/(1.D0+ANU)*ENT(3)
      END