CHKTRC

NAME
SYNOPSIS
DESCRIPTION
FILES
SEE ALSO
BUGS
COPYRIGHT
AUTHOR

NAME

chktrc - subroutine to examine a seismic file.

SYNOPSIS

call chktrc(iunit,icall,npts,traces,fsamin,
infil,bar,invbar,ibar,ntrace,ndim)

DESCRIPTION

Basic Seismic Utilities (BSU) subroutine which examines a seismic data set on a disk file. Call this subroutine to find out the number of traces, the sample interval, and the number of samples per trace. The subroutine also returns arguments to draw a progress bar in the main program. A progress bar provides visual feedback to the user, and indicates the relative completion of the main program.
Fortran Version
.

Arguments
iunit (int)

fortran unit number

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)

array that is used by bsegin. Required by bsegin which is called in chktrc.

fsamin (float)

sample interval in seconds

infil (char)

name of input file to be read

bar (float)

number of traces divided by 50

invbar (int)

reciprocal of bar

ibar (int)

integer conversion of bar

ntrace (int)

number of traces in the data set

ndim (int)

maximum number of samples allocated for a trace in memory

NOTE:
Trace header data are passed in a common block (see bsegy.inc include file).

FILES

infil

character variable which stores name of input file to be read.

SEE ALSO

bsegout(3), bsegin(3), bmst(1), bsegy(5)

BUGS

No known bugs.

COPYRIGHT

Copyright © 2024 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.

AUTHOR

P. Michaels, PE. <paulmichaels@.boisestate.edu>