C THAN 20 CHARACTERS) OF A FILE IN WHICH IS CONTAINED A LIST OF 



C ALL FILE NAMES TO BE USED IN THE ANALYSIS. AFTER READING THIS 



C FILE NAME, JTOTL FILE NAMES ARE READ FROM THE FILE AND THE 



C PROGRAM AUTOMATICALLY OPENS THESE DATA FILES AS NEEDED. USERS 



C MUST INSURE THAT THE FILE NAME LIST FILE AND ALL DATA FILES 



C ARE AVAILABLE TO THE RUN AT EXECUTION. ONE CONVENIENT WAY 



C TO PROVIDE DATA TO THE RUN IS BY CREATING DATA AND LIST 



C ELEMENTS IN A PROGRAM FILE AND THEN CREATE AN (3ADD ELEMENT TO 



C COPY ALL ELEMENTS INTO TEMPORARY FILES BEFORE EXECUTION 



C 



C 



PARAMETER (ISIZ=7000) 



DIMENSION X(ISIZ),Y(ISIZ),Z(ISIZ),AX(ISIZ),AY(ISIZ),AZ(ISIZ), 

 1WGT(240),K1( 1000), K2(1000),K3( 1000) 

 2,FRL0W(10),FRHIGH(10),ENVEST(10),TZ(ISIZ,12) 

 3,FRMEAN(10) 

 4,ENERGY(ISIZ),TZ11(ISIZ),TZ12(ISIZ) 



EQUIVALENCE(TZ(1,11),TZ11(1)),(TZ(1,12),TZ12(1)) 



CHARACTER*20 FILE (50) 



CHARACTER*20 INFILE 

 C FRHIGH=HIGH FREQUENCY FOR DATA BANDPASS 

 C FRLOW= LOW FREQUENCY FOR DATA BANDPASS 



DATA FRLOW/. 002,. 023,. 044,. 065,. 086,. 107,. 128,. 149,. 170,. 191/ 



DATA FRHIGH/. 041,. 062,. 083,. 104,. 125,. 146,. 167,. 188,. 209,. 230/ 

 C SET FILTER PARAMETERS FOR BANDPASSES 



FILSLP=.008 



NUMFIL=50 

 C NFIT IS LENGTH OF AVERAGE OVER ENERGY ENVELOPES 



NFIT=91 



C2MAX=0.0 

 C SET PARAMETERS TO CONTROL DERIVATIVE PICKS ON SPECTRAL PARAMETERS 



SLWIN=.4 



SLWID1=1. 



SLWID2=14. 



ENWIN=400. 



ENWID1=20. 



ENWID2=100. 

 C PDEL DETERMINES THE INTERVAL OF RMS ENERGY USED FOR PROVINCE 

 C DETECTION 



P0EL=.03 

 C MIN=MINIMUM NUMBER OF POINTS ALLOWED WITHIN A PROVINCE 



MIN=91 

 C OSCALE=SCALING FACTOR( INCHES/UNIT) OF ORIGINAL DATA FOR PLOTTING 



0SCALE=-1. 

 C ESCALE= SCALING FACTOR FOR ENVELOPE UNITS 



ESCALE=.0001 



READ(5,*) JTOTL, IPL0T,IBAND,ISAVE1,ILIST, GRID, KPTS 

 3 IKONT=0 



LTPS=1000 



GRIDKM=GRID*1.852 



IF(IPLOT.NE.l) GO TO 24 

 C INITIALIZE PLOTTER 



150 



