changed format for reading float from('F') to * in IO_floatValue

2007-04-25 14:38:22 +00:00 · 2007-04-25 14:38:22 +00:00 · 1fd722e4cf
parent 033a6a03b3
commit 1fd722e4cf
1 changed files with 65 additions and 65 deletions
--- a/trunk/IO.f90
+++ b/trunk/IO.f90
@ -325,7 +325,7 @@
 integer(pInt) positions(*),pos

 if (positions(1) >= pos) then
-   read(UNIT=line(positions(pos*2):positions(pos*2+1)),ERR=100,FMT='(F)') IO_floatValue
+   read(UNIT=line(positions(pos*2):positions(pos*2+1)),ERR=100,FMT=*) IO_floatValue
   return
 endif
 100 IO_floatValue = -1.0_pReal