Commit 1fc9d193 authored by thomas.forbriger's avatar thomas.forbriger
Browse files

[TASK] (green/disan): remove obsolete subversion keywords

parent 6c48400f
this is <COPYING> this is <COPYING>
============================================================================ ============================================================================
green/disan green/disan
---------
$Id$
============================================================================ ============================================================================
some code for dispersion analysis programs to calculate wavefield transforms and for dispersion analysis
Copyright (C) 1997,2010 by Thomas Forbriger Copyright (C) 1997,2010 by Thomas Forbriger
---- ----
The conv/many suite is free software; you can redistribute it and/or modify The green/disan suite is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or the Free Software Foundation; either version 2 of the License, or
(at your option) any later version. (at your option) any later version.
This program is distributed in the hope that it will be useful, The programa are distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details. GNU General Public License for more details.
......
# this is <Makefile> # this is <Makefile>
# ---------------------------------------------------------------------------- # ----------------------------------------------------------------------------
# $Id$
# #
# Copyright (c) 2007 by Thomas Forbriger (BFO Schiltach) # Copyright (c) 2007 by Thomas Forbriger (BFO Schiltach)
# #
......
c this is <gabor.f> c this is <gabor.f>
c------------------------------------------------------------------------------ c------------------------------------------------------------------------------
c ($Id$)
c c
c Copyright 2001,2006 by Thomas Forbriger (IMGF Frankfurt) c Copyright 2001,2006 by Thomas Forbriger (IMGF Frankfurt)
c c
...@@ -35,9 +34,6 @@ c ...@@ -35,9 +34,6 @@ c
c c
character*(*) version character*(*) version
parameter(version='GABOR V1.4 calculate gabor matrix') parameter(version='GABOR V1.4 calculate gabor matrix')
character*(*) GABOR_CVS_ID
parameter(GABOR_CVS_ID=
& '$Id$')
c c
c input dataset c input dataset
character*80 filename, informat character*80 filename, informat
......
c this is <greda.f> c this is <greda.f>
c------------------------------------------------------------------------------ c------------------------------------------------------------------------------
c $Id$
c c
c Copright 1997,2010 by Thomas Forbriger (IfG Stuttgart) c Copright 1997,2010 by Thomas Forbriger (IfG Stuttgart)
c c
...@@ -124,11 +123,9 @@ c ...@@ -124,11 +123,9 @@ c
c c
c first we declare some general variables c first we declare some general variables
c c
character*79 version,CVSID character*79 version
parameter(version= parameter(version=
&'GREDA V3.22 Calculate Fourier-Bessel expansion coefficients') &'GREDA V3.22 Calculate Fourier-Bessel expansion coefficients')
parameter(CVSID=
& '$Id$')
c c
c calculations common block c calculations common block
include 'greda_dim.inc' include 'greda_dim.inc'
...@@ -437,7 +434,6 @@ c ...@@ -437,7 +434,6 @@ c
print *,'H^(2)_0 is used in theory, you have to use H^(1)_0' print *,'H^(2)_0 is used in theory, you have to use H^(1)_0'
print *,'in greda.' print *,'in greda.'
print *,' ' print *,' '
print *,'$Id$'
call pwo_cvsid call pwo_cvsid
print *,' ' print *,' '
print *,'compiled array dimensions are:' print *,'compiled array dimensions are:'
......
c this is <greda_dim.inc> c this is <greda_dim.inc>
c ---------------------------------------------------------------------------- c ----------------------------------------------------------------------------
c ($Id$)
c c
c Copyright (c) 2002 by Thomas Forbriger (IMG Frankfurt) c Copyright (c) 2002 by Thomas Forbriger (IMG Frankfurt)
c c
......
c this is <greda_phasor.f> c this is <greda_phasor.f>
c ---------------------------------------------------------------------------- c ----------------------------------------------------------------------------
c ($Id$)
c c
c Copyright (c) 2002 by Thomas Forbriger (IMG Frankfurt) c Copyright (c) 2002 by Thomas Forbriger (IMG Frankfurt)
c c
...@@ -27,8 +26,9 @@ c 16/09/2002 V1.0 Thomas Forbriger ...@@ -27,8 +26,9 @@ c 16/09/2002 V1.0 Thomas Forbriger
c c
c ============================================================================ c ============================================================================
c c
c this is a dummy function; it became obsolete when source code was move
c to git
subroutine pwo_cvsid subroutine pwo_cvsid
print *,'$Id$'
return return
end end
c c
......
c this is <greda_pwo.inc> c this is <greda_pwo.inc>
c ---------------------------------------------------------------------------- c ----------------------------------------------------------------------------
c ($Id$)
c c
c Copyright (c) 2002 by Thomas Forbriger (IMG Frankfurt) c Copyright (c) 2002 by Thomas Forbriger (IMG Frankfurt)
c c
......
c this is <grereso.f> c this is <grereso.f>
c------------------------------------------------------------------------------ c------------------------------------------------------------------------------
c $Id$
c c
c Copyright 1999,2010 by Thomas Forbriger (IfG Stuttgart) c Copyright 1999,2010 by Thomas Forbriger (IfG Stuttgart)
c c
...@@ -166,7 +165,6 @@ c ...@@ -166,7 +165,6 @@ c
print *,' number of test slowness values:',maxpf print *,' number of test slowness values:',maxpf
print *,' number of frequencies: ',maxpf print *,' number of frequencies: ',maxpf
print *,' ' print *,' '
print *,'$Id$'
stop stop
endif endif
c c
......
c this is <grereso.inc> c this is <grereso.inc>
c------------------------------------------------------------------------------ c------------------------------------------------------------------------------
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 this is <hivexpanco.f> c this is <hivexpanco.f>
c ---------------------------------------------------------------------------- c ----------------------------------------------------------------------------
c ($Id$)
c c
c Copyright (c) 2007 by Thomas Forbriger (BFO Schiltach) c Copyright (c) 2007 by Thomas Forbriger (BFO Schiltach)
c c
...@@ -33,9 +32,6 @@ c ...@@ -33,9 +32,6 @@ c
parameter(version= parameter(version=
& 'HIVEXPANCO V1.0'// & 'HIVEXPANCO V1.0'//
& ' calculate H/V for Fourier Bessel expansion coefficients') & ' calculate H/V for Fourier Bessel expansion coefficients')
character*(*) HIVEXPANCO_CVS_ID
parameter(HIVEXPANCO_CVS_ID=
& '$Id$')
c c
c datasets c datasets
character*80 hinfile, vinfile, outfile character*80 hinfile, vinfile, outfile
......
c this is <hivgabor.f> c this is <hivgabor.f>
c ---------------------------------------------------------------------------- c ----------------------------------------------------------------------------
c ($Id$)
c c
c Copyright (c) 2006 by Thomas Forbriger (BFO Schiltach) c Copyright (c) 2006 by Thomas Forbriger (BFO Schiltach)
c c
...@@ -32,9 +31,6 @@ c ...@@ -32,9 +31,6 @@ c
character*(*) version character*(*) version
parameter(version= parameter(version=
& 'HIVGABOR V1.0 Calculate H/V from gabor results') & 'HIVGABOR V1.0 Calculate H/V from gabor results')
character*(*) HIVGABOR_CVS_ID
parameter(HIVGABOR_CVS_ID=
& '$Id$')
c c
c datasets c datasets
character*80 hinfile, vinfile, outfile character*80 hinfile, vinfile, outfile
......
c this is <phadi.f> c this is <phadi.f>
c------------------------------------------------------------------------------ c------------------------------------------------------------------------------
c ($Id$)
c c
c Copyright 2001,2010 by Thomas Forbriger (IMGF Frankfurt) c Copyright 2001,2010 by Thomas Forbriger (IMGF Frankfurt)
c c
...@@ -43,9 +42,6 @@ c ...@@ -43,9 +42,6 @@ c
character*(*) version character*(*) version
parameter(version= parameter(version=
& 'PHADI V1.7 calculate dispersion relation from phase differences') & 'PHADI V1.7 calculate dispersion relation from phase differences')
character*(*) PHADI_CVS_ID
parameter(PHADI_CVS_ID=
& '$Id$')
c input dataset c input dataset
character*80 filename, informat character*80 filename, informat
integer maxtraces, totmaxsamples integer maxtraces, totmaxsamples
......
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