diff options
author | schnetter <schnetter@b716e942-a2de-43ad-8f52-f3dfe468e4e7> | 2005-07-27 19:16:25 +0000 |
---|---|---|
committer | schnetter <schnetter@b716e942-a2de-43ad-8f52-f3dfe468e4e7> | 2005-07-27 19:16:25 +0000 |
commit | 38371668ea7b982b127c9b6746af1ebf7c97b467 (patch) | |
tree | db1ab0ba2fe0259cb871bbc753eb7d3ed75e7ba6 | |
parent | 6b7024854177cf0e37288d4f7b93af465a815c50 (diff) |
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
-rw-r--r-- | src/tensor4.F90 | 2 |
1 files changed, 1 insertions, 1 deletions
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) |