RUNT VERSION FEB 74 8 17:12 0<»/23/76 



375 II « I - N 



C«4>4>*«NON DIMENTI0NALIZ6 FREE SURFACE POSTTTTM WTTH WAVELENGTH 

 377 XQL(II»IL) ■ X(I) ♦ B/ WAVEKIL) 



410 00 2 Ml < 1,6 



C«**«*WAVE AMPLITUDE ANO PHASE AT POINT TT !)U= TO MODE Ml AT WAVELENGTH 

 412 HW8<II,M1,1L) ■= SQRTtFe(I»Ml)**2 ♦ FT(T.Ml)**2» ♦ K 



443 2 DELW(II,M1,IL) * ATAN2(-FI ( I,M1)» =E(I."<1)) 

 470 30 CONTINUE 



472 7 RETURN 



473 END 



Table D-2. Continued 



126 



