From 3aa9ab921a5fc06864b051cc8b29e741a98d82de Mon Sep 17 00:00:00 2001
From: Franz	Roters <f.roters@mpie.de>
Date: Mon, 26 Mar 2007 13:13:43 +0000
Subject: [PATCH] changed IO_lc and IO_lcInplace to use do loops instead of
 forall

---
 trunk/IO.f90 | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/trunk/IO.f90 b/trunk/IO.f90
index 59f0e1b59..a37fdadec 100644
--- a/trunk/IO.f90
+++ b/trunk/IO.f90
@@ -425,7 +425,10 @@
  integer(pInt) i
 
  IO_lc = line
- forall (i=1:len(line),64<iachar(line(i:i)) .and. iachar(line(i:i))<91) IO_lc(i:i)=achar(iachar(line(i:i))+32)
+ !forall (i=1:len(line),64<iachar(line(i:i)) .and. iachar(line(i:i))<91) IO_lc(i:i)=achar(iachar(line(i:i))+32)
+ do i=1,len(line)
+    if(64<iachar(line(i:i)) .and. iachar(line(i:i))<91) IO_lc(i:i)=achar(iachar(line(i:i))+32)
+ enddo
  return 
 
  END FUNCTION
@@ -442,7 +445,10 @@
  character (len=*) line
  integer(pInt) i
 
- forall (i=1:len(line),64<iachar(line(i:i)) .and. iachar(line(i:i))<91) line(i:i)=achar(iachar(line(i:i))+32)
+ !forall (i=1:len(line),64<iachar(line(i:i)) .and. iachar(line(i:i))<91) line(i:i)=achar(iachar(line(i:i))+32)
+ 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)
+ enddo
  return 
 
  END SUBROUTINE
@@ -453,7 +459,7 @@
 ! and terminate the Marc run with exit #9xxx
 ! in ABAQUS either time step is reduced or execution terminated
 !********************************************************************
- SUBROUTINE IO_error(ID)
+ SUBROUTINE IO_error(ID)
 
  use prec, only: pInt
  implicit none