80 CONTINUE 



SSQ=AVEPCL)*AVEP(L5*2.0*SUM 



H(L)»SSQ-TERMS*E*^AX(L)*EMaXCL) 



ATILOAaAVEPCLX/TWdPI 



HTILOAcSSQ-ATILDA*ATlLOA*TERMS 



HlCL)=1.0-(h(L)/MTlLDA) 



H2CL)»(EMAX(L)-ATILDA)/CAVEP(L)-ATIL0A) 



IFCSENSE SWITCH 1)99. TO 

 99 PRINTS, TERMS. EM4X(L),ATILDA*HTILQA 



7 FDRMAT(lX»r5.l.lP3En.4 ) 

 70 CONTINUE 



PRINT 3.CID( Do 1 = 1.11 ) .(GGODC I)' I = 1.6).M 



3 P0RMAT(1H1,39HLEAST SOUARE SINGLE WAVE TRAIN FIT OF ,llAb/ 

 X1X»6F2,0»2X*2HM=I3// 



X3X.9MFREQLlENCY'5X.6HPERI0D'3X»llH'/4VE LEMGTh.1X.11HATTEnUaTI0N.«X» 

 X5HAVE P,8X,lHA,10X»5HeRNG , aX. 1HH» 1 2 X» 2HH 1 , 1 OX, 2HH2 ) 



PRINT 4,crQ(L),PE«lOr)CL)»WAVLGHCL),DEPATN(L),AVEP(L).EMAX(L). 



XTHHAXCL)»H(L).Hl(L)fH2(L)»L=2.MP) 



4 FORMAT(1X,OPF11,7.3X.OPF9,5»IX.OPF11.4»1X,1PE11.4, 



X 1X,IPE11.A/1XM'*E11.4,3X,0PF7,2*3X.1PE11.4»4X,0PF6.3.6X.0PF6.3 ) 

 OQ llO L=2.MP 



AVEPCL)=E2TtN*LQGF(A8SF(AvEPtL))) 

 EMAX(L)=E2TEN*L0GF(:ABSF(EMAX(L))) 

 110 iJAVLGHCL)=EMAX(L)-E2TEN*LDGFCABSFCDEPATNCL))) 



B-9 



