lese READ.BL 



IB&B IFIBL .LE. ) GO TO 41 



1878 PRINT,' ' 



1B80C INITIALIZE VARIABLES FOR INTEGRATION 



1898 18 T1=A11(K) 



1188 T2=A22(K) 



1118 CALL EXPCT(T1,T2,BL,BU,SUM,D) 



1128 PRINT,' 



1138 



1148C CONVERT FRACTIONAL DAMAGE TO DOLLARS DAMAGE 



1158 IFdU .EQ. DPRINT, ■ INPUT THE VOLUME OF ARMOR LAYER IN CUBIC METERS 



1168 t, PER LINEAR METER' 



1178 IFdU .EQ. 2)PRINT, ■ INPUT THE VOLUME OF ARMOR LAYER IN CUBIC FEET 



UBB & PER LINEAR FOOT' 



1190 READ, VI 



12BB PRINT,' 



1210 PRINT, 'INPUT THE COST OF THE ARMOR IN DOLLARS PER CUBIC 'iLENdU) 



1220 READ,V2 



1238 SUM=SUM»V1»V2 



1248 WRITE(6,30) ST (K) ,LEN (I U) , D 



1250 38 FORMAT(//, IX, A37,/, IX, "EXPECTED DAMAGE PER LINEAR ",A5," PER 



12t0 8. YEAR IS", F6. 2, "•/.") 



127a WRITE(6,32) LENdU),SUM 



1288 32 FORMAT!/, IX, "EXPECTED REPAIR COST PER LINEAR ",A5." PER YEAR IS »",FB.2,///) 



1298 IF(SUM ,LE. 8) GO TO 31 



1388 PRINT, 'DO YOU WANT TO PREDICT A REPAIR INTERVALS OR N)?' 



1318 READ(5,33) ANS 



1328 33 FORMAT(Al) 



1338 IF(ANS.EQ. 'N') GO TO 31 



1348 83 PRINT, 'INPUT '/. DAMAGE TO ARMOR LAYER AT TIME OF REPAIRS' 



135B READ, DP 



1368 IF(DP .LT. 0.B .OR. DP .GT. 188.0) 60 TO 83 . 



1378 HDP = BL»d + (AL06(DP/Tl)/T2)) 



1388 RT=0.8 



1398 IFdD .EQ. 1 .AND. (HDP-EPSI ) /PHI .GT. 82.8 ) GO TO 247 



1400 IFdD .EQ. 1 .AND. EXP (- (HDP-EPSI ) /PH I ) .GT. 82.8 ) GO TO 247 



1418 IFdD .EQ. 2 .AND. ( (HDP/Bl ) ♦♦Al ) . GT. 82.8 ) GO TO 247 



1428 IFdD .EQ. 3 .AND. (- (B2/HDP) ♦tA2) .GT. 82.0 ) GO TO 247 



1438 IFdD .EQ. 1) PHDP = EXP (-EXP (- (HDP-EPSI ) /PHI ) ) 



1448 IFdD .EQ. 2) PHDP=1 . 8-EXP (- (HDP/Bl ) t^Al ) 



1458 IFdD .EQ. 3) PHDP = EXP (- (B2/HDP) ♦♦A2) 



1468 IF( PHDP .GT. .9999) GO TO 247 



147B RT=1./ (LAMBDA»(1.-PHDP) ) 



1480 247 REPAIR=DP/D 



1490 WRITE(6,36) DP, D, REPAIR 



1500 36 FQRMAT(//,1X, 'THE AVERAGE REPAIR INTERVAL FOR ,F6.2,"/. DAMAGE', 



1510 & /, 'BASED ON ',F6.2,"/. PER YEAR EXPECTED DAMAGE IS ',F5.1,' YEARS') 



1520 IF( PHDP .GT. .9999) GO TO 31 



1530 IF( RT .LE. B ) GO TO 31 



1540 WRITE(6,37) DP,RT 



1558 37 FORMAT(/, IX, 'THE RETURN PERIOD OF THE STORM CAUSING ',F6.2,' 7. 



1560 8< DAMAGE IS',F7.2,' YEARS',/) 



1570 31 WRITE(6,321) 



D7 



