From e56f2e09a46ff105524946ac0ca8e9232d707ec7 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Mon, 26 Jul 2021 10:22:53 +0200 Subject: [PATCH] trivial and never used even the more commoly used fucntions for 3x3 matrices are not all in use --- src/math.f90 | 13 ------------- 1 file changed, 13 deletions(-) diff --git a/src/math.f90 b/src/math.f90 index 36fe91bac..a48f44b93 100644 --- a/src/math.f90 +++ b/src/math.f90 @@ -545,19 +545,6 @@ pure function math_symmetric33(m) end function math_symmetric33 -!-------------------------------------------------------------------------------------------------- -!> @brief symmetrize a 6x6 matrix -!-------------------------------------------------------------------------------------------------- -pure function math_symmetric66(m) - - real(pReal), dimension(6,6) :: math_symmetric66 - real(pReal), dimension(6,6), intent(in) :: m - - math_symmetric66 = 0.5_pReal * (m + transpose(m)) - -end function math_symmetric66 - - !-------------------------------------------------------------------------------------------------- !> @brief skew part of a 3x3 matrix !--------------------------------------------------------------------------------------------------