C THtTABiBHEAKlNG "*VE ANGLS 



C «SUMi«8UM OF 8QUARB8 Of DATA HJNUOH MODIFItO TIME SERIES 1 



C rtSUMgatUM OF SQUARES OF DMA WINDOW MOOIMtD TIME SERIES 2 



P1«J.1«!I9265 



TWUP1»2.0*PI 



K«lo 



N»2,»»K 



8*80.0 



DELTTM.OO 



BETA»1.5708 



SLUPfcBQ.oj 



BAMMAatU.e 



di2.5 



M»r<.l 



NUgaN/J 



SBau.re 



B»J2.2 



GBP»u.7« 



HIGH FHEQ CUTOFFPS.O SEC 



8PACIAL ALIASING CUTOFF»Ji« SEt 



NLUMLUW FREUUENCY CUTOFF NU*B£R 



NYFR«HJ,GH FREQUENCY CUTOFF NUMbER 



NSAUFRiSPAClAL ALIASING FREQUENCY CUTOFF NUMBER 



FREQUENCY CUTOFF NUMBER»TIME SERIES LENGTH/CUTOFF PERIOO 



NLUmiso 

 NYFR«3a» 

 NSALFRiSOt 

 NSMt»N8ALFR»l 

 110 CUNTINUE 



INITIALIZING VALUES 



bLFRbQsO.O 



8UDD«0.0 



bMfRtQ»0.0 



SUMENao.O 



8UM|»o, 



SUM2S0. 



8UHF1«0, 



III 



5UMF2D0. 

 uSUMloO.O 

 hSUM£«o.O 

 A V L. 1 ■ . 

 AVU2»0,0 



120 



125 



PLP08«0.0 



PLNEG«0.0 



PLNEI»0.0 



8HG2»0,0 



DU 29 I«ltN 



F11(I)«0.0 



F2K1XO.0 



2V CONTINUE 



OU Ju I>liN02 

 F«UDSQ( I)«0.0 



50 CONTINUE 



THIS PORTION OF PROGRAM READS IN WAVE PRESSURE VALUE8 INTO F 1 R, F2R AhRAYS 

 AND ASSURES MATCHING DATE GRUUPS FUR DIRECTIONAL WAVE ANALYSIS OF TWO 



CALL BUF(MGAGE1,M0NTH1,MI)AY1»MTIME1,F1R .IDATtl.tNO) 



IF(ENO) GO TO 1 



CALL BuF(MGAGE2|MONTH2,M0AYi.MlIME2,F2H .I0ATE2.EN0J 



IF(END) GO TO 1 

 IF(IDATI1.EQ.I0ATE2) GO TO 120 



Figure 2. Listing of main program. — Continued 



15 



