diff options
| author | lanfer <lanfer@1d96b42b-98df-4a6a-9d84-1b24288d4588> | 1999-09-23 11:57:18 +0000 |
|---|---|---|
| committer | lanfer <lanfer@1d96b42b-98df-4a6a-9d84-1b24288d4588> | 1999-09-23 11:57:18 +0000 |
| commit | b92b3c2339e5dc03d765c0e7a278d335fdec54b6 (patch) | |
| tree | 9341c1186c601a5aabc10bdcdc237f0f15eb8ce8 /src | |
| parent | cbaffedac724acd602a243925b179dedee2f24a1 (diff) | |
pointer confusion
git-svn-id: http://svn.cactuscode.org/arrangements/CactusElliptic/EllPETSc/trunk@17 1d96b42b-98df-4a6a-9d84-1b24288d4588
Diffstat (limited to 'src')
| -rw-r--r-- | src/petsc_flat_solver.c | 12 |
1 files 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")); |