Sources Esope | Cast3M

vecdef
C VECDEF    SOURCE    BR232186  16/12/06    10:42:35     9242           
      SUBROUTINE VECDEF(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                
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)/2.0D0
      y(2,1) = x(3)/2.0D0
      y(2,2) = x(2)
 
 
      RETURN
      END