aaAgD 
nan 
aan 
1001 
1oo2 
1100 
diol 
1104 
PROGRAM MALTNQCINPUT® OUTPUT eo TAPES@YNPUT 9 TAPEGSOUTPUT) 
CALL EVULYEQ 
CALL EXIT 
EMD 
SUSRUUTINE EVOLVEW 
COMYONs BUATAZ LAMBUAV Re DQ eDX > HERMyNI pN@oBWLOBWOVDXHATsSLUPE OAL INE 
CUOMHONSOTFRES KKNeC!2]0115) 9 AAC 20115) 
COMMONS SSMUS DIR(130¢) oPERC 1302) OWH( 1502) oXB( S306) oAMPC I B02) 
COMMON SLAKELVLS KL( 24942) j 
COMMON /SFRLINEZ VATE (398) oSL(195,A) 
COMMUNSZ3S/23013,2) 
OIMENSTUN HOLES) oVCRISIOICCLIS) oVxCSL5) 0VV(4S5) oRGLC115) oMD(13) 
REAL LAMBDA 
DATA MO/31 6289315309319 3500310319 300310300319 305/ 
LIBIMNnEX UF FIRST BHOKELINE 
L136 
Lato 
FREAD tPUT DATA 
CALL phPUTa 
NiMpsniel 
HTP LENle) 
NLPeauie?2 
NaMy ence] 
TXde( fol) eOxneDK 
OU 1001 T3t0NJ 
Txz] aoa 
ICiT)sIx 
Tapely 
NIPLEN1 064 
DUO {0ne LT3N{PyoNa 
Tut]la,0x 
IC(L) 1k 
DEFL%¢ ORIGINAL SHORELINE AND SHORELINE ANGLE 
Gai ,4(8+090) 
OU $1n0 1£4—N2 
YCL)85bCT0L1) oF 
E970 e5/4( R00) 
ZE(yCadev(1))sOxHat 
vyy¥(y)aATaN(Z) 
OO inl Te2aeNtM) 
ZelCy(yeloev(Tel)y%e9 
V¥( 1) 24TAN(Z) 
ZeCv(N LOT ONIME))/DAMAT 
VV ONL) FATANCZ) 
ZaCv(nNiPe)@eV(NIPy))/OKHMAT 
VY(NIPL)BATAN(Z) 
DO ine LENyPagnamt 
Zz(V( pol) oV¥( Tol), #69 
VV¥(T)@ATAN(Z) 
Z3(Y(N2Z)°Y(N2M1) )/DKHAT 
VY¥(N@)2ATAN(Z) 
MaIn aNALYSIS LOOP 
IVE AR eh 
50 9009 L®LicLa@ 
Toisk 0009 OD 
LTy1s0aTe (lol) 
IMieOsTE Ceol) 
Ly2eDaTE (lolol) 
T#7sNaTe (eet od) 
NMONaCTY2° 7 v1) *1arlh2ermMiol 
MUNaITMi ef 
QO 2379 LeLeteN¥4On 
MUNEMNG | 
IF (MON gNE, 13) GUTO 3 
MOMNe] 
1VEARSIYE ARS) 
TTLIMaXS (ONS) 
ZL3Z3( "UNG ) 
2P205("UNO2) 
CALL CAL CKNUC Ye MON) 
DTHAT=xXS("0ONG3) 
DIRLEN Ik CHONG) 
OLR eanIk (MONG?) 
IF(LL o£%, 1) GOTO 11 
IF(LL EG, NMON) GOTU 42 
N1TaaS¢(*UNeu) 
O1HaT=*£S(M0N93) 
66 
