Sources Esope | Cast3M

sij
C SIJ       SOURCE    CHAT      05/01/13    03:18:33     5004
      SUBROUTINE SIJ(TENS,SOR,VAL)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
      DIMENSION TENS(3),SOR(3)
C
C------------------------------------------
C    CALCUL DU TENSEUR SIJ ET DE SIGMA*
C------------------------------------------
C
      SOR(1)=(2.D0*TENS(1)-TENS(2))/3.D0
      SOR(2)=(2.D0*TENS(2)-TENS(1))/3.D0
      SOR(3)=TENS(3)
      VAL=SQRT(TENS(1)*TENS(1)+TENS(2)*TENS(2)-TENS(1)*TENS(2)
     1 +3.D0*TENS(3)*TENS(3))
      RETURN
      END