bsegin - subroutine to read a seismic trace
call bsegin(iunit,ndim,icall,npts,traces,fsamin,infil,jrec,iexit)
Basic Seismic
Utilities (BSU) subroutine which reads a seismic trace.
Fortran Version.
Arguments
iunit (int)
fortran unit number
ndim (int)
maximum number of samples allocated for a trace in memory
icall (int)
=0 on first call, will open file, infil
=1 on second and later calls,
assumes infil already open
npts (int)
number of samples in a trace
traces (float)
name of array in which samples to be stored, dimension ndim.
fsamin (float)
sample interval in seconds
infil (char)
name of input file to be read
jrec (int)
trace number to be read (direct access)
iexit (int)
=1 if tried to read past end of file
=0 if not at end of file
NOTE:
Trace header data are passed in a common block (see
bsegy.inc include file). Thus, header data do not appear in
the argument list.
|
infil |
character variable which stores name of input file to be read. |
bsegout(3), chktrc(3), bmst(1), bsegy(5)
No known bugs
Copyright © 2017 by Paul Michaels
This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
P. Michaels, PE. <pm@cgiss.boisestate.edu>