1570 778 RH0C=149.5 



1580 60 TO 888 



1590 779 RH0C=2423. 



1600 888 CONTINUE 



1610 IF(IUNITS) 80,80,83 



1620 80 IF(WATER) 81,81,82 



1630 81 RH0W=62.4 



1640 GO TO 86 



1650 82 RH0W=64. 



1660 GO TO 86 



1670 83 IF(WATER) 84,84,85 



1680 84 RHOW=1000. 



1690 GO TO 86 



1700 85 RHOW=1025.6 



1710 86 CONTINUE 



1720 IFdUNITS.EQ.O) VOLU="CY" 



1730 IFdUNITS.EQ. 1) VOLU="CM" 



1740 IFdUNITS.EQ.O) WU = "TONS" 



1750 IFdUNITS.EQ. 1) WU=" MT " 



1760 WRITE(6,700) WU 



1770 700 F0RMAT(/,3X, "INPUT UNIT PRICE OF UNIFORM ARMOR ROCK, 



1780 «(IN PLACE(*/",A4,") ") 



1790 READ(5,71fl) UNITCd) 



1800 710 F0RMAT(F7.2) 



1810 WRITE<6,720) WU 



1820 720 F0RMAT(/,3X, "INPUT UNIT PRICE OF GRADED ARMOR ROCK, 



1830 S(IN PLACE($/",A4,") ") 



1840 READ(5,710) UNITC(2) 



1850 WRITE(6,800) VOLU 



1B60 800 F0RMAT(/,3X, "INPUT UNIT PRI CES (*/ " , A2 , " , IN PLACE) 



1870 S( FOR THESE ARMOR UNITS:") 



1880 WRITE(6,810) 



1890 810 F0RMAT(/,3X, "PLAIN CUBE , MOD . CUBE , 



1900 S(TETRAPOD,QUADRIPOD,HEXAPOD,TRIBAR,TOSKANE,?< DOLOS") 



1910 WRITE(6,820) 



1920 820 FORMAT;/, 3X,"F0RMAT(8F7. 2) ;SEPARATE PRICES BY COMMAS") 



1930 READ(5,830) ( UNI TC d ) , I =3 , 10) 



1940 830 F0RMAT(BF7.2) 



1950 WRITE(6,e40) WU 



1960 840 FORMAT!/, 3X, "INPUT UNIT PRICE FOR CORE MATERIAL 



1970 8<(GRADED ROCK) ,$/",A4) 



1980 READ(5,850) UNITCdl) 



1990 850 F0RMAT(F7.2) 



200OC 



2010C * » SET COT LEEWARD SLOPE ♦ ♦ 



202OC 



2030 DO 999 11=1,2 



2040 IFdI.EQ.l) C0TP = 1.5 



2050 IFdI.EQ.2) COTP = 2.0 



2060C 



207OC ♦ « SET COT SEAWARD SLOPE ♦ ♦ 



208OC 



2090 DO 998 JJ=1,4 



B15 



