diff options
| author | allen <allen@6a3ddf76-46e1-4315-99d9-bc56cac1ef84> | 1999-06-25 17:09:03 +0000 |
|---|---|---|
| committer | allen <allen@6a3ddf76-46e1-4315-99d9-bc56cac1ef84> | 1999-06-25 17:09:03 +0000 |
| commit | ca4a876f3aba89eabe86091c09d630c6305d44c3 (patch) | |
| tree | 640d950242de7aeb8bab5d7ad85d73f326382d50 /src | |
| parent | 0ae600dc618039a9b3d5c08f9299fae9c359234c (diff) | |
Implementing new naming convention for variables on the cGH. See cGH.h for
details.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/IDAnalyticBH/trunk@20 6a3ddf76-46e1-4315-99d9-bc56cac1ef84
Diffstat (limited to 'src')
| -rw-r--r-- | src/Misner_multiple.F | 6 | ||||
| -rw-r--r-- | src/Schwarzschild.F | 2 |
2 files changed, 4 insertions, 4 deletions
diff --git a/src/Misner_multiple.F b/src/Misner_multiple.F index 61bb9b8..93f59cf 100644 --- a/src/Misner_multiple.F +++ b/src/Misner_multiple.F @@ -47,9 +47,9 @@ c ----------------------------- C Get value of psi pointwise from a C function c -------------------------------------------- - do k=1,sh(1) - do j=1,sh(2) - do i=1,sh(3) + do k=1,cctk_lsh(1) + do j=1,cctk_lsh(2) + do i=1,cctk_lsh(3) xval = x(i,j,k) yval = y(i,j,k) diff --git a/src/Schwarzschild.F b/src/Schwarzschild.F index a5124a5..4460729 100644 --- a/src/Schwarzschild.F +++ b/src/Schwarzschild.F @@ -3,7 +3,7 @@ #include "declare_parameters.h" c Need include file from Einstein -#include "../../packages/CactusEinstein/Einstein/src/Einstein.h" +#include "CactusEinstein/Einstein/src/Einstein.h" subroutine Schwarzschild(CCTK_FARGUMENTS) |