diff options
author | allen <allen@b7a48df3-cbbf-4440-997f-b4b717c9f7fc> | 1999-06-15 09:03:39 +0000 |
---|---|---|
committer | allen <allen@b7a48df3-cbbf-4440-997f-b4b717c9f7fc> | 1999-06-15 09:03:39 +0000 |
commit | bc5cc5bb3fedd14d52f360d3d113dd84ce3602c4 (patch) | |
tree | 4cefa11b321ce801773f089bfa8f99d197a0165b /src | |
parent | 788b8d70c412c3976d36d5cea67c7ff74f989aea (diff) |
Double -> CCTK_REAL
REAL -> CCTK_REAL
POINTER -> CCTK_POINTER
VARIABLE_REAL -> CCTK_VARIABLE_REAL (etc)
GH->iteration is now an int (not an unsigned long int)
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/ADMConstraints/trunk@8 b7a48df3-cbbf-4440-997f-b4b717c9f7fc
Diffstat (limited to 'src')
-rw-r--r-- | src/ADMConstraints.F | 16 |
1 files changed, 5 insertions, 11 deletions
diff --git a/src/ADMConstraints.F b/src/ADMConstraints.F index 289f0ed..d88a020 100644 --- a/src/ADMConstraints.F +++ b/src/ADMConstraints.F @@ -21,7 +21,7 @@ c CCTK Header files #include "cctk.h" #include "declare_parameters.h" #include "declare_arguments.h" - + c Using macro definitions from Einstein #include "../../packages/CactusEinstein/Einstein/src/Einstein.h" @@ -44,28 +44,22 @@ c@@*/ implicit none -c Declare variables in the dynamic argument list DECLARE_CCTK_FARGUMENTS - -c Declare parameters DECLARE_PARAMETERS -c Perhaps this and others should go into cctk.h INTEGER CCTK_Equals - - integer :: i,j,k,i1,i2,j1,j2,k1,k2 c Stencil width used for calculating constraints (needed for outer boundary condition) integer, dimension(3),parameter :: sw = 1 - REAL :: dx,dy,dz + CCTK_REAL :: dx,dy,dz - REAL :: pi,det,uxx,uxy,uxz,uyy,uyz,uzz + CCTK_REAL :: pi,det,uxx,uxy,uxz,uyy,uyz,uzz c Temporaries for the Stress-Energy tensor - REAL :: Ttt,Ttx,Tty,Ttz,Txx,Txy,Txz,Tyy,Tyz,Tzz + CCTK_REAL :: Ttt,Ttx,Tty,Ttz,Txx,Txy,Txz,Tyy,Tyz,Tzz #include "CalcTmunu_temps.inc" @@ -104,7 +98,7 @@ c Macros from Standard Einstein do k = k1, k2 do j = j1, j2 - do i = k1, k2 + do i = k1, k2 c Calculate the stress energy tensor at this point c ------------------------------------------------ |