diff options
author | tradke <tradke@535fb057-194f-0410-b5a5-c63992f15602> | 2004-06-21 14:18:54 +0000 |
---|---|---|
committer | tradke <tradke@535fb057-194f-0410-b5a5-c63992f15602> | 2004-06-21 14:18:54 +0000 |
commit | 5c8cb79f8907701a1221d19e53f5c1fe66016277 (patch) | |
tree | d22b916c32ae2826b2e34a742c126e6636c755a1 | |
parent | 04023b41d799605609831fbc98ddce99dac0c55b (diff) |
Fix initialization of interpolator parameters.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/RotatingDBHIVP/trunk@37 535fb057-194f-0410-b5a5-c63992f15602
-rw-r--r-- | src/RotatingDBHIVP.F | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/RotatingDBHIVP.F b/src/RotatingDBHIVP.F index cce297d..82446bb 100644 --- a/src/RotatingDBHIVP.F +++ b/src/RotatingDBHIVP.F @@ -707,10 +707,10 @@ c in_arrays(4) = CCTK_PointerTo(dphipsisph) in_arrays(5) = CCTK_PointerTo(detaetapsisph) in_arrays(6) = CCTK_PointerTo(detaqpsisph) - in_arrays(6) = CCTK_PointerTo(detaphipsisph) - in_arrays(6) = CCTK_PointerTo(dqqpsisph) - in_arrays(6) = CCTK_PointerTo(dqphipsisph) - in_arrays(6) = CCTK_PointerTo(dphiphipsisph) + in_arrays(7) = CCTK_PointerTo(detaphipsisph) + in_arrays(8) = CCTK_PointerTo(dqqpsisph) + in_arrays(9) = CCTK_PointerTo(dqphipsisph) + in_arrays(10) = CCTK_PointerTo(dphiphipsisph) out_arrays(1) = CCTK_PointerTo(psi3d) out_arrays(2) = CCTK_PointerTo(detapsi3d) @@ -718,10 +718,10 @@ c out_arrays(4) = CCTK_PointerTo(dphipsi3d) out_arrays(5) = CCTK_PointerTo(detaetapsi3d) out_arrays(6) = CCTK_PointerTo(detaqpsi3d) - out_arrays(6) = CCTK_PointerTo(detaphipsi3d) - out_arrays(6) = CCTK_PointerTo(dqqpsi3d) - out_arrays(6) = CCTK_PointerTo(dqphipsi3d) - out_arrays(6) = CCTK_PointerTo(dphiphipsi3d) + out_arrays(7) = CCTK_PointerTo(detaphipsi3d) + out_arrays(8) = CCTK_PointerTo(dqqpsi3d) + out_arrays(9) = CCTK_PointerTo(dqphipsi3d) + out_arrays(10) = CCTK_PointerTo(dphiphipsi3d) call CCTK_InterpLocalUniform (ierror, 3, $ interp_handle, param_table_handle, |