findxyz - function to decode x,y,z coordinates of shots and receivers from headers
void
findxyz( float *sx, float *sy, float *sz, float *sd,
float *rx,
float *rx, float *ry, float *rz, float *range,
struct header hd )
Basic Seismic
Utilities (BSU) function applies appropriate scale factor
headers to integer coordinate values, converting to floating
point in unscaled, conventional units (like meters). The
shot-receiver offset, (range), is the direct,
straight line distance between the source and receiver (not
restricted to the horizontal plane). In computing the range,
the shot elvation (sz) is reduced by the shot depth
(sd). That is, if shots are buried explosives, then
sz gives the elevation of the hole at the ground
surface, and sd gives the depth to the charge. The
actual elevation of the charge is sz-sd.
C-language version.
The Fortran
version of this function is a subroutine with an additional
argument. Returned argument here, *range, is 3-D
distance between source and receiver. In the Fortran
version, before the range returned variable is
frange, which is the Fortran 3-D distance. The last
argument in the Fortran version is the 2-D rangex as
measured in the X-Y plane.
subroutine findxyz(sx,sy,sz,sd,rx,ry,rz,frange,rangex)
Fortran Version.
Arguments
*sx (float)
Pointer to shot x-coordinate.
*sy (float)
Pointer to shot y-coordinate.
*sz (float)
Pointer to shot z-coordinate.
*sd (float)
Pointer to shot depth (if any).
*rx (float)
Pointer to receiver x-coordinate.
*ry (float)
Pointer to receiver y-coordinate.
*rz (float)
Pointer to receiver z-coordinate.
*range (float)
Pointer to source-receiver offset.
hd (struct header)
Trace header as defined in c_bsegy.h
boff(1), c_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>