RUNT VERSION FEB Tt 8 l?»12 O't/Zifl*, 



l2^5 



7C 



IZitb 





1267 



45 



1307 





lil7 



40 



1321 







c*+** 



1322 



160 



132^ 





1330 



170 



1337 





13'.0 





13^<i 





1351 





1352 





1361 



160 



137't 



150 





C***»' 



1376 





1377 





1400 





1402 





1403 





1410 





1412 



139 



1416 





1421 





1423 





1427 



2000 



1427 





1466 



2005 



1466 





1472 





1517 



2010 



1517 



140 



1521 





1522 





AW - AW + HWB(I,4,IL) ♦ SI N ( oeLW{ I . 4, XL ) ) 



RW • 3U + r(WB(I.4,II.) ♦ C0S(0ELW(T.4,TLn 



HWT(I.IL)'SaPr(AW**2 + 8W**2) 



D£LWT(1»IL)-ATAN2( AW.PW) 



CONTINUE 



GO TO 150 

 ♦SET OUTPUTS FOR II .GT. NWAVEL 



DO 170 I ■= 1.3 



RAR(I,IL) • 0.0 



DELR(i.IL) « 0.0 



DO 180 I > 1»25 



HWTd.IL) ' 0.0 



CELWTd.IL) ' O.O 



DO 180 J ' 1.3 



HWRd.J.IL) c 0.0 



0ELWR(1j> J> ID ' 0.0 



CONTINUE 

 ♦ OUT PUT OrNAMIC RESULTS 



CALL OYNOUT 



Nf^OR ' 



DO 139 IP » 1,3 



00 139 10 » 1.3 



IF (RKMOR( IP, 10) .eo. CO GO TO 139 



NMOR " NMOR + 1 



CONTINUE 



IF (NMOR .N6. 0) CALL MORTEN 



IF (NPUNCH .NE. 0) GO TO 140 



PUNCH 2000 



FORMAT (♦llllilllll*) 



PUNCH 20t'5, ( 90L( rQ),HWT(l, I0),RAR(l,T0) ,PAP(?,IQ),RAR(3,T0), 

 1 10 = 1,10) 



FORMAT (5F10.4) 



PUNCH 2000 



PUNCH 2010, t80L(IQ),FJRND(l,IQ),cr)RMn(?,T0», I0«l,10) 



FORMAT (F10.4,2£20.4) 



CONTINUE 



RETURN 



END 



Table D-2. Continued 



118 



