From f1a1704e5ae19bcac56bebd8d1772acc6b3d244a Mon Sep 17 00:00:00 2001
From: schnetter <schnetter@41e88fdd-2190-4c69-9c84-4659c8cf322e>
Date: Mon, 12 Dec 2005 21:36:22 +0000
Subject: Correct error in converting C to Fortran string.

git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/IDScalarWaveElliptic/trunk@70 41e88fdd-2190-4c69-9c84-4659c8cf322e
---
 src/SourceData.F77 | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/SourceData.F77 b/src/SourceData.F77
index f6a2811..d5fc8da 100644
--- a/src/SourceData.F77
+++ b/src/SourceData.F77
@@ -35,7 +35,7 @@ c     where Q is the total charge and R is the sphere radius
 
       integer iphi,iMcoeff,iNcoeff
       integer i,j,k,ierr
-      integer length
+      CCTK_INT length
 
       character*30 fsolver
       character*200 infoline
@@ -104,19 +104,19 @@ c     Set parameters for specific solvers
         call Ell_SetIntKey(ierr, sor_maxit,"Ell::SORmaxit")
       end if
      
+      call CCTK_FortranString(length,solver,fsolver)	
       write(infoline,'("Going into elliptic solver ",A)') fsolver
-      call CCTK_INFO(infoline(1:len_trim(infoline)))
+      call CCTK_INFO(infoline)
 
 c     Call elliptic solver to fill out phi
 
-      call CCTK_FortranString(length,solver,fsolver)	
       call Ell_LinFlatSolver(
      &	   ierr,
      &     cctkGH, 
      &     iphi, 
      &     iMcoeff, iNcoeff, 
      &     AbsTol, RelTol,
-     &     fsolver(1:length))
+     &     fsolver)
 	
       if (ierr .eq. ELL_SUCCESS) then
         call CCTK_INFO("Leaving elliptic solver: solve successful")
@@ -126,7 +126,7 @@ c     Call elliptic solver to fill out phi
 	call CCTK_INFO("Elliptic solver not found")
       else 
 	write(infoline,'("Leaving elliptic solver: solve failed (Error ",I3,")")') ierr
-        call CCTK_INFO(infoline(1:len_trim(infoline)))
+        call CCTK_INFO(infoline)
       end if
 
 c     Set up last timestep ... assume (first order) time symmetry
-- 
cgit v1.2.3