Sample Program Listing 



8. A sample program listing for BWDMAGE (FORTRAN version) is given below: 



IBC PROGRfin "BWDAMAGE" 12/85 VERSION 



2eC DESIGN BRANCH-COfiSTflL ENGINEERING RESEAKCH CENTER 



3BC U.S. ARMY ENGINEERS WATERWAYS EXPERIMENT STATION 



40C VICKSBURG, MS 39180-0631 



SBC FOR FURTHER INFORMATION CONCERNING THE APPLICATION 



60C OF "BWDAMAGE", CALL 



7BC ORSON P. SMITH 601-634-2013 FTS:542-2B13 OR 



80C ROBERT B. LUND 601-634-2068 FTS:542-2068 OR 



90C DOYLE L. JONES 601-634-2069 FTS:542-2B69 



100 



IIBC FORTRAN 4 HONEYWELL DPS-B 



12BC REF: "COMPUTER PROGRAM WAVDIST" CETN-I- 



130C REF: "EXTREMAL STATISTICS IN WAVE CLIMATOLOGY" BY BORGMAN AND RESIO 



140C REF: "SHORE PROTECTION MANUAL" 1984 4TH ED., 2 VOLS. • - 



150C REF: "COST EFFECTIVE OPTIMIZATION OF RUBBLEMOUND BREAKWATER" BY 0. SMITH 



160 



17B 



18BC All = REGRESSION COEFFICIENT FOR DAMAGE EQUATION 



190C A22 = REGRESSION COEFFICIENT FOR DAMAGE EQUATION 



200C EPSI = EXTREMAL TYPE 1 LOCATION PARAMETER . , 



210C PHI = EXTREMAL TYPE 1 SCALE PARAMETER 



22BC Al = WEIBULL LOCATION PARAMETER 



230C Bl = WEIBULL SCALE PARAMETER 



24BC A2 = LOG-EXTREMAL LOCATION PARAMETER , , . , , ■■ 



250C B2 = LOG-EXTREMAL SCALE PARAMETER 



26BC ID = IDENTIFIES DISTRIBUTIONS . . ■• 



270C LAMBDA" POISSON 'LAMBDA' PARAMETER 



280C BL = HEIGHT OF DESIGN WAVE 



290C BU = UPPER LIMIT OF INTEGRATION ,,^ 



30BC L = E OR M, ENGLISH OR METRIC UNITS 



310C K = NUMBER OF ARMOR UNIT USED 



320C VI = VOLUME OF ARMOR LAYER PER LINEAR FOOT (OR METER) 



33BC V2 = COST OF ARMOR IN DOLLARS PER CUBIC FEET (OR METERS) 



340C DP = PERCENTAGE OF DAMAGE TO ARMOR LAYER AT TIME OF REPAIRS 



35BC 



36BC INITIALIZE VARIABLES, STRINGS, AND FUNCTIONS 



37B DIMENSION All (7),A22(7) 



380 COMMON EPSI, PHI, A1,B1,A2,B2, ID, LAMBDA 



390 REAL LAMBDA 



4BB CHARACTER«1 L,ANS 



410 CHARACTER»6B SL(9) 



420 CHARACTER*37 DUM,ST(7) 



430 CHARACTER«6 UNIT(2) 



440 CHARACTER*12 V0L(2) 



450 CHARACTERtS LEN(2) : 



460 DOUBLE PRECISION BL,BU 



470 F(X)=T1»EXP(T2»(X-1) ) 



480 DATA All/3. ,2. ,3. ,3. ,2. ,2. ,0./ 



490 DATA A22/6. 95, 3. 65, 6. ,4.87,1.68,3.55,0. / 



500 UNIT(1)='METERS' 



510 UNIT(2)='FEET 



D5 



