From e1b919a01b9e782fd68ce15d2cf8fb4889d2b1e2 Mon Sep 17 00:00:00 2001
From: allen <allen@57bc7290-fb3d-4efd-a9b1-28e84cce6043>
Date: Fri, 4 Jan 2002 10:46:42 +0000
Subject: Fixed lots of compiler warnings

git-svn-id: http://svn.cactuscode.org/arrangements/CactusElliptic/EllBase/trunk@62 57bc7290-fb3d-4efd-a9b1-28e84cce6043
---
 src/Ell_Interface.c | 128 ++++++++++++++++++++++++++++++++++++++--------------
 1 file changed, 94 insertions(+), 34 deletions(-)

diff --git a/src/Ell_Interface.c b/src/Ell_Interface.c
index f66f557..dc7e9e9 100644
--- a/src/Ell_Interface.c
+++ b/src/Ell_Interface.c
@@ -38,7 +38,12 @@ static pNamedData *LinFlatSolverDB;
 static pNamedData *BrBrConfMetricSolverDB;
 static pNamedData *PolyConfMetricSolverDB;
 
+int Ell_LinFlatRegistry(void (*function), const char *sname);
 int Ell_LinConfMetricRegistry(int (*function), const char *sname);
+int Ell_LinMetricRegistry(void (*function), const char *sname);
+int Ell_BrBrConfMetricRegistry(void (*function), const char *sname);
+int Ell_PolyConfMetricRegistry(void (*function), const char *sname);
+
 int Ell_LinConfMetricSolver(cGH *GH, 
 			    int *MetricPsi, 
 			    int FieldIndex, 
@@ -47,6 +52,90 @@ int Ell_LinConfMetricSolver(cGH *GH,
 			    CCTK_REAL *AbsTol, 
 			    CCTK_REAL *RelTol, 
 			    const char *sname);
+int Ell_LinMetricSolver(cGH *GH, 
+			int *Metric, 
+			int FieldIndex, 
+			int MIndex, 
+			int NIndex, 
+			CCTK_REAL *AbsTol, 
+			CCTK_REAL *RelTol, 
+			const char *sname);
+int Ell_BrBrConfMetricSolver(cGH *GH, 
+			     int *MetricPsi, 
+			     int FieldIndex, 
+			     int MIndex, 
+			     int NIndex, 
+			     CCTK_REAL *AbsTol, 
+			     CCTK_REAL *RelTol, 
+			     const char *sname);
+int Ell_PolyConfMetricSolver(cGH *GH, 
+			     int *MetricPsi, 
+			     int FieldIndex, 
+			     int *PIndex, 
+			     int Pcount, 
+			     CCTK_REAL *AbsTol, 
+			     CCTK_REAL *RelTol, 
+			     const char *sname);
+int Ell_LinFlatSolver(cGH *GH, 
+		      int FieldIndex, 
+		      int MIndex, 
+		      int NIndex, 
+		      CCTK_REAL *AbsTol, 
+		      CCTK_REAL *RelTol, 
+		      const char *sname);
+
+
+void CCTK_FCALL CCTK_FNAME(Ell_LinConfMetricSolver)
+     (int *ierr, 
+      cGH *GH, 
+      int *MetricPsi, 
+      int *FieldIndex, 
+      int *MIndex, 
+      int *NIndex, 
+      CCTK_REAL *AbsTol, 
+      CCTK_REAL *RelTol, 
+      ONE_FORTSTRING_ARG);
+void CCTK_FCALL CCTK_FNAME(Ell_LinMetricSolver)
+     (int *ierr, 
+      cGH *GH, 
+      int *Metric, 
+      int *FieldIndex, 
+      int *MIndex, 
+      int *NIndex, 
+      CCTK_REAL *AbsTol, 
+      CCTK_REAL *RelTol, 
+      ONE_FORTSTRING_ARG);
+void CCTK_FCALL CCTK_FNAME(Ell_LinFlatSolver)
+     (int *ierr, 
+      cGH *GH, 
+      int *FieldIndex, 
+      int *MIndex, 
+      int *NIndex, 
+      CCTK_REAL *AbsTol, 
+      CCTK_REAL *RelTol, 
+      ONE_FORTSTRING_ARG);
+void CCTK_FCALL CCTK_FNAME(Ell_BrBrConfMetricSolver)
+     (int *ierr, 
+      cGH *GH, 
+      int *MetricPsi, 
+      int *FieldIndex, 
+      int *MIndex, 
+      int *NIndex, 
+      CCTK_REAL *AbsTol, 
+      CCTK_REAL *RelTol, 
+      ONE_FORTSTRING_ARG);
+void CCTK_FCALL CCTK_FNAME(Ell_PolyConfMetricSolver)
+     (int *ierr, 
+      cGH *GH, 
+      int *MetricPsi, 
+      int *FieldIndex, 
+      int *PIndex, 
+      int *Pcount, 
+      CCTK_REAL *AbsTol, 
+      CCTK_REAL *RelTol, 
+      ONE_FORTSTRING_ARG);
+
+
 
 /*
 ######################################################
@@ -82,13 +171,7 @@ int Ell_LinConfMetricSolver(cGH *GH,
 {
 
   int retval=ELL_SUCCESS;
-  int (*fn)(cGH *GH,
-	    int *MetricPsi, 
-	    int FieldIndex, 
-	    int MIndex, 
-	    int NIndex,  
-	    CCTK_REAL *AbsTol, 
-	    CCTK_REAL *RelTol);
+  int (*fn)(cGH *,int *,int,int,int,CCTK_REAL *,CCTK_REAL *);
  
   fn = (int(*)(cGH*,int*,int,int,int,CCTK_REAL*,CCTK_REAL*))
 	(GetNamedData(LinConfMetricSolverDB,sname));
@@ -169,13 +252,7 @@ int Ell_LinMetricSolver(cGH *GH,
 {
 
   int retval=ELL_SUCCESS;
-  int (*fn)(cGH *GH,
-	    int *Metric, 
-	    int FieldIndex, 
-	    int MIndex, 
-	    int NIndex, 
-	    CCTK_REAL *AbsTol, 
-	    CCTK_REAL *RelTol);
+  int (*fn)(cGH *,int *,int,int,int,CCTK_REAL *,CCTK_REAL *);
   
   fn = (int(*)(cGH*,int*,int,int,int,CCTK_REAL*,CCTK_REAL*))
     (GetNamedData(LinMetricSolverDB,sname));
@@ -254,12 +331,7 @@ int Ell_LinFlatSolver(cGH *GH,
 {
 
   int retval=ELL_SUCCESS;
-  int (*fn)(cGH *GH, 
-	    int FieldIndex, 
-	    int MIndex, 
-	    int NIndex, 
-	    CCTK_REAL *AbsTol, 
-	    CCTK_REAL *RelTol);
+  int (*fn)(cGH *,int,int,int,CCTK_REAL *,CCTK_REAL *);
   
   fn = (int (*)(cGH *,int,int,int,CCTK_REAL *,CCTK_REAL *)) 
     (GetNamedData(LinFlatSolverDB,sname));
@@ -337,13 +409,7 @@ int Ell_BrBrConfMetricSolver(cGH *GH,
 {
 
   int retval=ELL_SUCCESS;
-  int (*fn)(cGH *GH,
-	    int *MetricPsi, 
-	    int FieldIndex, 
-	    int MIndex, 
-	    int NIndex,  
-	    CCTK_REAL *AbsTol, 
-	    CCTK_REAL *RelTol);
+  int (*fn)(cGH *,int *,int,int,int,CCTK_REAL *,CCTK_REAL *);
  
   fn = (int(*)(cGH*,int*,int,int,int,CCTK_REAL*,CCTK_REAL*))
 	(GetNamedData(BrBrConfMetricSolverDB,sname));
@@ -424,13 +490,7 @@ int Ell_PolyConfMetricSolver(cGH *GH,
 {
 
   int retval=ELL_SUCCESS;
-  int (*fn)(cGH *GH,
-	    int *MetricPsi, 
-	    int FieldIndex, 
-	    int *PIndex, 
-	    int Pcount,
-	    CCTK_REAL *AbsTol, 
-	    CCTK_REAL *RelTol);
+  int (*fn)(cGH *,int *,int,int *,int,CCTK_REAL *,CCTK_REAL *);
  
   fn = (int(*)(cGH*,int*,int,int*,int,CCTK_REAL*,CCTK_REAL*))
 	(GetNamedData(PolyConfMetricSolverDB,sname));
-- 
cgit v1.2.3