Commit 7cb70935 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: 2418
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 212f2a2f
c this is <gresynoise.f>
c ----------------------------------------------------------------------------
c ($Id: gresynoise.f,v 1.23 2007-09-07 15:09:07 tforb Exp $)
c ($Id: gresynoise.f,v 1.24 2007-10-23 13:47:31 tforb Exp $)
c
c Copyright (c) 2007 by Thomas Forbriger (BFO Schiltach)
c
......@@ -75,12 +75,12 @@ c
&'GRESYNOISE V1.12 calculate noise seismograms')
character*(*) GRESYNOISE_CVS_ID
parameter(GRESYNOISE_CVS_ID=
&'$Id: gresynoise.f,v 1.23 2007-09-07 15:09:07 tforb Exp $')
&'$Id: gresynoise.f,v 1.24 2007-10-23 13:47:31 tforb Exp $')
c
c dimensions
integer maxtr, maxsetsamp, maxom, maxu, maxset, maxsamp
c parameter(maxu=1000, maxtr=10000, maxom=4100, maxsamp=maxom*2)
parameter(maxu=5000, maxtr=10000, maxom=4100)
parameter(maxu=10000, maxtr=10000, maxom=4100)
parameter(maxset=20, maxsamp=(maxset+1)*maxom, maxsetsamp=2*maxom)
integer ntr, nsamp, Znom, Znu, Rnom, Rnu, nset, nsetsamp
c greens function
......@@ -219,6 +219,14 @@ c
print *,' amplitude unit: m**3/s if spectrum represents'
print *,' displacement waveform in m'
print *,' '
print *,'Array dimensions:'
print *,' maximum number of frequencies: ',maxom
print *,' maximum number of slowness values: ',maxu
print *,' maximum number of offsets: ',maxtr
print *,' maximum number of sets: ',maxset
print *,' derived from this:'
print *,' maximum number of samples: ',maxsamp
print *,' '
call refmet_rcvinf
print *,' '
call gninfo
......
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