DOCUMENTATION
SYNOPSIS
ccmpcc Hayashi and Suzuki, 2013
PERL PROGRAM NAME: ccmpcc.pm
AUTHOR: Juan Lorenzo
DATE: Dec. 2021
DESCRIPTION
BASED ON:USE
NOTES
offsets are -1 off their mark so that suaddhead inputs the correct value into the headers... TODO ... don't understand why yet.
Examples
SEISMIC UNIX NOTES
CHANGES and their DATES
Notes from bash
declare libraries
instantiate modules
define local variables
define private hash to share
sub clean
delete a pre-existing file directory of a file
sub clear all memory
sub get_cmp_x_m_aref4cc
For a SINGLE SP gather, build cmp index and value arrays for a correlation of a specific trace against all the rest The specific trace varies so all combinations are estimated
print("cmpcc,get_cmp_x_m_aref4cc, cmp_x_m_array2= @{$cmp_x_m_array2[$geo_ref]}\n"); print("cmpcc,get_cmp_x_m_aref4cc, geo_ref=$geo_ref \n"); print("cmpcc,get_cmp_x_m_aref4cc, every = $every\n"); print("cmpcc,get_cmp_x_m_aref4cc, cmp_x_m = $cmp_x_m[$geo_ref][$every]\n");
sub get_cmpcc_spread_m
geometry values
sub get_cmpcc_x_inc_m
geometry values
sub get_geo_number_of
geometry values
sub get_geo_x_m_aref
geometry values
sub get_geo_x_m_aref4cc
geometry values
sub get_offset_x_m_aref4cc
For a single SP gather, build offset for all the following combinations: 24 geophones, combined 2 at a time
print("cmpcc,get_offset_x_m_aref4cc, geo_ref=$geo_ref; every=$every; offset = $offset_x_m[$every]\n"); print("cmpcc,get_offset_x_m_aref4cc,geo_ref=0; offset = @{$array_ref2[0]}\n"); print("cmpcc,get_offset_x_m_aref4cc,geo_ref=1; offset = @{$array_ref2[1]}\n"); print("cmpcc,get_offset_x_m_aref4cc,geo_ref=1; offset = @{@{$cmpcc->{_offset_x_m_aref4cc}}[1]}\n");
sub get_sp_x_m_aref
geometry values
sub get_sp_x_m_aref4cc
geometry values
sub set_sp_gather_geom
write out a single sp gather's geometry values for 24x24=576 possible cross-correlation cases
sub set_appendix
set file for catting
sub set_base_file_name_gx
sub set_base_file_name_sx
sub set_cat_base_file_name_out
sub set_delete_base_file_name
sub set_cat_su
append individual output files to a major product file
SYNOPSIS
PERL PROGRAM NAME:
AUTHOR:
DATE:
DESCRIPTION:
Version:
USE
NOTES
Examples
SYNOPSIS
SEISMIC UNIX NOTES
CHANGES and their DATES
Declare
local variablesSet up
cat_su parameter valuesSet up
data_out parameter valuesDEFINE FLOW(s)
RUN FLOW(s)
LOG FLOW(s)
to screen and FILEsub set_cat_txt
append individual output files to a major product file
SYNOPSIS
PERL PROGRAM NAME:
AUTHOR:
DATE:
DESCRIPTION:
Version:
USE
NOTES
Examples
SYNOPSIS
SEISMIC UNIX NOTES
CHANGES and their DATES
Declare
local variablesSet up
cat_txt parameter valuesSet up
data_out parameter valuesDEFINE FLOW(s)
RUN FLOW(s)
LOG FLOW(s)
to screen and FILEsub set_loaded_w_headers_base_file_name_line_out
sub set_data
SYNOPSIS
PERL PROGRAM NAME: set_data.pm
AUTHOR:
DATE:
DESCRIPTION:
Version:
USE
NOTES
Examples
SYNOPSIS
SEISMIC UNIX NOTES
CHANGES and their DATES
Declare
local variablesSet up
data_in parameter valuesSet up
suwind parameter valuesSet up
data_out parameter valuesDEFINE FLOW(s)
RUN FLOW(s)
LOG FLOW(s)
to screen and FILEsub set_data_base_file_name_in
sub set_data_base_file_name_out
sub set_ep_idx
sub set_ep_number_of
sub set_filter
SYNOPSIS
PERL PROGRAM NAME: set_filter.pm
AUTHOR:
DATE:
DESCRIPTION:
Version:
USE
NOTES
Examples
SYNOPSIS
SEISMIC UNIX NOTES
CHANGES and their DATES
Declare
local variablesSet up
data_in parameter valuesSet up
suwind parameter valuesSet up
data_out parameter valuesDEFINE FLOW(s)
RUN FLOW(s)
LOG FLOW(s)
to screen and FILEsub set_filter_base_file_name_in
sub set_filter_base_file_name_out
sub set_first_geo_idx
geometry values
sub set_first_geo_x_m4calc
geometry values
sub set_first_line
geometry values
sub set_geo_number_of
sub set_geo_x_m_aref
geometry values
sub set_geo_x_m_aref4cc
Assemble gx data for correlation across a sp 24choose2 = 276 traces
sub set_loaded_geometry_headers
SYNOPSIS
PERL PROGRAM NAME:
AUTHOR:
DATE:
DESCRIPTION:
Version:
USE
NOTES
Examples
SYNOPSIS
SEISMIC UNIX NOTES
CHANGES and their DATES
Declare
local variablesSet up
data_in parameter valuesSet up
sulhead parameter valuesSet up
data_out parameter valuesDEFINE FLOW(s)
RUN FLOW(s)
LOG FLOW(s)
to screen and FILEsub set_geom4calc
Build geophone index and value arrays
sub set_geom4data
Read geophone and shot locations
sub set_geo_spread_m4calc
geometry values
sub set_geo_x_inc_m4calc
geometry values
sub set_header_word
sub set_last_geo_x_m4calc
geometry values
sub set_last_line
geometry values
sub set_line_geometry_base_file_name
Name of file to read
sub set_sp_x_m_aref
geometry values
sub set_sp_x_m_aref4cc
Assemble sp data for correlation across a sp 24choose2 = 276 traces
sub suffix_type
geometry values
sub set_suwind_max_header_value
geometry values
sub set_suwind_min_header_value
geometry values
sub set_suwind_skip
geometry values
sub set_tracl_order
SYNOPSIS
PERL PROGRAM NAME:
AUTHOR:
DATE:
DESCRIPTION:
Version:
USE
NOTES
Examples
SYNOPSIS
SEISMIC UNIX NOTES
CHANGES and their DATES
Declare
local variablesSet up
data_in parameter valuesSet up
sushw parameter valuesSet up
data_out parameter valuesDEFINE FLOW(s)
RUN FLOW(s)
LOG FLOW(s)
to screen and FILEsub set_tracl_order_base_file_name_in
geometry values
sub set_tracl_order_base_file_name_out
geometry values
sub set_suxcor
SYNOPSIS
PERL PROGRAM NAME: set_suxcor.pm
AUTHOR:
DATE:
DESCRIPTION:
Version:
USE
NOTES
Examples
SYNOPSIS
SEISMIC UNIX NOTES
CHANGES and their DATES
Declare
local variablesSet up
data_in parameter valuesSet up
suxcor parameter valuesSet up
data_out parameter valuesDEFINE FLOW(s)
RUN FLOW(s)
LOG FLOW(s)
to screen and FILE