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

provide additional information output regarding time domain taper

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: 4956
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 6e736cf3
......@@ -1347,10 +1347,10 @@ c
if (gausstime) then
fac=exp(-1.*(i-wire/2.)**2/sigmaq)
if (i.gt.wire) fac=0.
if (verbose) print *,' sample ',i,' fac: ',fac
else
fac=tf_sincostap(i, 1, wil, wirb, wire)
endif
if (verbose) print *,' sample ',i,' fac: ',fac
do l=1,ntr
spectra(l,i)=fac*spectra(l,i)
enddo
......
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