1040 READ(5,126) WIND 



1050 126 F0Rt1AT(F5.1) 



1060 124 WRITE(6,120) LU 



1070 120 F0RMAT(3X, "WATER DEPTH AT TOE OF STRUCTURE, " , A2 , " (F4. 1 ) ?" ) 



1080 READ(5,25)D 



1090 WRITE(6,130) 



1100 130 F0RMAT(3X, "FRESH WATER(0) OR SALT WATER(l)?") 



1110 READ(5,24) WATER 



11200 



1130C ♦ CHECK FOR BREAKING BY SODA'S FORMULA FOR HORIZONTAL, BOTTOM 



1140C 



1150 DO 60 1=1,2 



1160 HI=H(I) 



1170 IF(IUNITS.EQ.0) L0 = 5. 12*T ( I ) «T (I ) 



1180 IFUUNITS.EQ. 1) L0=1 . 56*T (I ) ^T ( I ) 



1190 HB=0. 17«L0*(1.-EXP(-4.71239»D/L0)) 



1200 IF(HB.LT.H(I) ) HI=HB 



1210 IF(I.EQ.l) H1=HI 



1220 IF(I.EQ.2) H2=HI 



1230 60 CONTINUE 



1240 H2P=H2*SQRT( (-AL06 (EXC) ) /2. ) 



1250 WRITE(6,135) 



1260 135 F0RMAT(3X,"UNIT WEIGHT OF ROCK IS ASSUMED TO BE",/, 



1270 8<3X,"165 LBS/CUFT(2643 KG/CUM). DO YOU WISH TO ENTER AN ",/, 



1280 8<3X, "ALTERNATE VALUE? (Y OR N) ") 



1290 READ(5,23)ANS 



1300 IF(ANS.EQ."Y") 60 TO 55 "■ , 



1310 IF(ANS.EQ. "N") 60 TO 77 



1320 55 IF(IUNITS) 305,305,306 



1330 305 RHOU="LBS/CUFT" 



1340 GO TO 307 



1350 306 RHOU=" KG/CUM " 



1360 307 WRITE(6,145) RHOU 



1370 145 F0RMAT(3X, "ENTER UNIT WEIGHT OF ROCK, " , A8 , " ( F6. 1 ) " ) 



1380 READ(5,25)RH0R 



1390 GO TO 88 



1400 77 IF(IUNITS) 78,78,79 



1410 78 RH0R=165. 



1420 GO TO 88 



1430 79 RH0R=2643. 



1440 88 CONTINUE 



1450 WRITE(6,335) 



1460 335 F0RMAT(3X,"UNIT WEIGHT OF CONCRETE IS ASSUMED TO BE",/, 



1470 S.3X, "149.5 LBS/CUFT ( 2423 K6/CUM), DO YOU WISH TO ENTER AN ",/ 



1480 &3X, "ALTERNATE VALUE? (Y OR N) ") 



1490 READ(5,23) ANS 



1500 IF(ANS.EQ. "Y") GO TO 555 



1510 IF(ANS.EQ. "N") GO TO 777 



1520 555 WRITE(6,345) RHOU 



1530 345 F0RMAT(3X, "ENTER UNIT WEIGHT OF CONCRETE, " , A8 , " (F6. 1) " ) 



1540 READ(5,25)RH0C 



1550 60 TO 888 



1560 777 IF(IUNITS) 778,778,779 



B14 



