From de5c3668fddb29da07676e8ce88a8a0bda52e098 Mon Sep 17 00:00:00 2001 From: Philip Eisenlohr Date: Wed, 28 Mar 2007 08:33:21 +0000 Subject: [PATCH] added LF and CR to list of whitespaces (IO_stringPos) --- trunk/IO.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/trunk/IO.f90 b/trunk/IO.f90 index fbb424c3e..6bd619706 100644 --- 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)