PROG't^AM nnVFOi^CaC INPUT, TAPE! , OUTPUT .PUNCH » 



i(2),I0REC(2T .GdOl ),HMAX(2),HMiN<2l,TU2>,T2<2 5,MP<l50>,XTl 



INTEGER LABEL(8) 

 : SET TEST CONDITIONS 

 CL»,001 

 01 As. 3333 

 XC».9l7 

 0-2.797 

 : READ IN DIGITIZED DATA 

 WAVE CATA IS IN FT. 

 FORCE DATA IS IN lO-GRAMS 

 CALL NOflLOKd) 

 8 READ 1 .ANGLE 

 1 FO«MAT(F2.0) 



IFC ANGLE.LT.O. ) JO, 1 I 

 11 PEAO(l) LABEL 

 NRECS=LABEL( 8) 

 PRINT 200 

 200 FORMAT( IHl ) 



PRINT 999, LABEL 

 999 FCBMATJIX.TAIO, I5//> 



REAO( 1 > NCHAN,IDREC,OELTA,NSAMP,FI 

 L»LENGTH(1) 



READIIJ NCHAN.IDREC.DELTJ^^WSAMP.MI 

 L=LENGTH(1) • 



REAOd ) 



IF(EOF< n.EQ.O. )STOP 1 

 ; DETERMINE WAVE HEIGHT 



I- I 



401 IF<HI ( I ).LT.O* )404,403 

 4QJ l-ll-lO 



GO TO 401 



402 IF(MI( I J.GT.O. )416,404 

 404 |xl*i • 



. GO TO 402 

 416 M1»I 

 425 HMAX(N>x0. 



I«l*7 



lEUlitD.GT.Q. ) 415.404 



415 IF(HI( I ).GT.HMAX(N) (407,406 

 407 HIMAX<N»=HI < I ) 



XT UN) « I 

 406 1=1 ♦! 



IF(HI( I ).GT.O. i4 15,430 



430 GO TO (431 ,413) ,N 



431 HMtN(N)=0. 

 I«J»-7 



411 IFIHI ( I ).LT.HMIN(N) )432,410 



432 HMIN<N)=HI ( I ) 

 410 IsIM 



IFtmil ).LT.O. )411,433 



433 N>N»1 



GO TO 425 



145 



