Commit effff300 authored by thomas.forbriger's avatar thomas.forbriger

libttsynt [DOC]: adjust doc markers and discard CVS keywords

Adjust doc-markers such that GPL phrase is not included in libttsynt.doc.
Remove obsolete CVS keywords.
Adjust make rule for libttsynt.doc to include include-files and separate
sections from different files.
parent 4acc8837
this is <COPYING> this is <COPYING>
============================================================================ ============================================================================
libttsynt libttsynt
------
$Id$
========================================================================= =========================================================================
Copyright 1999, 2010 by Thomas Forbriger (IfG Stuttgart) Copyright 1999, 2010 by Thomas Forbriger (IfG Stuttgart)
......
# this is <Makefile> # this is <Makefile>
# ---------------------------------------------------------------------------- # ----------------------------------------------------------------------------
# $Id$
# #
# Copyright (c) 2002 by Thomas Forbriger (IMG Frankfurt) # Copyright (c) 2002 by Thomas Forbriger (IMG Frankfurt)
# #
...@@ -63,11 +62,12 @@ $(call CHECKVARS,LOCINCLUDEDIR LOCLIBDIR LOCBINDIR) ...@@ -63,11 +62,12 @@ $(call CHECKVARS,LOCINCLUDEDIR LOCLIBDIR LOCBINDIR)
FFLAGS += -ff2c -Wall -ffixed-line-length-0 -fno-backslash $(FLAGS) FFLAGS += -ff2c -Wall -ffixed-line-length-0 -fno-backslash $(FLAGS)
LIBSRC=$(wildcard *.f) LIBSRC=$(wildcard *.f)
LIBINC=$(wildcard *.inc)
LIBOBS=$(patsubst %.f,%.o,$(LIBSRC)) LIBOBS=$(patsubst %.f,%.o,$(LIBSRC))
#---------------------------------------------------------------------- #----------------------------------------------------------------------
flist: Makefile $(LIBSRC) $(wildcard *.inc) COPYING README flist: Makefile $(LIBSRC) $(LIBINC) COPYING README
echo $^ | tr ' ' '\n' | sort > $@ echo $^ | tr ' ' '\n' | sort > $@
.PHONY: edit .PHONY: edit
...@@ -81,15 +81,15 @@ clean: ; ...@@ -81,15 +81,15 @@ clean: ;
#---------------------------------------------------------------------- #----------------------------------------------------------------------
# ASCII documentation (Fortran and C code) # ASCII documentation (Fortran and C code)
# ---------------------------------------- # ----------------------------------------
libttsynt.doc: $(LIBSRC) libttsynt.doc: $(LIBSRC) $(LIBINC)
/usr/bin/awk 'BEGIN{ hot=0; } \ /usr/bin/awk 'BEGIN{ hot=0; } \
/^cS/ { hot=1; \ /^cS/ { hot=1; \
print " c"; \ print " c"; \
print FILENAME; \ print FILENAME; \
print " c"; \ print " c"; \
next; } \ next; } \
/^cE/ { hot=0; } \ /^cE/ { hot=0; print "----------------"; } \
{ if (hot==1) { print " " $$0; } }' $^ > $@ { if (hot==1) { print " " $$0; } }' $(sort $^) > $@
#---------------------------------------------------------------------- #----------------------------------------------------------------------
......
c this is <tt_convgrmod.f> c this is <tt_convgrmod.f>
c------------------------------------------------------------------------------ c------------------------------------------------------------------------------
cS
c $Id$
c c
c Copyright 1999, 2010 by Thomas Forbriger (IfG Stuttgart) c Copyright 1999, 2010 by Thomas Forbriger (IfG Stuttgart)
c c
c convert model format defined by Gunther Reimann to our format
c
c ---- c ----
c This program is free software; you can redistribute it and/or modify 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 c it under the terms of the GNU General Public License as published by
...@@ -21,12 +21,13 @@ c along with this program; if not, write to the Free Software ...@@ -21,12 +21,13 @@ 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 Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
c ---- c ----
c c
c convert model format defined by Gunther Reimann to our format
c
c REVISIONS and CHANGES c REVISIONS and CHANGES
c 16/09/99 V1.0 Thomas Forbriger c 16/09/99 V1.0 Thomas Forbriger
c c
c============================================================================== c==============================================================================
cS
c
c convert model format defined by Gunther Reimann to our format
c c
subroutine tt_convgrmod(verbose) subroutine tt_convgrmod(verbose)
c c
......
c this is <tt_dim.inc> c this is <tt_dim.inc>
c------------------------------------------------------------------------------ c------------------------------------------------------------------------------
cS
c c
c 16/09/99 by Thomas Forbriger (IfG Stuttgart) c 16/09/99 by Thomas Forbriger (IfG Stuttgart)
c c
...@@ -10,8 +9,12 @@ c REVISIONS and CHANGES ...@@ -10,8 +9,12 @@ c REVISIONS and CHANGES
c 16/09/99 V1.0 Thomas Forbriger c 16/09/99 V1.0 Thomas Forbriger
c c
c============================================================================== c==============================================================================
cS
c
c dimensions for arrays
c c
integer maxlay integer maxlay
parameter(maxlay=100) parameter(maxlay=100)
c c
cE
c ----- END OF tt_dim.inc ----- c ----- END OF tt_dim.inc -----
c this is <tt_inbo.f> c this is <tt_inbo.f>
c------------------------------------------------------------------------------ c------------------------------------------------------------------------------
cS
c c
c Copyright 1999, 2010 by Thomas Forbriger (IfG Stuttgart) c Copyright 1999, 2010 by Thomas Forbriger (IfG Stuttgart)
c c
...@@ -26,6 +25,9 @@ c REVISIONS and CHANGES ...@@ -26,6 +25,9 @@ c REVISIONS and CHANGES
c 16/09/99 V1.0 Thomas Forbriger c 16/09/99 V1.0 Thomas Forbriger
c c
c============================================================================== c==============================================================================
cS
c
c return backoffset which is distance between shotpoints
c c
subroutine tt_inbo(backoffset) subroutine tt_inbo(backoffset)
c c
......
c this is <tt_incmp.f> c this is <tt_incmp.f>
c------------------------------------------------------------------------------ c------------------------------------------------------------------------------
cS
c $Id$
c c
c Copyright 1999, 2010 by Thomas Forbriger (IfG Stuttgart) c Copyright 1999, 2010 by Thomas Forbriger (IfG Stuttgart)
c c
c return absolute cmp avlues c return absolute cmp values
c c
c ---- c ----
c This program is free software; you can redistribute it and/or modify c This program is free software; you can redistribute it and/or modify
...@@ -27,6 +25,9 @@ c REVISIONS and CHANGES ...@@ -27,6 +25,9 @@ c REVISIONS and CHANGES
c 16/09/99 V1.0 Thomas Forbriger c 16/09/99 V1.0 Thomas Forbriger
c c
c============================================================================== c==============================================================================
cS
c
c return absolute cmp values
c c
subroutine tt_incmp(ilay,laycmpx,laycmpz,layphi) subroutine tt_incmp(ilay,laycmpx,laycmpz,layphi)
c c
......
c this is <tt_ingeom.f> c this is <tt_ingeom.f>
c------------------------------------------------------------------------------ c------------------------------------------------------------------------------
cS
c $Id$
c c
c Copyright 1999, 2010 by Thomas Forbriger (IfG Stuttgart) c Copyright 1999, 2010 by Thomas Forbriger (IfG Stuttgart)
c c
...@@ -27,6 +25,9 @@ c REVISIONS and CHANGES ...@@ -27,6 +25,9 @@ c REVISIONS and CHANGES
c 17/09/99 V1.0 Thomas Forbriger c 17/09/99 V1.0 Thomas Forbriger
c c
c============================================================================== c==============================================================================
cS
c
c get frame geometry
c c
subroutine tt_ingeom(ilay, cmplength, thick1, thick2) subroutine tt_ingeom(ilay, cmplength, thick1, thick2)
c c
......
c this is <tt_ingrmod.f> c this is <tt_ingrmod.f>
c------------------------------------------------------------------------------ c------------------------------------------------------------------------------
cS
c $Id$
c c
c Copyright 1999, 2010 by Thomas Forbriger (IfG Stuttgart) c Copyright 1999, 2010 by Thomas Forbriger (IfG Stuttgart)
c c
...@@ -27,6 +25,9 @@ c REVISIONS and CHANGES ...@@ -27,6 +25,9 @@ c REVISIONS and CHANGES
c 16/09/99 V1.0 Thomas Forbriger c 16/09/99 V1.0 Thomas Forbriger
c c
c============================================================================== c==============================================================================
cS
c
c return parameters of any interface of the Gunther Reimann model
c c
subroutine tt_ingrmod(i,inphi,ind,inv) subroutine tt_ingrmod(i,inphi,ind,inv)
c c
......
c this is <tt_inlay.f> c this is <tt_inlay.f>
c------------------------------------------------------------------------------ c------------------------------------------------------------------------------
cS
c $Id$
c c
c Copyright 1999, 2010 by Thomas Forbriger (IfG Stuttgart) c Copyright 1999, 2010 by Thomas Forbriger (IfG Stuttgart)
c c
...@@ -27,6 +25,9 @@ c REVISIONS and CHANGES ...@@ -27,6 +25,9 @@ c REVISIONS and CHANGES
c 16/09/99 V1.0 Thomas Forbriger c 16/09/99 V1.0 Thomas Forbriger
c c
c============================================================================== c==============================================================================
cS
c
c return number of layers
c c
subroutine tt_inlay(numlay) subroutine tt_inlay(numlay)
c c
......
c this is <tt_inline.f> c this is <tt_inline.f>
c------------------------------------------------------------------------------ c------------------------------------------------------------------------------
cS
c $Id$
c c
c Coypright 1999, 2010 by Thomas Forbriger (IfG Stuttgart) c Coypright 1999, 2010 by Thomas Forbriger (IfG Stuttgart)
c c
...@@ -28,6 +26,9 @@ c 17/09/99 V1.0 Thomas Forbriger ...@@ -28,6 +26,9 @@ c 17/09/99 V1.0 Thomas Forbriger
c 21/03/02 V1.1 read model common block c 21/03/02 V1.1 read model common block
c c
c============================================================================== c==============================================================================
cS
c
c return single refractor values
c c
subroutine tt_inline(ilay,sl1,sl2,t1,t2) subroutine tt_inline(ilay,sl1,sl2,t1,t2)
c c
......
c this is <tt_intt.f> c this is <tt_intt.f>
c------------------------------------------------------------------------------ c------------------------------------------------------------------------------
cS
c $Id$
c c
c Copyright 1999, 2010 by Thomas Forbriger (IfG Stuttgart) c Copyright 1999, 2010 by Thomas Forbriger (IfG Stuttgart)
c c
...@@ -27,6 +25,9 @@ c REVISIONS and CHANGES ...@@ -27,6 +25,9 @@ c REVISIONS and CHANGES
c 17/09/99 V1.0 Thomas Forbriger c 17/09/99 V1.0 Thomas Forbriger
c c
c============================================================================== c==============================================================================
cS
c
c return travel times
c c
subroutine tt_intt(offset,t1,t2) subroutine tt_intt(offset,t1,t2)
c c
......
c this is <tt_model.inc> c this is <tt_model.inc>
c------------------------------------------------------------------------------ c------------------------------------------------------------------------------
cS
c c
c 16/09/99 by Thomas Forbriger (IfG Stuttgart) c 16/09/99 by Thomas Forbriger (IfG Stuttgart)
c c
c common block to hold basic model definition c common block to hold basic model definition
c
c REVISIONS and CHANGES
c 16/09/99 V1.0 Thomas Forbriger
c
c==============================================================================
cS
c
c common block to hold basic model definition
c c
c nlay number of layers (including halfspace) c nlay number of layers (including halfspace)
c v velocity of layer in m/s c v velocity of layer in m/s
...@@ -22,15 +29,10 @@ c Index 1 values: ...@@ -22,15 +29,10 @@ c Index 1 values:
c v: velocity of the first topmost layers c v: velocity of the first topmost layers
c d: distance between the free surface and the first interface c d: distance between the free surface and the first interface
c phi: dip of the free surface against the horizontal c phi: dip of the free surface against the horizontal
c
c REVISIONS and CHANGES
c 16/09/99 V1.0 Thomas Forbriger
c
c==============================================================================
c c
integer nlay integer nlay
real d(maxlay), v(maxlay), phi(maxlay), backoff real d(maxlay), v(maxlay), phi(maxlay), backoff
common /tt_model/ d,v,phi,backoff,nlay common /tt_model/ d,v,phi,backoff,nlay
c cE
c ----- END OF tt_model.inc ----- c ----- END OF tt_model.inc -----
c this is <tt_prepmod.f> c this is <tt_prepmod.f>
c------------------------------------------------------------------------------ c------------------------------------------------------------------------------
cS
c $Id$
c c
c Copyright 1999, 2010 by Thomas Forbriger (IfG Stuttgart) c Copyright 1999, 2010 by Thomas Forbriger (IfG Stuttgart)
c c
...@@ -29,6 +27,10 @@ c REVISIONS and CHANGES ...@@ -29,6 +27,10 @@ c REVISIONS and CHANGES
c 16/09/99 V1.0 Thomas Forbriger c 16/09/99 V1.0 Thomas Forbriger
c c
c============================================================================== c==============================================================================
cS
c
c calculate additional lengths describing model
c anything that is independent of the ray geometry
c c
subroutine tt_prepmod(verbose) subroutine tt_prepmod(verbose)
c c
......
c this is <tt_propagate.f> c this is <tt_propagate.f>
c------------------------------------------------------------------------------ c------------------------------------------------------------------------------
cS
c $Id$
c c
c Copyright 1999, 2010 by Thomas Forbriger (IfG Stuttgart) c Copyright 1999, 2010 by Thomas Forbriger (IfG Stuttgart)
c c
...@@ -27,6 +25,9 @@ c REVISIONS and CHANGES ...@@ -27,6 +25,9 @@ c REVISIONS and CHANGES
c 17/09/99 V1.0 Thomas Forbriger c 17/09/99 V1.0 Thomas Forbriger
c c
c============================================================================== c==============================================================================
cS
c
c propagate refracted waves to apparent slowness and intercept times
c c
subroutine tt_propagate(verbose) subroutine tt_propagate(verbose)
c c
......
c this is <tt_readgrmod.f> c this is <tt_readgrmod.f>
c------------------------------------------------------------------------------ c------------------------------------------------------------------------------
cS
c $Id$
c c
c Coypright 1999, 2010 by Thomas Forbriger (IfG Stuttgart) c Coypright 1999, 2010 by Thomas Forbriger (IfG Stuttgart)
c c
...@@ -28,6 +26,9 @@ c 16/09/99 V1.0 Thomas Forbriger ...@@ -28,6 +26,9 @@ c 16/09/99 V1.0 Thomas Forbriger
c 21/03/02 V1.1 get it compiled c 21/03/02 V1.1 get it compiled
c c
c============================================================================== c==============================================================================
cS
c
c read model format defined by Gunther Reimann
c c
subroutine tt_readgrmod(filename,x,phitop,verbose) subroutine tt_readgrmod(filename,x,phitop,verbose)
c c
......
c this is <tt_ttime.f> c this is <tt_ttime.f>
c------------------------------------------------------------------------------ c------------------------------------------------------------------------------
cS
c $Id$
c c
c Copyright 1999, 2010 by Thomas Forbriger (IfG Stuttgart) c Copyright 1999, 2010 by Thomas Forbriger (IfG Stuttgart)
c c
...@@ -23,11 +21,13 @@ c along with this program; if not, write to the Free Software ...@@ -23,11 +21,13 @@ 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 Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
c ---- c ----
c c
c
c REVISIONS and CHANGES c REVISIONS and CHANGES
c 16/09/99 V1.0 Thomas Forbriger c 16/09/99 V1.0 Thomas Forbriger
c c
c============================================================================== c==============================================================================
cS
c
c calculate first arrival time at given offset
c c
subroutine tt_ttime subroutine tt_ttime
c c
......
c this is <tt_work.inc> c this is <tt_work.inc>
c------------------------------------------------------------------------------ c------------------------------------------------------------------------------
cS
c $Id$
c c
c 16/09/99 by Thomas Forbriger (IfG Stuttgart) c 16/09/99 by Thomas Forbriger (IfG Stuttgart)
c c
...@@ -11,6 +9,9 @@ c REVISIONS and CHANGES ...@@ -11,6 +9,9 @@ c REVISIONS and CHANGES
c 16/09/99 V1.0 Thomas Forbriger c 16/09/99 V1.0 Thomas Forbriger
c c
c============================================================================== c==============================================================================
cS
c
c all additional (offset-independent) values calculated from model
c c
c cmpx,cmpz: coordinate of relative CMP on interface c cmpx,cmpz: coordinate of relative CMP on interface
c cmp: projected CMP length on interface c cmp: projected CMP length on interface
...@@ -32,4 +33,5 @@ c ...@@ -32,4 +33,5 @@ c
common /tt_work/ cmpx,cmpz,cmp,d1,d2,absphi, common /tt_work/ cmpx,cmpz,cmp,d1,d2,absphi,
& sapp1,sapp2,ti1,ti2 & sapp1,sapp2,ti1,ti2
c c
cE
c ----- END OF tt_work.inc ----- c ----- END OF tt_work.inc -----
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