52B V0L(1)»'CUBIC METERS' 



53a V0L(2)='CUBIC FEET' 



540 LEN(1)='METER' 



55B LEN(2)='F00T' 



5^0 SL(1)= '•»♦**♦*♦♦♦*♦»*»**•**««♦♦«♦«♦**♦**♦•*♦*♦*»**♦**•♦*♦♦ 



57a SL(2)='« "BWDAMAGE" ESTIMATES THE EXPECTED ANNUAL DAMAGE » 



SBB SL(3)='» TO THE ARMOR LAYER OF A RUBBLEMOUND BREAKWATER, » 



59a SL(4)='* BOTH IN COST AND PERCENTAGE DISPLAYED. IT ALSO ♦ 



b^^ SL(5)='» ESTIMATES THE INTERVAL THAT REPAIRS OF A SPECI- ♦ 



610 SL(6)='» FIED DAMAGE LEVEL COULD BE SCHEDULED. * 



62B SL(7)=SL(1) 



63B SL(8)=' 



64a SL(9)=' 



65a DUM=' INPUT THE VOLUME OF ARMOR LAYER IN 



66a ST(l)='l QUARRYSTONE (NON-BREAKING WAVES) ' 



67B ST(2)='2 QUARRYSTONE (BREAKING WAVES) ' 



6Ba ST(3)='3 QUADRIPODS (NON-BREAKING WAVES) ' 



69B ST(4) = '4 TRIBARS (NON-BREAKING WAVES) ' 



7aa ST(5)='5 DOLOSSE (NON-BREAKING WAVES) ' 



7ia ST(6) = '6 DOLOSSE (BREAKING WAVES) ' 



72B ST(7)='7.. .OTHER' 



73B WRITE(6,43) 



740 43 FORMAT(//, IX, "PROGRAM BWDAMAGE 12/85 VERSION",///) 



750 1 IU=1 



760 DO 50 1=1,9 



770 WRITE(6,52) SL ( I ) 



7B0 52 FORMAT(1X,A60) 



790 50 CONTINUE 



S00 9 PRINT, 'ENGLISH OR METRIC UNITS(E/M)?' 



810 READ(5,7) L 



820 7 FORMAT(Al) 



830 IF(L .NE. 'E' .AND. L .NE. 'M') GO TO 9 



S40 IF(L .EQ. 'E' ) IU=2 



.850 PRINT,' ' _ ■ ~' 

 860 



870C SELECT ARMOR UNIT 



880 DO 53 1=1,7 



890 WRITE(6,4) ST ( I ) 



900 4 F0RMAT(1X,A37) 



910 53 CONTINUE 



920 3 PRINT, 'SELECT NUMBER OF ARMOR UNIT' 



930 READ,K 



94B IF( K .LT. 1 .OR. K .GT. 7) GOTO 3 



950 IF (K .NE. 7) GO TO 41 



960 PRINT, 'INPUT NAME OF ARMOR UNIT' 



970 READ(5,71) ST(7) 



980 71 FORMAT(A20) 



990 PRINT, INPUT COEFFICIENTS FOR DAMAGE EQUATION-' 



1000 PRINT, 'y.D(Hd) AND Sr FOR ■/.D(H/Hd) = 7.0 (Hd ) ex p [Sr ( H/Hd - 1)3 



1010 READ, All (7) ,A22(7) 

 1020 



1030 41 PRINT, ' ' 



1040 PRINT, 'INPUT HEIGHT OF DESIGN WAVE IN ',UNIT(IU) 



D6 



