DOCUMENTATION

SYNOPSIS

 PERL PERL PROGRAM NAME: Sucat_config.pm 
 AUTHOR: Juan Lorenzo
 DATE: June 23 2016 
 	   April 10 2018
	
 DESCRIPTION Combines configuration variables
     both from a simple text file and from
     from additional packages.

 USED FOR 
      Upper-level variable
      definitions in Sucat 
      Can do sets of files with numerically
      sequential  names,
      such as 1000.su, 1001.su, 1002.su etc.
      Seismic data is assumed currently to be in
      su format.

 Version 1  Based on linux command "cat"
 Version 2 based on Sucat.pm June 29 2016
    Added a simple configuration file readable 
    and writable using Config::Simple (CPAN)
 Version 2.1 chnaged local configuration file name 
 	from Sucat2.config Sucat.config 
 Version 2.2 derives from Sucat_config.pl
 	and removes dependency on Config::Simple (CPAN) 
     
   
 Notes: Simple configuration files is Sucat.config

Notes from bash

 cat file1 file2 >output file

LOCAL VARIABLES FOR THIS PROJECT

One example""
uncomment the following 3 lines if you need them, while
commenting out the last few lines as well
This package uses a list OR a continuous sequence of define 
numieric names.

#$number_of_files_in	= 10;
#$first_file_number_in  	= 1;
#$last_file_number_in  	= 10;

      Common to all data files
$input_suffix  	= '.su';

		Path to directory list
$list_directory       = '.';

		One-line or  multi-line list with sepcific 
		file names
		but without an extension or suffix
$list                 = 'cat_list_good_sp';

		Catted file name
$output_file_name     = 'All_good_sp';

Another example:
first_file_number_in   = 1000  a numerical value,
last_file_number_in    = 1010  a numerical value,
number_of_files_in     = 11    a numerical value,
#output_file_name    = 1001_10 
output_file_name    = 1000_10 
#output_file_name    = All_good_SH_B4diff 
#output_file_name    = SH_from_SW 
#output_file_name    = SH_from_NE 
input_suffix        =  '_clean.su' 
#list               = list_good_shot_numbers
#list               = list_good_shot_numbers
#list               = list_good_SP_from_SW
data_type			  =
#list               = list_good_SP_from_NE
list_directory= ./ 

private hash

sub get_max_index

max index = number of input variables -1