From fa23523a6c82bf84774c6a4180bafe4d73580ea8 Mon Sep 17 00:00:00 2001
From: allen <allen@41e88fdd-2190-4c69-9c84-4659c8cf322e>
Date: Tue, 20 Aug 2002 13:42:37 +0000
Subject: Tidied up a few things

Implements Cactus/877


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

diff --git a/src/SourceData.F77 b/src/SourceData.F77
index 0b857c3..e67fe96 100644
--- a/src/SourceData.F77
+++ b/src/SourceData.F77
@@ -5,6 +5,7 @@
    @desc 
               Elliptic initial data for wave equation
    @enddesc 
+   @version $Header$
  @@*/
 
 #include "cctk.h"
@@ -102,11 +103,8 @@ c     Set parameters for specific solvers
         call Ell_SetIntKey(ierr, sor_maxit,"Ell::SORmaxit")
       end if
      
-c     Fill a fortran string with the name of the solver 
-      call CCTK_FortranString(length,solver,fsolver)
-      write(infoline,'(A27,A)') 'Going into elliptic solver ',
-     &	       fsolver(1:length)
-      call CCTK_INFO(infoline)
+      write(infoline,'("Going into elliptic solver ",A)') fsolver
+      call CCTK_INFO(trim(infoline))
 
 c     Call elliptic solver to fill out phi
 
-- 
cgit v1.2.3