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

resubmit of IO_countContinousIntValues (did not check fortran syntax -- should be fine now)

This commit is contained in:
Philip Eisenlohr 2007-10-15 13:57:50 +00:00
parent 08a9985179
commit 5a82f22681
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
trunk/IO.f90
View File

@ -476,11 +476,11 @@
use prec, only: pReal,pInt use prec, only: pReal,pInt
implicit none implicit none
integer(pInt) IO_continousIntValues,unit,i integer(pInt) IO_countContinousIntValues,unit,i
integer(pInt), dimension(67) :: pos ! allow for 32 values excl "c" integer(pInt), dimension(67) :: pos ! allow for 32 values excl "c"
character(len=300) line character(len=300) line
IO_countContinousIntValues(1) = 0 IO_countContinousIntValues = 0
do do
read(unit,'(A300)',end=100) line read(unit,'(A300)',end=100) line
pos = IO_stringPos(line,33) pos = IO_stringPos(line,33)