diff options
| author | knarf <knarf@e296648e-0e4f-0410-bd07-d597d9acff87> | 2003-05-26 10:37:56 +0000 |
|---|---|---|
| committer | knarf <knarf@e296648e-0e4f-0410-bd07-d597d9acff87> | 2003-05-26 10:37:56 +0000 |
| commit | cb4de4129001ca7ebe01fdd2441561b321fd512e (patch) | |
| tree | 448506babefbdc4004a465d0c9e7e142fa85f0f6 /src/slice_evolve.F | |
| parent | 7d63955fe31e5837eba22ef5b4c59fdbc0a86cb4 (diff) | |
- changed name of local variable to something else than 'psi'.
- I am not sure, if this is really the right thing to do, but now
it at least compiles and some testsuites are running fine.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/Exact/trunk@168 e296648e-0e4f-0410-bd07-d597d9acff87
Diffstat (limited to 'src/slice_evolve.F')
| -rw-r--r-- | src/slice_evolve.F | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/slice_evolve.F b/src/slice_evolve.F index c296b41..2bd98a6 100644 --- a/src/slice_evolve.F +++ b/src/slice_evolve.F @@ -17,7 +17,7 @@ c #define-ing the symbol EXACT_NO_F90 will turn this subroutine into a no-op CCTK_REAL s1d(4,3), nd(4), nu(4), norm, gd(4,4), gu(4,4) CCTK_REAL dx,dy,dz,dt - CCTK_REAL psi + CCTK_REAL local_psi C Grid parameters. @@ -86,7 +86,7 @@ C x^A. $ gu(4,4), gu(1,4), gu(2,4), gu(3,4), $ gu(1,1), gu(2,2), gu(3,3), $ gu(1,2), gu(2,3), gu(1,3), - $ psi) + $ local_psi) C Calculate n^A and dx^A/dt #include "include/slice_normal.inc" |