From bea3ef280436282b09c8b5f9560c3293f81e8161 Mon Sep 17 00:00:00 2001
From: allen <allen@41e88fdd-2190-4c69-9c84-4659c8cf322e>
Date: Fri, 11 May 2001 15:22:47 +0000
Subject: Changes to info to screen

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

diff --git a/src/SourceData.F77 b/src/SourceData.F77
index b6093ad..cde3fb8 100644
--- a/src/SourceData.F77
+++ b/src/SourceData.F77
@@ -35,7 +35,8 @@ c     where Q is the total charge and R is the sphere radius
       integer length
 
       character*30 fsolver
-      
+      character*200 infoline
+
 c     Get variable indices for all grid functions
 
       call CCTK_VarIndex (iMcoeff,  "idscalarwaveelliptic::Mcoeff")
@@ -100,9 +101,9 @@ c     Call elliptic solver to fill out phi
 
 c     Fill a fortran string with the name of the solver 
       call CCTK_FortranString(length,solver,fsolver)
-
-      call CCTK_INFO("Going into elliptic solver")
-      print *,"Solver:",fsolver(1:length),"."
+      write(infoline,'(A27,A)') 'Going into elliptic solver ',
+     &	       fsolver(1:length)
+      call CCTK_INFO(infoline)
      
       call Ell_LinFlatSolver(
      &	   ierr,
-- 
cgit v1.2.3