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

correction

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: 2284
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 49b14a9b
c this is <gresynoise.f>
c ----------------------------------------------------------------------------
c ($Id: gresynoise.f,v 1.6 2007-05-15 16:05:16 tforb Exp $)
c ($Id: gresynoise.f,v 1.7 2007-05-15 16:06:37 tforb Exp $)
c
c Copyright (c) 2007 by Thomas Forbriger (BFO Schiltach)
c
......@@ -23,7 +23,7 @@ c
&'GRESYNOISE V1.3 calculate noise seismograms')
character*(*) GRESYNOISE_CVS_ID
parameter(GRESYNOISE_CVS_ID=
&'$Id: gresynoise.f,v 1.6 2007-05-15 16:05:16 tforb Exp $')
&'$Id: gresynoise.f,v 1.7 2007-05-15 16:06:37 tforb Exp $')
c
c dimensions
integer maxtr, maxsamp, maxom, maxu
......@@ -107,7 +107,7 @@ c
if ((greenname(1:5).eq.'-help').or.(iargc().lt.5)) then
print *,version
print *,'Usage: gresynoise Zgreen Rgreen Zseis Rseis rcvfile'
print *,' [-l lambda] [-o]'
print *,' [-l lambda] [-o] [-n n]'
print *,' [-t frac] [-e exp] [-r]'
print *,' [-S] [-1] [-2] [-i]'
print *,'or gresynoise -help'
......
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