SYNOPSIS

PERL PROGRAM NAME:

AUTHOR: Juan Lorenzo (Perl module only)

DATE:

DESCRIPTION:

Version:

USE

NOTES

Examples

SYNOPSIS

SEISMIC UNIX NOTES FTNUNSTRIP - convert C binary floats to Fortran style floats

 ftnunstrip <stdin >stdout 					



 Required parameters:						

 	none							



 Optional parameters:						

 	n1=1		floats per line in output file 		



 	outpar=/dev/tty output parameter file, contains the	

			number of lines (n=)			

 			other choices for outpar are: /dev/tty,	

 			/dev/stderr, or a name of a disk file	



 Notes: This program assumes that the record length is constant

 throughout the input and output files. 			

 In fortran code reading these floats, the following implied	

 do loop syntax would be used: 				

        DO i=1,n2						

                 READ (10) (someARRAY(j), j=1,n1) 		

        END DO							

 Here n1 is the number of samples per record, n2 is the number 

 of records, 10 is some default file (fort.10, for example), and

 someArray(j) is an array dimensioned to size n1		





 Credits:

	CWP: John Stockwell, Feb 1998,

            based on ftnstrip by: Jack K. Cohen

User's notes (Juan Lorenzo) untested

CHANGES and their DATES

Import packages

instantiation of packages

Encapsulated hash of private variables

sub Step

collects switches and assembles bash instructions by adding the program name

sub note

collects switches and assembles bash instructions by adding the program name

sub clear

sub i

sub j

sub n

sub n1

sub outpar

sub get_max_index

max index = number of input variables -1