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:     http://gpitrsvn.gpi.uni-karlsruhe.de/repos/TFSoftware/trunk
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 (ierr.ne.0) stop 'ERROR: opening master file'
if (index(code,'S').eq.0)
& stop 'ERROR: master file does not contain source parameters'
endif
c
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'
r(i)=sffu_offset(cs,c1,c2,c3,scs,sc1,sc2,sc3)
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