FOrtTRAN TO ALGOL THANSLATOH 

 PMASE 1 fDRTRAN STATEMENTS 



C LISTING OF AN IBM 70a FORTRAN PROGRAM FOR DIRECTIONAL WAVE ANALYSIS. 

 C nssO-? C BENNETT JULY 1<J67 SWOC 78-301-8210 



C REQUEST-026e 



C LEAST SQUARE SINr.LE WAVE TRAIN FIT AFTER MUNK 



DIMENSION IDCm.Fg(l00)'WN(100)»PERl0DCl00)*WAVLGH(100)>THMAX(100 

 X5.DEPATN(100)»AVEP(lOO)»PclOO»6»6)»EMAX(100)'TEM(ia6) 



DIMENSION D(6.6).PSI(6,6),E(100,725,THETA(72),DEC73),THZS0C1A6), 

 XH(100)*H1(100)»H9(100) ,0000(6) 



DIMENSION DATA (1000) 



E2TEN=0, 43629448 



TW0PI=6, 281653 



RTD»S7. 29576 



DTRsO, 0174532925 



F1V»0, 087266465 



REWIND 3 



REWIND 9 



CALL PLOTS(DATA(10r)0)»1000) 



CALL PLOT(0.0»-3O.O>-3) 



CALL PL0T(?.S,2.5*-3) 



00 5 I«l*72 



?Ia(I-l)*5 

 5 THETA(I)3ZI*0TR 



B-2 



