•14 



18050 



18 100 

 18150 

 18200 

 18250 

 18300 

 18350 

 18400 

 18450 

 18500 

 18550 

 18600 

 18650 

 18700 

 18750 

 18800 

 18850 

 18900 

 18950 

 19000 

 19050 



19 100 

 19 150 

 19200 

 19250 

 19300 

 19350 

 19400 

 19450 

 19500 

 19550 

 19GOO 

 19650 

 19700 

 19750 

 19800 

 19850 

 19900 

 19950 

 20000 

 20050 

 20100 

 20150 

 20200 

 20250 

 20300 

 20350 

 20400 

 20450 

 20500 

 20550 

 20600 

 20650 

 20700 

 20750 

 20800 

 20850 

 20900 

 20950 

 21000 



READ( 19 , 900) dev . yr . mo , day , hr , m i n 



WRITE(4 , 901 ) dev, yr,mo,day,hr,m1n 



n=1 



DO 202 j=1.410 



READ(19,905) ( A( 1 ) . 1 = 1 , 10) , LAST 



DO 102 i = 1 , 10 

 DPV2(n) = A( i )/200.0 



102 n=n+1 



202 Continue 



READ( 20,900) dev ,yr,mo,day.hr,m1n 



WRITE(4 ,901 ) dev, yr ,mo.day ,hr ,m1n 



n=1 



DO 203 j=1,410 



READ(20,905) ( A( i ) , 1 = 1 . 10) , LAST 



DO 103 i = 1 , 10 

 DPV3(n) = A( i )/200.0 



103 n=n+1 



203 Continue 



READ( 2 1 .900) dev, yr , mo , day , hr , min 



WRITE(4 , 901 ) dev, yr ,mo.day , hr ,mtn 



n=1 



DO 204 j = 1 ,410 



READ(2 1 ,905) ( A( 1 ) , 1 = 1 , 10) , LAST 



DO 104 1=1 , 10 

 DPV4(n) = A( 1 )/200.0 



104 n=n+1 



204 Continue 



RE AD ( 22 ,900) dev, yr , mo . day , hr , m 1 n 



WRITE (4 , 901 ) dev ,yr.mo,day,hr,m1n 



n=1 



DO 205 J = 1,4 10 



READ(22,905) ( A( i ) , 1 = 1 , 10) , LAST 



DO 105 1=1 , 10 

 ABSV(n) = A( i )/200.0 



105 n=n+1 



205 Continue 



890 Formate//, 15X, ' 



900 Format(614) 



901 Format( 15x,6i4 ) 

 905 Formate 1015, 1 1 ) 



Return 

 End 



DEV YR MO DAY TIME ' ) 



SUBROUTINE PERIOD ( ab , d1 , d2 , d3 . d4 , n , icut . dT , prsp , wvnr . 

 1 freq) 



C Computes the centroid of the power spectra 

 C and reports the corresponding frequency 

 C as the "effective period". 



DIMENSION ab( 2050), d1( 2050) ,d2(2050) ,d3(2050) ,d4(2050), 

 1 prsp(2050) ,wvnr(2050) ,f req(2050) 



