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

increased dimensions

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: 2417
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 767ecc08
c this is <syg.f>
c------------------------------------------------------------------------------
c $Id: syg.f,v 1.10 2007-05-11 08:44:37 tforb Exp $
c $Id: syg.f,v 1.11 2007-10-23 13:42:17 tforb Exp $
c
c 30/07/97 by Thomas Forbriger (IfG Stuttgart)
c
......@@ -23,7 +23,7 @@ c variables
parameter (version='SYG V1.5 calculate synthetic greens matrix')
c
integer mu, mom
parameter (mu=5000, mom=4100)
parameter (mu=10000, mom=4100)
integer nu, nom
complex green(mom, mu)
double complex thisgreen, dummygreen
......@@ -90,6 +90,10 @@ c go
print *,' to -sigma.'
print *,' '
print *,'Notice: the source amplitude is ignored.'
print *,' '
print *,'Array dimensions:'
print *,' maximum number of slowness values: ',mu
print *,' maximum number of frequencies: ',mom
stop
endif
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