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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
trunk/IO.f90
View File

@ -325,7 +325,7 @@
integer(pInt) positions(*),pos integer(pInt) positions(*),pos
if (positions(1) >= pos) then 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 return
endif endif
100 IO_floatValue = -1.0_pReal 100 IO_floatValue = -1.0_pReal