From 9b7d7994e7c413e9e750c945588e6f7ef2a0b012 Mon Sep 17 00:00:00 2001
From: allen <allen@41e88fdd-2190-4c69-9c84-4659c8cf322e>
Date: Wed, 21 Aug 2002 15:59:30 +0000
Subject: Fixed typo in last commit

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

diff --git a/src/SourceData.F77 b/src/SourceData.F77
index 1bdfe37..2659f89 100644
--- a/src/SourceData.F77
+++ b/src/SourceData.F77
@@ -104,7 +104,7 @@ c     Set parameters for specific solvers
       end if
      
       write(infoline,'("Going into elliptic solver ",A)') fsolver
-      call CCTK_INFO(infoline(1:len_rim(infoline)))
+      call CCTK_INFO(infoline(1:len_trim(infoline)))
 
 c     Call elliptic solver to fill out phi
 
-- 
cgit v1.2.3