mat2vec_sym3x3 Subroutine

public pure subroutine mat2vec_sym3x3(mat, vec)

Uses

    • tensor
  • proc~~mat2vec_sym3x3~~UsesGraph proc~mat2vec_sym3x3 mat2vec_sym3x3 tensor tensor proc~mat2vec_sym3x3->tensor

Arguments

Type IntentOptional Attributes Name
double precision, intent(in) :: mat(3,3)
double precision, intent(out) :: vec(n_sym3x3)

Called by

proc~~mat2vec_sym3x3~~CalledByGraph proc~mat2vec_sym3x3 mat2vec_sym3x3 proc~invert_sym3x3 invert_sym3x3 proc~invert_sym3x3->proc~mat2vec_sym3x3

Contents

Source Code

mat2vec_sym3x3

Source Code

  PURE SUBROUTINE mat2vec_sym3x3( mat, vec )

    !************************************
    !                                   *
    ! transform symmetric 4x4-matrix    *
    ! into vector; SKR 30.11.2017       *
    !                                   *
    !************************************

    USE tensor,    ONLY: jxx, jxy, jxz, jyy, jyz, jzz, jx, jy, jz, n_sym3x3

    IMPLICIT NONE

    DOUBLE PRECISION, INTENT(IN)  :: mat(3,3)
    DOUBLE PRECISION, INTENT(OUT) :: vec(n_sym3x3)

    vec(jxx)= mat(1,1)
    vec(jxy)= mat(1,2)
    vec(jxz)= mat(1,3)
    vec(jyy)= mat(2,2)
    vec(jyz)= mat(2,3)
    vec(jzz)= mat(3,3)

  END SUBROUTINE mat2vec_sym3x3