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

correction

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: 1651
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 426ca30f
......@@ -132,7 +132,7 @@ c do only as much as necessary
ifirst=1+int((secbeg-tanf1)/dt1)
ilast=1+int((secend-tanf1)/dt1)
if ((ifirst.gt.ilast).or.(ifirst.lt.1).or.(ilast.gt.nsamp1))
& stop 'ERROR: check times'
& stop 'ERROR: check time range'
nout=ilast-ifirst+1
call resamp(data2, data3, nsamp1, nsamp2, tanf1, dt1, tanf2, dt2,
& ifirst, ilast)
......
Supports Markdown
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