diff options
| author | allen <allen@41e88fdd-2190-4c69-9c84-4659c8cf322e> | 2002-08-21 16:08:39 +0000 |
|---|---|---|
| committer | allen <allen@41e88fdd-2190-4c69-9c84-4659c8cf322e> | 2002-08-21 16:08:39 +0000 |
| commit | 9b8e446cb66fafd27ab16bfa3c69c16b671f26f8 (patch) | |
| tree | 855cf430e4c35189f595945cab9f8692547f9cf7 | |
| parent | 9b7d7994e7c413e9e750c945588e6f7ef2a0b012 (diff) | |
Still need to use CCTK_FortranString to pass the C parameter into the
call to the solver.
call CCTK_FortranString(length,solver,fsolver)
call Ell_LinFlatSolver(
& ierr,
& cctkGH,
& iphi,
& iMcoeff, iNcoeff,
& AbsTol, RelTol,
& fsolver(1:length))
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/IDScalarWaveElliptic/trunk@55 41e88fdd-2190-4c69-9c84-4659c8cf322e
| -rw-r--r-- | src/SourceData.F77 | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/SourceData.F77 b/src/SourceData.F77 index 2659f89..bc277d9 100644 --- a/src/SourceData.F77 +++ b/src/SourceData.F77 @@ -108,6 +108,7 @@ c Set parameters for specific solvers c Call elliptic solver to fill out phi + call CCTK_FortranString(length,solver,fsolver) call Ell_LinFlatSolver( & ierr, & cctkGH, |