surefcon.c

su 的源代码库

/* Copyright (c) Colorado School of Mines, 2006.*/
/* All rights reserved.                       */

/* SUREFCON: $Revision: 1.4 $ ; $Date: 2005/04/20 16:37:05 $	*/

#include "su.h"
#include "segy.h"
#include "header.h"
/*********************** self documentation **************************/
char *sdoc[] = {
"									",
" SUREFCON -  Convolution of user-supplied Forward and Reverse		",
"		refraction shots using XY trace offset in reverse shot	",
"									",
"	surefcon <forshot sufile=revshot  xy=trace offseted  >stdout	",
"									",
" Required parameters:						 	",
" sufile=	file containing SU trace to use as reverse shot		",
" xy=		Number of traces offseted from the 1st trace in sufile	",
"									",
" Optional parameters:						 	",
" none								 	",
"									",
" Trace header fields accessed: ns					",
" Trace header fields modified: ns					",
"									",
" Notes:								",
" This code implements the Refraction Convolution Section (RCS)	method	",
" of generalized reciprocal refraction traveltime analysis developed by ",
" Derecke Palmer and Leoni Jones.					",
"									",
" The time sampling interval on the output traces is half of that on the",
" traces in the input files.		  	",
"									",
" Example:								",
"									",
"	 surefcon <DATA sufile=DATA xy=1 | ...				",
"									",
" Here, the su data file, \"DATA\", convolved the nth trace by		",
" (n+xy)th trace in the same file					",
"									",
"									",
NULL};

/* Credits: (based on suconv)
 *	CWP: Jack K. Cohen, Michel Dietrich
 *	UNSW: D. Palmer, K.T. LEE
 *  CAVEATS: no space-variable or time-variable capacity.
 *	The more than one trace allowed in sufile is the
 *	beginning of a hook to handle the spatially variant case.
 *
 * Trace header fields accessed: ns
 * Trace header fields modified: ns
 * Notes:
 * This code implements the refraction convolution 
 * section (RCS) method
 * method described in:
 *
 * Palmer, D, 2001a, Imaging refractors with the convolution section,
 *           Geophysics 66, 1582-1589.
 * Palmer, D, 2001b, Resolving refractor ambiguities with amplitudes,
 *           Geophysics 66, 1590-1593.
 *
 * Exploration Geophysics (2005) 36, 18