740 GOTO 60 



750 C*Alternative case 2: Unaf-fected angle = 20 deg. 



760 27 



CONTINUE 



770 





DO 28 1=1, N 



780 





A(I)=-Z(N+1-I) /DTR 



790 28 



CONTINUE 



800 





DO 29 1=1, N 



810 





Z(I)=A(I) 



820 29 



CONTINUE 



830 





GOTO 60 



840 C* 





350 C*Case 3: Una-f-fected breaking ang 



860 30 



CONTINUE 



870 





IF(IDUM.EQ.l) GOTO 35 



880 





DO 31 1=1,18 



890 





Z(I)=15. 



900 31 



CONTINUE 



910 





DO 32 1=19,28 



920 





Z(I)=Z(I-1>-1.5 



930 32 



CONTINUE 



940 





DO 33 1=29,33 



950 





Z(I)=Z(I-l)+2.5 



960 33 



CONTINUE 



970 





DO 34 1=34,40 



980 





Z(I)=15. 



990 34 



CONTINUE 



1000 





GOTO 70 



1010 



C*Alternative case 3: Una-f-fectec 



1020 



35 



CONTINUE 



1030 





DO 36 1 = 1, N 



1040 





Z(I)=0. 



1050 



36 



CONTINUE 



1060 





GOTO 70 



1070 



C* 





1080 



C*WAVE HEIGHTS 



1090 



C ************* 



1100 



C*Ci 



ase 1 



1110 



50 



CONTINUE 



1120 





IFdDUM.EQ. 1) GOTO 55 



1130 





DO 51 1=1, 10 



1140 





H(I)=1.50 



1150 



51 



CONTINUE 



1160 





DO 52 1=11,20 



1170 





H(I)=H(I-l)-0. 1 



1180 



52 



CONTINUE 



1190 





DO 53 1=21,33 



1200 





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



1210 



53 



CONTINUE 



1220 





DO 54 1=34,40 



1230 





H(I 1=1.85 



1240 



54 



CONTINUE 



1250 





GOTO 100 



1260 



C*Alternat i ve case 1 



1270 



55 



CONTINUE 



1280 





DO 56 1=1, N 



1290 





H ( I ) =3. 0-FLOAT ( I - 1 ) *. 5/40 



1300 



C* 



H(I)=2.5 



1310 



56 



CONTINUE 



1320 





GOTO 100 



1330 



C* 





1340 



c*c 



ase 2 



1350 



60 



CONTINUE 



1360 





IFdDUM.EQ. 1) GOTO 65 



1370 





DO 61 1=1,2 



1380 





H(I)=1.85 



1390 



61 



CONTINUE 



deg. 



A12 



