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

check SRCE and INFO in master file

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:
SVN Revision: 3883
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent f0488b8c
......@@ -307,6 +307,8 @@ c ----------------------------
& code, srctype, scs, sc1, sc2, sc3,
& date, time, ierr)
if ( stop 'ERROR: opening master file'
if (index(code,'S').eq.0)
& stop 'ERROR: master file does not contain source parameters'
call greenread(greenname, debug,
......@@ -494,6 +496,8 @@ c obtain sampling parameters for this trace from master file
& wid2line, nsampwrite, fdata,
& idata, code, last,
& cs, c1, c2, c3, nstack, ierr)
if (index(code,'I').eq.0)
& stop 'ERROR: master file does not contain receiver parameters'
tanf=sffu_tfirst(wid2line, time, date)
call checkslownesssampling(sngl(r(i)),sngl(du),om(nom))
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