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.

src/ts/wf/evelo.f

@@ -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)