105(9 



1060 30 WRITE(6,110) 



1070 110 F0RMAT(//,1X,"D0 YOU WANT TO MAKE SOME LOSS PREDICTIONS ",/,lX, 



1080 Si "FROM SIGNIFICANT WAVE HEIGHT DATA(Y/N)?") 



1090 CALL ANS(L) 



1100 IF(L .EQ. 'N') GO TO 75 



1110 45 PRINT, 'INPUT SIGNIFICANT WAVE HEIGHT' 



1120 46 READ,H 



1130 IF( H .LT. 0) 60 TO 45 



1140 SL06=G(H) 



1150 IF( H .LE. X(l) ) SLOG=0 



1160 WRITE(6,114) SLOG 



1170 114 FORMATdX, "PREDICTED LOSS IN MILLIONS OF DOLLARS IS ",F7.2) 



1180 115 PRINT, 'DO YOU WISH TO MAKE ANOTHER PREDICTION (Y/N) ? ' 



1190 CALL ANS(L) . . 



1200 IF(L .EQ. 'Y') GO TO 45 



1210 



1220 



1230C FIND SIGNIFICANT WAVE HEIGHT GIVEN DAMAGE 



1240 75 WRITE(6,120) 



1250 120 F0RMAT(/,1X,"D0 YOU WANT TO PREDICT SIGNIFICANT WAVE HEIGHTS", 



1260 & /, IX, "FROM LOSS DATA(Y/N)?") 



1270 CALL ANS(L) 



1280 IF(L .EQ. 'N') 60 TO 300 



1290 80 PRINT, 'INPUT LOSS IN MILLIONS OF DOLLARS' 



1300 READ, SAB '■:'.' 



1310 IF(SAB .6T. W) 60 TO 80 ,, . 



1320 WHT=ALO6(1.0-SAB/W)/V2+V1 '' 



1330 WRITE(6,133) WHT 



1340 133 FORMATdX, "PREDICTED SIGNIFICANT WAVE HEIGHT IS ",F7.2) 



1350 90 PRINT, 'DO YOU WISH TO MAKE ANOTHER PREDICT ION (Y/N) ? ' 



1360 CALL ANS(L) 



1370 IF(L .EQ. 'Y') 60 TO 90 



1380 



1390 300 PRINT, 'DO YOU WANT TO PREDICT EXPECTED ANNUAL LOSSES (Y/N) ? ' 



1400 CALL ANS(L) 



1410 IF(L .EQ. 'N' ) 60 TO 400 . 



1420 CALL EXPCT(W,V2,X(1) ) 



1430 400 STOP 



1440 END 



1450 



1460 ^_ , ■ : , ■ . 



1470 ■ 



1480 



1490 



1500C SUBROUTINE LOG TO FIT EXPONENTIAL CURVE TO INPUT DATA 



1510 SUBROUTINE LOG ( N , W , V 1 , V2) 



1520 CHARACTER*1 L 



1530 COMMON X,Y,YH 



1540 DIMENSION X ( 1 01) , Y ( 101) , YH (101 ) , Dl (1 1 ) , Z 1 ( 1 01) 



1550 G(X)=W»(1.0-EXP(V2»(X-V1) ) ) 



1560C CALCULATE PARAMETERS VI AND V2 BY THE LEAST SQUARES METHOD 



1570 YSiJM = 



A7 



