DOCUMENTATION

SYNOPSIS System_Variables::

 PERL PROGRAM NAME:iPicks2par.pm
 AUTHOR: Juan Lorenzo
 DATE: June 14 2019

 DESCRIPTION: 

 Purpose: write data pairs to par format for input 
	into another progam 

USE _taup_inbound =>'', _taup_outbound =>'', =head3 NOTES

Examples

SEISMIC UNIX NOTES

CHANGES and their DATES

STEPS

1. define the types of variables you are using these would be the values you enter into each of the Seismic Unix programs each of the Seismic Unix programs

2. build a list or hash with all the possible variable
   names you may use and you canSystem_Variables:: even change them

instantiate classes

declare variables types
establish just the locally scoped variables

create hash with important variables

Import file-name  and directory definitions

subroutine clear

sets all variable strings to '' 

subroutine file_in

Required file name
on which to pick x,t values

sub type

switches for old data of two different types

 for type: tx or taup

subroutine calc

 main processing flow
 reformats data 
 MAKE PARAMETER FILE
  CONVERT TEXT FILE TO PAR FILE

  In the old manner:
  $mkparfile	=  ("mkparfile	\\
	string1=t 				\\
	string2=x 				\\
	");

establish par file names

TODO if no sorting is ever needed
rm file name from $itemp_picks_sorted_par to itemp_picks

DEFINE FLOW(S)

 In the old manner (non oops):

	$flow[1] = (" 						\\
		$mkparfile[1] 					\\
		< $mkparfile_inbound[1]			\\
		>$mkparfile_outbound[1]			\\
										\\
		"); 

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