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

This commit is contained in:
Franz Roters 2007-04-25 14:38:22 +00:00
parent 033a6a03b3
commit 1fd722e4cf
1 changed files with 65 additions and 65 deletions

View File

@ -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