diff options
author | schnetter <schnetter@f47d718b-0e4f-0410-8445-f2f96c8ccefb> | 2004-01-20 12:26:16 +0000 |
---|---|---|
committer | schnetter <schnetter@f47d718b-0e4f-0410-8445-f2f96c8ccefb> | 2004-01-20 12:26:16 +0000 |
commit | ce0c967c4a69aa35aa3ce2acd3e8e8d00f75a45c (patch) | |
tree | b1819925a1d0d867c2374edcb5a2f335a773bc9d /src | |
parent | aeacac3a39f591bfcdf96bfec80fb6c8bfa7be16 (diff) |
Add routines to copy the three-metric into other variables, so that
more than one timelevels can be accessed.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/CalcK/trunk@4 f47d718b-0e4f-0410-8445-f2f96c8ccefb
Diffstat (limited to 'src')
-rw-r--r-- | src/copy.F90 | 48 | ||||
-rw-r--r-- | src/make.code.defn | 2 |
2 files changed, 49 insertions, 1 deletions
diff --git a/src/copy.F90 b/src/copy.F90 new file mode 100644 index 0000000..78ea694 --- /dev/null +++ b/src/copy.F90 @@ -0,0 +1,48 @@ +! $Header$ + +#include "cctk.h" +#include "cctk_Arguments.h" +#include "cctk_Functions.h" +#include "cctk_Parameters.h" + +subroutine CalcK_copy_to_prev (CCTK_ARGUMENTS) + implicit none + DECLARE_CCTK_ARGUMENTS + DECLARE_CCTK_FUNCTIONS + DECLARE_CCTK_PARAMETERS + + gxx_prev = gxx + gxy_prev = gxy + gxz_prev = gxz + gyy_prev = gyy + gyz_prev = gyz + gzz_prev = gzz +end subroutine CalcK_copy_to_prev + +subroutine CalcK_copy_to_prev2 (CCTK_ARGUMENTS) + implicit none + DECLARE_CCTK_ARGUMENTS + DECLARE_CCTK_FUNCTIONS + DECLARE_CCTK_PARAMETERS + + gxx_prev2 = gxx + gxy_prev2 = gxy + gxz_prev2 = gxz + gyy_prev2 = gyy + gyz_prev2 = gyz + gzz_prev2 = gzz +end subroutine CalcK_copy_to_prev2 + +subroutine CalcK_copy_to_next (CCTK_ARGUMENTS) + implicit none + DECLARE_CCTK_ARGUMENTS + DECLARE_CCTK_FUNCTIONS + DECLARE_CCTK_PARAMETERS + + gxx_next = gxx + gxy_next = gxy + gxz_next = gxz + gyy_next = gyy + gyz_next = gyz + gzz_next = gzz +end subroutine CalcK_copy_to_next diff --git a/src/make.code.defn b/src/make.code.defn index 147f54e..1324938 100644 --- a/src/make.code.defn +++ b/src/make.code.defn @@ -2,7 +2,7 @@ # $Header$ # Source files in this directory -SRCS = CalcK.F90 +SRCS = CalcK.F90 copy.F90 # Subdirectories containing source files SUBDIRS = |