From b92b3c2339e5dc03d765c0e7a278d335fdec54b6 Mon Sep 17 00:00:00 2001 From: lanfer Date: Thu, 23 Sep 1999 11:57:18 +0000 Subject: pointer confusion git-svn-id: http://svn.cactuscode.org/arrangements/CactusElliptic/EllPETSc/trunk@17 1d96b42b-98df-4a6a-9d84-1b24288d4588 --- src/petsc_flat_solver.c | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/petsc_flat_solver.c b/src/petsc_flat_solver.c index ccd1399..37b86c0 100644 --- a/src/petsc_flat_solver.c +++ b/src/petsc_flat_solver.c @@ -24,7 +24,7 @@ static Vec soln, b; /* approx solution, RHS */ static SLES sles; /* linear solver context */ -void petsc_flat(cGH *GH, int *FieldIndex, int *MIndex, int *NIndex, +void petsc_flat(cGH *GH, int FieldIndex, int MIndex, int NIndex, int *AbsTol, int *RelTol) { DECLARE_CCTK_PARAMETERS /* CCTK passed parameters */ @@ -140,15 +140,15 @@ void petsc_flat(cGH *GH, int *FieldIndex, int *MIndex, int *NIndex, /* if we have a negative index, this GF is not needed, there for don't even look for it. when index positive, set flag Mstorage=1, dito for N */ - if (*MIndex>=0) { - Mlin = (CCTK_REAL*) CCTK_VarDataPtrI(GH,0,*MIndex); + if (MIndex>=0) { + Mlin = (CCTK_REAL*) CCTK_VarDataPtrI(GH,0,MIndex); Mstorage = 1; } - if (*NIndex>=0) { - Nlin = (CCTK_REAL*) CCTK_VarDataPtrI(GH,0,*NIndex); + if (NIndex>=0) { + Nlin = (CCTK_REAL*) CCTK_VarDataPtrI(GH,0,NIndex); Nstorage = 1; } - ell_field = (CCTK_REAL*) CCTK_VarDataPtrI(GH,0,*FieldIndex); + ell_field = (CCTK_REAL*) CCTK_VarDataPtrI(GH,0,FieldIndex); wsp = (CCTK_REAL*) CCTK_VarDataPtrI(GH,0,CCTK_VarIndex("ellpetsc::wsp")); -- cgit v1.2.3