Sources Esope | Cast3M

vecmat
C VECMAT    SOURCE    BR232186  16/12/05    22:04:41     9238           
      SUBROUTINE VECMAT(X,Y)
C
C====&===1=========2=========3=========4=========5=========6=========7==
C Commentaires : Subroutine permettant d'arranger un vecteur en notation
c                de Voigt en un tenseur
C
C Argumets     : vecteur x de dimension, retourne la matrice y
C
C AUTEUR       : E. KISHTA  - CEA/DEN/DANS/DM2S/SEMT/EMSI
C                B. RICHARD - CEA/DEN/DANS/DM2S/SEMT/EMSI
C====&===1=========2=========3=========4=========5=========6=========7==
C
C----DECLARATION GENERALES----------------------------------------------
C
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
 
      real*8 x(3), y(2,2)
 
      y(1,1) = x(1)
      y(1,2) = x(3)
      y(2,1) = x(3)
      y(2,2) = x(2)
 
 
      RETURN
      END