Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
Seitosh
Seitosh
Commits
1fc9d193
Commit
1fc9d193
authored
Mar 04, 2016
by
thomas.forbriger
Browse files
[TASK] (green/disan): remove obsolete subversion keywords
parent
6c48400f
Changes
12
Hide whitespace changes
Inline
Side-by-side
src/green/disan/COPYING
View file @
1fc9d193
this is <COPYING>
============================================================================
green/disan
---------
$Id$
============================================================================
some code
for dispersion analysis
programs to calculate wavefield transforms and
for dispersion analysis
Copyright (C) 1997,2010 by Thomas Forbriger
----
The
conv/m
an
y
suite is free software; you can redistribute it and/or modify
The
green/dis
an suite 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.
Th
is
program
is
distributed in the hope that it will be useful,
Th
e
program
a are
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.
...
...
src/green/disan/Makefile
View file @
1fc9d193
# this is <Makefile>
# ----------------------------------------------------------------------------
# $Id$
#
# Copyright (c) 2007 by Thomas Forbriger (BFO Schiltach)
#
...
...
src/green/disan/gabor.f
View file @
1fc9d193
c
this
is
<
gabor
.
f
>
c
------------------------------------------------------------------------------
c
(
$
Id
$
)
c
c
Copyright
2001
,
2006
by
Thomas
Forbriger
(
IMGF
Frankfurt
)
c
...
...
@@ -35,9 +34,6 @@ c
c
character
*
(
*
)
version
parameter
(
version
=
'GABOR V1.4 calculate gabor matrix'
)
character
*
(
*
)
GABOR_CVS_ID
parameter
(
GABOR_CVS_ID
=
&
'$Id$'
)
c
c
input
dataset
character
*
80
filename
,
informat
...
...
src/green/disan/greda.f
View file @
1fc9d193
c
this
is
<
greda
.
f
>
c
------------------------------------------------------------------------------
c
$
Id
$
c
c
Copright
1997
,
2010
by
Thomas
Forbriger
(
IfG
Stuttgart
)
c
...
...
@@ -124,11 +123,9 @@ c
c
c
first
we
declare
some
general
variables
c
character
*
79
version
,
CVSID
character
*
79
version
parameter
(
version
=
&
'GREDA V3.22 Calculate Fourier-Bessel expansion coefficients'
)
parameter
(
CVSID
=
&
'$Id$'
)
c
c
calculations
common
block
include
'greda_dim.inc'
...
...
@@ -437,7 +434,6 @@ c
print
*
,
'H^(2)_0 is used in theory, you have to use H^(1)_0'
print
*
,
'in greda.'
print
*
,
' '
print
*
,
'$Id$'
call
pwo_cvsid
print
*
,
' '
print
*
,
'compiled array dimensions are:'
...
...
src/green/disan/greda_dim.inc
View file @
1fc9d193
c
this
is
<
greda_dim
.
inc
>
c
----------------------------------------------------------------------------
c
(
$Id
$
)
c
c
Copyright
(
c
)
2002
by
Thomas
Forbriger
(
IMG
Frankfurt
)
c
...
...
src/green/disan/greda_phasor.f
View file @
1fc9d193
c
this
is
<
greda_phasor
.
f
>
c
----------------------------------------------------------------------------
c
(
$
Id
$
)
c
c
Copyright
(
c
)
2002
by
Thomas
Forbriger
(
IMG
Frankfurt
)
c
...
...
@@ -27,8 +26,9 @@ c 16/09/2002 V1.0 Thomas Forbriger
c
c
============================================================================
c
c
this
is
a
dummy
function
;
it
became
obsolete
when
source
code
was
move
c
to
git
subroutine
pwo_cvsid
print
*
,
'$Id$'
return
end
c
...
...
src/green/disan/greda_pwo.inc
View file @
1fc9d193
c
this
is
<
greda_pwo
.
inc
>
c
----------------------------------------------------------------------------
c
(
$Id
$
)
c
c
Copyright
(
c
)
2002
by
Thomas
Forbriger
(
IMG
Frankfurt
)
c
...
...
src/green/disan/grereso.f
View file @
1fc9d193
c
this
is
<
grereso
.
f
>
c
------------------------------------------------------------------------------
c
$
Id
$
c
c
Copyright
1999
,
2010
by
Thomas
Forbriger
(
IfG
Stuttgart
)
c
...
...
@@ -166,7 +165,6 @@ c
print *,'
number
of
test
slowness
values
:
',maxpf
print *,'
number
of
frequencies
:
',maxpf
print *,'
'
print *,'
$
Id
$
'
stop
endif
c
...
...
src/green/disan/grereso.inc
View file @
1fc9d193
c
this
is
<
grereso
.
inc
>
c
------------------------------------------------------------------------------
c
$Id
$
c
c
Copyright
1999
,
2010
by
Thomas
Forbriger
(
IfG
Stuttgart
)
c
...
...
src/green/disan/hivexpanco.f
View file @
1fc9d193
c
this
is
<
hivexpanco
.
f
>
c
----------------------------------------------------------------------------
c
(
$
Id
$
)
c
c
Copyright
(
c
)
2007
by
Thomas
Forbriger
(
BFO
Schiltach
)
c
...
...
@@ -33,9 +32,6 @@ c
parameter
(
version
=
&
'HIVEXPANCO V1.0'
//
&
' calculate H/V for Fourier Bessel expansion coefficients'
)
character
*
(
*
)
HIVEXPANCO_CVS_ID
parameter
(
HIVEXPANCO_CVS_ID
=
&
'$Id$'
)
c
c
datasets
character
*
80
hinfile
,
vinfile
,
outfile
...
...
src/green/disan/hivgabor.f
View file @
1fc9d193
c
this
is
<
hivgabor
.
f
>
c
----------------------------------------------------------------------------
c
(
$
Id
$
)
c
c
Copyright
(
c
)
2006
by
Thomas
Forbriger
(
BFO
Schiltach
)
c
...
...
@@ -32,9 +31,6 @@ c
character
*
(
*
)
version
parameter
(
version
=
&
'HIVGABOR V1.0 Calculate H/V from gabor results'
)
character
*
(
*
)
HIVGABOR_CVS_ID
parameter
(
HIVGABOR_CVS_ID
=
&
'$Id$'
)
c
c
datasets
character
*
80
hinfile
,
vinfile
,
outfile
...
...
src/green/disan/phadi.f
View file @
1fc9d193
c
this
is
<
phadi
.
f
>
c
------------------------------------------------------------------------------
c
(
$
Id
$
)
c
c
Copyright
2001
,
2010
by
Thomas
Forbriger
(
IMGF
Frankfurt
)
c
...
...
@@ -43,9 +42,6 @@ c
character
*
(
*
)
version
parameter
(
version
=
&
'PHADI V1.7 calculate dispersion relation from phase differences'
)
character
*
(
*
)
PHADI_CVS_ID
parameter
(
PHADI_CVS_ID
=
&
'$Id$'
)
c
input
dataset
character
*
80
filename
,
informat
integer
maxtraces
,
totmaxsamples
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment