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

found a bug

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: 1356
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 58bd7319
......@@ -7,6 +7,7 @@ c SMOOth Seismograms by sectral extension
c
c REVISIONS and CHANGES
c 12/02/98 V1.0 Thomas Forbriger
c 26/06/03 V1.1 start each trace with a clean array
c
c==============================================================================
c
......@@ -14,7 +15,7 @@ c
c
character*79 version
parameter(version=
& 'SMOOS V1.0 SMOOth Seismograms by sectral extension')
& 'SMOOS V1.1 SMOOth Seismograms by sectral extension')
c
c files
character*80 infile, outfile, nstring
......@@ -128,6 +129,11 @@ c
& 'FREE lines read are longer than 80 characters - ',
& 'truncated'
c
c start with a clean array
do i=1,msamp
spect(i)=(0.d0,0.d0)
enddo
c
c extend data
npow=0
powsamp=2**npow
......
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