1400 DO 62 1=3, 16 



1410 H(I)=H(I-1)-1. 35/14. 



1420 62 CONTINUE 



1430 DO 63 1=17,29 



1440 H(I)=H<I-1)+1. 35/14. 



1450 63 CONTINUE 



1460 DO 64 1=30,40 



1470 H(I)=1.85 



1480 64 CONTINUE 



1490 GOTO 100 



1500 C*Alternative case 2 



CONTINUE 

 DO 66 1=1, N 

 A(I)=H(N+1-I) 

 CONTINUE 

 DO 67 1=1, N 

 H(I )=A(I) 

 CONTINUE 

 GOTO 100 



1510 65 



1520 



1530 



1540 66 



1550 



1560 



1570 67 



1580 



1590 C* 



1600 C*Case 3 



1610 70 CONTINUE 



1620 IFdDUM.EQ. 1) GOTO 75 



1630 DO 71 1=1,12 



1640 H(I)=1.0 



1650 71 CONTINUE 



1660 DO 72 1=13,24 



1670 H(I)=H(I-l)-0.5/12. 



1680 72 CONTINUE 



1690 DO 73 1=25,37 



1700 H(I)=H(I-1)+1. 35/14. 



1710 73 CONTINUE 



1720 DO 74 1=38, N 



1730 H(I)=1.85 



1740 74 CONTINUE 



1750 GOTO 100 



1760 C*Alternative case 3 



CONTINUE 



DO 76 1=1,20 



A!I)=H!2*I) 



CONTINUE 



DO 77 1=21, N 



A(I)=A(N-I+1) 



CONTINUE 



DO 78 1=1, N 



H ( I ) =A ( I ) 



CONTINUE 



1770 75 



1780 



1790 



1800 76 



1810 



1820 



1830 77 



1840 



1850 



1860 78 



1870 C* 



1880 C*OUTPUT 



1890 C* 



1900 100 CONTINUE 



1910 IH0URS=!IT-1)*INT!DT) 



1920 WRITE!*, 600) 



1930 IF(IT.EQ.l) WRITE<*,*> 'INITIAL CONDITIONS' 



1940 IFdT.EQ.ITl.OR. IT.EQ.IT2) THEN 



1950 WRITE!*, *> 'CONDITIONS AFTER' , IHOURS, 'HOURS' 



1960 ENDIF 



1970 WRITE!*, *> 'WAVE HEIGHTS' 



1980 WRITE!*, 602) (H(I),I=1,N) 



1990 WRITE<*,600> 



2000 WRITE!*,*) 'WAVE ANGLES' 



2010 WRITE!*, 602) (Z(I),I=1,N> 



2020 WRITE!*, 600) 



2030 DO 200 1=1, N 



2040 Z(I)=Z(I)*DTR 



2050 200 CONTINUE 



2060 600 FORMAT!//) 



2070 602 FORMAT! (IX, 10F8.2) ) 



2080 RETURN 



2090 END 



END OF FILE 



A13 



