«>ABS(FHIN) 



C»AB${FM)«) 



B>*MAX1(*,C> 



BB'35./B 



OO 31 L = l ,1 01 



31 CONTINUE 



OO 32 1=1,40 



FM( I )«COh4iFDH*Z( I)-CMH*FMH«P( I I 



BESd > »FP( I >-FH« I) 



G( SI )xlHI 



J»S1.*BB«FP< I » 



K«51.*38*FH( I J 



L»5lt»BB*ReS( I ) 



G( J)>1H4> 



C(Lt-IH. 



PRINT 100|FP(ti^rH(X>|RE$( n.C 

 too FORMATt 1HZ,3F10*S,101AI/) 

 G( J)«IH 

 G(K)>IH 

 GtL)"lH 

 32 CONTINUE 



GO TO S 

 10 CONTINUE 

 EMQ . „ 



SUBROUTINE MAVEL ( T , O , XL ) 

 B"32.2*T«T/6.2e3185 

 TPD'6. 293185*0 

 - IFCB-TPOJ 2,2t3 

 DEEP WATER INITIAL ESTIMATE FOR WAVELENGTH 



2 XL«8 



GO TO « 

 SHALLOW WATER IMlTIAt ESTIMATE FOR WAVEUEN6T.H 



3 XL«T*SQRTC0*32.2) 



4 XLXsXL 

 XL»B*TANH(TPO/XLX) 

 1F(ASS (X|.X-XL)-»005)S,4,4 



5 RE TURN 

 END 



152 



