Small pointer and declaration fixes

git-svn-id: http://svn.cactuscode.org/arrangements/CactusElliptic/EllPETSc/trunk@15 1d96b42b-98df-4a6a-9d84-1b24288d4588

3 files changed, 17 insertions, 17 deletions

diff --git a/src/petsc_confmetric.c b/src/petsc_confmetric.c
index dc3affb..b4e1395 100644
--- a/src/petsc_confmetric.c
+++ b/src/petsc_confmetric.c
@@ -69,8 +69,8 @@ void *GetDataPtr_NextTL(cGH *GH, const char *field) {
    elliptic registration routine see LinearElliptic.h*/
 
 void petsc_confmetric_solver(cGH *GH, int *MetricPsiI, int MetricPsiISize, 
-			     int *FieldIndex, int *MIndex, int *NIndex, 
-			     int *AbsTol, int *RelTol) {
+			     int FieldIndex, int MIndex, int NIndex, 
+			     CCTK_REAL *AbsTol, CCTK_REAL *RelTol) {
 
   DECLARE_CCTK_PARAMETERS    /* CCTK passed parameters */
 
diff --git a/src/petsc_confmetric_solver.c b/src/petsc_confmetric_solver.c
index 3cf0476..adefb5f 100644
--- a/src/petsc_confmetric_solver.c
+++ b/src/petsc_confmetric_solver.c
@@ -69,8 +69,8 @@ void *GetDataPtr_NextTL(cGH *GH, const char *field) {
    elliptic registration routine see LinearElliptic.h*/
 
 void petsc_confmetric_solver(cGH *GH, int *MetricPsiI, int MetricPsiISize, 
-			     int *FieldIndex, int *MIndex, int *NIndex, 
-			     int *AbsTol, int *RelTol) {
+			     int FieldIndex, int MIndex, int NIndex, 
+			     CCTK_REAL *AbsTol, CCTK_REAL *RelTol) {
 
   DECLARE_CCTK_PARAMETERS    /* CCTK passed parameters */
 
@@ -206,7 +206,7 @@ void petsc_confmetric_solver(cGH *GH, int *MetricPsiI, int MetricPsiISize,
 
   /* derive the metric data pointer from the index array. 
      Note the ordering in the metric */
-  ell_field = (CCTK_REAL*) CCTK_VarDataPtrI(GH,0,*FieldIndex);
+  ell_field = (CCTK_REAL*) CCTK_VarDataPtrI(GH,0,FieldIndex);
   gxx = (CCTK_REAL*) CCTK_VarDataPtrI(GH, 0, MetricPsiI[0]);
   gxy = (CCTK_REAL*) CCTK_VarDataPtrI(GH, 0, MetricPsiI[1]);
   gxz = (CCTK_REAL*) CCTK_VarDataPtrI(GH, 0, MetricPsiI[2]);
@@ -225,11 +225,11 @@ void petsc_confmetric_solver(cGH *GH, int *MetricPsiI, int MetricPsiISize,
      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);
+    Mlin = (CCTK_REAL*) CCTK_VarDataPtrI(GH,0,MIndex);
     Mstorage = 1;
   }
   if (*NIndex>=0) {
-    Nlin = (CCTK_REAL*) CCTK_VarDataPtrI(GH,0,*NIndex);
+    Nlin = (CCTK_REAL*) CCTK_VarDataPtrI(GH,0,NIndex);
     Nstorage = 1;
   }
 
diff --git a/src/petsc_wrapper.c b/src/petsc_wrapper.c
index 1ef706f..6143eea 100644
--- a/src/petsc_wrapper.c
+++ b/src/petsc_wrapper.c
@@ -9,15 +9,15 @@
    as the core solver. */
 
 /* Wrapper function for the class of ellitpic equations that needs a metric */
-void petsc_metric(cGH *GH, int *MetricI, int *FieldIndex, 
-		  int *MIndex, int *NIndex, 
-		  int *AbsTol, int *RelTol) {
+void petsc_metric(cGH *GH, int *MetricI, int FieldIndex, 
+		  int MIndex, int NIndex, 
+		  CCTK_REAL *AbsTol, CCTK_REAL *RelTol) {
 
   /* Arrays for the M/N size info */
   
   void petsc_confmetric_solver(cGH *GH, int *MetricI, int MetricISize, 
-			       int *FieldIndex, int *MIndex, int *NIndex, 
-			       int *AbsTol, int *RelTol);
+			       int FieldIndex, int MIndex, int NIndex, 
+			       CCTK_REAL *AbsTol, CCTK_REAL *RelTol);
   
   
   if (GH->cctk_dim>3) 
@@ -30,13 +30,13 @@ void petsc_metric(cGH *GH, int *MetricI, int *FieldIndex,
   
 /* wrapper function for the class of elliptic equations, that needs a conf.
    factor */
-void petsc_confmetric(cGH *GH, int *MetricPsiI, int *FieldIndex, 
-		      int *MIndex, int *NIndex, 
-		      int *AbsTol, int *RelTol) {
+void petsc_confmetric(cGH *GH, int *MetricPsiI, int FieldIndex, 
+		      int MIndex, int NIndex, 
+		      CCTK_REAL *AbsTol, CCTK_REAL *RelTol) {
   
   void petsc_confmetric_solver(cGH *GH, int *MetricI, int MetricSize, 
-			       int *FieldIndex, int *MIndex, int *NIndex, 
-			       int *AbsTol, int *RelTol);
+			       int FieldIndex, int MIndex, int NIndex, 
+			       CCTK_REAL *AbsTol, CCTK_REAL *RelTol);
 
  /* petsc_confmetric_solver expects an metric array, in the case of this 
     equation class,  needs conf.factor as last entry -> size 7 */