Sources Esope | Cast3M

cphoin
C CPHOIN    SOURCE    CHAT      05/01/12    22:26:07     5004
      SUBROUTINE CPHOIN(ENT,SOR,YOUN,ANU)
      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 SIGMA
C     A EPS DANS LE CAS DES CONTRAINTES
C     PLANES
C-----------------------------------------------
C
      SOR(1)=1.D0/YOUN*(ENT(1)-ANU*ENT(2))
      SOR(2)=1.D0/YOUN*(ENT(2)-ANU*ENT(1))
      SOR(3)=(1.D0+ANU)/YOUN*ENT(3)
      RETURN
      END