[MERGE] (issue10|master): provide new .gitignore introduced to master

Merge branch 'master' into issue10

CHANGELOG

+this is <CHANGELOG>
+============================================================================
+Recent development in Seitosh (bug fixes, new features, etc)
+------------------------------------------------------------
+
+19.10.2015 (bfef3205e): Revision of end-user documentation of libstfinv
+
+  The end-user documentation supplied by libstfinv is completely revised. New
+  usage() functions are introduced. Program 'onlinehelp' (source is in
+  libstfinv/tests/onlinehelp.cc) outputs the new texts. soutifu is updated to
+  make use of the new usage functions.
+
+21.09.2015 (66d134190): Bug fix in lisousi
+
+  Trim convolution result to reasonable index range (784484c40).
+
+19.07.2015 (f58ebd580, 088bc064ba): New options for stuplo
+
+  Implement new options for winplot emulation:
+   -py          display positive values only
+   -n1 n        set first sample to plot to n'th sample
+                for each input time series
+   -n2 n        set last sample to plot to n'th sample
+                for each input time series
+                n=0 means: last sample read from file
+   -ra          remove average of each input time series
+
+
+----- END OF CHANGELOG ----- 

README.md

@@ -35,3 +35,8 @@ repository. Not all of the accompanying documentation and
 installations instructions have yet been copied from there.
 See [README.history](README.history) for the history of 
 this project.
+
+News
+----
+Recent development (bug fixes, new features, etc) is reported in
+[CHANGELOG](CHANGELOG).

src/ts/fidase/.gitignore

+fidase.doc

src/ts/fidase/Makefile

@@ -83,7 +83,7 @@ include $(patsubst %.o,%.d,$(FIDAOBS))
 
 #----------------------------------------------------------------------
 
-fidase.doc: $(patsubst %.o,%.f,$(FIDAOBS))
+fidase.doc: $(sort $(patsubst %.o,%.f,$(FIDAOBS)))
 	/usr/bin/awk 'BEGIN{ hot=0; } \
         /^cS/ { hot=1; \
 	    print FILENAME; \

src/ts/fidase/fidase_destack.f

 c this is <fidase_destack.f>
 c------------------------------------------------------------------------------
-cS
-c   ($Id$)
 c
 c 23/10/2001 by Thomas Forbriger (IfG Stuttgart)
 c
@@ -20,6 +18,7 @@ c You should have received a copy of the GNU General Public License
 c along with this program; if not, write to the Free Software
 c Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
 c ----
+cS
 c
 c destack traces
 c

src/ts/fidase/fidase_enfit.f

@@ -3,8 +3,6 @@ c------------------------------------------------------------------------------
 c
 c Copyright 1998, 2010 by Thomas Forbriger (IfG Stuttgart)
 c
-c all we need to fit seismogram amplitudes to a smooth spatial decay
-c
 c ----
 c This program is free software; you can redistribute it and/or modify
 c it under the terms of the GNU General Public License as published by
@@ -20,6 +18,9 @@ c You should have received a copy of the GNU General Public License
 c along with this program; if not, write to the Free Software
 c Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
 c ----
+cS
+c
+c all we need to fit seismogram amplitudes to a smooth spatial decay
 c
 c REVISIONS and CHANGES
 c    15/07/98   V1.0   Thomas Forbriger
@@ -37,6 +38,7 @@ c
       include 'fidase_para.inc'
 c 
       real minoff, mindelta, enfexpo
+cE
 c 
       integer pgdeviceid, pgp_open
 c 
@@ -66,6 +68,7 @@ c
       end
 c 
 c----------------------------------------------------------------------
+cS
 c
       subroutine enf_index(minoff, mindelta)
 c
@@ -79,6 +82,7 @@ c
       include 'fidase_enfit.inc'
       include 'fidase_para.inc'
 c 
+cE
       integer i, j, k
       real holdoff
 c 
@@ -133,6 +137,7 @@ c
       end
 c
 c----------------------------------------------------------------------
+cS
 c 
       subroutine enf_diffmat
 c 
@@ -142,6 +147,7 @@ c
       include 'fidase_enfit.inc'
       include 'fidase_para.inc'
 c 
+cE
       integer i
       double precision a, b, c
 c
@@ -159,6 +165,7 @@ c
       end
 c 
 c----------------------------------------------------------------------
+cS
 c
       subroutine enf_energies(enfexpo)
 c
@@ -171,6 +178,7 @@ c
       include 'fidase_enfit.inc'
       include 'fidase_para.inc'
 c 
+cE
       double precision energy, rms, maxamp
       integer i, j
 c 
@@ -227,6 +235,7 @@ c
       end
 c 
 c----------------------------------------------------------------------
+cS
 c
       subroutine enf_solve
 c
@@ -237,6 +246,7 @@ c
       include 'fidase_enfit.inc'
       include 'fidase_para.inc'
 c 
+cE
       double precision mat_mn(maxtraces-2, maxtraces)
       double precision mat_nmmn(maxtraces, maxtraces)
       double precision mat_dnmmn(maxfiles-1, maxtraces)
@@ -336,6 +346,7 @@ c
       end
 c
 c----------------------------------------------------------------------
+cS
 c 
       subroutine enf_epg(title)
 c
@@ -347,6 +358,7 @@ c
 c 
       character title*(*)
 c
+cE
       integer i, j
       real minen, maxen, minoff, maxoff
       real ts_min, ts_max
@@ -425,6 +437,7 @@ c
       end
 c 
 c----------------------------------------------------------------------
+cS
 c
       subroutine enf_scaldat
 c
@@ -435,6 +448,7 @@ c
       include 'fidase_enfit.inc'
       include 'fidase_para.inc'
 c 
+cE
       integer i, j
 c 
       if (verbose) then

src/ts/fidase/fidase_evaltaper.f

@@ -3,8 +3,6 @@ c------------------------------------------------------------------------------
 c
 c Copyright 1998, 2010 by Thomas Forbriger (IfG Stuttgart)
 c
-c perform tapering
-c
 c ----
 c This program is free software; you can redistribute it and/or modify
 c it under the terms of the GNU General Public License as published by
@@ -20,6 +18,9 @@ c You should have received a copy of the GNU General Public License
 c along with this program; if not, write to the Free Software
 c Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
 c ----
+cS
+c
+c perform tapering
 c
 c REVISIONS and CHANGES
 c    15/07/98   V1.0   Thomas Forbriger
@@ -33,6 +34,7 @@ c
       include 'fidase_taper.inc'
       include 'fidase_para.inc'
 c 
+cE
       integer i, itrace
 c 
       itrace=firstinchain

src/ts/fidase/fidase_readdata.f

 c this is <fidase_readdata.f>
 c------------------------------------------------------------------------------
-c $Id$
 c
 c Copyright 1998, 2010 by Thomas Forbriger (IfG Stuttgart)
 c
-c read a complete set of data files
-c
 c ----
 c This program is free software; you can redistribute it and/or modify
 c it under the terms of the GNU General Public License as published by
@@ -21,6 +18,9 @@ c You should have received a copy of the GNU General Public License
 c along with this program; if not, write to the Free Software
 c Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
 c ----
+cS
+c
+c read a complete set of data files
 c
 c REVISIONS and CHANGES
 c    09/07/98   V1.0   Thomas Forbriger

src/ts/fidase/fidase_readtaper.f

@@ -3,8 +3,6 @@ c------------------------------------------------------------------------------
 c
 c Copyright 1998, 2010 by Thomas Forbriger (IfG Stuttgart)
 c
-c read taper information from quad taper file
-c
 c ----
 c This program is free software; you can redistribute it and/or modify
 c it under the terms of the GNU General Public License as published by
@@ -20,6 +18,9 @@ c You should have received a copy of the GNU General Public License
 c along with this program; if not, write to the Free Software
 c Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
 c ----
+cS
+c
+c read taper information from quad taper file
 c
 c REVISIONS and CHANGES
 c    10/07/98   V1.0   Thomas Forbriger
@@ -35,6 +36,7 @@ c
 c 
       character*80 comment
 c
+cE
       if (verbose) 
      &  print *,'read taper from file ',filename(1:index(filename, ' '))
       call tf_ttapread(filename, tap_t, tap_off, tap_n, tap_max, comment)

src/ts/fidase/fidase_resamp.f

@@ -3,8 +3,6 @@ c------------------------------------------------------------------------------
 c
 c Copyright 1998, 2010 by Thomas Forbriger (IfG Stuttgart)
 c
-c do some resampling
-c
 c ----
 c This program is free software; you can redistribute it and/or modify
 c it under the terms of the GNU General Public License as published by
@@ -20,6 +18,9 @@ c You should have received a copy of the GNU General Public License
 c along with this program; if not, write to the Free Software
 c Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
 c ----
+cS
+c
+c do some resampling
 c
 c REVISIONS and CHANGES
 c    25/11/98   V1.0   Thomas Forbriger
@@ -36,6 +37,7 @@ c
       include 'fidase_para.inc'
       include 'fidase_workspace.inc'
 c 
+cE
       real pi, t, sum
       integer newnsamp, newtotalsamps, isamp, itrace, ispec
       integer specbase, limit

src/ts/fidase/fidase_skipdata.f

@@ -3,8 +3,6 @@ c------------------------------------------------------------------------------
 c
 c Copyright 1998, 2010 by Thomas Forbriger (IfG Stuttgart)
 c
-c skip a full datablock
-c
 c ----
 c This program is free software; you can redistribute it and/or modify
 c it under the terms of the GNU General Public License as published by
@@ -20,6 +18,9 @@ c You should have received a copy of the GNU General Public License
 c along with this program; if not, write to the Free Software
 c Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
 c ----
+cS
+c
+c skip a full datablock
 c
 c REVISIONS and CHANGES
 c    09/07/98   V1.0   Thomas Forbriger

src/ts/fidase/fidase_writedata.f

 c this is <fidase_writedata.f>
 c------------------------------------------------------------------------------
-c $Id$
 c
 c Copyright 1998, 2010 by Thomas Forbriger (IfG Stuttgart)
 c
-c write complete prepared dataset to disk
-c
 c ----
 c This program is free software; you can redistribute it and/or modify
 c it under the terms of the GNU General Public License as published by
@@ -21,6 +18,9 @@ c You should have received a copy of the GNU General Public License
 c along with this program; if not, write to the Free Software
 c Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
 c ----
+cS
+c
+c write complete prepared dataset to disk
 c
 c REVISIONS and CHANGES
 c    09/07/98   V1.0   Thomas Forbriger
@@ -42,6 +42,7 @@ c
       character outfile*(*)
       logical overwrite, optwritesingle
 c 
+cE
       integer lu, ierr, i, j
       parameter(lu=11)
 c 

src/ts/wf/testcases/.gitignore

+*.bak
+flist 
+*.xxx 
+*.xxx.* 
+*.sff 
+*.TZ 
+*.TR 
+*.grn 
+*.su 
+*.bin
+*.ps 
+*.pdf 
+*.asc 
+*.ascii