diff options
author | schnetter <schnetter@57bc7290-fb3d-4efd-a9b1-28e84cce6043> | 2003-10-28 13:48:24 +0000 |
---|---|---|
committer | schnetter <schnetter@57bc7290-fb3d-4efd-a9b1-28e84cce6043> | 2003-10-28 13:48:24 +0000 |
commit | f041f448473140a18c9854b28a552c331c263348 (patch) | |
tree | 1c2c8e900b51b5fb27308e345cb45de249432125 | |
parent | 48ab0b9edc8516d26be57e48699e051a1f2d3cd6 (diff) |
Change the way in which pointers are passed to and from Fortran.
git-svn-id: http://svn.cactuscode.org/arrangements/CactusElliptic/EllBase/trunk@72 57bc7290-fb3d-4efd-a9b1-28e84cce6043
-rw-r--r-- | src/Ell_Interface.c | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/src/Ell_Interface.c b/src/Ell_Interface.c index dc7e9e9..4b87ba8 100644 --- a/src/Ell_Interface.c +++ b/src/Ell_Interface.c @@ -87,7 +87,7 @@ int Ell_LinFlatSolver(cGH *GH, void CCTK_FCALL CCTK_FNAME(Ell_LinConfMetricSolver) (int *ierr, - cGH *GH, + cGH **GH, int *MetricPsi, int *FieldIndex, int *MIndex, @@ -97,7 +97,7 @@ void CCTK_FCALL CCTK_FNAME(Ell_LinConfMetricSolver) ONE_FORTSTRING_ARG); void CCTK_FCALL CCTK_FNAME(Ell_LinMetricSolver) (int *ierr, - cGH *GH, + cGH **GH, int *Metric, int *FieldIndex, int *MIndex, @@ -107,7 +107,7 @@ void CCTK_FCALL CCTK_FNAME(Ell_LinMetricSolver) ONE_FORTSTRING_ARG); void CCTK_FCALL CCTK_FNAME(Ell_LinFlatSolver) (int *ierr, - cGH *GH, + cGH **GH, int *FieldIndex, int *MIndex, int *NIndex, @@ -116,7 +116,7 @@ void CCTK_FCALL CCTK_FNAME(Ell_LinFlatSolver) ONE_FORTSTRING_ARG); void CCTK_FCALL CCTK_FNAME(Ell_BrBrConfMetricSolver) (int *ierr, - cGH *GH, + cGH **GH, int *MetricPsi, int *FieldIndex, int *MIndex, @@ -126,7 +126,7 @@ void CCTK_FCALL CCTK_FNAME(Ell_BrBrConfMetricSolver) ONE_FORTSTRING_ARG); void CCTK_FCALL CCTK_FNAME(Ell_PolyConfMetricSolver) (int *ierr, - cGH *GH, + cGH **GH, int *MetricPsi, int *FieldIndex, int *PIndex, @@ -192,7 +192,7 @@ int Ell_LinConfMetricSolver(cGH *GH, void CCTK_FCALL CCTK_FNAME(Ell_LinConfMetricSolver) (int *ierr, - cGH *GH, + cGH **GH, int *MetricPsi, int *FieldIndex, int *MIndex, @@ -204,7 +204,7 @@ void CCTK_FCALL CCTK_FNAME(Ell_LinConfMetricSolver) ONE_FORTSTRING_CREATE(sname); - *ierr = Ell_LinConfMetricSolver(GH, + *ierr = Ell_LinConfMetricSolver(*GH, MetricPsi, *FieldIndex, *MIndex, @@ -272,7 +272,7 @@ int Ell_LinMetricSolver(cGH *GH, void CCTK_FCALL CCTK_FNAME(Ell_LinMetricSolver) (int *ierr, - cGH *GH, + cGH **GH, int *Metric, int *FieldIndex, int *MIndex, @@ -284,7 +284,7 @@ void CCTK_FCALL CCTK_FNAME(Ell_LinMetricSolver) ONE_FORTSTRING_CREATE(sname); - *ierr = Ell_LinMetricSolver(GH, + *ierr = Ell_LinMetricSolver(*GH, Metric, *FieldIndex, *MIndex, @@ -351,7 +351,7 @@ int Ell_LinFlatSolver(cGH *GH, void CCTK_FCALL CCTK_FNAME(Ell_LinFlatSolver) (int *ierr, - cGH *GH, + cGH **GH, int *FieldIndex, int *MIndex, int *NIndex, @@ -361,7 +361,7 @@ void CCTK_FCALL CCTK_FNAME(Ell_LinFlatSolver) { ONE_FORTSTRING_CREATE(sname); - *ierr = Ell_LinFlatSolver(GH, + *ierr = Ell_LinFlatSolver(*GH, *FieldIndex, *MIndex, *NIndex, @@ -430,7 +430,7 @@ int Ell_BrBrConfMetricSolver(cGH *GH, void CCTK_FCALL CCTK_FNAME(Ell_BrBrConfMetricSolver) (int *ierr, - cGH *GH, + cGH **GH, int *MetricPsi, int *FieldIndex, int *MIndex, @@ -442,7 +442,7 @@ void CCTK_FCALL CCTK_FNAME(Ell_BrBrConfMetricSolver) ONE_FORTSTRING_CREATE(sname); - *ierr = Ell_BrBrConfMetricSolver(GH, + *ierr = Ell_BrBrConfMetricSolver(*GH, MetricPsi, *FieldIndex, *MIndex, @@ -511,7 +511,7 @@ int Ell_PolyConfMetricSolver(cGH *GH, void CCTK_FCALL CCTK_FNAME(Ell_PolyConfMetricSolver) (int *ierr, - cGH *GH, + cGH **GH, int *MetricPsi, int *FieldIndex, int *PIndex, @@ -522,7 +522,7 @@ void CCTK_FCALL CCTK_FNAME(Ell_PolyConfMetricSolver) { ONE_FORTSTRING_CREATE(sname); - *ierr = Ell_PolyConfMetricSolver(GH, + *ierr = Ell_PolyConfMetricSolver(*GH, MetricPsi, *FieldIndex, PIndex, |