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

do not explicitely close the file, since this is done by sff_RTraceI

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/branches/su1
SVN Revision: 3688
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 9f271fae
......@@ -32,6 +32,10 @@ c 18/11/2010 V1.4 has to call sff_close to be compatible with
c libfapidxx
c 26/11/2010 V1.5 support additional formats
c 23.12.2010 V1.6 specifically select input format
c 14/01/2011 V1.7 sff_close is not required and will trigger an
c error, since all traces are read up to the last
c trace and sff_skiptrace as well as sff_rtracei
c will close the file upon reading the last trace
c
c==============================================================================
c
......@@ -277,7 +281,6 @@ c to me this appears to be a close which should not be here
endif
if (debug) print *,'DEBUG: end reading trace ',j
enddo
call sff_close(lu, ierr)
if (ierr.ne.0) stop 'ERROR (readdata): closing data file'
else
print *,'WARNING (readdata): exceeded file data space',
......
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