223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

fixed compiler error in IO_lcInplace

This commit is contained in:
Philip Eisenlohr 2007-03-28 08:31:12 +00:00
parent 181f96fcdf
commit d491838c13
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
trunk/IO.f90
View File

@ -440,12 +440,14 @@
implicit none implicit none
character (len=*) line character (len=*) line
character (len=len(line)) IO_lc
integer(pInt) i integer(pInt) i
IO_lc = line
do i=1,len(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 enddo
line = IO_lc
return return
END SUBROUTINE END SUBROUTINE