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

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

Merge branch 'master' into issue10
parents c9db6513 3d705f49
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 -----
......@@ -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).
......@@ -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; \
......
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
......
......@@ -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
......
......@@ -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
......
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
......
......@@ -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)
......
......@@ -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
......
......@@ -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
......
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
......
*.bak
flist
*.xxx
*.xxx.*
*.sff
*.TZ
*.TR
*.grn
*.su
*.bin
*.ps
*.pdf
*.asc
*.ascii
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