From d491838c13bb0fb3a4ec9b2dbc12ce33b36ed552 Mon Sep 17 00:00:00 2001
From: Philip	Eisenlohr <eisenlohr@egr.msu.edu>
Date: Wed, 28 Mar 2007 08:31:12 +0000
Subject: [PATCH] fixed compiler error in IO_lcInplace

---
 trunk/IO.f90 | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/trunk/IO.f90 b/trunk/IO.f90
index 4c746ef9c..fbb424c3e 100644
--- a/trunk/IO.f90
+++ b/trunk/IO.f90
@@ -440,12 +440,14 @@
  implicit none
 
  character (len=*) line
+ character (len=len(line)) IO_lc
  integer(pInt) i
 
+ IO_lc = line
  do i=1,len(line)
-    if(64<iachar(line(i:i)) .and. iachar(line(i:i))<91) line(i:i)=achar(iachar(line(i:i))+32)
+    if(64<iachar(line(i:i)) .and. iachar(line(i:i))<91) IO_lc(i:i)=achar(iachar(line(i:i))+32)
  enddo
-
+ line = IO_lc
  return 
 
  END SUBROUTINE