Commit 199ed595 authored by thomas.forbriger's avatar thomas.forbriger Committed by thomas.forbriger
Browse files

synt/misc/lamb.f: revised copyright statements and usage information

This is a legacy commit from before 2015-03-01.
It may be incomplete as well as inconsistent.
See COPYING.legacy and README.history for details.

SVN Path:     http://gpitrsvn.gpi.uni-karlsruhe.de/repos/TFSoftware/trunk
SVN Revision: 5450
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent c1c2fcab
......@@ -3,10 +3,18 @@ c======================================================================
c $Id$
c
c Copyright 1996, 2010 by Thomas Forbriger
c Copyright (c) 1999 by Gerhard Mueller (IMG Frankfurt)
c
c this program calculates the solution for a vertical single force
c penetrating a halfspace
c the solution if found by the equation (141) of lamb's paper
c This program calculates the response of a homogeneous halfspace to a
c single vertical force acting on the surface of the halfspace. This
c is the solution to the classical Lamb's problem (Lamb 1904, eq. 141).
c The algorithm used in this program is provided by Forbriger (1996).
c Lamb H., 1904. On the propagation of tremors over the surface of an
c elastic solid. Phil. Trans. Roy. Soc. London, 203: 1–42.
c
c Forbriger T., 1996. Interpretation von Oberflaechenwellen in der
c Flachseismik. Diplomarbeit, Institut fuer Geophysik, Universitaet Stuttgart.
c
c ----
c This program is free software; you can redistribute it and/or modify
......@@ -24,12 +32,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 ----
c
c V1.0 Thomas Forbriger 25/4/1996
c V1.1 30/4/96 mit akausalem Daempfungsmodell
c V1.2 02/5/96 korrektes Vorzeichen der Kraft
c V1.3 03/5/96 reading parameters
c V1.4 08/5/96 fixed double-minus in qnumerator
c V1.5 25/01/11 implemented interface to libsff and libfapidxx
c V1.0 Thomas Forbriger 25/4/1996
c V1.1 30/4/96 mit akausalem Daempfungsmodell
c V1.2 02/5/96 korrektes Vorzeichen der Kraft
c V1.3 03/5/96 reading parameters
c V1.4 08/5/96 fixed double-minus in qnumerator
c V1.5 25/01/11 implemented interface to libsff and libfapidxx
c V1.5a 08/01/2014 revised copyright and usage information
c
c======================================================================
program lamb
......@@ -88,7 +97,8 @@ c----------------------------------------------------------------------
srcfct(t,srcl)=dsin(pi*t/srcl)**3
srcfctstr='srcfkt(t,srcl)=dsin(pi*t/srcl)**3'
version='LAMB V1.5 calculating Lamb''s problem (141)'
version=
& 'LAMB V1.5a The solution to Lamb''s problem (1904, eq. 141)'
c buggy fires up the floating exceptiong traps and is made
c available by libwo.a (just usable with Sun-Fortran)
......@@ -108,6 +118,29 @@ c inform user
print *,'length TS is less than the sampling interval a'
print *,'single delta-pulse will be calculated. A finite'
print *,'TS results in a sin^3-pulse.'
print *,' '
print *,'Copyright 1996, 2010 by Thomas Forbriger'
print *,'Copyright (c) 1999 by Gerhard Mueller (IMG '
& ,'Frankfurt)'
print *,' '
print *,'This program calculates the response of a '
& ,'homogeneous halfspace to a'
print *,'single vertical force acting on the surface '
& ,'of the halfspace. This'
print *,'is the solution to the classical Lamb`s '
& ,'problem (Lamb 1904, eq. 141).'
print *,'The algorithm used in this program is '
& ,'provided by Forbriger (1996).'
print *,' '
print *,'Lamb H., 1904. On the propagation of tremors '
& ,'over the surface of an'
print *,'elastic solid. Phil. Trans. Roy. Soc. London, '
& ,'203: 142.'
print *,' '
print *,'Forbriger T., 1996. Interpretation von '
& ,'Oberflaechenwellen in der'
print *,'Flachseismik. Diplomarbeit, Institut fuer '
& ,'Geophysik, Universitaet Stuttgart.'
print *,' '
print *,'This version is compiled for'
print *,maxtraces,' receivers with ',maxsamples,' samples each'
......@@ -561,6 +594,17 @@ c----------------------------------------------------------------------
c the following fast fourier transform is just copied from
c the program refseis from J. Ungerer
c
c This code was originally published by Gerhard Müller
c in his lecture notes on digital signal processing:
c Gerhard Mueller, 1999. Digitale Signalverarbeitung. Skriptum zur
c gleichnamigen Vorlesung. Institut für Meteorologie und Geophysik,
c Universität Frankfurt.
c
c The original algorithm appears to be due to Claerbout, J.F.,
c "Fundamentals of Geophysical Data Processing with Applications
c to Petroleum Prospecting", McGraw-Hill, 1976.
c
c
C23456789012345678901234567890123456789012345678901234567890123456789012
C*** Subroutine fuer Fouriertransformation *****************************
C Die von Gerherd Mueller verwendetet schnelle Fouriertransformation 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