Commit 6c184583 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: 4700
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent a4afbe3f
......@@ -84,7 +84,7 @@ doc: functions.doc
#----------------------------------------------------------------------
# standard edit targets
flist: $(wildcard *.f sub/*.f include/*.inc) Makefile
echo $^ | tr ' ' '\n' > $@
echo $^ | tr ' ' '\n' | sort > $@
edit: flist
vim $<
......
......@@ -91,6 +91,12 @@ c
c
c------------------------------------------------------------------------------
c read input data files
if (debug) then
print *,'DEBUG: lastarg=',lastarg
print *,'DEBUG: iargc=',iargc()
print *,'DEBUG: expecting to read ',
& iargc()-lastarg,' files'
endif
call readdata(lastarg)
if (debug) then
print *,'DEBUG: ntraces ',ntraces
......
......@@ -94,6 +94,12 @@ c
c
c----------------------------------------------------------------------
c
if (debug) then
print *,'DEBUG (readdata): lastarg=',lastarg
print *,'DEBUG (readdata): iargc=',iargc()
print *,'DEBUG (readdata): expecting to read ',
& iargc()-lastarg,' files'
endif
c ok go
nfiles=0
tifcount=0
......@@ -105,11 +111,14 @@ c
c do i=(lastarg+1),iargc()
do while (i.le.iargc())
c still enough data space left?
if (debug) print *,'DEBUG (readdata): arg#:',i
if (hot) then
c
c get filename and selection
useselect=.false.
call getarg(i, infile)
if (debug) print *,'DEBUG (readdata): operate on file ',
& infile(1:index(infile,' '))
c
c check filespace
if (nfiles.lt.maxfiles) then
......
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