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

larger arrays

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: 2281
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 39a364e4
c this is <gresy.f>
c------------------------------------------------------------------------------
c $Id: gresy.f,v 1.14 2003-02-03 11:34:39 forbrig Exp $
c $Id: gresy.f,v 1.15 2007-05-15 14:38:35 tforb Exp $
c
c 26/06/97 by Thomas Forbriger (IfG Stuttgart)
c
......@@ -30,7 +30,7 @@ c
parameter(version='GRESY V1.9 GREens function SYnthetics')
c dimensions
integer maxtr, maxsamp, maxom, maxu
parameter(maxu=1000, maxtr=maxu, maxom=4100, maxsamp=maxom*2)
parameter(maxu=4500, maxtr=maxu, maxom=4100, maxsamp=maxom*2)
integer ntr, nsamp, nom, nu
c greens function
character*78 greenname
......@@ -132,7 +132,7 @@ c
print *,' amplitude unit: m**3/s if spectrum represents displacement'
print *,' waveform in m'
print *,' '
print *,'$Id: gresy.f,v 1.14 2003-02-03 11:34:39 forbrig Exp $'
print *,'$Id: gresy.f,v 1.15 2007-05-15 14:38:35 tforb Exp $'
print *,' '
call refmet_rcvinf
stop
......
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