520 ST(12)='» THE LEAST SQUARES METHOD. ITS PARAMETERS AND ♦ 



530 ST(13)='» NON-LINEAR CORRELATION ARE PRINTED. ♦ 



540 ST(14)='» THE PROGRAM WILL ALSO ESTIMATE EXPECTED ANNUAL ♦ 



550 ST(15)='» LOSSES SIVEN THE PARAMETERS FOR THE LONG-TERM ♦ 



560 ST(16)='» CUMULATIVE PROBABILITY DISTRIBUTION OF SIGNIFICANT ♦ 



570 ST(17)='» WAVE HEIGHTS AT THE SITE. THE PROGRAM WILL AC- # 



580 ST(18)='» CEPT THREE DIFFERENT DISTRIBUTIONS: (1) EXTREMAL ♦ 



590 ST(19)='« TYPE I; (2) WEIBULL; AND (3) LOG EXTREMAL. ♦ 



600 ST(2a)=ST(l) 



610 DO 50 1=1,20 



620 WRITE(6,407) ST(I) 



630 407 FORMAT(1X,A60) 



640 50 CONTINUE 



650 



660C GET THE FACTS 



670 WRITE(6,408) 



680 408 FORMAT(///) 



690 1 WRITE(6,101) 



700 101 FORMATdX, "INPUT THE MAXIMUM CONCEIVABLE LOSS IN MILLIONS OF DOLLARS") 



710 READ,W 



720 IF(W .LE. 0) 60 TO 1 



730 2 WRITE(6,201) 



740 201 FORMATdX, "INPUT THE MAXIMUM SIGNIFICANT WAVE HEIGHT FOR WHICH",/, IX, 



750 8( "LOSSES ARE NEGLIGIBLE - USE CONSISTENT UNITS") 



760 READ,X(1) 



770 IF(X(1) .LT. 0) 60 TO 2 



780 YH(1)=0 



790 Y(l)=0 



800 4 WRITE(6,102) 



810 102 FORMATdX, "HOW MANY SIGNIFICANT WAVE HEIGHT VS LOSS",/, IX, 



820 h "DATA POINTS DO YOU HAVE?") 



830 READ,N 



840 IF(N .LE. 1) GO TO 4 



850 IF( N .GT. 100) PRINT, '100 POINTS IS MAX IMUM-REINPUT ' 



860 IF( N .GT. 100) 60 TO 4 



870 8 WRITE(6,104) 



880 104 FORMAT(/, IX, "ENTER SIGNIFICANT WAVE HT. , COMMA , LOSS IN 



890 & MILLIONS OF DOLLARS" ,/, 1 X , "AND RETURN FOR EACH POINT") 



900 1=2 



910 15 READ.Xd) ,YH(I) 



920 IF( YHd) .GT. W ) 60 TO 17 



930 Y(I)=AL06d-YH(I)/W) 



940 IF(I .EQ. (N+1) ) GO TO 18 



950 1=1+1 



960 GO TO 15 



970 17 WRITE(6,105) 



980 105 F0RMAT(/,1X,"ERR0R-Y0UR INPUT LOSS IS MORE THAN YOUR MAXIMUM" 



990 k ,/, IX, "LOSSES. RE-INPUT POINT") 



1000 60 TO 15 



1010 18 N=N+1 



1020 



1030C FIT CURVE TO INPUT DATA 



1040 CALL LQ6(N,W,V1,V2) 



A6 



