RUNT Vb-ISION Pte Tf q 17!12 04/23/76 



531 lib COMI.^iUE 



;,**«*COMPUTe (e/w4i/tL) AMD NONDIIENSnw&L WAVF NO. 



533 DO 11.5 IL = 1. N^AVtL 



534 6GL(IL) • B/WAVELdL) 



541 115 WNtILI» TP * 8/ ^AV£L(IL) 



C***PEAD IN OFFSETS QF CYLINOER 

 551 NUP - N + 1 



553 NUP" = NUP + Z 



555 NTDP » NUPP + NW - 1 



557 Nl = N + 1 ♦ NW 



561 PEAO 130. (RKlf I ).!^ t (2. I)» I»1»NUP) 



603 130 FOkMAT (2F10.5) 



C kI(l,I),RI(2.I) = DlfENSIONAL X, Y CmROINATE OP OFFSFT 



C POINTS, RESPcCTIVELY 



6J3 IP (NW .LT. 1) GJ TO ]95 



C***R£AD IN AOOiriONAL POINTS ON THE FRPT SMRFATF WHERE WAVE HFTr,HT<; 



C ARE TO BE COMPUTFr). TwU STORAGE LO^ATTTN'; MUST BE LEFT PLANK 



C FDR THE POSITION 4 WAVELENGTHS FROM THE S^nv 

 606 READ 130> ( Rl ( 1 , I ) .R X ( 3, I ) # I'NUPP. NTIP ) 



C RI(l,n»RI(2.I> = COORDINATE"^ T= POINTS ON FREE <;URF4CE WHFOF 



C WAVE HEIGHT IS TO BE COMPbTEO. THI<; I <; TRilt FOR I .GT. N f ? 



C»**NON-OIMENSICNALlZc OFFSETS 

 631 DC leo I » NUPP>NTGP 



533 X(I) = «I(1,I)/B 



642 *qj Yd) • -l.wt-C8 

 647 136 CONTINUE 

 54 7 DC 190 I ' l.N'JP 



651 XBd) • RId> n/6 



66J l?u YBd) = KI(2,I)/S 



C... COMPUTE MIDPOINT. ANGLE AND LENGTH IF STRAIGHT-LINE SEGMFNT"t. 



-♦♦♦♦♦ANO COMPONENTS OF NO*AAL TO BODY 



671 JF ' 



672 DO 200 J'l.N 



674 X( J)'0.5*(X8t J1*X')( J«-ll ) 



705 Y( J)»0.5*(Yi^( J)+Y3( J^n ) 



717 Tl=Ya( J+l)-Y6( J) 



725 TJ'XSC J+1 )-XB( J) 



732 ANG( J('=ATAN2( T1.T2) 



740 CC3( J)'COS(ANG( J) ) 



747 SS3( J)=SIN(ANG( J) ) 



755 VV(J)=-X(J)*CC3(J)+Y{J)*SS3(J) 



772 CtL(.l ) ' S0RT(T2*«2 ♦ Tl**2) 



1007 RNORM<J > i) ' -SS3(J) 



1015 RNCRM(J ,») = CC3(J) 



1023 PNORM(j ,3) • VV(J) 



1031 200 CONTINUE 



1034 PRINT 30, TITLE 



1041 PPINT ZtO 



10*5 250 FORMAT (evX*C YL INDE-? GEOMh TR Y« / / /' <5X*ni MFMS TIN AL OFFSETS*. 



1. n X + NON-OIMENSIONAL OFFSETS*. "IX + mt OPRT'g TS OF SEGMFNT*:*// 



2 6x*i*, i6x*x*, 9X*Y*, i-jx + x*. "^r+Y*. I3y*x*, <?y*Y*. 



3 18X*SL0PE*. 4X*LE''*GTH*/) 



1045 PRINT 270, (I.RKl. I) .RI(2,I).Xe(T).Y«(Tl.X(T),Yd),AMGm . 



1 0EL(I).I'1,N) 

 ilia 270 FORMAT (X, 16. 4 ( 10X2F 10, 3 ) ) 

 1113 NL » N ♦ 1 



Table D-2. Continued 



113 



