Sample Program Listing 



12, The program listing for BWCOMP (FORTRAN version) is as follows: 



10C •**««««••«»* 1^* •»•«**»*«*«****««»*»*«*««#«***»««** 



20C ♦ PROGRAM BWCOMP - VERSION 9/B5 ♦ 



3aC * CONTACT FOR QUESTIONS ON PROGRAM USE: » 



40C ♦ ORSON SMITH t 



5BC * COASTAL DESIGN BRANCH « 



60C ♦ COASTAL ENGINEERING RESEARCH CENTER * 



70C ♦ U. S. ARMY ENGINEER WATERWAYS EXPERIMENT * 



80C # STATION, P. 0. BOX 631 » 



90C » VICKSBURG, MS 39180 « 



100C A************************************************ 



110 CHARACTER ANS»2, ANSW«2 , WINDU*3 , ANSWIND#2 



120 CHARACTER ANW»2 ,LU»2 , RH0U*8 , V0LU»2 , UNI T»10 , WU»4 



130 CHARACTER TITLE»80 



140 REAL KT,N0,KD,L0 



150 DIMENSION XKDELTA ( 1 0) , H ( 2) , T (2) , RA ( 10) , RB ( 10) 



160 DIMENSION XKDBR (10) , XKDNBR ( 1 0) , P ( 10) , UNI TC (1 1 ) 



170C ♦ DATA IS FOR ARMOR UNITS: (1) UNIFORM QUARRYSTONE, (2) GRADED ♦ 



180C » RIPRAP, (3) PLAIN CUBES, (4) MODIFIED CUBES, (5) TETRAPODS » 



190C ♦ (6) QUADRIPODS, (7) HEXAPODS, (8) TRIBARS, (9) TOSKANES, ♦ 



200C * (10) DOLOSSE - ALL FOR RANDOM PLACEMENT ON TRUNK » 



210C 



220C » • STABILITY COEFFICIENTS - BRi BREAKING; NBR: NON-BREAKING ♦ « 



230 DATA XKDBR/2. 0,2. 2, 3. 5, 6. 5, 7. 0,7. 0,8. 0,9. 0,11. 0,15.0/ 



240 DATA XKDNBR/4. 0,2. 5, 4. 0,7. 5, 8. 0,8. 0,9. 5, 10. 0,22. 0,31.0/ 



250C ♦ ♦ LAYER COEFFICIENTS ♦ ♦ 



260 DATA XKDELTA/1. 0,1. 0,1. 15,1. 1,1. 04, .95, 1.15, 1.02, 1.03, .94/ 



270C ♦ ♦ POROSITIES ♦ » 



280 DATA P/. 4, .37, .43, .47, .5, .49, .47, .54, .52, .56/ 



290C ♦ ♦ RUNUP COEFFICIENTS A Si B(AHRENS & McCARTNEY, 1975) ♦ ♦ 



300 DATA RA/. 775, .956, .775, .95, 1.01, .59, .82, 1.81, .988, .988/ 



310 DATA RB/. 361, .398, .361, .69, .91, .35, .63, 1.57, .703, .703/ 



320C t******************!***************************** 



330C 



340C **««BEGIN INTERACTIVE INPUT OF DATA»*»« 



350C 



360 WRITE(6,10) 



370 10 F0RMAT(1H1,///,5X, "BWCOMP IS AN INTERACTIVE PROGRAM WHICH 



380 & COMPUTES BREAKWATER ",/, "VOLUMES AND COSTS FOR A SIMPLE 



390 8< PARAMETERIZED CROSS SECTION FOR ",/,"THE PURPOSE OF COM 



400 8.PARIN6 THE EFFECT OF CHANGING THE SEAWARD ",/,"AND LEEWARD 



410 i, SLOPES ON THE SIZE AND RELATIVE COST OF A RANGE OF 



420 & ",/, "ARMOR UNIT TYPES. THE OUTPUT OF BWCOMP SHOULD NOT 



430 8< BE USED ",/,"AS A COST ESTIMATING TOOL IN ANY STAGE OF A 



440 & PLANNING OR DESIGN ",/," PROJECT. THE ASSUMPTIONS APPLIED 



450 8< ARE INTENDED TO TENTATIVELY " , / , " IDENT IFY THE OPTIMUM 



460 & COMBINATION OF SLOPES AND ARMOR UNIT ",/,"FOR A GIVEN 



470 ScSET OF DESIGN CRITERIA.") 



480 15 WRITE(6,20) 



490 20 FORMAT!/, 5X, "TITLE OF THIS RUN? (UP TO 78 CHARACTERS)") 



500 READ(5,21)TITLE 



B1.2 



