diff options
| author | tradke <tradke@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2003-09-29 14:55:02 +0000 |
|---|---|---|
| committer | tradke <tradke@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2003-09-29 14:55:02 +0000 |
| commit | ac4fb2a5524e81b38aeee0086e8b90ce9b7ce3e9 (patch) | |
| tree | 87ffdb247460c538c40ac64555c4407ce87abeec | |
| parent | 900f5820c55b4b6ee3a024aa27ef8d93cbbbfc18 (diff) | |
Declare missing spacing variables (from ADM_Spacing_declare.h).
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@355 89daf98e-ef62-4674-b946-b8ff9de2216c
| -rw-r--r-- | src/AHFinder_gau.F | 15 |
1 files changed, 13 insertions, 2 deletions
diff --git a/src/AHFinder_gau.F b/src/AHFinder_gau.F index 3785e6d..85d91fb 100644 --- a/src/AHFinder_gau.F +++ b/src/AHFinder_gau.F @@ -51,8 +51,8 @@ CCTK_REAL trxi,xi2 CCTK_REAL zero,half,one,two,three,four,pi CCTK_REAL aux,sina,cosa - CCTK_REAL dt,idx,idy,idz - CCTK_REAL i2dx,i2dy,i2dz,idxx,idyy,idzz,idxy,idxz,idyz +c CCTK_REAL dt,idx,idy,idz +c CCTK_REAL i2dx,i2dy,i2dz,idxx,idyy,idzz,idxy,idxz,idyz CCTK_REAL, dimension(3,3) :: ug,xi CCTK_REAL, dimension(2,2) :: ga,ua @@ -86,6 +86,15 @@ ! Declarations for macros. +c#include "CactusEinstein/ADMMacros/src/macro/ADM_Spacing_declare.h" + CCTK_REAL :: dt + CCTK_REAL :: idx, idy, idz + CCTK_REAL :: i2dx, i2dy, i2dz + CCTK_REAL :: i12dx, i12dy, i12dz + CCTK_REAL :: idxx, idxy, idxz, idyy, idyz, idzz + CCTK_REAL :: i12dxx, i12dyy, i12dzz + CCTK_REAL :: i36dxy, i36dxz, i36dyz + #include "CactusEinstein/ADMMacros/src/macro/UPPERMET_declare.h" #include "CactusEinstein/ADMMacros/src/macro/CHR2_declare.h" #include "CactusEinstein/ADMMacros/src/macro/RICCI_declare.h" @@ -329,6 +338,8 @@ meri_p1 = zero meri_p2 = zero +#include "CactusEinstein/ADMMacros/src/macro/ADM_Spacing.h" + ! ******************************************************* ! *** FIND GAUSSIAN CURVATURE AS 3D GRID FUNCTION *** |