DOCUMENTATION
SYNOPSIS
PERL PROGRAM NAME: iSunmo
Purpose: interactive sunmo
AUTHOR: Juan M. Lorenzo
DEPENDS: Seismic Unix modules from CSM
DATE: April 2 2009
DESCRIPTION: Moveout data
MODIFIED
July 24 2015 now uses oop
NOTES
INSTANTIATE PACKAGES
inherit other packages
1. Instantiate classes
Create a new version of the package
Personalize to give it a new name if you wish
Use the following classes:
establish just the localally scoped variables
hash array of important variables used within
this package
subroutine clear
to blank out hash array values
subroutine cdp_num
establishes the CDP number being worked
Also establishes'cdp'# as a recognizable suffix
for file names
subroutine file_in
gets the file name
creates the sufile name to read
creates the full path for reading the sufile
subroutine freq
creates the bandpass frequencies to filter data before
conducting semblance analysis
e.g., "3,6,40,50"
subroutine calcNdisplay
calculate semblance and display results
WINDOW DATA by shot point
WINDOW DATA by time
GAIN DATA
set filtering parameters
sub sunmo
moves out the data
DISPLAY DATA
DEFINE FLOW(S)
in interactive mode:
first time you see the image number_of_tries =0
The image is not connected to flow
second, third, etc. times number_of_tries >0
The image halts the flow
RUN FLOW(S)
output copy of picked data points
only occurs after the number of tries
is updated
LOG FLOW(S)TO SCREEN AND FILE
subroutine tmax_s
subroutine TV pick file in