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


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:
SVN Revision: 3005
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent ba8a3a46
c this is <syg.f>
c $Id: syg.f,v 1.11 2007-10-23 13:42:17 tforb Exp $
c $Id: syg.f,v 1.12 2010-03-04 12:00:48 tforb Exp $
c 30/07/97 by Thomas Forbriger (IfG Stuttgart)
......@@ -13,6 +13,7 @@ c 14/04/00 V1.2 calculate green coefficients for radial component too
c 14/03/02 V1.3 do not calculate static case with flgevas
c 15/03/02 V1.4 iragc was declared twice
c 26/03/02 V1.5 now optionally support complex angular frequencies
c 04/03/10 V1.6 comment regarding the source amplitude was wrong!
......@@ -20,7 +21,8 @@ c
c variables
character*79 version
parameter (version='SYG V1.5 calculate synthetic greens matrix')
parameter (version=
& 'SYG V1.6 calculate synthetic greens matrix')
integer mu, mom
parameter (mu=10000, mom=4100)
......@@ -89,8 +91,9 @@ c go
print *,' -s sigma set imaginary part of angular frequency'
print *,' to -sigma.'
print *,' '
print *,'Notice: the source amplitude is ignored.'
print *,' '
c 4.3.2010 notice: the following comment was wrong!
c gr_refsub reads the source amplitude and uses it for scaling
c print *,'Notice: the source amplitude is ignored.'
print *,'Array dimensions:'
print *,' maximum number of slowness values: ',mu
print *,' maximum number of frequencies: ',mom
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