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