1003 DiP(M,2)3UTR(Me2)9C9 
PAINT LO1eCALISTCL) o 184010) 
D2 2003 “81013 
DIRyerIR(h.1)/C9 
DLAeIHITR(Me2)/C9 
2003 PRINT 1L00eDRH(My 1) pOMH( Me 2) gDIR1 DIRS sPER( M91) PER( M2) 
aoaonan 
annan 
CALCULATE PARAMETEHS FON SCALING 
PINT 200 
200 FIRMAT(/0% LISTING OF SCOLE PARAMETERS AS CALCULATED JN SUBROUTINE 
1 [NPUTUe) 
OY LOn4 M3193 
2180 025¢5eo5#DMH (Mel) / (Sel QUBBPER( My) 92) 
225002585 eS8DWH (He 2)/ (Sef 2UBSPER(My2) 942) 
DLS Ko BSINKH( Mey) P2HPER( MGS) 
AATUT HE oBSENRH( MD) OR2EPER(MQ) 
ArmA, 
IrF( Op ,GT, As) azde 
K3(M04) B0XHAT BOK (8400) 
OTHATSLAMBDASDXHAT#E2 
OTSDIHATS (RDO) Se37A 
W)TsMn(*)F12 
NaxDT,/OTe] 
13N 
Drandy/Nn 
13 (Moa) SL AMBNAMa¢OT/0K 092) 8A/(BO09) 
W3(“oz)BOTHATSLAMBDAMPNKHATSOD 
x5(Meu)207 
X5(™065)3N 
15(M0q)3(B900)F(RODGISA 
MOBS 12UBRPER(M,1)PPER( M1) 
Z3CM9 4 E0255 eS MVAM (MeL ISNLO 
Z$0% 02) 800255 eS @VNK (Moe) SKLO 
A*PCM,L)BALZA 
wePOm PVEAIS“A 
POINT 2010Me(XS(MOK) oKSh 0G) oZ3( Moy) 02S( Moe) oAMP( M91) po AMP( M2) 
ZOL FORMAT (® MONTHB®,T30% AHRAY SAFO ZFOoSePOgL OFS ,O0F Oo 30% ARRAY 250% 
Le2booye® ARKAY AMPS eek O,3) 
1004 CuNTINve 
RETURN 
END 
SJBNUNTINE SREGION( Ro Ag Al KS) 
CALCULATES KD IN S REGION 
(ASSUMES 1 8 DISTANCE/WAVE LENGTH) 
REAL wh 
P133,4415920535 
C$BA2,n2R4271 25 
STESING(CALSA) S24) 
SazSIu( (Alea) se.) 
C2zcIs(aiea) 
tCrzcus(alea) 
RZSSUPT(H) 
ULEC Sah S457 
U2zoC yeh 305g 
MTP TEULFUL 2, 
CALL cS(%o360C6) 
ViF(1,755°C6) 72,5 
w1z(3,°CO) 72, 
MEPL HV 2e2z2, 
Call CS(XS6sC6) 
V23(1,"S6°Co)/2,5 
W2=(S,°CO) s2, 
XuBQesPlOKeC] 
MFZEQoePLORSCD 
CssCUs(x4) 
C52CU8(K5) 
SusSIn (ug) 
S325], 045) 
DasvielCUsveeCSowysSuUonoess 
Dozen} eC UenreCSayy*SUevo9ss 
KsSD4eDUeO5eN5 
K52SGQT(KS) 
RETURW 
ED 
SIBROYTINE QREGION( Re Ao Alo K3) 
CALCULATES KM IN @ HKEGTON 
(ASSUMES R @ DISTANCE/WAVE LENGTH) 
REAL «3 
7| 
