oan 
aan 
SLANG( 1) S47 AN(Z) 
00 $03 1z2N1™1 
Ze( UK Lop youn( ley) )9e9 
S003 SLANG(I)FaTaN(Z) 
ZECKAOND oxn(Niey)) /DAHAT 
SLANG(NL)SATAN(Z) 
ZECHACNLPSVAKKCNG OLD) SDKHAT 
SLANG(N1¢})FaTANCL) 
DU 5094 TEN{P20NQM1 
Use( anc Topeoxn( Loy) )Fb9 
$008 SLAnG(J)saTAN(Z) 
Za(xtcN2)enx(n20y))/0RHAT 
SLANG (N2)BATAN(Z) 
TFCIT 4&9, ITLAST) GUTO 9999 
00 6000 134 on2 
VV (1) sSLANG(1) 
6000 VOL y)akacT) 
9999 CGT ue 
ME TURD 
END 
SUBRUWTINE CALCKHUCY Ye MUN) 
COMMUNS BOATA/S LAMBDA eRe DQ eDK yHERM NI pN@o BML eo BWDeDXHAT » SLOPE OAL INE 
COMMONSUTFROEs KKN2L20115) 9 AAC 20115) 
COMHURS SSMUZ DIR( 1502) PERC 1302) NPH( 1302) oXSC1S,6) pAMPC1 302) 
OIMENSIUN VY(S15) 
REAL «3 
OxK230  S/UKMAT 
NYP Landed 
CALC OJFFRACTION FOR LH® 
A=DIR¢MON4) 
CALL GETC( RAD pPER( MUNG 1) 943) 
Ageo)k 
DU 3090 JE1oN]h 
Tanyeyed 
WekedDy 
Vatal.eVY¥(J) @(8+n0) 
Rypzytyovey 
R1sSUPTCRL) say 
Zeasy 
Oysatan(2) 
TFC AL olLT,. A) GOTO 4 
CALL QHEGION( RS pao ALOR) 
AaCyoy) sa 
GOTU 2a 
1 CALL SREGION(R 1p Ao AL OBS) 
AAC Joy) 344 
2 xKD2CyoT) aK sony 
$000 CONTINUE 
OO 1091 JENIPLeND 
mKO2C e121, 
JOOt AAChoy) BA 
CalC mIFFRACTION FOR RRB 
AceDIR(MCN, 2) 
CALL GETC(AwDyPER( MUNG 2) on3) 
Aszeo/e 
DU 2000 JENIPLOND 
uaneDy 
veRoleoYY(1)*(B+00) 
Aysrty+yey 
RLSSURTCRL)/H3 
Zzasy 
ayzatTan(lZ) 
TF(A1 eLT. A) GOTU 31 
CALL nREGION( Rig AVAL ORY) 
Ad(Qoy)BeA 
GuUTO y2 
11 CALL SREGION( RI odo AL oKS) 
AAC2e7) 2044 
12 XKD2(aeT) BK 5eKS 
2000 CONTINUE 
NC PO91 TB 0eN4 
me O2C201) 51, 
2001 Abl(2ey)zoa 
ae TUN 
b.0 
SueBROLTINE JINPUTQ 
CLMMONS BUATAS LaMSL4e Re DOsDK eo BERMoNS gN2oBWL eo BwDoDXHAT eo SLOPE SALINE 
COMMU SSARLINES VATE ($08) oSL(115,A) 
69 
