From 9b8e446cb66fafd27ab16bfa3c69c16b671f26f8 Mon Sep 17 00:00:00 2001
From: allen <allen@41e88fdd-2190-4c69-9c84-4659c8cf322e>
Date: Wed, 21 Aug 2002 16:08:39 +0000
Subject: 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
---
 src/SourceData.F77 | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src')

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, 
-- 
cgit v1.2.3