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

proceeding

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: 2289
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent ea822d6b
c this is <gresynoise.f>
c ----------------------------------------------------------------------------
c ($Id: gresynoise.f,v 1.10 2007-05-24 14:38:21 tforb Exp $)
c ($Id: gresynoise.f,v 1.11 2007-05-24 14:40:32 tforb Exp $)
c
c Copyright (c) 2007 by Thomas Forbriger (BFO Schiltach)
c
......@@ -48,7 +48,7 @@ c
&'GRESYNOISE V1.4 calculate noise seismograms')
character*(*) GRESYNOISE_CVS_ID
parameter(GRESYNOISE_CVS_ID=
&'$Id: gresynoise.f,v 1.10 2007-05-24 14:38:21 tforb Exp $')
&'$Id: gresynoise.f,v 1.11 2007-05-24 14:40:32 tforb Exp $')
c
c dimensions
integer maxtr, maxsetsamp, maxom, maxu, maxset, maxsamp
......@@ -570,8 +570,9 @@ c ------------------
if (ierr.ne.0) stop 'ERROR: opening seismogram file'
c prepare wid2line
if (debug) print *,'go and write',nsamp
call sff_prepwid2(nsamp, 1./dt, 'NSP', 1999, 4, 18, 0, 0, 'NSP ',
& 'NSP ', 'NSP ', 0., -1., -1., -1., -1., wid2line, ierr)
call sff_prepwid2(nsamp, 1./dt, 'NSP ', 1999, 4, 18, 0, 0,
& 'NSP ',
& 'NSP ', 'NSP ', 0., -1., -1., -1., -1., wid2line, ierr)
if (ierr.ne.0) stop 'ERROR: preparing WID2 line'
call sff_WTraceI(lu, wid2line, nsamp, Zfdata, Zidata, last,
& cs, c1, c2, c3, nstack, ierr)
......
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