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

prepared for publication

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: 2298
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 5f272fad
# this is <Makefile>
# ----------------------------------------------------------------------------
# $Id: Makefile,v 1.9 2007-06-05 09:18:46 tforb Exp $
#
# Copyright (c) 2007 by Thomas Forbriger (BFO Schiltach)
#
# some code for dispersion analysis
#
# $Id: Makefile,v 1.8 2007-05-11 09:26:01 tforb Exp $
# ----
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
# ----
#
# REVISIONS and CHANGES
# 05/06/2007 V1.0 Thomas Forbriger
#
# ============================================================================
#
# Makefile for src/green/disan
# this directory contains the following programs:
#
# 22/02/2001 started wirh phadi.f and gabor.f
# greda: dispersion analysis, wavefield transformation
# gabor: group traveltime analysis, Gabor matrix
# phadi: classical dispersion analysis using Fourier phases only
# hivgabor: calculate H/V from gabor output
# hivexpanco: claculate H/V from Fourier Bessel coefficients
#
# libraries/packages needed to compile the code
# f2c: Fortran to C converter from netlib
# lapack: liblapex.a can be replaced by liblapack.a
# blasex: libblasex.a can be replaced by libblas.a
# numrec: libnumrec.a contains code from numerical recipes
#
# libsff: package containing libsff.a
# libtime: package containing libtime.a
# libtf: package containing libtf.a
# libts: package containing libts.a
# libsffu: package containing libsffu.a
# you can obtain the latter packages from where you obtained the present code
#
# ============================================================================
#
LINLIB=-llapex -lblasex
......@@ -58,3 +103,4 @@ flist: *.f Makefile *.inc
edit: flist
vim $<
# ----- END OF Makefile -----
c this is <gabor.f>
c------------------------------------------------------------------------------
c ($Id: gabor.f,v 1.11 2006-06-13 11:21:10 tforb Exp $)
c ($Id: gabor.f,v 1.12 2007-06-05 09:18:46 tforb Exp $)
c
c 22/02/2001 by Thomas Forbriger (IMGF Frankfurt)
c
c calculate gabor matrix
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
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program is distributed in the hope that it will be useful,
c but WITHOUT ANY WARRANTY; without even the implied warranty of
c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
c GNU General Public License for more details.
c
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 ----
c
c REVISIONS and CHANGES
c 22/02/2001 V1.0 Thomas Forbriger
c 02/08/2001 V1.1 allow trace order rather than offset order
......@@ -20,7 +36,7 @@ c
parameter(version='GABOR V1.3 calculate gabor matrix')
character*(*) GABOR_CVS_ID
parameter(GABOR_CVS_ID=
& '$Id: gabor.f,v 1.11 2006-06-13 11:21:10 tforb Exp $')
& '$Id: gabor.f,v 1.12 2007-06-05 09:18:46 tforb Exp $')
c
c input dataset
character*80 filename
......
c this is <greda.f>
c------------------------------------------------------------------------------
c $Id: greda.f,v 1.19 2006-03-28 14:46:52 tforb Exp $
c $Id: greda.f,v 1.20 2007-06-05 09:18:46 tforb Exp $
c
c 24/06/97 by Thomas Forbriger (IfG Stuttgart)
c
c evaluate greens function for a set of seismograms
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
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program is distributed in the hope that it will be useful,
c but WITHOUT ANY WARRANTY; without even the implied warranty of
c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
c GNU General Public License for more details.
c
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 ----
c
c REVISIONS and CHANGES
c 24/06/97 V1.0 Thomas Forbriger
c 03/07/97 V1.1 included hankel functions
......@@ -90,7 +106,7 @@ c
character*79 version,CVSID
parameter(version='GREDA V3.15 Greens function from data')
parameter(CVSID=
& '$Id: greda.f,v 1.19 2006-03-28 14:46:52 tforb Exp $')
& '$Id: greda.f,v 1.20 2007-06-05 09:18:46 tforb Exp $')
c
c calculations common block
include 'greda_dim.inc'
......@@ -368,7 +384,7 @@ c
print *,'rho should be chosen somewhere around delta_r_min*omega,'
print *,'where delta_r_min is the minimal offset difference.'
print *,' '
print *,'$Id: greda.f,v 1.19 2006-03-28 14:46:52 tforb Exp $'
print *,'$Id: greda.f,v 1.20 2007-06-05 09:18:46 tforb Exp $'
call pwo_cvsid
print *,' '
print *,'compiled array dimensions are:'
......
......@@ -5,6 +5,22 @@ c 23/10/97 by Thomas Forbriger (IfG Stuttgart)
c
c This file contains the matrix inversion common block for greda.f
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
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program is distributed in the hope that it will be useful,
c but WITHOUT ANY WARRANTY; without even the implied warranty of
c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
c GNU General Public License for more details.
c
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 ----
c
c REVISIONS and CHANGES
c 23/10/97 V1.0 Thomas Forbriger
c 12/06/02 V1.1 supply wavelength specific taper factors
......
c this is <greda_dim.inc>
c ----------------------------------------------------------------------------
c ($Id: greda_dim.inc,v 1.5 2004-09-09 12:41:17 tforb Exp $)
c ($Id: greda_dim.inc,v 1.6 2007-06-05 09:18:46 tforb Exp $)
c
c Copyright (c) 2002 by Thomas Forbriger (IMG Frankfurt)
c
c dimension of greda arrays
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
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program is distributed in the hope that it will be useful,
c but WITHOUT ANY WARRANTY; without even the implied warranty of
c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
c GNU General Public License for more details.
c
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 ----
c
c REVISIONS and CHANGES
c 17/09/2002 V1.0 Thomas Forbriger
c
......
c this is <greda_phasor.f>
c ----------------------------------------------------------------------------
c ($Id: greda_phasor.f,v 1.7 2002-09-17 14:45:04 forbrig Exp $)
c ($Id: greda_phasor.f,v 1.8 2007-06-05 09:18:47 tforb Exp $)
c
c Copyright (c) 2002 by Thomas Forbriger (IMG Frankfurt)
c
c subroutines to handle phasor walkout requests
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
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program is distributed in the hope that it will be useful,
c but WITHOUT ANY WARRANTY; without even the implied warranty of
c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
c GNU General Public License for more details.
c
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 ----
c
c REVISIONS and CHANGES
c 16/09/2002 V1.0 Thomas Forbriger
c
c ============================================================================
c
subroutine pwo_cvsid
print *,'$Id: greda_phasor.f,v 1.7 2002-09-17 14:45:04 forbrig Exp $'
print *,'$Id: greda_phasor.f,v 1.8 2007-06-05 09:18:47 tforb Exp $'
return
end
c
......
c this is <greda_pwo.inc>
c ----------------------------------------------------------------------------
c ($Id: greda_pwo.inc,v 1.3 2002-09-17 13:39:46 forbrig Exp $)
c ($Id: greda_pwo.inc,v 1.4 2007-06-05 09:18:47 tforb Exp $)
c
c Copyright (c) 2002 by Thomas Forbriger (IMG Frankfurt)
c
c data space for phasor walkout
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
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program is distributed in the hope that it will be useful,
c but WITHOUT ANY WARRANTY; without even the implied warranty of
c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
c GNU General Public License for more details.
c
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 ----
c
c REVISIONS and CHANGES
c 16/09/2002 V1.0 Thomas Forbriger
c
......
c this is <hivexpanco.f>
c ----------------------------------------------------------------------------
c ($Id: hivexpanco.f,v 1.2 2007-05-11 09:26:01 tforb Exp $)
c ($Id: hivexpanco.f,v 1.3 2007-06-05 09:18:47 tforb Exp $)
c
c Copyright (c) 2007 by Thomas Forbriger (BFO Schiltach)
c
c calculate H/V for Fourier Bessel expansion coefficients
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
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program is distributed in the hope that it will be useful,
c but WITHOUT ANY WARRANTY; without even the implied warranty of
c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
c GNU General Public License for more details.
c
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 ----
c
c REVISIONS and CHANGES
c 11/05/2007 V1.0 Thomas Forbriger
c
......@@ -19,7 +35,7 @@ c
& ' calculate H/V for Fourier Bessel expansion coefficients')
character*(*) HIVEXPANCO_CVS_ID
parameter(HIVEXPANCO_CVS_ID=
& '$Id: hivexpanco.f,v 1.2 2007-05-11 09:26:01 tforb Exp $')
& '$Id: hivexpanco.f,v 1.3 2007-06-05 09:18:47 tforb Exp $')
c
c datasets
character*80 hinfile, vinfile, outfile
......
c this is <hivgabor.f>
c ----------------------------------------------------------------------------
c ($Id: hivgabor.f,v 1.3 2006-06-02 16:58:35 tforb Exp $)
c ($Id: hivgabor.f,v 1.4 2007-06-05 09:18:47 tforb Exp $)
c
c Copyright (c) 2006 by Thomas Forbriger (BFO Schiltach)
c
c Calculate H/V from gabor results
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
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program is distributed in the hope that it will be useful,
c but WITHOUT ANY WARRANTY; without even the implied warranty of
c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
c GNU General Public License for more details.
c
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 ----
c
c REVISIONS and CHANGES
c 02/06/2006 V1.0 Thomas Forbriger
c
......@@ -18,7 +34,7 @@ c
& 'HIVGABOR V1.0 Calculate H/V from gabor results')
character*(*) HIVGABOR_CVS_ID
parameter(HIVGABOR_CVS_ID=
& '$Id: hivgabor.f,v 1.3 2006-06-02 16:58:35 tforb Exp $')
& '$Id: hivgabor.f,v 1.4 2007-06-05 09:18:47 tforb Exp $')
c
c datasets
character*80 hinfile, vinfile, outfile
......
c this is <phadi.f>
c------------------------------------------------------------------------------
c ($Id: phadi.f,v 1.10 2005-01-21 15:55:19 tforb Exp $)
c ($Id: phadi.f,v 1.11 2007-06-05 09:18:48 tforb Exp $)
c
c 22/02/2001 by Thomas Forbriger (IMGF Frankfurt)
c
c calculate dispersion relation from phase differences
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
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program is distributed in the hope that it will be useful,
c but WITHOUT ANY WARRANTY; without even the implied warranty of
c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
c GNU General Public License for more details.
c
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 ----
c
c REVISIONS and CHANGES
c 22/02/2001 V1.0 Thomas Forbriger
c 23/02/2001 V1.1 seperated phase test
......@@ -24,7 +40,7 @@ c
& 'PHADI V1.4 calculate dispersion relation from phase differences')
character*(*) PHADI_CVS_ID
parameter(PHADI_CVS_ID=
& '$Id: phadi.f,v 1.10 2005-01-21 15:55:19 tforb Exp $')
& '$Id: phadi.f,v 1.11 2007-06-05 09:18:48 tforb Exp $')
c input dataset
character*80 filename
integer maxtraces, totmaxsamples
......
Supports Markdown
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