510 21 FORMAKABB) 



520 WRITE(6,3e0) 



530 300 FORMAT(/,5X,"EN6LISH(0) OR METRICd) UNITS?") 



540 READ(5,301)IUNITS 



550 301 FDRMAT(I2) 



560 23 F0R(1AT(A2) 



570 24 FORMAT (12) 



580 25 FORhAT(V) 



590 IF(IUNITS) 302,302,303 



600 302 LU="FT" 



610 GO TO 304 



620 303 LU=" M" 



630 304 WRITE(6,35) LU 



640 35 F0RMAT(/,3X,"SIG. WAVE HEIGHT , " , A2 , " (F4. 1 ) ?" ) 



650 READ(5,25)H(1) 



660 WRITE(6,45) 



670 45 F0RMAT(3X,"PEAK WAVE PERIOD, SEC(F4.1)?") 



690 READ(5,25)T(l) 



690 WRITE(6,46) 



700 46 F0RMAT(3X,"D0 YOU WANT TO SPECIFY A SEPARATE WAVE HEIGHT", 



710 8,/,"AND PERIOD FOR WAVE TRANSMISSION COMPUTATIONS (Y OR N)?") 



720 READ(5,48) ANSW 



730 48 FORMAT(Al) 



740 IF(ANSW.EQ."N") 60 TO 119 



750 WRITE(6,49) LU 



760 49 F0RMAT(3X,"H SIG.(FOR TRANSMISSION) IN ",A2," =■?") 



770 READ(5,51) H(2) 



780 51 F0RMAT(F4.1) 



790 WRITE(6,52) 



S00 52 F0RMAT(3X,"PEAK PERI0D(F0R TRANSMISSION) IN SECONDS =?") 



810 READ(5,53) T(2) 



820 53 F0RMAT(F4. 1) 



830 60 TO 121 



840 119 H(2)=H(1) 



850 T(2)=T(1) 



860 121 WRITE(6,47) LU 



870 47 F0RMAT(/,3X,"MAX. ALLOWABLE TRANSMITTED WAVE HEIGHT, ", 



880 ?(A2,"(F4. 1)?") 



890 READ(5,25) HTMAX 



900 WRITE(6,122) 



910 122 FORMAT'/, 3X,"-/.EXCEEDANCE OF TRANSMITTED HEIGHT IN SEA STATE?") 



920 READ(5,51) EXC 



930 EXCP=EXC . ■ 



940 EXC=EXC/100. 



950 WRITE(6,123) 



960 123 F0RMAT(/,3X,"D0 YOU WANT TO ALLOW FOR INCREASED RUNUP 



970 & AND OVERTOPPING", /,3X, "CAUSED BY ONSHORE WIND(Y OR N>?") 



980 READ(5,48) ANSWIND 



990 IF(ANSWIND.EQ. "N") 60 TO 124 



1000 IF(IUNITS.EQ.a) WINDU="MPH" 



1010 IFdUNITS.EQ. 1) WINDU="M/S" 



1020 WRITE(6,125) WINDU 



1030 125 F0RMAT(/,3X, "ONSHORE WIND VELOCITY, ",A3," (F5.1)?") 



B13 



