Commit e35af234 authored by thomas.forbriger's avatar thomas.forbriger
Browse files

ts/wf/evelo [FIX]: set correct default option

Option flag envelope was set to .true. implicitely be default. Initialize flag
with .false. and set only to .true. if no other option is selected on the
command line.

Let program report actually selected flags.
parent 7d289e40
......@@ -30,6 +30,7 @@ c 25/06/01 V1.4 depart from GSE sampling rate standard formst if
c necessary
c 04/12/09 V1.5 corrected comment
c 05/07/14 V1.6 provide access to other data formats
c 14/02/17 V1.7 fix option default (set envelope to .false.)
c
c==============================================================================
c
......@@ -37,7 +38,7 @@ c
c
character*79 version
parameter(version=
& 'EVELO V1.6 calculate EnVELOpe of time series')
& 'EVELO V1.7 calculate EnVELOpe of time series')
c
integer maxsamples,nsamp,nspa,i, npow, limit
parameter(maxsamples=310000)
......@@ -142,6 +143,7 @@ c
verbose=optset(2)
hilbert=optset(3)
c
envelope=.false.
realspec=.false.
imagspec=.false.
ampspec=.false.
......@@ -201,6 +203,14 @@ c
if (comment(1:6).eq.'ERROR ') stop
nfree=min(nfree+1, maxfree)
free(nfree)=comment
if (envelope) print *,'envelop option (default) is selected'
if (hilbert) print *,'hilbert option -H is selected'
if (pi4shift) print *,'pi4shift option -4 is selected'
if (realspec) print *,'realspec option -R is selected'
if (imagspec) print *,'imagspec option -I is selected'
if (ampspec) print *,'ampspec option -A is selected'
if (phasespec) print *,'phasespec option -P is selected'
c
call sff_WOpenFS(luout, outfile,
& free, nfree, srctype, cs, c1, c2, c3, srcdate, srctime, ierr)
......
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