31619 



3170 



3180 



3190 



3200 



3210 



3220 



3230 



3240 



3250 



3260 



3270 



3280 



3290 



3300 



3310 



3320 



3330 



3340 



3350 



3360 



3370 



3380 



339BC 



3400C 



3410C 



3420 



3430 



3440 



3450 



3460 



3470 



3480 



3490 



3500 



3510 



3520 



3530 



3540 



3550 



3560 



3570 



3580 



3590 



AA=TOPW+( 



IFdUNITS 



P(l)=0.37 



N0=2.*AA» 



IFdUNITS 



IFdUNITS 



IF (NN.GE 



IF dUNIT 



IFdUNITS 



IFdUNITS 



AC=AVOL*U 



IF(NN.LE. 



TC=AC+CC 



IF{NN.EQ. 



IF(NN.EQ. 



IF(NN.EQ. 



IF(NN.EQ. 



IF(NN.EQ. 



IF(NN.EQ. 



IF(NN.EQ. 



IF(NN.EQ. 



IF(NN.EQ. 



IF(NN.EQ. 



AH/SIN (THETA) ) + (SAH/SIN (THETAP) ) 

 .EQ.0) CV0L=CV0L/27. 



XKDELTA(NN)»d.-P(NN))#( (RHO/W) ♦♦0. 67) 



.EQ.0) CC=(UNITCdl)».63*CVOL»RHOR)/2000. 



.EQ.l) CC=<UNITC(11)».63»CVOL*RHOR)/1000. 



.3) AVOL=(W/RHOC)*N0 



S.EQ.0) AV0L«AV0L/27. 



.EQ.0) W=M/2000. 



.EQ.l) W=W/1000. 



NITC(NN) 



2) AC=NG»W*UNITC(NN) 



UNIT="ROCK,UNIF. 

 UNIT="ROCK,BRAD. 



3) UNIT="CUBE 



4) UNIT="MOD. CUBE 



5) UNIT="TETRAPOD 



6) UNIT="QUADRIPOD 



7) UNIT="HEXAPOD 



8) UNIT="TRIBAR 



9) UNIT="TOSKANE 



10) UNIT="DOLOS 



♦ # TABLE OUTPUT « * 



WRITE (6,900) UNIT,W,C,TOPW,NO,AVOL,CVOL,AC,CC,TC 

 900 FORMAT(/,11X,A10,F8. 1,2X,8(2X,FB. 1) ) 



997 CONTINUE 

 WRITE(6,9B2) 



982 F0RMAT(//,11X, "NOTES: 1. CREST HEIGHT IS ABOVE STILL 

 & WATER LEVEL",/,19X,"2. ARhOR VOLUME FOR ROCK IS THE 

 I, TOTAL CROSS-SECTION VOLUME" ,/, 1 9X ," 3 . ARMOR VOLUME 

 8< FOR ARTIFICIAL UNITS IS THE CONCRETE VOLUME") 



998 CONTINUE 



999 CONTINUE 

 WRITE(6,9B5) 



985 FORMAT*//, 3X, "DO YOU WISH TO MAKE ANOTHER RUN'") 

 READ(5,986)ANW 



986 F0RMAT(A2) 

 IFIANW.EQ. "Y")GO TO 15 

 IF(ANW.EQ. "N")SO TO 14 



14 STOP 

 END 



B18 



