blob: 78ea694239304cf0721ef269722913e961c54edc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
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
|