Sources Esope | Cast3M

epsdp
C EPSDP     SOURCE    CHAT      05/01/12    23:41:20     5004
      SUBROUTINE EPSDP(TENS,VAL,ADP,SOR)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
      DIMENSION TENS(3),SOR(3)
C
C------------------------------------------------
C      CALCUL DE EPSILON PLASTIQUE DU DRUCKER
C------------------------------------------------
C
      A=1.5D0
      SOR(1)=A*TENS(1)/VAL+ADP
      SOR(2)=A*TENS(2)/VAL+ADP
      SOR(3)=A*TENS(3)/VAL
      RETURN
      END