Commit 85850918 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: 2282
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent a35e1cab
c this is <gresynoise.f>
c ----------------------------------------------------------------------------
c ($Id: gresynoise.f,v 1.4 2007-05-11 08:44:02 tforb Exp $)
c ($Id: gresynoise.f,v 1.5 2007-05-15 14:59:32 tforb Exp $)
c
c Copyright (c) 2007 by Thomas Forbriger (BFO Schiltach)
c
......@@ -22,7 +22,7 @@ c
&'GRESYNOISE V1.2 calculate noise seismograms')
character*(*) GRESYNOISE_CVS_ID
parameter(GRESYNOISE_CVS_ID=
&'$Id: gresynoise.f,v 1.4 2007-05-11 08:44:02 tforb Exp $')
&'$Id: gresynoise.f,v 1.5 2007-05-15 14:59:32 tforb Exp $')
c
c dimensions
integer maxtr, maxsamp, maxom, maxu
......@@ -154,6 +154,7 @@ c
endif
if (iargc().lt.3) stop 'ERROR: need more arguments'
c
call getarg(1, greenname)
call getarg(2, Rgreenname)
call getarg(3, Zseisname)
call getarg(4, Rseisname)
......@@ -179,6 +180,17 @@ c
if (optnsamp) read (optarg(11), *, err=99) argnsamp
c
pi2=2.d0*pi
c
c----------------------------------------------------------------------
c
if (debug) then
print *,'greenname: ',greenname(1:index(greenname, ' ')-1)
print *,'Rgreenname: ',Rgreenname(1:index(Rgreenname, ' ')-1)
print *,'Zseisname: ',Zseisname(1:index(Zseisname, ' ')-1)
print *,'Rseisname: ',Rseisname(1:index(Rseisname, ' ')-1)
print *,'rcvname: ',rcvname(1:index(rcvname, ' ')-1)
endif
c
c----------------------------------------------------------------------
c read configuration and greens function
c
......
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