Sample Program Listing 



9. A sample program listing for BWL0SS2 is given below: 



18C 

 20C 



3ec 



4ec 



sec 



6ec 



7ec 



sec 



9ec 



lesc 



lie 



i2e 



13B 

 14B 

 15C 



i6e 

 i7e 

 ise 



19« 



2ee 

 2ie 

 22e 

 23e 

 24e 

 25e 

 26e 



27B 



2ea 

 29e 

 3ee 

 3ie 

 32e 



338 4 



348 3 



35B 



Zbt 



37e 



38BC 



398 5 



4ee 



418 

 428 II 



43e 



448 

 458 i: 



468 

 478 



488 17 

 498 

 588 



PROBRAH ■BWL09S2". 9/85 VERSION 



DESI6N BRANCH-COASTAL EN6INEERIN6 RESEARCH CENTER 



U.S. ARHY ENGINEERS HATERMAY EtPERIHENT STATION 



VICKSBURS, NS 39188 



FOR FUTHER INFORNATION C0NCERNIN6 THE APPLICATION 



OF 'BIIL0SS2', CALL 



ORSON P. SHITH (681) -634-2813 FTS:542-2B13 OR 



ROBERT B. LUND (681) -634-2868 FTS:542-2e6B 



INITIALIZE STRINGS, VARIABLES, AND FUNCTIONS 



DIMENSION mW) ,Y(2e8) ,D1 (288) ,Y2(288) ,Z1 (288) 

 DIHENSION ALPHA(3),BETA(3) 

 REAL LAHBDA 

 CHARACTERt68 M0RD(14) 

 CHARACTERil L6 



HORD ( 1 ) s ' f »«t«t{Htitf *f t«t***l«tf tftf »«»f if ttf ftttf tttfttttf t*«t 



N0RD(2)>'t ■BHL0SS2- IS A PROGRAN HHICH FITS LONG-TERN CUHULA- 

 H0RD(3)='» TIVE PROBABILITY DISTRIBUTIONS TO TRANSMITTED SIB- 

 N0RD(4)='» HIFICANT NAVE HEIGHT DATA TO ESTIMATE EXPECTED 



ANNUAL ECONOMIC LOSSES DUE TO NAVE ATTACK AFTER A 

 BREAKNATER HAS BEEN BUILT. THE PROGRAM REQUIRES 

 DATA ON A PREVIOUSLY DEFINED LOSS .VS. SIGNIFICANT 

 NAVE HEIGHT FUNCTION (REF. PROGRAM BHLOSSl) AND AT 

 LEAST 2 POINTS OF TRANSMITTED NAVE HEIGHT, RETURN 

 PERIOD DATA. THE DISTRIBUTIONS OF TRANSMITTED HAVE 

 HEIGHTS ARE CALCULATED BY THE METHOD OF LEAST 

 SQUARES. A RESIDUAL TABLE CAN BE OPTIONALLY 

 PRINTED. 



H0RD(5)='« 



U0RD(6)='t 



N0RD(7)='» 



Nf]RD(8):'« 



N0RD(9)='t 



N0RD(18)='» PERIOD DATA. THE DISTRIBUTIONS OF TRANSMITTED HAVE ♦' 



HORD(ll)«'t HF I RHT^ ARF rai CULATFD BY THE METHOD OF LEAST *' 



H0RD(12)='» 



N0RD(l3)='f 



H0RD(14)=N0RD(1) 



DO 3 1=1,14 



HRITE(6,4) HORD(I) 



FORMAT (A6e) 



CONTINUE 



PRINT,' 



PRINT,' 



SET THE FACTS 



PRINT, 'INPUT tLiix FOR LOSS CURVE: »L(Hs)=$L«ax»(l-El(P(A(H5-HLo))) ' 



READ, CI 



IF(C1 .LE. e) GO TO 5 

 8 PRINT, 'INPUT HLo, THE MAXIMUM HAVE HEIBHT FOR HHICH LOSSES ARE NESLIBIBLE' 



READ,C3 



IF(C3 .LE. 8) 60 TO 18 

 ,5 PRINT, 'INPUT A, THE REGRESSION COEFFICIENT' 



READ,C2 



IF( C2 .ST. 8) GO TO 15 



PRINT, 'INPUT AVERAGE NUMBER OF EXTREMAL EVENTS PER YEAR,' 



PRINT, 'THE POISSON 'LAMBDA' PARAMETER' 



READ, LAMBDA 



C6 



