From 38371668ea7b982b127c9b6746af1ebf7c97b467 Mon Sep 17 00:00:00 2001 From: schnetter Date: Wed, 27 Jul 2005 19:16:25 +0000 Subject: Use syminv4 instead of inv4 to calculate the inverse of the 4-metric, because the 4-metric is symmetric. git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinUtils/TGRtensor/trunk@29 b716e942-a2de-43ad-8f52-f3dfe468e4e7 --- src/tensor4.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/tensor4.F90 b/src/tensor4.F90 index 23c2328..8da98bc 100644 --- a/src/tensor4.F90 +++ b/src/tensor4.F90 @@ -32,7 +32,7 @@ contains subroutine calc_4inv (gg, gu) CCTK_REAL, intent(in) :: gg(0:3,0:3) CCTK_REAL, intent(out) :: gu(0:3,0:3) - call calc_inv4 (gg, gu) + call calc_syminv4 (gg, gu) end subroutine calc_4inv subroutine calc_4pinv (gu, pgg, pgu) -- cgit v1.2.3