diff options
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 = |