[TASK] (fidase): set markers in source code for 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