added LF and CR to list of whitespaces (IO_stringPos)

2007-03-28 08:33:21 +00:00 · 2007-03-28 08:33:21 +00:00 · de5c3668fd
parent d491838c13
commit de5c3668fd
1 changed files with 1 additions and 1 deletions
--- a/trunk/IO.f90
+++ b/trunk/IO.f90
@ -248,7 +248,7 @@
 implicit none

 character(len=*) line
- character(len=*), parameter :: sep=achar(32)//achar(9) ! whitespaces
+ character(len=*), parameter :: sep=achar(32)//achar(9)//achar(10)//achar(13) ! whitespaces
 integer(pInt) N, part
 integer(pInt) IO_stringPos(1+N*2)