Commit a974b6f5 authored by thomas.forbriger's avatar thomas.forbriger Committed by thomas.forbriger
Browse files

added debug output

This is a legacy commit from before 2015-03-01.
It may be incomplete as well as inconsistent.
See COPYING.legacy and README.history for details.


SVN Path:     http://gpitrsvn.gpi.uni-karlsruhe.de/repos/TFSoftware/trunk
SVN Revision: 4703
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 5aa77c09
......@@ -137,8 +137,13 @@ c no offset shift
c read extra flags values
moreflags=.true.
fileformat=opt_Fformat
do while ((i.lt.iargc()).and.(moreflags))
do while ((i.lt.iargc()).and.(moreflags))
call getarg(i+1, selection)
if (debug) then
print *,'DEBUG (readdata): ',
& 'test additional flag at argument ',i+1,
& ': ',selection
endif
if (selection(1:2).eq.'t:') then
i=i+1
useselect=.true.
......@@ -187,6 +192,7 @@ c set legend string
filename(nfiles)=selection(3:)
else
moreflags=.false.
if (debug) print *,'DEBUG (readdata): is not a flag'
endif
enddo
c
......@@ -287,7 +293,8 @@ c some final settings
last=.true.
c to me this appears to be a close which should not be here
call sff_close(lu, ierr)
if (ierr.ne.0) stop 'ERROR (readdata): closing data file'
if (ierr.ne.0)
& stop 'ERROR (readdata): closing data file'
endif
else
print *,' skip trace no. ',j
......@@ -297,15 +304,26 @@ c to me this appears to be a close which should not be here
tifcount=tifcount+1
endif
if (debug) print *,'DEBUG: end reading trace ',j
c enddo while (.not.last)
enddo
if (ierr.ne.0) stop 'ERROR (readdata): closing data file'
c else (nfiles.lt.maxfiles) then
else
print *,'WARNING (readdata): exceeded file data space',
& ' - stopped reading'
hot=.false.
c endif (nfiles.lt.maxfiles) then
endif
c endif (hot)
endif
i=i+1
if (debug) then
print *,'DEBUG (readdata): finished this file'
print *,'DEBUG (readdata): next argument index: ',i
print *,'DEBUG (readdata): total number of arguments: ',iargc()
if (hot) print *,'DEBUG (readdata): reader is hot'
endif
c enddo while (i.le.iargc())
enddo
c
c build chain now
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment