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

samp rate write fixed

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: 441
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 32590859
......@@ -10,13 +10,15 @@ c 28/01/99 V1.0 Thomas Forbriger
c 23/02/99 V1.1 there was a factor of two missing
c 28/02/99 V1.2 allow calculation of hilbert transform
c 01/03/99 V1.3 calculate spectral coefficients
c 25/06/01 V1.4 depart from GSE sampling rate standard formst if
c necessary
c
c==============================================================================
c
program evelo
c
character*79 version
parameter(version='EVELO V1.3 calculate EnVELOpe of time series')
parameter(version='EVELO V1.4 calculate EnVELOpe of time series')
c
integer maxsamples,nsamp,nspa,i, npow, limit
parameter(maxsamples=310000)
......@@ -234,7 +236,11 @@ c
c
if ((phasespec).or.(ampspec).or.(realspec).or.(imagspec)) then
call sff_ModWid2samps(wid2line,nsamp)
call sff_ModWid2samprat(wid2line, (nsamp*dt))
if ((nsamp*dt).lt.1.e3) then
call sff_ModWid2samprat(wid2line, (nsamp*dt))
else
write(wid2line(58:68), '(e11.6)') (nsamp*dt)
endif
endif
c
call sff_WTraceFI(luout,
......
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