21B0 IF(II.EQ.2 .AND. JJ.EQ.l) SO TO 998 



2110 IF(JJ.EQ.l) C0T»1.5 



2120 IF(JJ.EQ.2) COT=2.0 



2130 IF(JJ.EQ.3) C0T=2.5 



2140 IF(JJ.EQ.4) COT=3.0 



2150 THETA=ATAN(1./C0T) 



2160 THETAP=ATAN(1./C0TP) 



2170C 



21B0C ♦ « PRINT HEADINGS FOR OUTPUT TABLE * « 



2190C 



2200 WRITE(6,85n TITLE 



2210 851 FQRMAT<1H1,11X,"» ",A80," ♦") 



2220 WRITE(6,920) 



2230 920 FORMAT(//,30X, "TABLE OF COMPARATIVE BREAKWATER 



2240 S( QUANTITIES AND COSTS") 



2250 WRITE(6,930) COT,COTP 



2260 930 F0RMAT(/,32X, "SEAWARD SLOPE = 1:",F3.1, 



2270 &" LEEWARD SLOPE = 1:",F3.1) 



2280 WRITE(6,93n D,LU 



2290 931 F0RMAT(32X, "WATER DEPTH = " , F4. 1 , 1 X , A2 ) 



2300 WRITE(6,940) H(1>,LU,T(1) 



2310 940 FDRMAT(32X, "INCIDENT WAVE: SIG. HEIGHT = " , F4. 1 , 1 X , A2 , 



2320 &" PEAK PERIOD = " , F4. 1 , " SEC" ) 



2330 IFlHl.LT.H(l)) WRITE(6,945) H1,LU 



2340 945 F0Rf1AT(32X," (DEPTH LIMITED WAVE HEIGHT = " ,F4. 1 , 1 X , A2 , " ) " ) 



2350 IF(ANSW.EQ. "Y") WRITE(6,95n H(2),LU,T(2) 



2360 951 F0RMAT(32X, "INCIDENT WAVEIFOR TRANSMISSION COMPUTATIONS):", 



2370 8(/,32X,"SIG. HEIGHT = " , F4. 1 , 1 X , A2 , " PEAK PERIOD = ",F4.1, 



2380 St"SEC") 



2390 IF(ANSW.EQ. "Y".AND.H2.LT.H(2) > WRITE(6,945) H2,LU 



2400 WRITE(6,950) HTMAX.LU 



2410 950 F0RMAT(32X,"MAX TRANSMITTED WAVE HEIGHT = " , F4 , 1 , 1 X , A2) 



2420 WRITE(6,952) EXCP 



2430 952 F0RMAT(32X," (",F4. 1 ,"■/. EXCEEDANCE) ") 



2440 WRITE(6,960) 



2450 960 F0RMAT(/,53X,"* * ♦ RELATIVE VALUES PER UNIT 



2460 S( TRUNK LENGTH » ♦ »") 



2470 WRITE(6,970) 



2480 970 F0RMAT{/,11X, "ARMOR UNIT",2X," SIZE ",2X," CREST ", 



2490 S.2X," CREST ", 2X , "NO. ARMOR" , 2X , " ARMOR ",2X," CORE ", 



2500 S<2X," ARMOR ",2X," CORE ",2X," TOTAL ") 



2510 WRITE(6,980) WU , LU ,LU , VOLU , VOLU 



2520 980 F0RMAT(23X," (",A4,") " , 2X , " HT . ( " , A2 , " ) " , 2X , " WDTH ( " , A2 , " ) " , 2X , 



2530 ?-" UNITS ",3X,"VOL(",A2,")",3X,"V0L(",A2,") ",2X," COST(t)", 



2540 &2X," COST($) ",2X," COST(*)") 



2550C 



2560C ♦ ♦ SET ARMOR UNIT TYPE * » 



2570C 



2580 DO 997 NN=1 , 10 



2590 ICHECK=0 



2600 RHO=RHOC 



2610 IF(NN.EQ.l) RHO=RHOR 



2620 IF(NN.EQ.2) RHO=RHOR 



B16 



