SUNT VfliiO'^ Ft8 7<f 3 17:12 J<r/23/76 



lii5 PRINT 270. NL. «I(1.NL». RI(?.NL1. le^lML). V'^ ( NL ) 



1143 PRINT 2ai 



n't? 281 FORMAT <//10X, ♦POSITIONS FQk WAVP HFTG^T C 4LCUL A TI0>1S*/ ) 



il<»7 2B0 FOhMAT (//) 



li<.7 IF (NW .LT. 1) Gl TO ?90 



il5? PPINT 271. (I,RI(l.I).RI(2,I).X(n.V( t), T-NiJBD.NTQP) 



1204 271 FDf<MAT( <.15» 2(10X. 2F10.3)) 



1204 PPINT 280 



1210 ^''O H • :■* * Hn * 2 



^♦♦♦♦♦TRANSFER TO CClORDINATf SYSTfrt IN cp = F <;IIPCAC^ 



1213 00 2e5 I • l.N 



i214 YB(H = YR(I) - 0/8 



1222 2a5 Yd) • Yd) - D/fl 



1233 YP(NUP) » Y^(NUO) - U/fl 



C COMPUTE FACTORS OF I ANO K INDtPENOANT IF CBFO'IENCY 



1242 CALL COdFF 



1243 Y5.URF • -l.Ot-08 * 3 



C... START FREQUENCY ITt'JATinN. 



1245 DO 301 IL • 1. NWAVcL 



1247 K ' wNtU) 



C ALL POTENTIALS INITIALIZED TO ZERT. 



(^♦♦♦♦♦FE(I,j) I NONDIMENSIONAL AMPLITL'O"^ 1= POTFNTTAL AT POINT T OUF T" 

 C«****MaDE J. (ASSOSIATED WITH CaS(WT) ). FTd.J) IS SIMILAR TO F?(I.J) 

 C*«***6L'T ASSOSIATEO WITH SIS(WT). J = 1. •>. ^. *. 5, «. Ii-PLY RESPECTTVFLY 

 C*****Sl.AY. HEAVE. ROLL. OIF^ACTEO. INCTOFNT ANO OTFRACTED + INTTDPNT 



1252 00 1 I'l,25 



1253 DC 1 J ■ 1.6 



1254 Ft(I»J)«0. 

 1261 F1(I.J)='0. 

 1265 1 CONTINUE 



C***AOn POINTS TO THE OFFSET ARRAY FOUR WA VFl c NGTH"? FROM THE OPTGIN 



C ON THE FREE S'JRFACF 

 1271 X(N + 1) •= 4.0 * WA\/ELtIL)/8 



1300 X<N+2) « -4.0 * WAV£L(IL)/8 



1307 Y(N+1) = YSURF 



1312 Y(N+2) ■ rSURF 



C***CaMPUTE INCIOENT WAVE POTENTIALS AND »JTPMiL VELOCITIFS 



1316 DO 4C2 1 = l.M 



1317 D0404 IC » 1.5 



1320 404 IF(I .EO. JCCIO) GO TO 402 



1326 EY « EXP(K*Y(T) ) 



1335 CKX = COS(K*X(I ) ) 



1344 SKX • SIN(K*X(I)) 



1353 IF(I .GT. N) GO Tl 4^3 



1356 FEIN(X) » EY*(SS3< I)*SKX ♦ CC3 ( I )♦'"'< X ) 



1370 FIIN(I) •-EY+tSSSdJ'CKX - CC3(I)*<^<X) 



1403 403 FE(I.5) = EY*CKX*(1./K) 



1414 Fid. 5) = fcY*SKX«(l./Kj 



1424 402 CDNTINUt 



1427 AK = K/B 



1431 WRF • igRT(GtE*AK) 



1436 WF = WSF/TP 



1440 I.T « 1.0/WF 



1441 PRINT 30C. K, wRF, *F, WT. WAVELtTL) 



1460 300 FORMAT (//. ♦ WAVE NUMBER • K «♦. CQ.5. 5X*CTi?Ci)L AR FREO'JFMCY •♦. 



1 F9.5. 5X*FREQU£NCY =*, F9.3. '5X*l>FRTT0 =♦, Fli.,.5. 



Table D-2. Continued 



114 



