From 5c8cb79f8907701a1221d19e53f5c1fe66016277 Mon Sep 17 00:00:00 2001 From: tradke Date: Mon, 21 Jun 2004 14:18:54 +0000 Subject: Fix initialization of interpolator parameters. git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/RotatingDBHIVP/trunk@37 535fb057-194f-0410-b5a5-c63992f15602 --- src/RotatingDBHIVP.F | 16 ++++++++-------- 1 file 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, -- cgit v1.2.3