The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
 / 
App-SeismicUnixGui-0.87.1
River stage zero No dependents
++
/ App::SeismicUnixGui::misc::cmpcc

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 variables

Set up

        cat_su parameter values

Set up

        data_out parameter values

DEFINE FLOW(s)

RUN FLOW(s)

LOG FLOW(s)

        to screen and FILE

sub 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 variables

Set up

        cat_txt parameter values

Set up

        data_out parameter values

DEFINE FLOW(s)

RUN FLOW(s)

LOG FLOW(s)

        to screen and FILE

sub 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 variables

Set up

        data_in parameter values

Set up

        suwind parameter values

Set up

        data_out parameter values

DEFINE FLOW(s)

RUN FLOW(s)

LOG FLOW(s)

        to screen and FILE

sub 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 variables

Set up

        data_in parameter values

Set up

        suwind parameter values

Set up

        data_out parameter values

DEFINE FLOW(s)

RUN FLOW(s)

LOG FLOW(s)

        to screen and FILE

sub 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 variables

Set up

        data_in parameter values

Set up

        sulhead parameter values

Set up

        data_out parameter values

DEFINE FLOW(s)

RUN FLOW(s)

LOG FLOW(s)

        to screen and FILE

sub 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 variables

Set up

        data_in parameter values

Set up

        sushw parameter values

Set up

        data_out parameter values

DEFINE FLOW(s)

RUN FLOW(s)

LOG FLOW(s)

        to screen and FILE

sub 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 variables

Set up

        data_in parameter values

Set up

        suxcor parameter values

Set up

        data_out parameter values

DEFINE FLOW(s)

RUN FLOW(s)

LOG FLOW(s)

        to screen and FILE

sub set_shove_geom

sub set2shove_pt1

sub set2shove_pt2

sub set2shove_pt3

sub set2shove_pt4

sub set2shove_pt5

sub set4loading_base_file_name_line_in

sub set4shove_line_geom_base_file_name_out

sub set4shove_sp_gather_geom_base_file_name_out