Commit 3d705f49 authored by thomas.forbriger's avatar thomas.forbriger
Browse files

[TASK] (fidase): set markers in source code for fidase.doc

parent 4494da76
......@@ -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
......
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