PDP-10 Archive: fortb.exe from BB-D480G-SB_FORTRAN10_V11.0

Trailing-Edge - PDP-10 Archives - BB-D480G-SB_FORTRAN10_V11.0_short - fortb.exe

There are 11 other files named fortb.exe in the archive. Click here to see a list.

?p@`?x+EV=v3*x$	8,>Z+@,>Z,>+@,>Z,>,>+@,>Z,>,>,>+@,>Z,>,>,>,>+@,^,^,^,^,^,~-00,
aJ+M "+R "+R "+R "+R "+R "+R@ 
p0J+\ aN+Y ; <,>,l/@@p,[+a,>,l/ 0 Pp+a,>,l/ .XN( p0P+b@@p,
@+> Bp0B+e ^; \<,
,,

p0L+i : Zp+B7Pj+B * Jp+B+>-00,>,> w 
 # JFS:	z+  ^p >h*>o :E	zg $aD+wS,h *>+@@H,.,l...nS0h *>
&5 w 
 1
&(
&9
&H
&;	b@,^,^+>-00,>,l/,l,>,l/@+>-00 ( Hp,A+>-00, ZL@+>-01,  p 
.
 I/
L J I@+>-01.@	x /+>@	`:H,H



COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1987
ALL RIGHTS RESERVED.

M?LPM?H@M?H`M?IM?I M?I@M?I`FORTRAFORTBFORTCFORTDFORTEFORTFFORTG'(*+-.0?FTNNGS - CANNOT GET SEGMENT  - ERROR CODE:
C2`]>tPu7 M:I'[ZCGVx] Y& I&ho?m:HeHGSGHS`S g> SqSM7m: ]> aCIbmHSpa0g& SVGxG:hIHgG"xo:S g:xiNHCC&`e&hM>xC'GGG;G?G?0GNhIIpI?8IB(I^(I^`K KK@K>Kb MM&0M&pM7 M:8QQ(S;W_(W_0Y:(Y>`YO[2p[N`]h]]]&]&8]&X]']'@]2X]B]C]N_(_&xa_e2g
gg6 C;g:pgBpgJxgZpi20mm0m&0m:8o(qpq?e3@Y:]2G'g?M;mN m;m:0CS6p[
 S:C0$@ X>xZB+ $++F?FTNUCE User Core ExceededIllegal Memory ReferenceStack exhaustedMemory Protection Violation
?Internal Compiler Error
? at location  in Phase 
?while processing statement $

+HF00000+AB
&6X $. +`B $1`B  $3
&
&9 ? "
"`dp+G7@&+N
&: @ "
"`dp+L
&< _ FY&")D|&")D|&")D|&")D)BG@!$hP
& X X Y	`V=v+*x@$	8M?H@+ ?Z+,^@,A+,>@,~,^@,+
,>@,~,>Z+@,>Z,>+@,>Z,>,>+@,>Z,>,>,>+@,>Z,>,>,>,>+@,^,^,^,^,^,~Z<< \hQ>w8Z<pX@	` 9CC~0C&l`C&v@C2|pC2|t(C6C6 C6MdC6Md C6|@C:MmCNM`CR

,`GFG" G2|pG7RG7TG7YG7CQG7CRG7CTG7NG>u)`G?G?@G?G?$@GNM`GO-I0I|`I@I$@I$II
dPI
dSQI
dSTI~0I~:I~H7IMPIFIex:I&hI&v@I2|pI2|t(I6 I6Md I6|@I:MmICyINL{@INM`INMjIO-IR
L@S
NL`S]SD@SMPSMmSuZS~SOS:$^S;S;!h`S?SNDmSNDmSNL{@YpY(YY2(Y3Y>8Y>:[@[B[B[&p[&r[&r[>]&v@]?h`]?i]?j]?l@]?eIaJaKbLYLYMZQRQxSTSRU\NV\[Zx[j]f^OymknH`PH`tIavJawKbwkzy}{p{c|dW}d~eW~efsz(

),0,0,0,1x,1x,0,0*0,0,0,0,0,0,0:(+h(

h 0,0( ( ( f`

$ ( l

, h 0@0j

&`z

.n

h 0(0( ( h f`

  &B&B&B&B:(@0:(@3:)x@5h!|*!x:)x@8h!|*!xx :: =n8l0h

j(x(D*(:(Gl(ow{}~?ow{}~?ow{}~?ow{}~?ow{}~H'|I'-0

.9 (QHd,5 Z6J`+b  X` Xb .XN` OS(@GH@A0XP`+wZb[`4Ne[`+cZ`2Hw+m

QL`  wXN`1N Xb OS*@GJ R``A(XH`+w[

`4Lo[`+mZ`5PxZ
` JpS,@BL(

XL`  OS0@GP8 wXP`A.XN` +{Z`Z
`3*w+m+c/9+-0.:Zd lN Hp+@l+@@@@+	+	+	+	+	+	+	+	+	+
+
@@@+	,jd +@+, Zp 
p.
p

( LM5L,j p.p M H@R` d  +,maZ+l  M+ MZ@4HZ@ ZM+,j

M p.pZ8XP0XL8d 7+/:+-0 d+@$!+>+*+/,ro+0,ro,ro,ro,ro,ro,ro,ro,ro,ro,ro,ro+2+;Zf@[f4t-FX8=t, 
&*'+1 fFf7
 
f&* +>[
g4j7Zg@7t+8FX8=t5+8 g fF &. +> fFfS
gF

&, #
 +-0 w[
 0J+G w 8 @ (F H * J

3l+HO+ . &( 2XX+MZ+3xX+P 8 Z+F < P+F+-0.9@@[w~< Hp2tp+YZw~.#
hF9V

&,  `X4V`,>X,>w~,*/:`Z+hZX+[ waH+i 
W$*Z,(s :W0n2+i,>w~,/9 ZX `XXHX V`X7@/9+-0

[d4hm,5 ZM

d+@4n+l+w+@++
+ @+>+C+E+K+L@+S+X+]+e@ M cp:,>f,/9 M Z  *j; ,l; p0N+lS0GP +l M f P8 f H8 *j<

cl:@p<+lM fXP8 (h< * J8+lZM5N
MXJ XJM,>f,/9 M Z  
Uaj@+,>f,>=,R/:7X+ M.=n>+ M gp>+ ,l?

M.?0N+ : Zv+l ( Hv+l7NO+# MXZ8+) MXHOQHO *j@Z`  ,l;,5 ZM O MXP8 MXHO 
_QJ

_l@ .n;A, 01,@ *0l@
A (1L@A .0L@GaP+;[
)5J9 MXZ)QZ)+;

) MXN0XN) 
M `QH(4HlQJ +l M fQP8 fXH8@@8 
cj:+l M _p@+l[N5NH MXZNQZN+lZN HN 
N

MXL(XLN+l,ro+l6NR+O MXZRQZR+Q MXH8XHR M 
fXJ QJ +l6N)+V MXZ)QZ)+l MXH8XH)+l6NT+[ MXZTQZT+l MXH8XHT+l M fQX8[`QP8(Ah: *	j<

f L8 g P8QN8+lLg,>,v/9 ZM M f H@ 
f J@

g L@ gnA M+-0

 d+@$o+'+x+|@++
+
+
+
+
+
+
+
+
+
+
++ @,>f M,>h,*/:aZ+'+	 
M,B2Lc+'0B4P

f2L(+' f2P(+'+

f2L(+'+	 
MZ

(2Lf+' (`p+	 (8 H(O+,ro+ 
M

f2L(+'[g (1p@[

( .1l@AaH+,>(,>g,*/:+ g :2P(@aZ+' M[`2Pf+ XM+	Z

`4LZ`+,j MXH`[`QP +	 
M

f2L(+' f2P(+'

g2L(+'0C3Pg+	@+-0 p2((++

( Lp:

w~.

w2L(+."w~.z(+ w~10+2 
wZ

VXL(XJV+ 
wZ

@VXL(XJ@V+-0[d08+8Z`V+8@4V:

XXL`V+D (.X(

( L^5,D (	v,) /( P^ (/  
p2*(+D ( Np@@X1X+IZ.XQZ0XX .*4o +-0

  Hf 
C Jd:

,|  .nD +-0

 (QHd,5 @@`Z`` 
w}jD

w}lE w~nA@@` w~QP` wXH` +-0

 (QHd,5 @@`Z`` 
w}jD

w}lE w~nA@@` w~QP` wXH` 
w|XJ`4Pl.E (0N@*E ,0J@

GaH+lS:GZ`+lXX@7Nw+u*< 00J@,< (0L@GaP+tS:GZ`+uXX8 +-0 (QHd,5 6J3+z X3+{ 4XX8 X4 .nD 0pE (hA 
wjF,4S05(P.(5(H.*6..F ,>,/9,>,/9 Z`:

4 +-0 w.(&(8

.,QLd .XNd,j  w PXQXX *!XJXS(GHX +-0 w*;0J+/.;5N  + 
w,G0L+ (+ w0<0P+  8+

w(G0H+# 0+ w*H0J+& @+ w.H 00N@*; ,0J@

GaP+/[ 7.X+5 X+ w0<0P+2[8 `+ 
w,I0L+5[(7`O+-0

 w*;0J,ro w}A.(N w~A0(P. w~AI. Nf 
w Jf

(al+B[( `+H0J0P+E : Zg+I.J0N+H (+D0J Pg K Pd,|+-0@@Y@@Z w~ HZ 
w J[7,U76 7 Z[,7[@+-0.:@@Y@@Z w~ HZ 
w J[7,U77 8.: Z[ Zp,7[@/:+-0.:@@Y@@Z w~ HZ 
w J[7,U78 9.: Z[ Zp,7[@/:+-0.: w6J +j6N +j@@ +~ w608+n 8"H8 : Zp+n@@p w,K/,@ Lp4lu1l +{., lK  8 Z +{6.p+y ( .hp w

h<

 Lh+u w p.0@pL7Np+~ w

 "L /:+-0 w~  
wV(

w~0 w~ w~ w 
 .
@ J8,>,e/9+-0 w~  
wv(

w~0 w~ w~ w 
@/
  J8,>,e/9+-0.9 w~6J +6N +6J + w~ w 
@ J8 @ H8

@ L8+6 w6P8+ 6H8+ 6P8+  w~

w~ 0 P  0 N  
0++ w~

w 020 +$  +%   
`/
X Jp5J,`X w~@ w~ w~ 
8 J +6 p0P+2S2@RX` w~8 w~ 
` Jh+6 w~ 
` J8

` L8 ` Z8/9+-0.L w6 p 
w

( Lp,>w~,>w~Z.p,>,/M+-0.MZ(p,>,>w},>w~,/LZ*p,>,>w~,>w,/LZ,p,>Z.p,>Z0p,>,7/LZ(p,>,>w~,>w~,/LZ*p,>,>w},>w,/L,>w~Z,p,>Z.p,>,/L w} p H@ 
p J@ p Z@/M+-0.MZ(p,>,>w~,>w~,/LZ*p,>,>w,>w,/LZ,p,>Z.p,>Z0p,>,/LZ(p,>,>w},>w~,/LZ*p,>,>w~,>w,/LZ,p,>Z.p,>Z0p,>,/LZ(p,>Z*p,>Z,p,>,/LZ.p,>,>w~,>w~,/L,>w,>w},>w,/L,>wZ0p,>,>w,7/L,>w,>wZ(p,>,/L 
w~

p L( p N( p Z(/M+-0.MZ(p,>,>w~,>w,/LZ*p,>,>w~,>w,7/LZ,p,>Z.p,>Z0p,>,/LZ(p,>,>w~,>w,/L,>wZ*p,>Z,p,>,/L w~ p P8 p H8 p Z8/M+-0

 "1h+@@"+:

" w N0Q8Z00X +-0.9 d Hp[
wQJdQ,5

X p NdZw[w4r( ` PP88=r& /9+-0[w~[
w2H+2Zw~Zw[w~4t1 X2N`+288=t.O+@+@	`

4!!!8  88D`DhD8D D0 8`>@((>(00```@>`(0@ (((D(06  6 h0HPx
(:,>,> U e@@"@@#@@#  
 4#5H]*/44Hx (n_+	)G/4G4Bp#0n#+	,	#0n .7 "`/%
<	A

<	t.,%
l0.%<	Amp.(.
ej9l`h+n)/4 <
'.5B`# T"l(+	dh+t).4l(`d+{14@34
n+~.4@)|t
n H J,^,^,~1434
o+~.4)zt
o+xU(U*5t	@h+	 H J,^,^,>
p,e7/
p,~4"	U(U*+	#1v,~).4(&6
/6$64"	,	/"H.4`,~,	."H/4`,~l*`d.*ad.*@ej9r+r@l@ph\
Al\
A+

\
A..H,	l(`l
qd*dh+	l(.4[\
AZ\
A,~ (p	!/4 (p	!+	%/24R	%/"42	&)H(
@)
H,~)
H(
@)H,~;n=Z%5X.b'bN::q["$Dg	-Vk&9A#WSj,L~he7`B~"l	n+Gl*68}g5"NPQ*DB$e5Rm!CdW)Dt]w3vu5Z9k1(H%]2Z/?T?0{/J'NM (2>@'0j=@&h/WB;M2@% /H.H;::J(@$0N9(-<bR8kzIF#C<M|,4+a;7A6Yi"Xr+/^6r5\!pgAI*-1|4x!^;!)-z-f3Y8y 'sKc(1p>\2>,N4?
#lv+eh6^?"1/*ai[@{_M+;"~`V*;^8ku+C96Ud4'+A14[8nqc
".hm5<q1DlsI4[P;ar4b%-!znX=
9J.LC~=<~

4+OAe1#`?,XNvR'nbT'uTX+E	n5w,*)Z={Z$mjoV-4Refag?
z!/l4m46GBa2JzOoNl!#kBGLf3
,@hb.z@,HWZmP@B( Rr( N@1a-9y*g'7T%IpZg>,LqA-`
li6HmH*5e+!OoK
k>

CcF-7j.|5dyb{Z
o(CJuR#T=S&$fCtnq-/024579:<>?ACDFHIKMNPQSUVXZ[]_`bdegijlnoqstvxy{}~

 !#%&(*+-/023578:<=?ABDFGIKLNPQSU0
6r5\.z@8?1
k>
h5:#Ei@

B]l$-#Q:	$D7-@* xpD85+2voH/&-{*7h/Hh47gUtov)x%x9 >}8+

/[I?/"v1
}vhD7\:B2.HI(*K,

uEo"xT!u)W}2!R%Y1-:v8z

EA' ^9:>y $ 1)Hd)g

5z6h[+Pi0U?L&&]mM-xn#4Gs?
J#[40~"u8w>,@NC6P2gr{Yq;Dd8X;D,u#h[;+e;z
*= >PVR`T?0$:([P-MiIAP51<v9

\+CX#=a8T5"mN@6$|00-0 w[
  J$Z

;L$.
(+
 $0@

$*@G

aL+
,>	+$,z

w*+3 $(

$*(H. $

w 
&(Jj+,>$,>,>,

n/QZ@@w,
$.@A
`J+&

&3L%+&,>$(L,>:w,>,

n/XZ8,

$ $00P@

$( .0H@G
 ,0P@

G
 .0H@G
aJ+

$+

0p 
$.

$0 w*

% 00L@ % *0H@
AaP+Bw .n
 .1H@A

% 01L@ (1L@AG
aJ+O,>
$.+WZ(aP+U (h

8aL+b 
w0+,>,>,

wXZ0+b,>,>,

wQZ0 
&Jw$(

@aL+g *j
$JwZ(Z$+c$  aN+o,>w,>,

$*+

? $(

$*(H. $

Lf,>,>

& *0L@
w.@,A
aJ+

,>/,>l

,>$(N,>,>,

n/
wQZ( 
&3J%+

,>$(J,>,>w,

n/

wXZ0,

$ $*0J@

$. 00N@G ,0J@

G 00N@GaH+

$,>gC/

$,f,Pf,-0 w*

*Z  N&Z  P'+

2.+

.[
  J&Z

L'+

2 
_ Jf

,Lf,>,>

9*+

7+:z

9,>z,>

L '0+

> * J' 
&,0L+

A 0 P( ' (0P@ 
( ,1J@

A .1P@ ,0J@

AGaH+

L,>gC/&*

m (0J@ ,0J@

G'.

m,>& '(Z,>,>w,

n/& 
w,

^ &XZ(+

<1&QN( &(

m 06L'@D(aP+

f :GZ8+

m ( (0N@ *0L@
A&.

m@,l-0.

w w~ 00N

@ (0N@GaP+

w * Jw~ w~ 00N

@w~*

AaP+

~ +0N

@ 
w~,0L@AaH+

w~00L@ w~.
AaP+

w~0+Y 
0JZLp70U7
w~(J.. Z[,

Z Lf [ Hf 
w~wJc,|+*f7*@Jc,|+,>w~,>	^M<U:

0(@  h(@@

    @(.@@(000

h Kc-aCN=ma-0 w~[
  J*[

w.}8

3N+,>{,dz/~+@ah+
*Z8(Q8	Zw[w44A X N+Z

` L+04P	 
Uaj +,>_,>{,e//~,>+,>,>,

n/~ Z+6*`+,>,>,>,>,>+,>+,Z/ Z+7L-+,>,>,>,>,>,>+,Z/+? + P-+?

+.0N +/[0 H)Z
0 J).0N+$ 0aH+  + h$(/,"+" + h$(.,  Z, 
) J++/,0L+/ + 8$ .p,

+ 
0aJ+.,>,>,>,>,>,>),Z/+/ ) Z+ +*0J+4 +  $h.n,+? + 81P+:,>,>,>,>,>+,>,Z/ Z+7J-+>,>,>,>,>,>+ + Z-8.8=4

*6.0+J7P-+I,>,>,>,>,>[
0,>,Z/ Z-+L[
0 J-+L[0 P- @.h, w~ **,D
aJ+Z.1N+Z7L-+X,>,>,>,>,> *Zh,>,Z/ Z-+Z *Z@ N-#, :0.@ w~( ,0H@

KaZ+m*1JO@r  Hd@@f

, Lf 0 Pc,| Z,7J-+l,>,>,>,>,>,>,,Z/ Z-+m , H-@@,,>,> w~*,>,>,>-,P/ Z* * ,A0 P8[w,>,>w,(/~

*Z
0 J+. 00N@ (0J@GaP+S:GZ0+XL(7*@+-0.~d  [w.(QHd,5 S* Jd,>,/	 Zf,| Z.7,+ . 0p	 (h
 *j
 ,l,>,>

,>,>.,>,P/  .n

[w.0XPP  Hd@@f 
_ Jf Nc,|XZPS,GLP

w~[0 P.[@XHPS*GJP@[
wJp2rp+..w8,~,>,>,>,

n/~:.XX*9[

w,>,>w,(/~,>,> w~0,>,>,>,P/ Z/ .[
  Jp w~,	1L+G7* +G p#h :0.@aZ+A /

p 0A0 Ph+G,>/,>,>,>,>p,>,Z/

/XZ0XZX +I /XHX /~+-0 w~1H+s

w L/ w~ N0 w~ P17H1+r,0L+U00P+pZ

  L1[0 N1+pZ 0P+p[

  L2.0N+iO@0[
0,>,t/	aZ+` 2Zh,>,t/	`Z+c,>_,>|,dz/~+s 0`N+h Uap +h,>_,>|,e//~ 2Z

@ L2 
2(0H+pZ(,>,t/	`Z+p,>_,>}+a 1Z
@ J1+OO+@+-07Hw+wZ

 0L+xO+00P+}@@0,>,>0,>/,/~+,0L+[ ,>,t/	aZ+ wZ
h,>+00P+Z

 ,>,t/	+@+-0

.	@ w~< Hp2xp+ 
.
wZ

(2Lw~9O+9@/	+-0.	 `h+ w+G *QJd,5 S, Ld,>,/	 Zf,| Zp7.+! p (h *j ,l .n,>,>

,>,>p,>,P/  0XPPQVP wZh,>,>,H/~ XXP*

l wZh,>,>,H/~XZP w(h[
@,>,>,H/~XZP

w.nHd@@fPf*Jc,|XZPS,GLP,

wQV0S.BN0XLXd  7@/	+-0.	 w~*0J+L +y w~00P+O +y 
w~,0L+R :+R :QZd,5  wXP` w~ 
  J`

  L`[ 4N[[
 ,>,>,H/~QZ` 
w~,0L+oZ(ZX..QNd,5 XT`"2 .

 0 H@8ra 2Z
X Jp2rp+s .Zh,>,>,H/~

XZ0 .(h9fZ(4NsZ

(,>,>,H/~XZ` w~00P+xZ

8,>,>,H/~XZ`7@/	+@	`K!vWE$@(8	0$0((( @F @0h((aJ|G88D8D8X``  0aJ~8G@D@D@FP.@FP80FP8F@F0-0.t wZ
  J4S, GL([

  L2[  N3Z  P3[
  J4 ,lt 20u0P+8Z
8 J6(u0H+8,v .0L

@(v 00H
@G,v (0L@GaN+3 ( PY

( LZ i H[, v Nd Z Pf 
[ Jf

6(w Hc,|+8 v Pd

("Lf ("Hf.v Nc,| Z2 
3(u0H+SZ( P6,w0L+S.x *0N

@
,x (0L
@G
.x ,0N@

G
aJ+N @ HY @ NZ

j L[, 
v Jd Z Hf [ Pf 6,x Lc,|+R v Hd @"Nf

@"Lf*x Jc,| Z3 3,w0L+mZ@ H6.y0N+m*y 00J

@.y ,0N
@

G*y .0J@GaP+h

  LY 
  JZ j N[, v Pd

Z Lf [ Hf 
6.v Nc,|+m

v Ld 
 "Jf  "Nf0y Pc,| Z3 2 40z,z3P+t,>0x,>,>{,

n/{ Z2 3 40z,z3P+z,>0x,>,>{,

n/{ Z3 3 40z,z3P+,>0x,>,>{,

n/{ Z3 4.|4N

w *@GJ0@@6

3*|0J+!.w0N
+ 
0 JY 0 HZ6.U+

 k Z[+ Z2P}+ wS,GLh+82P}+8+*~5J 00N+ wS*GJh+8 
02J~+8O@6+8 0 02N}@ (6J0@AaP+8 wS.GNh+8 .QNd,5 Z5 4

5XL@ 
wXJ0S(GH0 (h .BN0 3.,>,	/ 5XZ@ 
3XJ@(0H+0S:GZ@+0XP( w 5QP8 P4Z
@ J3 (GH8[84H8[
8QJ@Z`8[@ HpQP  w 3XP8,>,	/

wQZ0@@5 
3(u .0H@ 2,w *0L@
AaN+S Pp7(U7l l

p*~..: Z[ 3 8 HY 8 PZ 
0 JZ 0 H[ Zp, v Nd Z Pf 
[ Jf

2(w Hc,| Z5+t(1H+i 
w .n 0QPd,5 Z5 4

5XL  
wXJ0S.GN0 .n 0BP0 20,>,/ 5XZ  
2XJ XH( wQH8Z

  L2 H4[84Pi[

8QL Z`8[  PpQH@,>w,>,> 3*,>,>,>2,Z/ Z5 5S0GP8[8 P5( ,0H@

l 50y ,0P@

 
3.u (0N@A

aL+D70U7m m 
5.. Z[ ( HY

( LZ 3 @ NZ @ H[, 
v Jd

Z Lf [ Nf 5(x Hc,| Z5 
6aJ+

5.w 00N

@(w *0H
@
G.w (0N@GaP+ 
0 JY 0 NZ n H[, v Pd 
Z Jf

[ Lf 5(x Hc,|+1 
v Jd 0"Nf 0"Hf0w Pc,|+1

w 0`n+170U7n o 5*|..: Z[

  LY   NZ 3 
@ JZ

@ L[ Zp, v Hd Z Nf 
[ Jf 5,x Lc,| Z5

5.w1N+6,>,>,>{,

n/{ Z5 56j +] Uan+? v Pd@@f@@f * Jc,| Z5 wS(GHh+] v Pd@@f * Jf ( Hc,|+] w *j,>,>,>{ 5.,>,>,>3,Z/ Z5 6aH+Q,>w,>,>{ 5,,>,>{,>+W

w 
0`j+X,>,>,> 50,>,>,>3,Z/ Z5

5*w1J+],>,>,>{,

n/{ Z5 5*w .0J@ w,D0A 
2

( (0l@A ,70(@

A 3   *0p@
A 07, @AaN+v 
v Jd@@f

5S0 2/@"Hf . Nc,| Z5 
wS,BL( ,GL(+ 
5,u0L+} (0p+{

wS(GH0

wS(GH0+00P+ wS,GLh+,>w,>,>{,>,>{,>,Z/ Z5 
w

5XL( 2QH(@/t+-0

S( Hd:o.:S
:p.:(Z.,p.,(L..q..,>,/ Zf:?,|  whS*BJ` *j +-0

S( Hd:q.:S
:r.:(Z.,r.,(L..s..	,>,/ Zf:?,|  whS*BJ` *j +-0 w[
  J74J@ 7Z80P+3 
	 Jd,5 Z7

7 .XN0 7XP0 wQL 7J7+@Z(0N+9 7QH(,>,/+=Z(0H+=[( N84N=(
0HXJ8 7 H7Z

  L7+3@+-0

.
d   (QHd,5 Z8 
8

"Z0XN(XJ0 0p (h,>w~,0/ Z9 w,x1L+Q 
9aJ+P  Zf+T

+O 
9aJ+S

+O,f,/ ZfS*.Jd,| Z9 8 9XN 7,+] 0p
.* Jp.*QJd,5 8XZ8 Z;

; pXP0 ( H: 
w~Z.(Q.	 N;

w0w0P+kZ8+q 
0aJ+r v Nd@@f 0 Pf ( Hc,| Z9+s  N9 8 
: Jp2xp+ ;Z

8 Lp ; :.S*GJ *0J+|XL +,> Hp,$/ 
; :. ;XZ@XZ8 9`P+::

;[
0 Jp ;. 0p,0L+	XJ +,> Hp,$/

; :. ;QZ8XZ@3X:+ ,.l;:
: ;.
Z0XP(S(GH(::9t

v Ld@@f : Pf . Nc,| 
;XZ(S(GH( w~

 XL(S0GP( wXP(S.GN([ XN( ,l 9XP(l@/
+-0 (QHd,5  
wXX( ,l.v,>,/ XV` wXP`S(GH` "Z

 XL`XX  +-0

. w* J<Z, Q,	 L< 8 Jp2xp+; <[83P+9@+; ,.l<95 :/+-0.t@@5[O H"7J"+g.0N+eZ(4HeZ( N= 8Z8 Pp2xp+e =.Z

  L?*|0J9E[0 P=6(@9E 
0`j+O,>,>,A/t =Z08 P@ 6( Hp2vp9E

@[
0 J?[( .1P@(AaN+[,>(,>{,>s,dz/{ 
@Z( P?[

@ (1L@.AaH+c,>@,>{,>s,dz/{ 0.p@9R9E "Z

  L"+?@/t+@	`pppji!!p!

?S (8(((00(@@8(

8 (0 0_P00h(@(088(<@ B L`D`$ 8((CR@CTs@CT4'CT9g8$@@F F(F(0`$@ $@8D0B(+LYZ

[+@0-.`n@0,2Z,~YZ

[+@0Z,~.
[ZZ,p/
[(Z(Z,r$
[HZHZ,s&
[hZhZ,.
[HZHZ,p/
[hZhZ,r$
[HZHZ,s&
[hZhZ,+ ,rn,s,s+ ,s,s,s+ + ,s,s+ ,s,s,s,y,y+ + ,y+ + + ,y,y,z+ ,y,t,z,z+ + ,rn,rn+ ,,,

,|,|,rn,rn,+ + ,,|,|,rn,rn,+ + ,,|,|,rn,rn, * *+ + ,rn,s,s+ ,u,s,s+ + ,s,s+ ,u,s,s,y,y+ + ,y+ + + ,y,y,z+ ,y,u,z,z+ + ,rn,rn+ ,,,

,},},rn,rn,+ + ,),|,|,rn,rn,+ + ,),|,|,rn,rn,hLhL+ ,,0,kcJM,~hM *hL,~A
[G
[I
[F
[(Z
[,~Z
[,~ Y .A,E Z .C,E Z .D,E [ .F,E,>,>N,>N,>O,>O,>>~,^C D,I,>A B,,^,~ Y .A,E Z .C,E Z .D,E [ .F,E,>,>N,>N,>O,>O,W>~,^F G,I,>D E,I,^,~,,,.,.,3,5,.,.,:,<,>,>,D,rn,rn,rn,rn,rn,rn,rn,rn,rn,rn,rn,rn,G,Y,Y,!,,,1,1,3,5,9,9,:,<,B,B,D,rn,rn,rn,rn,rn,rn,rn,rn,rn,rn,rn,rn,G,},},! [(
8,~7["[(
HY,~ [hP,~ [H8J8,~5*7 .([/..
"[(
8,~"[hP,~"[H8J8,~ [(
8.
Z,~ [(
HYY,~ [hPHY,~ [H8YJ8
Z,~7N[+O4.S NZ@aN+K(.+I3NZ,~(.$
`N$
Z+K6@Z+R *@,2,~ *,~U*7HZ+P *`N 
2HQ1H+X@
@,~Q#[4NcY5B]+fB+0j`NH+0o(N5N\6 [+tQb+0v+t6@Y+t@,2@h+t6 [+i@,2U(U*+t@h+tH(N4No-.l`n +u6 [+{+v-.o`n +u6 [+vQb+0s+{,^d.+86 [+{@,24(yU(U*+t!( *+t@,2@h+tR#[4NY5B+
B+0`NH+0(N5N6H[+Rb+0+6@Y+@,2@h+6[+Rb+0+,^d.+86 [+@,24(U(U*+!( *+@,2@h+7@[+>7@Y6@Za+fBA@@B@hC@@D Y .D,E Z .F,E#[+.,>,>O,>O,>,^aN+3,>,>N,>N,>O,>O,>>~,^(N5N+6 [+9,>,>S,>T,>N,>N,W>~,^+0MC D,I,>A B,I,^,~Q7@Y6@Z+t@,2@h+t 0@
8@@8,>,>,e>,^,~,>,,^4NM4HM(NH8,~#
,rn,q,e,j,k,m#,Z,c,e,rn,n,p,X,^,c,g,rn,n,p,X7 (,~,*Z HY*
[ JZ, 
 Z,~,)*Z HY*
[ JZ,) 
 Z,~#7 Z"h,~3hZgZ,~3hZ+ihZ,~@h,~ &[,~3*[ 
[,~2j[ 
[,~3(Z Z,~2hZ Z,~#
7 ["j,~  *,~ @
4Hx)~d(@d*.T,~ 
 (,~5JD 
U,~ 
 (,~7@4J4(2hU+3(T+
/T7 l(@) 
@,~3(V+2hV+
+@,2 
W7 "
@,~@,2@h,~ &(6@h(Fh*6 *,~ @
)|h(FW,~ hX,~#%((
'.7 Y"j (,~7 ([({d(~)?27 Y"` 
 (,~jY (,~4HD,>7 (3HW2JWa+'aj+'8l(5('U(+Y,^7 " *,~3HW2JW+,@
,~3HZ0J+.Z,~hM *,~bJM+),}*
,~,>,>,>,>_,>[,e/,^x,^x,^,^,^Z

[4ND0,n+;/,A,+B0,+= ,+B0,M+@/,A,+B0,Q+B ,+B ,4LDan +E@h,~4(GU(0LU*,~1L+J Z1L 
Z,~S( *,~@ ACDF 0 8 0 BC     #\c?H'@@,>_,o/B,~-0 w $38C+g6C

\F,04:g  PH  HG 
.*

 LO@+n6L+k,>_,o/B ZO@[0v

+n-:(ZX+ (Z

(w~/<"QHd,5 [
d<
QJ`,w~5Ly@pwxw~ w~QX R``+| w~[@XX R``QX@0w[d.<pw*w~Z,(qQ,	Q8Z. *8o J +-0.B /w~  
w.
QJd,5XZd

d.

D LpZw~4N8Q dX 
w~[

(.

 *:g [(.pd ( Nw~[`,>,>,(/D+4V dX 
w~Z.(qQ . *:g w~8 P 
p J@p@/B+-0 /w QVd4V),5XZd

wZ.0qQ .< *:`8

 L d.D H0p@+-0

.E 1(}+.,><,e3+P

w.= Np0=+@D1++5+H+I+Q+`+o++7H+7@@+9,>_,o/B Z[3Np+C1n

+>,>>,>>,e3/D p,>lvs[,>lvs,>?,e3/E (QH+n 0[(P AF7Z+:

 L8p+,>+^  Hp *?. Np2xp+O,>,*/B4:9L,>p,/B+,>,^/B p w*@.
p Jp2xp+Y Ad4NY +[9U,>w, +P@@l:

 /p8 H0p,>,*/B5:+,>,^/B p w*@.
p Jp2xp+h Ad4Nh +j9d:

@@0p+: 
/
p8
 J p,>,*/B5:O+@@p  Hp,>p,*/B4:7N+v[0P+@@+y 0 Pn,>_,o/B4Z 10s+qZ*pQ*	,>Z.pQ.	,>Z,pQ,	,>,o/E+q7Jp+O,>p,>,>p,/E+@@p  Hp 
1*s+Z0pQ0	,>Z(pQ(	,>,o/E,>p,*/B4:,>w,^/B w DA5H7Np+O,>p,>+6H+

<F,0+[

p/.

3L+ 4F, + G H 
H J@@G@/E+-0.D@@p w 
$ Jp

p`L+&(L Lp:p+# p,>lvs[,>lvs,>@,e3/E:p p(Z Zp4Z:>j 
p`J+0(J Jp:p+-

p0l

+4,>4vs,>A,e3/D+* w(A Hp0H+9,>B,>A,e3/D+:gO/D+@	`R04V004VR"04V0$V4(DT4(x y!%MMRPR

RY w ~M MLMP i!LaLYUU8QaMMvQ%N.rNNNNMLwM|=P0`@ p p@Pp`Pp

PP 0@`P@P`P@ 0Pp@P0p
 PPpPp``p@P	0p

	``@	`Pp

@p 	 	pPpp

` @P
P
pP`PP

pP@00

 0PP00p@P

`p0P`p @Pp@``pP@

PP `0``Pp

0P`P`p@p` p 0@@ @  0

@0`P

0 P`0

@0p0@ @ P@ ` `00p  P0p00@@ P0@"00

P0PP`p P 0pp `  P!0p p!! P!pP`P

%0@"P"@P"p`##@0@#pP$`$ #P$0%pp%0%@P `%`P&P0P'`P@'``'P

'@`P(PP(@``P)@P`*@0@*P`0@0@*0P+p`P-0@,@,P-0,p ` - P.``P`P= @        00000@P@P`  @  @ @  @ @ p@     p@@@@@@0  0@      @ @@P@DD D@ `  @ p p   ( ( @( @@ ( ( ( (     ((@ 00@0 0 	 P@  `@p@p`p@p@pp  @ 00 0@  00 0@  @p@p  @p00 P@P@@@ @@  @  @ 0 @0000 `` @;SYNTAXACT"FUNCTION"-0

 Uah +^ 
w~(

,Qal+^ wZ.hQ.	,>,>_,>e,e//jS* Jd6,U+b w~ l / Nf+c w~ <u Pf,>f,/k Zf,|  w~(0epk <Q H` *jl

w0lpm(fhm*k0J+sO@r ` @2Nn+r : Z`+s,ro w.k(n *3N@
,oA
aJ+z,>@,>_,>f,e//j +-0

.o w~[
  JpZ

  LpZ0 NpZ000+ w~,>h,/k,>,>_,>g,e//j+b w~ .0HT@

pZ0 *0P@
AaN+F Hp

p0p Pp *0P@
 .0P@G
 (0P@G
aJ+

p(

6.4Q+3,>_,>h,dz/p+3

p(

 4Qan++ pZ4Q(q. 
@ JH .2Jq@

p (0L@G 00L@GaN+) w,>h+1Z((/(F Hp+30h Pp p*r3P+3 w~,>h,/k,>,>_,>i,e//j,>p,>w,U/p

w~ ZpQZ0 p0rpp 8 
 2Js+? p.s0N+? 
@1J+?,>_,>i,dz/p p(.j (1N@ 
pZ

(.j 83L@A,j .0L@Z( ,00@

AGaH+Q w~,>h,/k,>,>_,>g,e//j+\ 8Z( Pp2xp+\

p.

Z0 Np(r3Hp9R w~,>h,/k,>,>_,>i,e//j9R 
w~R0pt,t0L@ p (0N@G`PO@r@/o+@	`).<QD<QMRh84QGs$DQ``.0.`B`G"#@@&@@0h 8SDG(@((9C`C~3@C&lgC&vC@C2|s@C2:C6C6'C6MdC6Md'C6|C@C:MmCNMc@CR

,gGF@G"#@G2|s@G7RG7TG7YG7CQG7CRG7CTG7NG>u)gG?`G?C@G?@G?$GGNMc@GO-I3@I|gIGI$GI%dGI
dS@I
dSQI
dSTI~3@I~:I~KGIMS@IF@Ie}I&i`I&vC@I2|s@I2:I6'I6Md'I6|C@I:MmICyINL{GINMc@INMjIO-IR
LGS
NLgS]SDGSMS@SMmSuGS~#@SO@S:$^S;!`S;!h`S?`SNDmSNDhgSNL{GYq`Y)`Y!`Y2)`Y3!`Y>9`Y>:[A`[B@[B@[&q`[&r@[&r@[>!`]&vC@]?`]?`]?`]?`]?!`e

,gGF@G"#@G2|s@G7RG7TG7YG7CQG7CSG7CTG7NG>u)gG?`G?C@G?@G?$GGNMc@GO-O3@O|gOGO$GO%dGO
dS@I
dSQI
dSTO~3@O~:O~KGOMS@OF@Oe}I&i`O&vC@O2|s@O2:O6'O6Md'O6|C@O:MmOCyONL{GONMc@ONMjOO-OR
LGS
NLgS]SDGSMS@SMmSuGS~#@SO@S:$^S;!`S;!h`S?`SNDmSNDhgSNL{GYq`Y)`Y!`Y2)`Y3!`Y>9`Y>:[A`[B@[B@[&q`[&r@[&r@[>!`]&vC@]?`]?`]?`]?`]?!`e

0L+ nO,~@,~6H+ q,\ ZO@[

0L+ v,>vs,>4vs,>((,e3/(6,~@,~6H+ y,\ ZO@[

0L+ |:@@hp+ }+!%@,~6H+!,\ ZO@[

0L+!:@@hp+!+!%@,~-0.(7Hp@@pO@Il,!kZp4:!$7Lp+!
1J+!O+!,\ Z@aZ+![1N+!,>(),><vs,>((,e3/(6+!$6Hp+!!,>p,/(7+!#,>p,>,>p,/(6@/(7+-0.(7  Hp@@I6J+!*O@,\ Z[0N+!.,>vs,><vs,>((,e3/(6+!1,!k p8 H Z p/(7+-07HI+!7

k 0an+!7,>w~,>w,X:+!9,>w~,>w,XI/(8@+-0 w~*(8 ,0J@

 w0(9 (0P@A

aL+!BO+@+-0.(7 w[ Z  *j(8 ,l(9.(:+@<!I+!S,ro+!M+!N+!O,ro+!P+!Q+!R (:+!R (;+!R (;+!R (<+!R7(< (= Zf,>f,/(7 Zf w *j(=S, Ld,| w QT  .n(>n(> 0p(?S*GJPd  QPd Hp,5  
pXR( ,XLHXXH.(?0N+!eS:GZH+!eXJ`XVH((@0H+!iS:GZH+!j

wXLX@/(7+-0.(@ (
Z*'gZ

2j+!p,>(),e3+"O@p	 I Pp
[0H+!t@@I+"d,%.6x+!w +"h:p	. X8@@I[70<(W+!~6jp	+" p
 PI.
 (+"h7jp	+"d[ p	.[8 
$(W3*D(W+"d 
p	.

( Lp
 (A Pd,j  p	 . XXVP>p	[
p
 Np0J+",4H".[
 0j

+" p	.[87(D(W+",>(*+"*(A0J+"ZX0N!+"0(*4P",>(+,gC/(7 :XZX+",>(+,e3/(7+"h.(*4N"0(A10+",>(+,gC/(7 .n(> (h(?0(@0P+"#S:GZP+"&XTX 
Xaj+"&S,GLP *j(>Z`P

XaL+"a,>,>, @QHP[
p
/*+@,"0+"R+"8+"@+"A+"C+"D+"H,ro,ro,ro,ro,ro,ro+"J+"L+"M+"P ,l(>Zp
n(?[P,>ZP,>,!:/(8aZ+"R,>,!C/(7+"a ,+"J ,BLP+"N ,BLP+"K ,BLPZ

p
1L+"Q :+"Q ,l(>l(?+"R ,l(> :+"Q ,l(>+"G ,l(> :|BZP+"R ,l(> :z(? ,>,
r/(7 ZP[P,(@0L+"XS:GZP+"[XTX Xap+"[S(GHP0(B0P+"^S:GZP+"aXTH 
Haj+"aS,GLP  
p	.
 Z(+!y:

p	.

  N0,\ Zd +!r/(@+-0.(7 w*(81J+"m,>(,,e3+#3O@r (A Nd 0QPd,j  (h(A *j(@

wXLX  8q Pp5P"w +"~*(B4J"~ Uan +"{,>_,>(,,e//(8,>p,>(C,>(C,

n/(6 Zp

(q Lp w0(D1P+# 8+#[8 `7Jp+#

.(D4N#% Uah +#	,>_,>(,,e//(8,>p,>(C,>(C,

n/(6+#3X(E+# (E Pd@@f Xf ( Hc,| Zp+#%d   0QPd,5 ZpS( Hd,>(F,/(7 Zf,| Zp7*+#

p .n(F 0p(G & H0 *j(G,>(H,>(H,>(C,>p,>p,P/(I Zp

p .XN0 wXP0S(GH0 p0(D0P+#)S:GZX+#)XV8,>,>(I,>(H,>(C,>p,>,Z/(J Zp 
pQJX

pXLX w0(D0PXV8,>,/(I+-0.(I[1H+#8,>vs,>$vs+#oZ

 Lp,&y Z[0N+$,  Hp * Jn,>_,o/(75Z#q I Np@@I,\ Z p((J0Hl [

 .0L@ 00L@GaN+#J,>(-,e3+$)[0H+#M:@@hp+#P,!k

 L Z0p4:$G[

1L+#A[0N+#k 
p8
2J+#k 7X@p+#[((?0H+#[

`aL+#[,>(H,>+$2d ,\ Z[0H+#`:@@hp+#c,!k

 L Z0p4:$G[

1L+#g,>vz,>4vs,>((,e3/(6,\ Z p N,>(H,>p,!2/(8+$( 
p JI[

1L+#q,>vz,>4vs,>((,e3/(6+$Gd  p2N+#t:O@hp+#,>,/(7   p[
 p.
 p Jp2tp+#

P Lp0(K0P+#}S:GZP9#xS(BHP9#x,&y Z p*(K1J+$	,>,$H/(7 Zp  8p3P(E+$*[

8p,>,>8p,(/(8+$*,>(L,>,!2/(8,>p ,>hp,
p J,\ Z[

0L+$:@@hp+$,!k 8 N Z8p4:$G[1N+$,>vz,><vs,>((,e3/(6,\ Z[
0J+$:@@hp+$",!k 8 H Z p4:$G[1H+$&,>vz,>$vs,>((,e3/(6,&y Z p P,>p,"i/(7+$G p N+$G p 
 aJ+$E 06,<(W@((LMaP+$4,>(H,>p,XI/(8+$G 
p,(M0L+$C (`h+$A,>,@/(7 3X(E+$@/(-

7.4Q+$A,>,>p,U/(8 Zp+$A

pS.GN0,>(H,>p,XI+$F,>(L,>+$F,>(H,>,!2/(8 p/(I+-0.(J w 
 aj+$N,> ,>(.,>_,>(.,dz/(7d

2Lw+$R w,>h,>(/+%  @p2H(E+$U@@p+$W[

@p8

Lp

p.,QLd,5  Xp (A Nd w Pf Xf,j Zp p 
w,(Ml(8 .n(9S0 GP( pQH@

pXL@4L$m 
[(p46$m p.

@p 0 Np N  
p.
70(+$l

pXL8=6$e 
w (`h+$p pS,GL@ w,(N.(NH

*(OD

aL+$|,>,@/(7 Zp3Z(E+$|,>,>p,>w,{/(6 pS*BJ8+% p .|BN   8p3P(E+%7vp+%

p.

 0 Hp.(90N+%*(K ,0J@

.(K 00N@G

aL+%,>(C,>,X:/(8 
p((O0H+%,>,(/(7+%*(90J+%,>(L[ ,>,X:/(8=v%

p[0 Hw.(80N+%$ 
 2J(E+%,> ,>(/,e3/(8+%-,>p,Qv/(7 p ZpXZ8,>(H,v/(7 Zp p w 
  J@

p P0S.GN0 
w

(al+%),>p,'H/(7 pS.BN ,>(H p[h,>,XI/(87p@/(J+-0.(P@@p@@p I Hp[
1J
+%40J	+%7LppO@p,\ Zd @@I+%1[0N+%l  Hp,\ Z 
I`Jl ,!k Zp4:%[0N+%W,&y Z p*(9 ,0J@

.(: 00N@*(: .0J@GA

aL+%T: * J p: p P8p,>p,/(7:

@@0p,>p,/(7  
 (p N q 0 P(p8 H@+&x*(91J+%u 0p(P+%u[1H+%Z,>(0,>$vs+%h

I`Ll ,\ Z,!k Zp4:%[0P+%d,>p,>p,_D/(8 Zp4Z%d Zp+%r ,7Jp@

IaL+%j,>(0,>(1,>((,e3/(6+&x,>p,>p,&/(8+&x (0N@ *0N@
GaH+%sZ

 Lp,&y Z+%u,#4 Zp4:&x[0H+&d @@I

(A Ld,j Zp p 0p(Dp(Q pQH8,\ Z,%. Zp5:&O+&x

p pXP0,>,
r/(7 p[8 Hp*(90J+&S:GZ8+&
XN

 al+&
S*GJ8

pZ0 Np((D0H+&S:GZ0+&XL8 8ap+&S(GH0 p Pp[

0L+&HO@r paP+&,>(1+&,d @@I (A Hd,j  *j(Q ,	l(? .n(R  Pp p*(81J+&",>(2,e3/(7 p0(D0P+&%S:GZp+&&XX8 6:
@@(p=v&&:

@@0p: p P8p 1(|+&.,>(2,e3/(7+&x,\ Z[

0L+&1,%.+&50L+&5Z Hp,&y Z+&6,#4 Zp70p+&x 
p,(M1L+&:,>(2,e3/(7 p((R0H+&>S:GZp+&>XX@:

 p N0p[1P+&* 
p

/, L(q,>,/(7  8pXP` p H Xp p PI6Hp+&K p+&x

p.(K 00N@((G *0H@
AaP+&g.(F (0N

@*(F 00J
@G.(F *0N@
GaH+&b 0 PY 0 NZ 
(3 J[, (E Hd Z Pf

[ Lf p*(9 Jc,|+&x (E Pd 0"Nf 
0"Jf((F Hc,|+&x (A Nd,j Zp

p (h(K *|BJ0 
pXJ0Z`00(S0P+&pS:+&rXL( (ah+&sS:GZ0 p,(80L+&v :+&v:(8 pz(S /(P+ ( Hn,>_,o/(74Z&}S:

,~,>_,o/(7,~-0.(76Hw~+'",.l6Lw+'"0.p  Pp *6Hw@
 .7Lw~@A
aJ+'

 q L@r  hq N@r7Pw~+'

 . N0q P0q7Lw+' 
 0 P(r L(r *.j[0P+'l ,\ Z,!k Zw~4:'47Nw~+': ( H@p: Nhp+',>p,/(7[0P+' :@@hp+'@0P+'=: * J8p,\ Z@@Id ,!k 8 H Z p4:'4[

1L+'+,>v{,>4vs+'>,\ Z,!k 
8
 J Z(p4:'4[0P+'5,\ Z,!k 8 N Z8p5:'6O+'G:@@8p[1N+'9,>vz,><vs+'> p.:,>,/(7O@I+'@,>vz,>Dvs,>((,e3/(6+'G,>p,/(7

  
8p J0q 0 P8p8

 L,\ Z@/(7+-0.(T w[
  Jp[(Z

P LpZ0 Np ap@+'SZ
 Z

83J+'S,>P,>_,>(3,dz/(6 wZ
  Jp

pZ Z03n+'XZ0 Hp((>0H+'[ : Zp+'[@@p p8  p Pp2rp+( 
w.
Z( p.Z Z

`0L!+'f0(A1P+'f (h(Q ap@+(6*U+'j:(QZ:l1+'k:(QZ:l!Q:	 Zp6(U+'n:(AZ:l1+'o:(AZ:l!Q:	,pZ.4(oQ. 0p(T*aJ+'w,>P,> _/p,>,>(4+(((Q0H+(,>,/(7 Zp,>,/(7 Zp p .3P(E@ 
p (3J(E@AaN+(20+(,>P /p,>,>_,>(4,dz/(7 ( Hp,(?0L+(

0(U1p+(

 * Jp0(U3Pp9'^+(*(V (0J@,(U .0L@AaH9'^,>P /p,>,>_,>(5,dz/(79'^@/(T+-0

 w 
 aj+(&

`l+(&,>,@/(73X(E+(&/0F(6*DQ+(&,>(5w,>h,>(6,e3/(6@+@	`(dfr<UMHXF(g	7u	(i(m(o	^	cfp#>D(x(8Y3!`Y	`Y2)`Y)`Y:)`Y!`@PPP`X	-XH@8(0Yq`00D0(0@0 $(($@,@B@(8F 8``@(@P<`X(`

%//{Z*/{0J+)	S:GZ+)	XBZ./{0N+)

  p 8,>,>,>/|,)//| [p,>,>p,(//} +-0

./| w~*/z1J+),>/W,e3//{ /} N_ Nd w0P+)%,5  
_j/~ ,l/~ `QN4N)'QB8+)' 
/zXJd,j S* Jd

w0L+)- w~(/0H	+), /+)0 0+)0 w~(/1H	70 0 Zf,>f,//{ Zf,| XD70+)9 (h0S*GJ 
w1J+)9S.@GN w~*00J	+)WZ XD w~XN000P+)@S:GZ+)AXB8

Ual +)N 8Z Hp2xp+)N .Z8 Pp*/0J9)D(01(9)D6*@9)D,>_,>/W,e///}+)N9)D 8Z Hp2xp+)T .7089)OZ
8 JpXB(9)O,>0,>w~,(//}+)c .QNd,5 XD 0XP w~XH*00J+)^S:GZ+)_XB  w~XN000P+)cS:GZ+)cXB8d   //|+-0 p `,>0,>,X://}4:)k,>,({//{+-0,\ Z,#478+[
1J+)q,>v~,>,vs+)u,!%76+[1P+)w,>vu,>Dvs,>/X,e3//|+@@Z`S* GJP 
aJ +)},>,>/|,*//} Xp Vq , L,>0,//{,>,({//{+-0 p@@	,>`,^S//{  Vq46*"*00J+*
,>/X,e3//{+[0N+*(00H+*,>X,>/Y,>/Y,e3//|+[0H+*,>/Z,e7//{S,GLX

0 L_ Ld /zXNd,j  `XPX qQHX[
,>,>,(//}ZXS,GL`[

U5L* XVUQVU+ UXV@XVU+-0./| p `0H+*.7L`+*'Z05P*2 0 P_ Pd /zXHd,j Zp 
p

`XL(R`(Z`(@+*n `

`0L+*K7P`+*3Z
@4J*3,>/Z+*Y 
P Jp,>0,>,XI//}4:*n p Nq001P+*X7JP+*I Uan+*>,>_,>/[,e///} P Pp @ Hq [
q. Hp2rp+*E HZ

h LH9*B[P,>,>P,(//}[q8QPq+*J@@q 0+*c P Pq [q. Pp2rp+*Q HZ
h JH9*N

P Lq [q8QNqZX0H!+*W :XZX+*Z*00J+*Z,>/[,e3//{+*n*01J+*b Uan +*_,>_,>/\,e///},>,>0,>/|,

n//| Zq 0 N_ Nd[,>,>,(//} /zXHd,j Zp 
p

qXL([qQN(ZqXP(Z((0	0HXJX//|+-0.0	 p Hp 
  JpS,GL(,>0,>,XI//}4:+N p 8ap+*z,>_,>/\,dz//}++N p 
 aj+*,> ,>/],>_,>/],dz/0

p Lq /} N_ Nd /zXPd,j Zp p7J ++B   Np@@p@[p Pp2vp++

Z
p.
[

(.

p8

 Lp9+ p&( Hp.(QHd,5 p ZpXZ8 p

pXL@QN@ 
p (`h++ ,l0
7Lp++I@@p@[p Np2vp++>Z
p.
 ( [. Hp2tp++9:

p P p.

XD0Z`0 P0N++7(/{0H++2

p p.S*GJ8*0 (0J@00 ,0P@

GaH++.,>/|,>,X://}.00N++8,>,(//{++8

pXL./{0N++8,>0

[,>,X://}++8S(GH0.4++[,>,>,(//} p

@ 09+[p,> p,>h,(//}++I .QNd,5 p ZpXZ@ 
pR`(QP( p

 `l++IS.GN( p qXP8d  [
p,>,>p,(//}@/0	+-0(0

5H+S,>_,>/^,dz//},\ ZO@[

1L++\,!%Zp4:+k[1H++\,>vu,>$vs,>/X,e3//|+@@p 0
Uaj ++h,>_,>/^,e///},>,>0,>/|,

n//|XZX+,\3Z0++p,>vu[,>lvs,>/X,e3//|,~ 
0 J_ Jd

/zXLd,j,~-0

,>`,o//{6X++z,>_,o//{3Z0+,,>/_++2X0++|O+,>_,o//{3Z0+,,>vu[,>lvs,>/X,e3//|+ *XJ` +-0,+t66+,O+ 
0 J_ Jd

/zXLd,j XV`+-0,+t66+,O+ 
0 J_ Jd

/zXLd,j XV`+-0./} w~ *2H0@
 ,2H0@

G
aJ+, :+, : Zd p X6NP+,% w~2H0+, ,>/_+,' 
0 Jd@@f w~ Nf 0 Pc,| ZP+,( w`H+,(,>/`,e3//{[P0H
+,. 
0 Jd@@f w~ Nf 0 Pc,|+,U 
P.00N+,E w~3H0+,7 
P.00N+,@ P,01L+,7 P005P,:,>0,//{,>,>/`+-e

P*00J+,V P[@ Hp

 al+,V,>/a,>/a+-e P,01L+,V P001P+,V+,7 P,00L+,I,>/b,e3//{+,V P000P+,M

P 
0`J+,7

P*01J+,V Uap +,S,>/b,>_,>/c,e///|,>P,>0,>/|,

n//| ZP7JP+,x[P0P
+,]

w~2L0+,x,>/c,>/d,>/d,e3//|+,x

P*01J+,x P(00H	+,e 
P[( Np 8ap+,x,>/e+,? 
P.01N+,x P,00L+,w P608+,m w~2H0+,x,>/e,>/f+,[ P,01L+,w P000P+,w

P*01J+,x P(01H
+,x 
P.01N+,x,>0+,77PP+-

w~3L0+-? P001P+-

Ual +-,>/f,>_,>/c,e///|,>P,>0,>/|,

n//| ZP[

P0L
+-7NP+-,>/g,>/g+-e 07NP@ w~ ,2H0@

AaP+-,>0+,77JP+- P,/z1L+-,>0+,7 w~2H0+-3 *7PP@
 (7NP@G
aJ+-,>/h,>/h,e3//}

Ual +-,>/i,e7//{ 07LP@ (6NP@A ,6JP@

AaP+-%,>/i,e3//{7NP+-87JP+-),>/j,>/j,e3//}7PP+-,,>/k,>/j,e3//}[P0H
+-0,>/k,>/l,>/d,e3//|+-8

P600+-8,>/l,>/m+-.7PP+-6,>/m,e3//{7NP+-8,>0+,77PP+-@ P(00H+,7[P0P
+-> k8,>+-7NP+-@,>0+,76NX+-B@@p+-N X `

h,>0,a%//{ Zp60p+-H +.),>/| `,>h,(//},>/|,>`,(//},>/|,>,(//}7LP+-[ 
P.00N+-[

P600+-[7JP+-U,>/n+-W w~2H0+-X,>/n,>/o+-e7Pp+-[,>/o,e3//{+.) 
P.00N+-p6LP+-_,>/p+-e 
P.00N+-c

P600+-c,>/p+-e7LP+-g,>/q,>/q,e3//}+.) 
d0J+-j PS, GL  ,7HP@

 *7PP@
G

aL+-p,>/r,>/q,e3//}

w~ L_ Ld /zXPd,j  
PQJ` PXN` PXH`

PQL` PQP`[
pQJ`7NP+-|

PXL`

Pl0 PXP`[
P0J
+.T``+. PXH`7HP+. PQP` 
PXJ` PZ
@ .0J!@Z@ ,0H!@

GaN+. 
P[( Pp6(@+. @+.

0 Ld@@f @ Nf * Jc,|XZ`7JP+. P,01L+. 
PXX(7HP+.[P1N
+. P(/1H+. P*01J+. PXX 7NP+." P(/1H+." PXX8,>,)//{[,>,>,(//}[,>,>,(//}7@//}+-0./} p X7HP+.9[

P1L
+.9 P(01H+.9

P.00N+.5,>/b,e3//{+.C P*00J+.: P 8aP+.:,>0+.T P001P+.C 
Uaj +.@,>/r,>_,>/c,e///|,>P,>0,>/|,

n//| ZP7PP+.E,>0+.T7JP+.O P001P+.O 
Uaj +.L,>/s,>_,>/c,e///|,>P,>0,>/|,

n//| ZP7NP+.S P*/z1J+.S,>0+.T7HP+.X,>0,//{,>,>/`,e3//}+.q7LP+.Z,>/m,e3//{ w P_ Pd /zXHd,j  
PQJ`

PXL` PXN` PQP` PQH`7JP+.g P001P+.g 
PXX(7NP+.k P*01J+.k PXX8[,>,>,(//}[
,>,>,(//}7@//}+6H+.t,\ ZO@[

0L+.|,\ ZO@[0P+.~,>vs,>Dvs,>/X,e3//|,~[0P+.~O,~@,~-0./} w[
 0j+/ w 8 @@@p (= Hp 
p2jp+/.
p&* 2X\0M+/

[\1 Pp4P/  \1+/3x\0M+/ 8 Zp+/ =/@//}+,>0,>0,>0,,//|,~-0

(/s4H/ p `6L`+/,>/t,gC//{,>0,>0,>0,,//|+,>/t,>/h,e3//} Uah +/#,>/u,>_,>/u,e///|,>0,>0,>0,,//|@,~ Uah +/*,>/v,>_,>/u,e///|,>0,>0,>/|,,//|,~(/s4H/0,>/v,>/w,gC//},>0,>0,>/|,,//|,~(/s4H/7

aL+/7,>/w,gC//{,>0,>0,>/|,,//|,~ Uah +/>,>/x,>_,>/u,e///|,>0,>0,>/|,,//|,~(/s4H/D,>/x,>/w,gC//},>0,>0,>/|,,//|@,~ Uah +/K,>_,>/y,e///},>0,>/|,>0,,//|@,~ Uah +/R,>_,>/y,e///},>0,>/|,>0,,//|@,~@	`MWRt1+nR80	7-'0!
&	T	0$	3	O0&0'0)
!0*0-0/010103
:7
07
08080:0<0>
0?0A
0B0D0F	#0H0K0L<U1I1KD1M1NIK1O1Q   (@G#hgG#kGG:'Gk' 8@XX((8((XP F@(8(``( 00XXX0(( 8k:N@000$@8@M7 K: S?H:WMe}D`}X~~XSubroutine namestring or 6-digit integeras unit specifiersUNITa rewrite statementan asteriskas format specifiersa rewrite statementa namelistRECrandom accesskey relation/key of reference specifiersENDRECin an indexed readan asteriskin an indexed reada namelistENCODE and DECODEREREADUnformatted I/ONAMELIST I/ORandom access I/OIndexed read key specifiersUNITRECC~9C2:C2|pC2|s@C2|t(C6 C6'C6Md C6Md'CNMiCOwCR

,`G|`G/

Gey`G@GZG"\J;G2~9 G3k:G7NG7NG?@G?C@G?$@G?$GI|rIRI$II$RI$PI
d\IInI}jSI~H7I~KGIex:Ie}I&l`I'4\ZIJ,IR}OR|H SI S&

E(Sj/;U&U&9:U&-|@U&~rU'	ZU:~@Uj/@c$Ic$Rc~0c~9c~:cMPcFcF@cFIc2|pc2|t(c6 c6Md c6|@cNL{@cNM`cNMicNMjcO-cR

9 kN.)<uF@ @@@(@8@"P`0@0@"REWRITE statementREWRITETYPEPUNCHACCEPTREREAD-0 7U 73 Hn 6,>`,o/7V4Z1^,744L1Z2X7V+1Z,>74,>75,gC/7W,>7W,*/7V4:1a,>,.*+1a 7V 75 Zn=61T,>76,e3/7V+,>7X,.*/7V,~,>7X,.*/7V,~ Uah +1i,>_,>76,e//7W,>7Y,.*/7V,~,>77,>77,e3/7W Uah +1q,>78,>_,>78,e//7Y,>7Z,.*/7V,~-0.7W w~ w7HX+1z

X0L+1y"w< 8,>X,>,2
/7W Zp w.67LX+2 X0P+2"
w<
 8,>X,>,2
/7W Zp 7Z Pd p Hf 
p Jf , Lc,|/7W+-0.7V w~ 
  JY

  LZ.7[1N
+2 Hp7*U779 79

p.7[(N..: Z[, Z PY [ ZZ 
w~,7\1L+26.U+2 7: Z[+2 7: P[, Z ZY waN+2 "Y+2  Y/7V+-0.7\@@p@@p w[w.w Hp2tp+3	 * Jp@@p

P0L+2-ZP.7]5N2, :+2, :.zp+2 P0N+21 P[X.hp+2 P7H`+26 
`0J+25O@p926@@p926@@p 
`0J+2<,>`,>p,1s/7W  0.pp@@p+2| ` `7P`+2f,7]1L+2B,>7;,e3/7V@@p+27Np+2H 7Z Hd@@f

X"Lf * Jc,| 7(X+2@ 
X Jp  `[,>,>,(/7W ` `0P+2R `,7]4L2d . Np+2l

`0L+2U[X+2e `0N+2l7HX+2[ 
X0J+2ZO@p92[@@p92[@@p 
X0J+2a,>X,>p,1s/7W  0.pp@@p+2l X XaP+2d :+2e : Zp+2l

XaL+2h :+2i : Zp[
,>,>,(/7W

p$

p.lp7Jp+2|07^5P2t

7Z Ld@@f 
X"Jf . Nc,|+2|

X LY 
X JZ 7; N[, 7Z Pd Z Hf

[ Lf*7] Jc,|  P[,>,>,(/7W .QNd,5 Zp6Pp+3 pXZpQZp+3

pXL@XLp

p 
p J0QV0.4+2%Sp[p./7\+-0.7Y p   `7JX+3,>vs,>v{,>7<,e3/7Y [. Np2rp+3, H X `[,>,>,(/7W,>,2!/7V Zp[,>,>,(/7W@@d@@,>X,b/7V Zp[
p,>,>7^,>7^,J/7Y[

,>,>,(/7W 7_ Nd,j [pQPP pXHP[
p JP

_QLP93 p 8[,>,>,(/7W,>7^,>p,(/7_+-0.7` (QHd,5 Zp,\ Z[
1J+38,>vy+3m@@pO@p:p,!% p<(.p  
 p JpQJ@>

.7\1N+3K[1P+3C,>vz,>Dvs+3m,\ Z,!% 
p<
(
.
p  8p HpXH(>,7[0L+3L,>7<+3g[
0J+3_ 7= Hn,>`,o/7V5Z3[ 7= Nn,>`,o/7V Zp5Z3WZ0pQ0	,>,>7>,e3/7W+3x p<(.p (XH@+3^ p<(.p *XJ8,\ Z+3b p<(.p ,XL [0H+3i p0.+3g,\ Z+3i,>7>,e3/7V+3x@@p p`N+39[
1J+3o,>vz,>,vs,>7<,e3/7Y+3x,\ Z p

pQL "p.:(<,>(

.Z: ,>,(/7W p/7`+-0.7V w $8_ 
g<
 @ Vp2tp+4

`2lPf+4 `20Pf+4 :+4893} i&02p+4 :+4@/7V+-0 w.w~&(  ,2xw@

 .38w~@A

aL+4,>,3y/7V 0V+4 +5V4 < Zw+4 8 Hw~ 
w.
w~&* +4
O+-0.7Y@@pO@p 2@@HI=24,\3Z7`+4 ,>vy+5s,>a,o/7V6X+4[

paL+4) 4!,!%4:6;  @p>*7]1J+5Q+5 7? Nn,>`,o/7V4Z42 w *2H7a@
 ,2H7a@

G
`J+4h 4%+4X 7? Hn,>`,o/7V4Z4;

w .2L7a@ 02L7a@G`N+4h 4%+4X

7@ Ln,>`,o/7V4Z4A w3P7a+4h 4$+4X 7@ Pn,>`,o/7V4Z4F 
w3J7a+4h 4#+4X 
7A Jn,>`,o/7V4Z4O w 02N7a@ (2N7a@G`P+4h 4&+4X 7A Nn,>`,o/7V4Z4Y w *2H7a@
 ,2H7a@

G
`J+4h 4$O+5Q,\ Z,>7B+5 ,>7^,>7b,4/7W74+4h w2N7a+4` T9+4b3N7a7T9. T9V+@l4c+5Q+4h+4j+4t+5	+5+5!+5.+5;+5J@,>7B,>7C,e3/7W+6;,!%4:6; 
 (p>

.7]1N+5Q(7b1H+4q,7b0L+4r@+5Q,>7B,>7C,e3+50T+4w,32 Zp+5Q,!%4:6;

 0p>07]0P+5Z
X0J!+4,>7D,e7/7V :XZX+5Q,>7<,e3+5Z
X0J+5,>7D,e7/7V+5Q.7]1N+5Q,>,>7c,>7^,

n/7Y +5Ql ,!%4:6; 
 (p>

.7] 01N@(7] *1H@
AaP+5,7b0L+5,>7c,>,XI/7W+5Q,>7E,>7B,>7E+5I,7d1,+5Q,>7F+5,M ( H,\ Z ,M@@[
1J+5Q,>vu[+5s,>7c,*/7V4:6; ,>hp,^S/7V >
,7b0L+5*,>7c[X,>+5+,>7d,>,X:/7W07]1P+5Q,>7F+5H,>7c,*/7V4:6; ,>hp,^S/7V >
,7b0L+57,>7c[X,>+58,>7d,>,X:/7W07]1P+5Q,>7G+5H,>7c,*/7V4:6; ,>hp,^S/7V >
,7b0L+5D,>7c[X,>+5E,>7d,>,X:/7W07]1P+5Q,>7G,>X,>7H,e3/7Y+5Q,\ ZZ(7e1H+5P,>7H,>X,>7H,e3/7YS,GLX

T9}7N0I+5T,>T8_,>7I,e3/7W1T+5V 
T9} V(I@@p 
T9}1j+5Z,>T8_,>7I,e7/7W

T:%A,4L5],>T8_+5d T:%A(4H5e5T5e,7e0L+5e,>,>7J,6</7WaZ+5e,>7J,>77,e3/7W(744H5i,>,>T8_,>,>w,6J/7`7N+5k@@+5l,\ Z[1P+4 [
1J+5q,>vz,>,vs+5t,\3Z7e+5u,>vu[,>lvs,>7<+5{ w3P7a+5| 
:6N(I+6 :6H@I+6,>7K,>9,>7K,e3/7Y+6; 
:6N(I+6 :6H@I+6 
:6L(I+6,>7L+6 :7H@I+6,>7L,e3/7V+6; 
Uaj+6 w ,2N7f@

 : *6H@I@
A

 : 06H8I@A

 
: .6H(I@A

aL+6,>7M,e7/7V w N_ Nd

7fXLd,j Zp p : 
 IQJ@ :

8IXL@ :	 
 IQJ@ :

8IQL@ 
: :@@8I@@ I@@@I@@(I

p[04N6#[007g0PXL` pZ
@4J6'Z@.7g0NXP` p[84H6*[8*7g0JXN` 
p

pXL(@ 26NHI8=26-4v6: 
pXV(QVd,5

p QV0 27NHI+6:78HIg XZXQRX4869,7g1L+69 pXH`8=263@/7Y+-0.7W w~ HpZ* Q*A` Jp,w7X+6H p7R+6F
 0t-/43T+6A5R6GO+6I:w+6?@/7W+-0.7` w~ Hp 
w},7M$,.7N$..

,:%6LpaL+6l0J7a+6l :Gzp+6l (0J@ .0J	@GaH+6^",.lp w3P7a+6l:p+6l@@p

p07g0P+6g6Nw}+6b 7N+6e0N+6g w2P7a+6f 7O Zp+6g 7O Hp7Np+6k,>p,>,6</7WaZ+6l":.zp paP+7 w}0H+6w"*.jp

w2L7f+6s,>7P,e7/7V p  an+7,>7P,e7/7V+70H	+6|",.lp w3P7a+7 :+7@@p

p07g0P+75H7 7Q+7

0H+7 7Q+7

0H+7 7R+7

0H+7 7R+7

 *0H@
 ,0H @

G
aJ+77w2P7a+7p+7,>p,>,6</7WaZ+7":.zp7Hp+7+ 
paJ+7aJ+7 7S Zp+7 7S+7aJ+7 7T+7@@p7Lp+7,>w~,>,>7T,e7/7Y paH+7$aH+7# 7S Zp+7' 7S+7"aH+7& 7T+7"@@p7Np+7+,>w~,>,>7U,e7/7Y+7+@/7`+,>7f,4/7V,~,>7a,4/7V,~,>7a,4/7V,~@	`H:L<U:NIH:M%?:O
::RDI)jipRH:TH:S
2
-H:UH:VH:WH:XH:YH:Z:[f		 29:\
:_:b:c:d	D:e	;:h:i:j*	s	zx>U<U:n:}:ylR:t;;;hghcdHH

HH	X
0

0(8XXX( hXX
#XX(X(X `(0ACCESSASSOCIASSOCIATEASSOCIATEVARIABLEBLANKBLOCKSBLOCKSIZEBUFFERBUFFERCOUNTBYTESIZECARRIACARRIAGECARRIAGECONTROLDEFAULTFILEDENSITDENSITYDEVICEDIALOGDIALOGUEDIRECTDIRECTORYDISPDISPOSDISPOSEERREXISTEXTENDSIZEFILEFILESIFILESIZEFORMFORMATFORMATTEDINITIAINITIALINITIALIZEINITIALSIZEIOSTATKEYKEYEDLIMITMAXRECMODENAMENAMEDNEXTRENEXTRECNUMBEROPENEDORGANIZATIONPADCHAPADCHARPARITYPROTECPROTECTIONRECLRECORDRECORDSIZERECORDTYPESEQUENSEQUENTIALSTATUSTAPEFOTAPEFORMATTYPEUNFORMUNFORMATTEDUNITUSEROPENVERSIOVERSIONDIALOGDIALOGUENOSPANBLOCKSREADONREADONLYSHARED'7h7j7k7m7o7q7r7t7u7w7y7z7|7~8888888	88

8888888888888 8"8$8%8&8(8)8*8+8-8.808183858688898;8=8>8?8A8C8E8G8H8J8L8M8N8P8Q8S8T8V8W8Y8[8\8^''''

SPACEFILEBACKFILEDELETE statementDELETEINTEGERCHARACTERREADONLYREADONDIALOGUEDIALOGSHAREDNOSPANBLOCKSkeywordarray or character expressionarray or character expressionCHARACTERINTEGERLOGICALFUNCTION NAMEKEYEDH:gACCESS='KEYED'specifiedDIRECTSEQUENTIALH:kH:lAPPENDDIRECTKEYEDSEQUENTIALH:oH:pH:qH:rNEWOLDSCRATCHUNKNOWNH:vH:wH:wH:xDELETEKEEPH:|H:}FORTRANLISTH:H;DELETEKEEPPRINTSAVEH;H;H;H;INDEXEDRELATIVESEQUENTIALH;H;H;	-0

,;U6X+;@+,*,Jn,>],o/@]4Z;/=..$.7P8n+;,>@]+; =.:$:.@:x+;
=.*$*.
@;x , Ln,>_,o/@]5Z;* .QN =.($(S*ky.@<j+;-Z`,;U =..$..@<z :+-0

 (- Hn,>_,o/@]5Z;6

=.,$,@.

@<n +,;KQZ4Z;F . Nn,>_,o/@]4Z;F,;KXZ4Z;F 8@@@@` * Jn,>_,o/@]4Z;C,;U Z`4Z;F818+;= (. Hn,>_,o/@]5Z;GO+

=.,$, ..

@<n :+-0@ ( Hn,>_,o/@]7V+;T0v+;T (./: +;Mg +-0 444;a(X ( Hn,>_,o/@]6V+;_ , Ln,>_,o/@]6V+;_(XP+;g.8_p/4+;V , Ln,>_,o/@]5Z;a 0 Pn,>_,o/@]5Z;a7+;a+ ( Hn,>_,o/@]4Z<

@= Ln,>`,o/@]4Z;q0@=1P+< :+; @> Pn,>`,o/@]4Z;z 
Uaj+;w,>@>,e7/@],@?1L+< :z@?+< 
@? Jn,>`,o/@]4Z<.@=1N+< :z@=+< @@ Nn,>`,o/@]4Z<
 Uah+<,>@@,e7/@]*@?0J+<	,>@A,e7/@]+< :+;yO,~ : Zn,>_,o/@]5Z;k :,~@,~-0.@]@/@]+-0

.@_ aH+< 
=0J+<,>@A+<kO@= 
Uaj +<,>@B,e7/@] ,BL

=.,$,@.

@;n@@ =.0$0.@<n =.($(.@:n * Jn,>_,o/@]5Z<*,\,>@B[,>lvs+<E =.0$0 .6H@p@ 
=.*$*=(6L(n@GaN+<4,;+<*5:<9,>@C+<k,;h5:<;,>@C+<k1Z+<* . Nn,>,o/@]5Z<B,\,>@D[,>lvs+<E,\3Z@+<G,>vu[,>lvs,>@D,e3/@`+= 
=.*$*6H(n+<KS,Lu.
@:l

=.,$, 0n	z`z+<Q,>_,>@E,dz/@^+= =.0$06J@p+<T,>@E+<k

=.,$,@.

@Fh 
=.*$*Z0(o.
@Fp =..S

 Lp =.($( 
 m Jp  n Pp  n Np , LpZ* p Jp 0p.@` 	x6+<f+<l[4N<j =.($(Z` qZ`+<Z,>@G,e3/@]+= Uah+<p*@=5J<p,>@G,e7/@],>(,|k/@],:
= `.
@Hp =

U.@Hl = 
V.@Ij = a.@In

= a.

@Jh 
= W.
@Jp7NW+= = Y.@Kh+= =@
.@Kj = 
V.@Kj0J$:Y =

 L8Ml@d(@?1Hd 0@=1Pd

= T H0cS*BJT,=1 *
 JU,P0Z@+=,=+=@/@_+-0

.@],>(,|k/@] =.(S
.* Jp ,p.

@a 	x6+= = 8i P` 8o HU 
8u JV

8{=La8Pa8HW7J8@an@L,@bl@L(@bh@M*@cj@M @M @c NT>

=5,=/S:H ZX+=/,=1,P@/@]+-0

 @c HX 
=8
0j+=7 =.: +=8 =.. x@N+-0.@^: 
q Jp J p:

@@0p6N+=B ( Hn,>_,o/@]5Z=E+=C[1H
+=D w+>2@@  * J p

@N Ln,>`,o/@]4Z=M w1P+=L,>@O,>@O+=iO@p+=l 0 Pn,>_,o/@]7V+=X 
/* Jp,>_,o/@]7V+=j p$../. Np+=R * Jn,>_,o/@]4Z=e,Re4:>27P+=^@@+=_,\ Z[
1J+=b,>vz,>,vs+=i  8p> ` Hp+=j6N+=g,\ ZO@,>@P[,>lvs,>@D+>-6jp+=l,>,>@P+>,  p H@p 
q JpO@p ,2Lp+=z:p p0N+=t,>@Q,>+>& p0H+=x

Ual +>0,>@Q+>,>p,>@Q+>, ,
2Lp+>

:p p0N+> Uah +>0,>@Q+> p0H+>

Ual +>	,>@Q,>_,>@R,e/+>

p0L+>
,>@R,>,>@S,e7/@` :

+>2,>p,>@Q+>, 02Pp+>:p p0H+>

Ual +>0,>@S,>_,>@R,e/+>'

p0L+>,>@S,>+>& p0P+>,>@S+>",>p,>@S+>, *2Jp+>):p

p0L+>  Uap +>0,>@T+> p0P+>#,>@T,>+>& 
p0J+>(,>@T,>,>@S,e7/@`+>0,>p,>@T+>, .

2Np+>.:p,>p,>@R,>@T,e3/@`+>2 02Pp+>1:p q+>27 pO/@^+-0

 w Hq * Jq@@,>,=9/@] Z5:>: +  8p0P+>A6H+>@ . Nn,>_,o/@]+>A[1N@@ 0H+>E  hp Nq+>E@@q"..n,>@d,*/@]4:>Y * Jd p `0H+>S k0N+>R * Jkd l  `,>h,>@d,Y,/@^+>W,5+ k0N+>U * Jk,>`,Z</@][p,>,>p,(/@^+,>@e,>3/@],~,>@d,>3/@],~,>@d,>3/@],~,>@e,>3/@],~,>@f,>3/@],~O@r,>@f,>3/@],~-0

 pO@ ( Hdd l ,>`,>@g,Y,/@^,>@g,>p,(/@^+-0

 pO@@@dd l ,>`,>@g,Y,/@^,>@g,>p,(/@^+-0.@^7Hu+>y,>@U,e3/@],@g5L>{,>@U+?!O@l  p P @ Xah+?,>X,>@V,>_,>@V,dz/@h*@g0J+?$  NfS0 Pd,| (@h1H+?,@i1L+? 0QPd,5  Rp 8 HH 
.
@i JH

@j LH .. NH XH 0QPH@@H .@j HH VH@@H*@W JpS,BLU,AX Zp

pl@W6.p+?% +?*,@i1L+?,>@W+?! `3PX+?#,>@X,e3/@]+?* * J+?%S.GNX . Nd,>P,>@g,Y,/@^,>@g,>,(/@^/@^+-0.@],\ Z[0H+?6Z

 Lp 0 N,>@k,>,W+/@^ pS(GH@,\ Z+?9,>@X,>$vs,>@D,e3/@`+?>[

1L+?>,\[0P+?:,>@Y,e3/@]/@]+@,~-0.@],\ Z[0H+?JZ

 Lp 0 N,>@k,>,W+/@^ pS(GH@,\ Z+?N,>@k,/@],>,/@] Zl

1L+?R,>vu,>4vs,>@D,e3/@`/@]+-0

O@@@d p,>`,\{/@],>@g,>p,(/@^+-0.@^ p X Hq,>@g,>,(/@^ q[
q.
q Jp2rp+@ H6LX+?k2Rq+?h,>@l,/@],>,^H/@] O@vO@w+?w,>@Y,>@Z,>@D,e3/@`+?w X1P+?c X 
` Jp[

,>,>,(/@^,>@l,>p,W+/@^4:@
 pS(GH@,>@,^H/@] 8O@ 0 Pd[PQHqZ
PXJq,>X,\{/@]4:@[qQNPZqXPP[PQTX(@i0H+@ ,l@m.@mn@n+@,@ml@mS.@BNXZX5V?9?` q[,>,>,(/@^/@^+-0.@]O@wZp6H`+@O@wO@v+@0 `ZZ

[.

 Lp2rp+@0 H0P+@+ H 
Paj+@.@Z4N@,>P,>@[,gC/@^+@S0GPPO@v Pan+@!,>P,>@[,>_,>@V,dz/@h

Pal+@%,>P,>@\,>_,>@V,dz/@h0@n(@oGaP+@/,>P,>@\,>_,>@V,dz/@h+@/ H X 
P`j+@/,>,@2/@].2+@@/@]+-0

 (QHd,5  
wQJ`

xXL`Xx:xS0GP(@+@	`n>pqrH@oH@pUH@qH@rY3@s*'@tG.mn1]iou{0"46*x

8 `X
exu}['DXDP@X.P$PNOLISTNOCREFLISTCREF''NOLISTNOCREF(*)constant(*)integer constant or "("ENTRY namePROGRAM name, OR /IDENTIFIERCOMMON variableDummy argumentExternal name-0 wZ
 1J+A,>,Rs/Ho Zw wZ81P+A,>HV,e3/Ho w+-0.Hp Hp Hd,j Zp 
p

w 0XB(S.GN an+A,>HV,e3/Ho w7H@+AS,>Hq,>,X:/Hp 
w ( <+@<A +AW+A!+A++AE6X+A#  pS,GL@,>,A/Ho

p 
`<
 J0 7N`+AW,>`+AD  `[.(QHd,5 [8Q

p V0S*GJ0,>,A/Ho ZX 8[
.
 Jp2tp+A:,>`,A/Ho ZP89A6 7N`+AW `7V` ,>,A/Ho

p 
X<
 J0S.GN07N`+AW,>`,A/Ho+AW pZ( P S,GL ,>,A/Ho Z 7L`+AW `7V` ,>,A/Ho  p X< H@S,GL@7L`+AW+AC,>Hq,>,X:/Hp4:AW p@@8 p/Hp+-0.Hq p 
  Jp [

p.
 Jp2tp+B P Np,>8,A/Ho Zp4:Ar Hr Hd p Xf,j

pZ0 
`aj+AhS.GNXQLX _XNX Vp p @ [. Hp2rp9A]

pZ
0 Jp,>H,A/Ho66+AsO+BZX `ap+A~ p6, +Ax,>HW,e3/Ho9AmS*GJ [
` Jp.HrnHs[ XPX pQVhQV 9Am p

pXV0XV 9Am9A] p

  Lp[
p,>,>,(/Hp,>Hq,>p,(/Hp/Hq+-0.Hp@@p pZ Z
 [

 .
 Jp2rp+B5@ H6N`+B ` Uah+B,>Hs,>,W+/Hp4:BS*GJX+B(,>Ht,>,W+/Hp5:BO Tp+B)S*GJX+B) `0H+B!*HW4JB ,>HX,>HX,gC/Hp `+B$*HW4JB$,>HY,>HX,gC/Hp `,>Hs,>,W+/Hp4:BS.GNXS:GZX`T+B2 Xah+B, :+B- :zHt

Xal+B2,>X,>HY,>,>HZ,dz/Hu[,>,>,(/Hp9B

h,>Z
h,>,(/Hp,>HqZp,>,(/Hp paP+B=O+B>@/Hp+-0.Ho@ pZ Z
 [

 .
 Jp2rp+BX H,>Hu,>,W+/Hp5:BHO9BC,>,@/Ho 2THv+BOO,>HZ,>`,>H[,e3/Hv9BCS(GH` `ah+BT,>`,>H[,>_,>HZ,dz/Hu

`al+BW :+BW :zHw9BC p[h,>Zh,>,(/Hp,>HqZ

p,>,(/HpaV+B`O+Ba@/Ho+-0.HoZOZ`Z` Hp 
X`j+Bx

X4Hw /.(Z8.pHx(Hx *0H@
,Hx .0L@A
aJ+Bx,>p,Qv/Ho ZpXZ` p V@S(GHX (hHyS,@BLX

/,(

 0. NX7Lp+CZ04rC p.Z@ X4Hy 
X`j+C /.(Z

8.lHx0Hx0P+C 
8. JX=rBz@/Ho+-0ZO4XC*Hz0J+C	,Bb+  8 03VHz@ (3VH{@AaP+ NfS* Jd,|

`6Hw /((Z .pH{.H{0N+

 . L`+-0.Hu Uah +C,>_,>H\,e//Hp 
p

( Lp [p.

 Lp2tp+C8 P Pp @,>H|,>,W+/Hp4:C>S*GJ` 
p ([p,>,>,(/Hp [

 Lp2rp+C2 H Pp,>H|,>,W+/Hp5ZC1 pS*GJ89C+ H} Nd,j Zp 
pZ

XL([8QP(QX(XJ`9C  p   Np[

p,>,>,(/Hp,>Hq,>p,(/Hp/Hu+-0 H} H\ Hn 6,>`,o/Ho4ZCL,HW4LCI2XH~+CG,>H]+CG,>H],>H^,gC/Hp,>H~,*/Ho4:CP,>,.*+CO H~ H^ Zn=6CB,>H_,e3/Ho+ H_ Hn,>`,o/Ho4ZCZ,HW4LCV,>H`,>H^,gC/Hp,>H~,*/Ho4:Cg,>H,.*+Cg

H` Ln,>`,o/Ho4ZCf,>Ha,>Ha,e3/Hp Uap +Cc,>Hb,>_,>Hb,e//Hv,>H~,*/Ho4:Cg,>H+CY,>H_,e3/Ho,~-0.Hp p7H`+Co8Z` H[

,>,>,(/Hp+Cu

Ual +Cr,>_,>Hc,e//Hp,J  P8 NP `[P4VCz[X,>ZP,>,>Hc,e3/HvZP2N+C~,>_ZP,>,>Hc,e3/Hv(I0H+D,>Hd,e3+D/Z

,>,P/HoaZ+D,>H,>Hd,e3/Hp+D0,>I,>,X:/Hp4:D0ZO Pp I H_ Hd 
IXJd,j  Vp ,QLd,5  .XNX pQPXXTX RX Tb Ra uXHXZ`X4HDQV  Vu p6Jp+D[O+D QZX:aXRXXTX[PZP8XHP .QNd,5QZPQVhXRh ` `QTXQRX7J`+D) ` PXPX[,>,>,(/Hp+D* XPX[p,>,>p,(/Hp,>a,Y/HoZ,>,/Ho/Hp+-0 Uah +D5,>_,>He,e//Hp7J`+D7,>,G8/Ho .QNd,5  uXP`Z``4PD<QX@ Xu *XJ`,JQZ`,JXZ` p XQT`Z,X Lp4TDE P< PPS(GHP+DI Uap +DI,>_,>Hc,e//Hp[` P`Z@ HZ
`,>,Ft/HoQZ`@+-0 Uah +DR,>_,>He,e//Hp,\3ZI+DW,>vu[,>lvs,>Hf,e3/Hv+6Vu+DZ,>Hf,e3+EZX5NDl[X[H,>,>Hg,e3/HpZXZ
X ,1J@

 .0V@G

aL+D^4VDk[X4RDfZXXZH+DgZ
X JuZX4RDi[XQNH,>Ht,>,(/HpO+[XZX0H+DoZ`+Dp[X Z

H0,P@4RDy3R`+Dy[
`,>,>Hg,e3/Hp

uZ0 Nu,>Ht,>,(/Hp7H`+EZ

X0L+D[X5PE 
`QJXS,GL(+E5REZ`ZH<XHH 
H<
 JH[HZ

PQLH `XN`Z88XP8 88 H8[
8XJPQT8XNX+EZ

X0L+E,>u,E+EZ` R`ZH P,>`,G8/Ho+-0 w[ 4XEZ XZ`+EZ

Lu

wZ04XE[0QP` w[h,>,G+/Ho wZh,>,G8/Ho Z`X 
wZ

( L`Z0 N@+-0.Hu p Hp 
k Jp,>),|k/Ho0Z+E* p Nk+EA k 8ap+E. p Hk,>Hh+EP p Hp  
X Jp[

,>,>,(/HpZO Np@@lO@ ` Pp@@@@` k8I4XE=,>,*/Ho5:E= p Nk p P`+EA kZ

h,05:EB p P` p HkO+EY p PkZO6Hp+EF[OXZO+EFXHO,Hz0L+EI,>Hh,e3/Ho p P` pZ
 0J!+EN :XZ +EQ.I0N+EQ,>Hh,e3/Ho+EY I N_ Nd IXPd,j  pXHXXXX*I0JXV Z``@/Hu+-0 p ` `7H`+Ea ` X[

,>,>,(/Hp+Ee,HW4LEc,>Hi,gC/Ho Z`8XZ`

I L_ Ld IXNd,j ZXPXZQHXZ
XJX p

`XLX ZP0N!+Eq :XZP+Et(I0H+Et,>Hh,e3/Ho+(I0HXVP,I0L+Ey,>Hi,e7/Ho[,>,>,(/Hp@+-0

 Hj Hn,>`,o/Ho5ZF,\,>Hj+F,\3ZI+F,>vu[,>lvs,>Hf,e3/Hv+ .QNd,5  uXP`Z``4PFQX@ XuR``,JQZ`,JXZ`[
`,>,Ft/HoQZ`@+-0.Ho Hk Hn,>`,o/Ho4ZF3,>I,*/Ho5:FO+FJ Hk Nn,>`,o/Ho5ZF,\,>Hl+F5,\2ZI+F47Tu+F9Z

P4LF#[P[`,>,>Hg+FA[P5PF&[P[
`,>+F@Z
P,>,G/Ho[

P Lp7N`+F,,>,G8/Ho ` Hp,JQZP[P,>,Ft/Ho  
pQJXQV(S,GL(+FI,\3ZI+F8,>vu[,>lvs,>Hf,e3/Hv+FJ6Tu+F;,>Hl,e3/Ho+FJZP4PF>[P[
`,>+F"[
P5JFB[P[`,>,>Hm,e3/Hp+FJZP,>,G/Ho[P,>,G8/Ho7H`+FI,>,G8/HoZ`P@/Ho+-0,\3ZI+FP,>vu[,>lvs,>Hf,e3/Hv+6Vu+FS,>Hl,e3/Ho+Z

X4LFf[X[`,>,>Hg,e3/HpZXZX *0H@
 ,0V@

G
aJ+FW4VFe[X4TF`ZXXZP+FaZX HuZX4TFc[

XQLP,>Ht,>,(/HpO+[X4PFi[
X,>,G8/HoZXZ
`1j+Fl,>,G8/Ho7N`+Fo,>,G8/HoZX Hu4HFqZ` ,>Ht,>,(/Hp@+-0.Hv p X Hp[
,>,>,(/Hp

pZ00N!+F| :XZ0+G(I0H+G,>Hh,e3/Ho+G I Hd,j  *jI ,lHwlH{Z`` pXV`.I0N+G	S:GZ`+G

XXX Xap+G

S(GH`XaP+G,>,>,
IXJd,j  pXN`XX8Z

O Lp ` Pp@@@@`,>w,G+/HoXZ` pXHO 
p J` /Hv+-0

ZO8Hz (1X@ *1X@
A ,1X@

A .1X@AaH+G*,>w,G+/Ho Z``@+-0

.Ho ` Hp@@` 
I J_ Jd

IXLd,j  wXN`R``Z``Z`` 88 P8 p H` /Ho+-0

.Ho ` Hp 
w J`

I	 L_ Ld IXNd,j  wS(GH@ p H` /Ho+-0.I	 I
 H_ Hd 
IXJd,j

p Lp XN`XX8 8ap+GN,>8,>Hm,>_,>HZ,dz/Hu p 
 1J7   QZ` 0I
1P+G^,>,

%/Ho[` *QJd,5  ,lI .|BNP XNPS0GPPXVPQT`0I1P+GeXXX+Ge[`*Hx1J+Gb,>Hd,e3/Ho,>,>,>I,)/HvQZ` 
p

(0L+Gh@+Gi ( @5VGj@+Gk[8 Zp p.(QHd,5  Tp 
pXJ`

pXL(4VH[42H . @ Hp 
  JpZ

  Lp 0 N  J00IpI p. L8 
<
 Jp7(p+H.

8 Lp 
p 02P(+H,>(,>Hn,e3/Hp>p+G|=2Gr (I

0H+H,>p,Qv/Ho ZpXZ`

p p8XN0  P0S(GH@ (hI

S*@BJ@4VH[,>,>,(/Hp[p,>,>p,(/Hp /I	+-0.Hv,\ [1H+H,>,>Hn,e3/Hp+HT Tp,I
 J,>I,*/Ho5:H:@@ p .nIS0BPXZp4XHQZ0`[@0H+HQ[p42HQ

 0.I4NHQ P HpZP4TH9

XLPXHX=2H3+HQ,GB@@@+HT0tPk(Hk6J,v,>IHZ`HXXH(I0H+HKS:GZH9HF,I0L9HFS0GPH9HF,>p,>,
y<UI	II	7I(I~HIIIIHI%HIIHII 
:I"D9M=	XAR@HI#I#HI$HI$I$$&I%b"?(8(D(> X `<0X8DX< `[Mc@
exu`HH (6$  0 0PP%0 `X( (08808 @D@PPX!*&EXTERNAL namethe name of an intrinsic functionINTRINSIC nameRECORDFILESKIPFILESKIPRECORDADCKUNLOADUNLOCK statementUNLOCKTHENIFTHENStatement function-0.K w6K(K+@$I*+JD+J<+I/+I@+IB+IO+If+It+J:+J<7J+I1@@+I3,>a,o/K Z3V+I7,>\L1 ,>lL1,>K,e3/K+JD Uap +JD  *1H@
 ,1H@

A
 .1H@A
 J+JD,>,I'/K5:JD+J< *K.
 Jp2rp+JD,>,I'/K4:J< aN9ID 0P+IK :+IN0P9ID :BZ :BZ9ID6J+IRO@,>a,o/K Z6N+I[(K4HI[@0r+I[[

LLP2L9IUZLLP P  
$L1 J+I[9IU ( 
(H(  ,K.

 Lp2rp+Ic ALKY4NIb +Ic9I_O5:Is,>,JE/K+JD6J+IiO@,>a,o/K Z . (N@  (K. Hp2rp+Iq 
A
LKY4JIq +Ir9ImO5:Is@+JD,>+I@@@@@ 
 Jp,>,I'/K4:J<7N+J Zp Uah +J 
aJ+J

0,d+J 0% P0  K H0! 
 J0! e N0" 0.p 
aJ+J

0,d+J 0% P0    H0! 
 J0! e N0"+J,K.KA

0K(KAG

aL+J 
0*d+J ( H(    P(!

 L(! e N(" (.h 
aJ+J 0.d+J 0 P8

  L8! 
 J8! e H8" 0.p p6H+J"O@,>a,o/K Z

 .0L@ 00L@G`N+JD 0H+J*@@@@+It

Ual +It7P+It1H+It ,1H@

 p .1P@G

aL+It Zp 
0*d+J9 0m P( @@(!  N(!

e L(" (.h p+It,>,I'/K5:J=O+JD6L+J@O@,>a,o/K Z 0 (P   dKYA5ZJ:/K+-0.K@@p w 
$KY Jp

p`L+JK(L Lp:p+JH p,>lL1 ,>lL1,>K,e3/K:p p(Z Zp4ZJX p`H+JU(H Hp:p+JQ p,>lL1,>K,e3/K>j+JOO/K+-0 (QHd,5 Z*PQ*A` JTZ

., LS.K4NJf Uah +Jeah+Jd K Z +Jf K+Jc 
K J @@,>K,I'/K5:Jj@+@26+Js6LX!+Jo,>X!,>X",>X ,e//K+Jr,>X!,>X!,>X",>X ,e//K.6+JjZT/8 Z.hZO 
K  J_ Jd

K XLd,j 5RJ|[OXZO+J}XRO[`5PJ,>K,e3/KQV`XT`6JS+KXXSQXS+KQX(XXS &./0"06+ 
<
,>ZT8,>,(/K+-0 (QHd,53ZS+K,>K,>K,e3/K ,.lS wnT +@	`0dK#00dK#0dK#<Ug<U>Uhh/LX"( 0 5

0p0 @P@ P

`@`

`@p0@`

p00p@

@`

@@

`@@0@ 	p 	PP
P
`	0p@

``

0 0

	P@	@	p

p
00`P
@

@@

P
`p

@P@

P5}?}'}?}'}?}'}?}'}?}'}?}'  }?}'  @K?    @@@}?}'    @@      ILLEGAL CHARACTER"$"LITSTRING"("")"END OF STATEMENT"+"",""-"".""/"":"CONSTANT"A""B""D""E""F""G""I""L""N""O""P""Q""R""S""T""X""Z"LLLLLLLLLLLLLL L!L"L#L$L%L&L'L(L)L*L+L,L-L.L/L0hpx (08@HPX`htx 0@HT\dhFORMSTA-0

 k*VN0J+L`,>,=9/VN68+L_ +: X@p@+-0

 kZ
 1J>v+Lk Z8p ` P*VN0J+Lk,>,=9/VN Z5:Lk +>@+-0

(V'S
,V'(L.
.V((N.
0V(.
.
VO :4,>,/VN,>,/VN+-0,>_,o/VN: Z Z p[
1J+M0J+L,>V) ,>h,>V)+M,>vs,>,vs,>V*,e3/VO+ZZ`S. Nd,jXZ` XVP ` PP,Ll Z`S(GHP(VPhVP *jVQ,VQlVR ` NP 0pVR@+ ( Hn,>_,o/VN4ZMO@S, LO,~@,~Z 
 2JVS+M V* Nn,>`,o/VN5ZMO,~@,~ ( Hl@,~@@l@,~-0.VS@@p@ Vt< Hp2vp+M) 
\Vt Jn,>`,o/VN4ZM)O@p6\Vx9M$ p`N+M-,>V+,e3/VN+MK2XVT+M<: 
VT J p

zaL+M3,>V+,>V,,e3/VS+M4O@z Uan +M8,>V,,>e,>V,,dz/VO {aP+M;,>V-,>V,,e3/VS@+MK zaH+M@,>V-,>V,,e3/VSO@{0X+MC , LqO@r Xq,>,=9/VN Zd

d0L+MI  hp Pp+MI@@p"0.p d/VS+  
 p2JVT+MO>O,~@,~-0.VS ( Hn,>_,o/VN Zp4ZMs", .lp . Nn,>_,o/VN5ZMb p([
 .0J+M],>V.,e7/VN+M^\` . p( dXP8.0P+Mu 
p J8.+Mu ( Hn,>_,o/VN Zp4ZMs", .lp3,p+Ms p([@.0H+Ml,>V.,e7/VN+Mm\`@.

p(

 dXN0.0N+Mq p H0.:p3hp+Mh+Mu,>V.,e3/VN+Mu@/VS+ V/ Hn,>`,o/VN5ZM{,>V/,e3/VN,~@,~ V0 Hn,>`,o/VN4ZN:

@@0p+N,M,\ Z,M[

0L+N:  Php+N	,>vu,>4vs,>V*,e3/VO,~ 0 Pn,>_,o/VN V0 Hn,>`,o/VN5ZN,>V/,e3/VN,~@,~,>VU,>VU,N/VS,~,>VV,>VV,N/VS,~,>VU,>VV,Nd/VS,~,>VU,>VU,NC/VS,~,>VU,>VU,Nd/VS,~-0.VN ( Hn,>_,o/VN4ZN-O@,>w~,>w,Nd/VS Zp7L+N'@@+N(,\ Z[1P+N+,>vz,>Dvs+N76*p+NA +NB@@,>VT,P\/VN68+N1 +NB6N+N4,\ ZO@[1H+N91H+N9,>v{,>$vs,>V*,e3/VO+NB  ,.l@@Xq XXq@@Xr@@Xr@@Xs@@Xs@@Xt@@Xt@@Xu@@Xu,>,/VN@/VN+-0.VN ( Hn,>_,o/VN4ZNQ,>w~,>w,Nd/VS Zp7L+NK@@+NL,\ Z[1P+NO,>vz,>Dvs+NY6*p+Nc +Nc,PS68+NT +Nc6N+NV,\ ZO@[1H+N[,>vu,>$vs,>V*,e3/VO+Nc  ,.l XXq@@Xq@@Xr@@Xr@@Xs@@Xs@@Xt@@Xt@@Xu@@Xu,>,/VN@/VN+-0.VW@@p@@p@@p@@p@@p@@p@@p@@p@@p@@p@@p w~,>a,o/VN Zp6Hp+O+@dNo+P2,ro+Nr+O+O+O 8,PS Zp6,p+Nu +PR6P+NxO@,&y Z[
0J

+P2 Uan +N|,>V0,e7/VN@@d ,!%4:PR  
 p Jp>

+P2 82xw 8,>VW,P\/VN Zp6.p+P2+O' 8

 Lp,>VU,*/VN4:PR,>p,/VN  @p Hp 
p J

k 0`n+Og : Z	 p,>h,^S/VN Zp60p+P2+O06L+O,\ ZO@,>V1+P> 8

f2LVX+O 7Pp+O,>V1,>V2,e3/VS,PS Zp6*p+P2 +PR2LVX+O*7Hp+O$,>V1,>V2,e3/VS,>VT,P\/VN Zp6.p+O( +PR w0P+P2+O32LVY+O57Jp+O.,>V1,>V2,e3/VS,Q Zp60p+O1 +PR w0H+P2,>V2,e3/VN+PR2LVY+O=7Np+O9,>V1,>V2,e3/VSd ,!%4:PR

 
0p Jp>+P22LVZ+OJ7Pp+OA,>V1,>V2,e3/VS,M * J,\ Z Zp,M@@[

p1L+P2,>vu[,>lvs,>V*,e3/VO+P22LVZ+OX7Hp+ON,>V1,>V2,e3/VS w0N+OR6Pp+OR,>vs,>V3+P?,M 0 P,\ Z Zp,M@@[p1H+P2+OF (2LV[@ 
f .2JV[@AaH+On7Pp+O`,>V1,>V2,e3/VS 
w0J+Od6Hp+Od,>vs,>V3+P?  Hp,>VU,*/VN4:PR,>p,/VN

 
0p Jp p N@@	,>(,^S/VN Zp5:P2+PR2LV\+O{6JpO@p@@p,!%4:PR

 0p Pp>
.V\ (1N@,V\ *1L@
AaH+P2,>V4,>V4,>V5+OH2LV]+P6NpO@p 0 Pp,!%4:PR 
 (p Np>0V] ,1P@

*V] (1J@A

aL+P2,>V4,>V5+Oz2LV^+P6HpO@p * Jp,!%4:PR  8p Hp>*V^ ,1J@

.V^ 01N@A

aL+P2,>V4,>V6+Oz2LV_+P"6PpO@p . Np,!%4:PR   p Pp>
.V\ ,1N@

(V\ *1H@
A

aL+P2,>V4,>V6+Oz2LV_+P,7Jp+P&,>V1,>V2,e3/VS,!%4:PR

 0p Pp>
.V\1N+P2,>V7,>V7+Oz@0v+P/ 
Xf JX9P-,>V8,>V8,e3/VS+PR6L+P4,\ ZO@[1P@@[
1J+Nk[0N+P:O@+P;,>V9,><vs+P? w0H+PA6Lp+PA,>V9[,>lvs,>V*,e3/VO+PR

p2LVT+PD,>V:,e7/VN  Pp (.h 
p J@q

p L@q p N@r p H@r 
p J@s

p L@s p N@t p H@t 
p J@u

p L@u,>,/VN@/VW+-0

 ( Hn,>_,o/VN4ZPXS8
+P[l ,!%4:P\  8p>7@+-0

 ( Hn,>_,o/VN4ZPaS8
+Q,M,\ Z,M[

0L+Pe +Q 00L@ *V`AaP+Pp ,>,Q

w2LVT+Q Uap+Q,>V:+QO@l ,!%4:Q

 0p> 
Uaj +Q0V` .0P@,VQ (1L@AaN+Q*Va 00J@,Va (0L@GaP+Q,>V;,e7/VN7@+,\ Z[ *0H@

.VaA
aJ+Q,>,QVN,~-0.VS,>VV,>w,XI/VS4:Q$*V< JpS,BLU

wZ0ZXZX[X.< Np2tp+Q P d0H+Q,Vb,>,>,X:+Q,Vb,>,>,XI/VS9Q

plV< Uap +Q#,>V<,e7/VN@/VS+-0.VN   pS*GJ`,>VV,>,XI/VS76+Q>

`al+Q- :+Q. :zVa  NpO@,\ Z[0P+Q4:@@hp+Q]l [
 ,1J@

 .1J@A

 01J
@A

aL+Q?: . N p,!%66+QV +Q`(V= .1H@  01X
@AaN+QJ0X+QG,>V=,gM+QJ Uah +QJ,>V>,e7/VN:

 ( H0p * Jl,\: Z Z@p[1N+QT,>vu[,>lvs,>V*,e3/VO+Q`ZS(GH`,\ Z[0H+Q],\ Z 
1j{+Q4,>p,/VN

 Lp+Q4O@,>p,/VN@/VN+7H+Ql[

0L+Qu V> Pn,>`,o/VN4ZQg *+Qu 
V? Jn,>`,o/VN4ZQu .	QN+Qu

V? Ln,>`,o/VN4ZQqO@ 0QP+Qu V@ Pn,>`,o/VN4ZQuO@ *	QJ@,~-06Hw+Qy 6+QzZ

.,QLd,5 7Nw+R
 4 . 
.
w

( L =4Q~ <4tR . w. 
@ J8=tR wZh.(,>,>,(/VSXV` +-0.Vb7H+R@@+R,\ Z[

1L+R,>vs,>4vs+R ,\3ZVc+R,>v~[,>lvs,>V*,e3/VO+RO,Re4:RO 
 (p>

,>Vc,>,W+/VS4:ROS0@GP`0VQ0P+R?*Vd0J+R? `..&. Np X.(&( Hp3n+R? N Pp,>`,/VN Zp 4 
p Jp2tp+R/ p. .

  L89R+ p8  
p Jp2tp+R5 p. Vd N 9R2 p.:,>Z

,>,(/VS[NZ
2P+R< pQZN+R> p

pXL8 pX V`*VQ,Vd .3J@0VQ (0P@GaN+RO7J+RK,>,>0Vd,>(VQ,>,TY/Ve Z`+RO Uap+RO,>`,>V@,e7/VS@/Vb+,\ Z[0H+RTO@+RX

Ual +RW,>VA,e7/VN@@O@@,~-0.VN7H+R\@@+R],\ Z[

0L+R_O@p+R`@@pO@ 3Pp+Rd,>VA,e3/VN+Rd@/VN+-0

.VN,!%4:Rr ,>hp,Rs/VN68+Rl>

+Rr

 X0p.VQ Lp0N+Rp :+Rp : pQZ p@/VN+-0.Ve w*Vf+@,Rv+TT+R+S+S+S2+SM+Sm+T6+T5+S+T5+T5+T5+T5+T5+T5+T5+T5+T6+T8[

 ,>,Rs/VN78+TU wZh,>,Rs/VN76+TU w,Vf.

VB L[.Vg5NS	7` ` ZZ*Vg5JS

7X X Z[,,>VV,>w,(/VS

Vh Ld@@f [ Nf 0 Pc,|+TU,Vf5LT6 +TU@[

 ,>,Rs/VN78+TU wZh,>,Rs/VN76+TU X2h`G4 X2N`+S$ 
X2j`G4

X3L`G4 X30`G4 
X3*`G4

w.VhA<W,>VV,>,(/VS4TS. 
Vh Jd@@fO@f ( Hc,|+TU 
Vh Jd@@f@@f ( Hc,|+TU[

` 02NVi+S@,>VU,>,TV/VS,>,Rs/VN76+TU,>VU,/VN

X(L.

Vi L`,>VV,>w,(/VS +TU 
` (2HVj+T6,>VU,>w,TV/VS,>,Rs/VN76+TU,>VV,>w,(/VS Vh Pd@@f*Vj Jf ( Hc,|+TU[

 ,>,Rs/VN78+TU wZh,>,Rs/VN76+TU w,Vf0L+S\0Vd1P+SX,>VB,e3/VN7(U7VC VC,Vg..:

+Sa Hp70U7VD VD 
p,Vk(L.Vk.

. Z[ ` PY 
` JZ X HZ

X L[,,>VV,>w,(/VS Vh Nd Z Pf 
[ Jf w,V^ Lc,|+TUZ

 ,>,Rs/VN76+TU X PY 
X JZ7(U7VE VE

w.Vh(N0Vl.. Z[,,>VV,>w,(/VS 
Vh Jd Z Hf

[ Lf w.V\ Nc,|+TUZ

 ,>,Rs/VN76+TU w*Vl5JT.Vd, 00L

@(Vd* .0J
@G(Vd, *0L@
GaP+T.X NY(X HZ

VF L[, 
Vh Jd Z Pf [ Nf,Vd( Hc,|+TU Vh Nd(X"Hf,X"Lf0Vd* Jc,|+TU.Vd, 00L

@(Vd* .0J
@G(Vd, *0L@
GaP+T0.X NY(X HZ6,U+T* VF Z[+T+ 
VG J[, 
Vh Jd@@f ZJpf . Nc,|+TU Vh Nd(XJhf,XJlf0Vd* Jc,|+TU,ro+TT,>VG,e3/VN+TUZ

  Lp@@p 4Z0 Np2tp+TD p.Zh,> Zp,Rs/VN Zp 
pXZ(4:TU

p 0.np9T;,>p,/VN Zp pZ*@Q*A` Jp 4 pZ

  Lp2tp+TQ p.Z8 PpZ*@Q*A` Jp7r@9TJpHp=rTO9TJ,Vm4LTT *Jp+TQ7p@/Ve+-0

 wZ  w~.Zh+-0 w2Hw~+To0H+T^ w~ 82PVT+T_ w}+ w}

w~ 02N +Tc + w~,>h,/VN  
w}Z8(Q8A`Z6PQ6A`

w~7r0+TkN=rTi(Vm4HTm *J+Tk .Vn+

w0L+Tr,>VH,e3/VN+ w} @ HY 
@ JZ7,U7VE VE w~(N(N w(H.. Z[, Vh Pd 
Z Jf

[ Lf w Hc,|.Vn+-0.VS7H+U@@+U,\ Z[

0L
+U:  Php+UO@,!%4:U ,>hp,U/VNaZ+U ,>hp Zp,Rs/VN p Z p Zp6*p+U +U p0V]0P+U :+U : 
QZ(p@/VS+-0.VS w*Vf JpO@p ,2Lp+U :p w.Vo :5NU6+U7 03Pp+U& (3Hp+U& *3Jp+U& ,	2Lp+U':p+U6 .2Np+U+:p wZh,>+U5 (2Hp+U/:p wZ
h,>+U5:@p+U6 w[

h,>,U/VNaZ+U6 wZh,>,U/VN+U7@/VS+-0.Ve VH Hn,>`,o/VN4ZU=O@p+U@

VI Ln,>`,o/VN4ZUM@@p , Ln,>_,o/VN4ZUDO@p+UG@@p 0 Pn,>_,o/VN@ Xp  3XVT+U\,>p,V/VN 2XVo+UNO+V48UI:

p paN+UW1l+UT (H*Vp.  (H. +UI1l+UZ (H*Vp.  (H+UU

p .1l@Dp 01l@GaN+UbO@p+Uc@@p p *1h

@
 ,1h	@

pG
aJ+Uj,>VI,e3/VN6P+Ul,&y Z[1H

+Us 
p`J7VJ VJ,>[,>lvs,>V*,e3/VO+V6Jp+Ux p`N7VK VK,>,>v,>V*,e3/VO paN+V TY VZ VL H[, Z [ ,04@

 *1V@
A

aL+V GVq6(V=4HV,>VL,gM/VN:
 0QP(p Vh Nd Tf Vf paH+V

:+V

@ Zc,|

XZ0p@/Ve+-0

 ( Hn,>_,o/VN6X+V

w`L+V . Nn,>_,o/VN6X+VO+

waL+V1x+V$,>VM+V1x#+V",>VM,>,>V*,e3/VO":+1x+V$/8+V$/87@+@	`

4Vr(:tK,V|gV}W60HW"HWGWf		pWWWW
$WWWW

W	WW
	D2
<U-<UTNHWHWHWHW)7n	L!I)pji	?MHWHWW W"W$W&pW(W)$ &`&PP`PDP[Mc@NONEhUNITFMTNMLRECENDERRIOSTATKEY@KEYEQ8KEYGE KEYGTKEYIDF ``F0`00X      P  `X00G"#@    SDG:X((

0@>p>hB

@@dimensionedNONE:tE:tu:t4:t_:tQ:uHVs

MulipleOther IMPLICIT specifications are illegal withOther IMPLICIT specifications are illegal withTOWHILEa character or integer expressionan integer expressionkeywordkeywordkeywordKEY=KEYEQ=KEYGE=KEYGT=KEYID="," or ")"","///,//,/O'Z'"'" or octal digit"'" or hexidecimal digitoctal digithexidecimal digitoctal digithexadecimal digit-0

.c] aH +W0,>w,>c],*/c^ 
w~

w[,d.[0A7X+WL *

w~(J0A*O 00J@.c^ (0N@G ,1X@

GaP+WL 
w~ .1J@(c^ ,0H@

G 01X@ *1X@
A (1X@AGaN+WL

(lWIO/.",><d5 w,>h+X3@ 
w~+@,WN+X1+WU+W[+W]+W`+Wb+Wj@+Wm+Wr+X+X+X+X+X"

w0c_0P+Wd Uah+X0 
0aj+X0+X!

w0c_1P+X0+Wd

w0c_1P+WW+Wd

w0c_0P+X0+X

w0c_1P+We c?+X1 0ah+X 
Uaj+X0 0ap+X0+X!

w0c_0P+X0+X

w0c_.c`HaP+WW,>0,>c@,e3/c^+X9

w8c_ 00X@.c_D`P+X(c^0H+W}1X+X Uan+X0 w6(@+X0 :s+X!

Ual+X00X+X :|+X! w7(@+W|[
@A*  ,1J@

.c`M

aL+X0+X

w0c_1P+X 0`h+X0+X

w0c_ .0P@(c_DaN+X0+X

w0c_0P+X c@+X1 0`h+X cA+X1 
0aj@+X0 vt+X1

w0c_0P+X cA+X1 Uah+X0*c^ 01J@.caAaP+X0 :]"+X1,cB4LX0,>w,./c] Zp4ZX0 Uah+X+A:4ZX+ w,>h,>cB,e7/c^ 
Uaj +X0

pA,4LX0 w,>h,>cC,e7/c^@4zX5,> w,>@,>cC,e3/ca+X95:X8 w,>8",>,e7/c^@/c]+-0,>w,P/c]aZ+X@ k*cb5JX@,>cD,e3/c] w*cb1JO@r wS0 GP8 aP +XG,>,>c],*/c^,>w~,>w,XR/c^+-0 w*cb1JO@r aN +XO,>w,>cc,*/c^,>w~,>w,XR/c^+-0.c] zaH+Xh 
w

(`l+Xh (`n+Xh (`p+Xh (`h+Xh,cc .0L@0cdA`N+Xh kZ

 1L3+XhZ 1P>v+XhZ

 1LAX+Xh w,>h,>_,>cD,dz/ca wS.GN@@ 
w~+@,Xj+Y+Xm+Xs+Xx+X{@+Y

w.c_ 00N@(cdGaP+Y cE+Y

w.c_ 01N@(cdGaP+Y cE+Y

w.c_1N+Y cF+Y

w.c_0N+Y 0ah+Y 
0`j+Y,>cF,>0,>cC,e3/ca 
w (an+Y,>cG,>(,>cC,e3/ca@+Y(c_ *0H@
.c_M
[0A0} (1P@G
.ceG
aJ+Y cG+Y w Lp @ah+Y :+Y : pzce+Y

w 0+Y+4ZY,> w,>8,>cH,e3/ca+Y+ Uan+Y$ w @ah+Y$*c^1J+Y$,>@,>cH,e7/c^@ w(cf*cfGBzaH+Y),>,ZJ/c]+Y*S,BL@@/c]+-0.cg w~ 
  Jp,c^0L+Y1S0GP(,>cg,>p,W+/c^4:Z; w0H+Y8

w~ 0 Np 0 0+Y9

w~ 0 04VY: ` 1N+Y>@@p ( Hp+Y@ ( Hp * Jp5VYH 
0J+YG p..QNd,5  Tp p pXH@+Z!@+Z! `,>cc,>,(/c^ 8r [
.
 Jp2rp+Z8

H0L+Yw HX P`,>ch,>,W+/c^4:Z;*ch0J+YVS.GN`[P5NY](ci1H+Yi,ci0L+Y\ :zci+Yi :+Y[ (hci[
P JpZ

(5LYi70(+Yi P HfS, Ld,j Zp p *jci 0pceS(BH8 (hcj

pXN0S(GHP (hcjS*@BJP 
Paj+Yq,>P,>cI,>_,>cI,dz/ck,c^0L+Y{ZZp2P+Y{,>P,>cJ,e3/c^+Y{l 0c^0P+Yz,>cJ,e7/c]@@` H1p9Z*cB4JZ H0N+Z,>cK+Z,>cK,>cL,gM/c^9YM[
,>,>,(/c^@@q/cL 2r

.,r/, Lp2rp+Z H Np4NZ 8 Hp 
p

( Lp4LZ p 02H@+Z,>@,>cM,e3/c^+Z;:p .(r82P+Z

9Z p. Hp.(QHd,5  Tp 
p

pXL( p Lp2rp+Z! p. /p @r H89Z 
ck J_ Jd

clXLd,j  0N+Z+ p 
p J S,GL( ,lcl@ncm7hw+Z/

pS.GN0 ncm p P0

d0L+Z3\`X p QH@ P pS(GH@XPXXTX6HuQV  VuZ`X[

w~,>,>w~,(/c^@/cg+-0.c^ w[w.w Hp2rp+ZI H,>X,\{/c]4:ZI7LX9Z?,>cM,e3/c] X Pp[p,>,>,(/c^9Z?@/c^+-0

 (QHd,5 7JmQXmZmXN`XXm wXP` eQZ`+-0.cg@@p@@q@@p 0H+ZY

p2Lcn+ZXO@q+Z] Lp+Z]1(

+Z\ : Zp+Z] . Np[

w8

Lp(

.,QLd cnXNd,j Zp p phco  w[
w.
w Jp2rp+[QZ`P H X3Xco+Zm.cp1N+Zm ,>h,>cN,e3/c^ X+@<Zo+[M+Zp+[ QHP[0P+Zw

`0,+[ ,>h,>cN,e3/c^+[0P
+[[w.w3N+Z| ,>h,>cO,e3/c^ 
cp Jd@@fU0 Pf , Lc,| O@p+[S.GNPO@qXXP6Lq+[ cp Hd@@f p Pf * Jc,|XZP,>p,>p,\/c^ Zp

p`L+[M,>p,>`,R/c^ Zp+[MS(GHPR`P+[M[0H
+[ ,>h,>cO,e3/c^+[1H+[S,GLPO@qQXP X Vp X3Xco+[ ,cp1L+[  ,>h,>cN,e3/c^[

0L
+[,[w.w3H+[& ,>h,>cO,e3/c^ 
cp Jd@@fU, Lf . Nc,| O@p+[.1L+[.S0GPPO@qXXP6Hq+[I[
P JpZ

P Lp 02.(+[6 ,>h,>cN,e3/c^ cp Pd@@f

p Lf . Nc,|XZP,>p,>p p,>h,R/c^,>,\/c^ Zp 
p`J+[K p,>h p,>h,\/c^ ,>p,>,>cc,K/c^,>,R/c^ Zp+[KS*GJPR`P[
p,>,>p,(/c^ H[,>,>,(/c^.49Zf7Pq+\,c^1L+[V1L+[V,>cO,e3/c]   `p+[Z,>,ZJ/c],>cq,/c] Zp,>cq,/c] 
pQZ(

0L+[b,>cq,/c]+[h   aP+[i 
cp Jd@@f , Lf . Nc,| Zp+[j 
 Jp p pXP  
p<
7r+\/4Z

P5L\[P 03H@*cqM ,1R@

G  (0N@GaP+[z,>cq,/c]XZP+\Z
Q Jp7Lp+\ Lp(cr1(+\ 
p6.(+\

pZ02Hp+\ 
pZ(Z

P2N+\[([P2P+\[(2H+\Z( NpXNP,cr0L+\ 8*cs0JT+\Z88XH8+\ pZ
@+[z,>cq,/c] Zp pXNP ,XL8=r[m/4 0H+\S:GZP+\S*BJP 
pS.GN(+\

cp Ld@@f p Nf ( Hc,| pQZ@

paL+\*.c^1N+\%1N+\%,>cP,e3/c]  
@`j+\),>,ZJ/c] pS,GLh[w,>,>w,(/c^ pZ` ZQXP XHQ 
,cs0L+\;6Pq+\<

( LfS. Nd,j Zp pS(BH@ (hct *jct ,lcu pXP8+\<R`  p`P+\D 0H+\@

h$,+\A

h2lp+\D ,>h,>cP,e3/c^ p 
p J  /cg+-0 w 
 aj+\L,> ,>cQ,e3/c^+

 al+\Q,>cQ,> ,>cC,e3/ca+

w 0an+\V,>0,>cR,>cR,>cS,dz/ck wS(GH@[q5H\ZXPqQPq+\[

qXP0XPq@+-0

.cu w h Hp 
h Jp

h Lp h Np p.w h Pp p.w h Hp 
p.
w

( Lp w 8 p P3Pp+\o7Jp+\m6Np+\u paN+\o p Z 
0J+\y p Np3Np+\w7Hp+\w7Lp+\w,>`,>cS,e3/c^+\z7Hp+\y

p Lp@/cu+-0.cv@@p w[w.w Hp2tp+^D 
P Jp

d0L+] ( Pp p @ V d0H+],>,\\/c],c^0L+]

ZO HpZ
@JpZ  Pp+]
  Jp   Pp+]

X Lp.cv N @ Hp 
@ Jp6Lp+^ d+@D]+^A+]@@@+]+^,>X,>cT,>cT,e3/ca+^G[X4H^

0L+]  p+]!1,

+]" : Zp	+]# ( Hp	0cv0P+]& X+](*cv1*

+]) : Zp+]* . Np 
p	3Jp+^[X Np708+]B p	$8&p H8[8 Np

cp Ld@@f p	$` 
&
p Jf ( Hc,| p	QZ80cw<72+^

pZ0 Lp
 
cp Jd@@f p	$`&p Hf . Nc,| p
XZ@=2]9+^(cw<72+]P 
(
.
p7,(+]P (.pZ@ cp Nd@@f p	$`&p Hf , Lc,| (.pXZ@=2]D p.co1.+^ 
p

(al+^ p[@2N+^ 
pZ(,cw0L+]^ `(cx0HT+]^Z

`<

XL`Z`5P]^S(GH`ZQ Np7Hp+]w Hp3Hp+]u p.co1.+]u p6, +]u p pZ
@Z82J+]u p pZ
@Z82J+]u p[@2N+]u pZ

  Lp pXL@.cx0N+^ 00cy0PT+^Z
08
XJ0+^ pZ  Pp+]_,cw .0L@ 
`(cy 00HT@AZ

` *0L@
AaN+^S:BZ`+^,>cq,/c]  pXX  0XP`,>cz,>,W+/c^5:^	 Zp+^S.GNX ncv0N+^ p HX*c^0J+^ p 82PX+^,>p,Qv/c] 
p ZpXZ(

p p N0S0GP8,>,`/c]+^A,>cz,>,W+/c^5:^ Zp+^A,>,\G/c]5:^A+^ d+@D^+^1+^"@@@+^%+^,,>c],>,W+/c^+^0,>cc,>,W+/c^4:^1S*GJX 
jcv0J+^1 p NX+^1,>c],>,W+/c^5:^/ Zp,>,\G/c]5:^1 Zp(c{0H+^4 :zc{+^5 ,lc{

q Lp p,>h,ZR/c]68+^: Zp+^@ QX@,>,`/c](c{*c|GaH+^@,JQZ` p Pq[p,>,>p,(/c^9\~[w,>,>w,(/c^ p/cv+-0[M4X^O,>`,>w,*/c^aZ+^N +Z`+^I 
w Jf

c| Ld,j  +-0.c^ w ` Hp6J`+^^6N	+^Y,>c],>,X:+^[,>c],>,XI/c^5:^]O@p+^p *QJp+^p6N	+^a,>c},>,X:+^c,>c},>,XI/c^4:^s ` X,>c],>,(/c^ [
.
Jp2rp+^lHXVHZ`H9^i,>p,>, p/c^+-0.c] w 6H+^~6L	+^z,>c],>,X:+^{,>c],>,XI/c^5:^}O+?Q6+?

+@4N+:+>+>,X:+,>cc,>,XI/c^4:C

 L(q   N(q,>,"i/c] +_:6N	+_,>c},>,X:+_,>c},>,XI/c^4:_C  [
.*QJd,5 [

Q  N`@[ Pp2tp+_ . 
.

(L^9 ,>,>,  
 ` H(q

` L(q+_66N	+_),>c},>,X:+_+,>c},>,XI/c^4:_C *QJd,5

L`,>,>,+:   
` J q

` L q,>,"i/c] [,>,>,(/c^[,>,>,(/c^[,>,>,(/c^[

w,>,>w,(/c^7@/c]+-0.c}7Hw~+`7Lw+` w~(c~0H+`

w~.c~5N` w*c0J+` w0ce5P` 
w~,c LpO@p@2Np+_S:p w~ h Pp (2Hp+_[:p@@Y 
w~

( LZ7.U7cU cU.: Z[, Z Zp 0
2Pp+_d:p w~ 
  JY

  LZ7.U7cU cU.: Z[, Z Zp 0

2Pp+_l:p 
w~ ( HY

( LZ7.U7cU cU.: Z[, Z Zp;@p+` w0ci PpO@p@2Hp+_s:p w 
h Jp ,2Lp+_{:p@@Y w 8 PZ7(U7cU cU.: Z[, Z Zp *
2Jp+`:p

w 0 NY 0 PZ7(U7cU cU.: Z[, Z Zp *

2Jp+`

:p w

8 LY 8 PZ7(U7cU cU.: Z[, Z Zp;@p+` cp Hd 
p Jf

p Lf . Nc,|+`@/c}+-0 w(d0H,ro,d5L`,ro `ap+` (hdS*@BJ`+`9 `ah+`$[`4T`9,cp0L+`" 0pd(dhd+`90dpdS(@BH`+`9*cp0J+`1 .nd 0pd(d0H+`/[` 
Uaj@+`9

X.,&,3,e+`9S:@+`9 
Uaj@+`9

`+`, .ndS0@BP`0d0P+`9[` Uah@+`9 
e2jX+`9S:GZ`@+-0

,> w[  
``j,ro

w.cm0N+`S7(`+`F 
cp Jd@@f `&0 Nf ( Hc,|+`i 
w

(3Lcn+`O,>c],>d,>d,>cq,>` cp Pd@@f ( Hf , Lc,|+`h,>c],>d,>d,>cq,>`Z`,>+`h w 
 `J+`[6,`+`W `+`i cp Nd@@f ` Pf ( Hc,|+`i7,`+`a cp Nd@@f `&0 Pf ( Hc,|+`i,>c],>d,>d,>cq,>` cp Nd@@f 0 Pf ( Hc,|,>,Z/c},^+-0.c] w*d0J	+`r[  Xan+`r,>cV,>cV,e3/c^+a$ w0d0P+`x 
8aj+`x,>cE,>8,>cH,e3/ca 
d0J+a w0d0P+a*d ,0J@

0d (0P@G

aL+a+a*d1J+a0d0P+a@+a,>cW,e3/c]+a$ d Nd d0P+a@@	+a

 * J	 
w,d .0L@[( (1P@A,cs 01L@AaN+a (QHd * J_+a@@_,j  _hd *jd

wQL`0d0P+a#@hd *jd,>,`:/c] ZpXZ` p.c~0NXX@ /c]+-0.d@@p w[w.w Hp2rp+b 
H0J+a3 H,>,`j/c]68+a/ +b6Pp+a1XXpQXp+bXX@XXp+b@@p H `7N`+ae[0H+a8,>cW+aG[

  P Np Np d Pd P_ dXHd,j  *jch,JQZP Zp

p .XN0QT0 p(c~0H+aG p,d1L+aI,>cX,e3/c]+b p*cb0J+aN,> ,>_,>cX,dz/ca+b,>cc,>p,X:/c^4:b,>p,P/c]aZ+aV p,>h,>cY,e3/c^+b 0QPd,5 Zp p *XJ Z`  pXN

p L  Nb La uXP Z` 4Pa_QH@ p Nu[

/,Q,>cc[.8,>,(/c^,>,a%/c] Zp5:al Zp7J`+ak,>p,/c] p+b7J`+b

,>p,/c] p[8 pXT@XTp d Hd H_ 
dXJd,j [

pXLPQTp .nch pXPP[@ HpZ
@8
XJ@ ,QLd Pp,5 pQZ8QTh pXHh[
p Jp

pXL( `[,>,>,(/c^ p XQH8 
XQJ86LX+b	 XZ8+b
[XXH8[,>,>+b+b p Zp+b[pXH8ZpXZp.2+a([w,>,>w,(/c^ p/d+-0.d(c{ Hpd @@p w[
w.
w Jp2rp+c<

H0L+bL d Pd H X Hp@@	*d0J+b(.cb1N+b([
 5Jb(,> ,>cY,e3/c^ pS0 GP8 8ap+b0(ci0H+b0,c^0L+b0,>8,>cZ+c, p 
 aj+b3,> ,>cZ+c,6LX+b8 X[X4Pb8 *QJd :+b8@ Z_,j  _pc{6Hp+b=XVpQVp+b>XV XVp ,ld	,>H,^t/c]QZX5:bCZ`X+c=0c{0P+c; *BJX *jc{[

X,>,`:/c] ZpXZX p0d1P+c;XV8+c;@@p H X7PX+bz[
0J+bQ,>cW+bg[.  ` Pp d Hd H_ 
dXJd,j  ,ld,JQZ` Zp p 0XP8QX8 p7J +b^,>c[+bg p @ Np Np*d0J+bc,d1L+bd,>cX+bg

p0cm1P+bh,>c[,e3/c]+c=:
 p H(p,>,P/c]aZ+bn p,>h,>cY+c, ,QLd,5 Zp p .XN@Z`@ 
pXJ@ p H@ Jb Ha

uXL@Z`@4LbxQP0 
p Ju[/(Q,>,b/c] Zp5:c Zp7LX+c,>p,/c] p+c=7LX+c6,>p,/c] p[@ pXX XXp 
d Jd J_

dXLd,j [pXN`QXp 0pd pXH`[
  JpZ

XL  .QNd Hp,5 pQZ@QXh 
pXJh[

p Lp pXN0 X[,>,>,(/c^ P0d	0P+c*,cv0L+c* pQV  P0d	0P+c*,cv0L+c* pQV 6PP+c$ XZ +c/ P `,>c],>,(/c^,d	0L+c*(cv1H+c- p,>h,>c\,e3/c^+c= 
pZ

XL(7l+c4 pZh,>,>,>c\,J/ca>[,>,>,(/c^6Pp+c9 p Zp+c;[
pXJ@ZpXZp.2+b ppc{ p/d+@	`dvd"d%d#<U08_Xd'd)d+ddd,(]d>	73ad@d@rb^U<	'{	-kdAdB_	7	ZdEI)dF	3

dc<=z{&"oq80(0,0(@800  ((D(F0D08,@4@PPP8D8DP 0 D(@(0 $@@(`0BP$@0(800@(@@D@8X$@8(`008(000 00(X<(0@0 (``D`DP@`$ 88 (`@ HH0 X(Xas INTRINSIC or EXTERNALas dummy parameterin type statementin DATA statementin COMMONin EQUIVALENCEas an entry point namein NAMELISTas statement functionas COMMON blockas NAMELIST as an array or FUNCTIONas an arrayas a FUNCTIONas an identifiera variable or arraya scalar variablean arraya subprogram namePBPBQwQvQwP@QtpCqv@qwPQwd
dd
ddddddddDummy variable$&DUMMYCOMMON variableVARIABLEin an I/O list-0.gr w&d Jp Hw4HdL,>,dG/gr:	 p.:Zd/gr+-0.gr@@[w< Hp2tp+dYZ
w.
 (4VdX 8)6 8`Xd9dU9dS/gr+-0 w 8)6Xd5Vd[+ aH+d`7jY,da>Y@,~ gs HZ *jgk

gl Ld,>,dO/gr e Nd6Pm+dj,>gs,g%/gr+dl@@m[
O8
QJOR`O * Jd[

O,>,dG/grZO4Nds (HdZ
O,>,dG/gr@Hd:
O , LY,>gl,g*/gr,>gm,g*/gr@,~-0.gtZw0(+e:

i0(XO@j ap+eZ
wZ,,h1Q,	Z87Q8`Z6pQ6@@@p/(H/.N/0P 2 *= Jp2rp+e

p2LHi9e	 &. 
&*Z(8

Q( lgt04Pe>i+e.9e	:

jl

Y .2Lw~@ p (0P@AaN+e" 
d Jp , Lc 0QPd,5  p HdZ5Ne QTXT+e"[

XT0QT+e" gm 
wjguS,BLP

w~ LP w~ PP w} HP .3LY@ 
p 01J@GaN+e.,>,f!/grO/gt+-0,>w},>w~,>w~,>w,dz/gu+-0,>w~,>w~,>e,>w,dz/gu+-0,>w~,>w~,>e,>w,dz/gu+-0

:i gm *>jgvS,BL`

w[0 N`0gv<+@DeB+eJ+eE+eF+eG+eH+eI@ gn+eG7gn go Z`+eJ :_+eJ :szgv w[h,>,f!/gr@+-0

6(w+eQ ,L

"nw

w&, 4LeT,>,eN/gr .(H

@+-0.gw w8gwZ*dh1Q*A` Jp

go L

@@p08+e^ gx Z

+e_ gx P

p 08+f+@deb+e_+f+ef+eo+f,ro+f
+f+f:
pZ

w.
 (@  2&4.6)V|=2ej gy 2N

=2em+e_ 
p8
 JpZ

w.
 ( D.6V+e~04@+e}0T?+ex */J

.N

+e_04+e| ./N

 G: Z

+e_T

+e_ vuZ4PQ4A`7X+e_X

+e:
pZ

w.
 (ZZ4PQ4A@[$.7r+e_.0 0XX

=rf+e_ 
p8
 JpZ

w.
7v(+e_ gp7X+fX

+f @  2&4.6)V|=2f gy 2

=2f+e_:pZ
w.,>h,eN/gr+e_X

+e_ *J

,L

@N

/gw+-0

,>gm,eW/gr  aH+f/ 
p1J+f(,>gp,g*/gr>Y 06nY@ w *3Hgy@
A`P,da>

Y,>,g*/gr*gz,gzH
aJ+f: p 00N@Dc w ,3Hgy@

AaP+f9,>g{,/gr
&`O@c@+-0

.g{ w~ 
$h-Z,/Q,` LpZ.pQ.A` Np 8$, Lp

2xp

+gp  Fp

O@p2Hp

+fG:p2Jp

+fM:p 0F+fI 0Pp (2Hp

+fS:p
w ,hZ"8Q"A`

7F+fSFp+fQ (2Hp

+fb:p
w<
$*Z"(pQ"A@ $<$f\

7F+fX .(Hp+fX (Hp $<$fb7F+f^ .0Pp+f^ 02Pp

+fo:p$(Z" rQ"@` *-Jp $<$fj

.,Lp+fh 0Pp $<$fn
.*Jp+fl ..Np ,2Lp

+fy:p$0Z"@nQ"A@ $<$fx
7F+fx

.,Lp+ft ,Lp 02Pp

+g:p
$hZ"(Q"A`7F+gFp+f};@p
&Z
(+(/g{+-0

 :d@aZ+g

D,>g|,>,g/gw+@+-0 waH@+g,>g|+gaH+g,>g|+gaH+g,>g{+gaH+g,>g},>w~,f;/gw@+-0

ZwZ
w~/$(,g}.g~/

&,.<78+g$ u< Pu5pg",gw~Nt=8g @+-0

 u< Hu5hg(,g

wLt@+-0(g~1H+g- ,A`QLw

w7X+g2 u< Pu5pg1,gXt+g-@+,>,g%/gr,~-0

 :b@aZ+g;

B,>g{,>,g/gw+@+ p< Hp5hg>,g5Fo,~-0@+-0.gr@/gr+-0 Uah+gIah +gH,>w~,>gq+gJ,>w~,>gq+gJ,>w~,>gr,>_,>w,dz/gu+-0 Uah+gSah +gQ,>w~,>gq+gT,>w~,>gq+gT,>w~,>gr,>e,>w,dz/gu+-0 Uah+g\ah +g[,>w~,>gq+g],>w~,>gq+g],>w~,>gr,>Y,>w,dz/gu+-0

.gt@	x X|	x	 X}@/gt+,g` | H~@,~,g` |/~.h}@,~@	`:ZHZZh
ghh

Hh	h
hhg     <$@P $@`

0$@ %FTN?FTNHDH

<w~<w0w Extension to Fortran-77:  VMS incompatibility:  Fortran-77 and VMS: 


 Line:
BINARYCOUTPUTASCIIOUTPUTASCIIINPUThhNDWL 1 DEVICE 4 WRITE LOCKEDTNHDE HARDWARE DEVICE ERROR ON 1 DEVICE 4TNCPE CHECKSUM OR PARITY ERROR IN 1 FILE 2TNQEX BLOCK TOO LARGE OR QUOTA EXCEEDED FOR 1 FILE 2hhh"h'@	`ZMT Size modifier  treated as FNA A function without an argument listDIS Opt - program is disconnected - optimization discontinuedMVC Number of variables  the number of constants in DATA statementAGA Opt - object variable, of assigned GOTO without optional list, was never assignedCUO Constant underflow or overflowNED No END statement in programLID Identifier   more than 31 charactersWOP Opt - warnings given in Phase 1.  Optimized code may be incorrectVNI Opt - variable  is not initializedRDI Attempt to redeclare implicit typeCTR Complex terms used in a relational other than EQ or NECAI COMPLEX expression used in arithmetic IFIFL Opt - infinite loop.  Optimization discontinuedICD Inaccessible code.  Statement deletedSOD  statement out of orderICC Illegal character, continuation field of initial lineXCR Extraneous carriage returnICS Illegal character in line sequence numberFMR Multiple RETURNs defined in a FUNCTIONVND FUNCTION return value is never definedNOD Global optimization not supported with /DEBUG - /OPT ignoredPPS PROGRAM statement parameters ignoredDXB DATA statement exceeds bounds of array VAI  already initializedSID Slash (/) in Dimension Bound - use colon (:) insteadIUA Illegal use of an array - use scalar variable insteadCAO Consecutive arithmetic operators illegalDII Previous declaration of intrinsic function  is ignoredCHO Global optimization not yet supported with character data - /OPT ignoredWNA Wrong number of arguments for statement function IAT Illegal type for argument  of statement function TSI Type of symbolic constant  ignoredRIM RETURN statement illegal in main programCCN CHARACTER constant used where numeric expression requiredHCN HOLLERITH constant used where numeric expression requiredFOO Statement function declared out of order or array not dimensionedAIS Extension to Fortran-77: Apostrophe in I/O specifierCAP Extension to Fortran-77: Consecutive arithmetic operatorsCCCCarriage control character CNS Extension to Fortran-77: Concantenation with variable of non-specific lengthCOS Extension to Fortran-77: Comment on statementCOV Extension to Fortran-77: Assigned variable appears in character expressionCSM Extension to Fortran-77: Comma field separator is missingDEB Extension to Fortran-77: DEBUG linesDFN VMS incompatibility: Default file name on VMS differs from Fortran-10/20DOW Extension to Fortran-77: DO WHILE statementDPE VMS incompatibility: Different precedence in exponentiationDWEDefault widths with edit descriptor DWL Extension to Fortran-77: DO without statement labelEDD Extension to Fortran-77: END DO statementEDS Extension to Fortran-77: DECODE statementEDS Extension to Fortran-77: ENCODE statementEDXFORMAT edit descriptor EOCExponential operator ^EXD Extension to Fortran-77: Transfer of control into DO loop at label FAR Extension to Fortran-77: Format in numeric arrayFIF Extension to Fortran-77:  is not an intrinsic function in Fortran-77FIN Extension to Fortran-77: FIND statementFMT VMS incompatibility: Keyword FMT instead of NMLHCP VMS incompatibility: Hollerith constant padded with spacesHCU Extension to Fortran-77: Hollerith constantINS VMS incompatibility: /NOCREF switchINS VMS incompatibility: /CREF switchINS VMS incompatibility: Default for VMS is /NOLISTKWUKeyword KWVKeyword value for LNE VMS incompatibility: Logical and numeric variables EQUIVALENCE-dLOL VMS incompatibility: List of labelsLSP Extension to Fortran-77:  length specifierMLNMixing logical and numericMSLMulti-statement lineNAM Extension to Fortran-77: NAMELIST statementNDPNo decimal places with edit descriptor NEC Extension to Fortran-77: Numeric expression in character contextNIB Extension to Fortran-77: Non-integer substring boundsNIG Extension to Fortran-77: Non-integer as index to computed GOTONIK Extension to Fortran-77: Non-integer used with NIS Extension to Fortran-77: Non-integer subscriptNIX Extension to Fortran-77: Non-integer as index to RETURNNLK Extension to Fortran-77: Use of NAMELISTNPC VMS incompatibility: Null padding before NPP Extension to Fortran-77: No parentheses around PARAMETER listNSCNon-standard character in column 1OCUOctal constantOIO Extension to Fortran-77:  statementOIO statementPWSPRINT (Specifiers) statementRLC Extension to Fortran-77: & used with return labelRLC$ used with return labelSBC Extension to Fortran-77: Substring bounds not constantSEP VMS incompatibility:  is same as program name or entry pointSMD Extension to Fortran-77: Single subscript with multi-dimensioned array ANS VMS incompatibility: ASSOCIATEVARIABLE not set by VMS on OPENSNN VMS incompatibility:  is same as NAMELIST nameSROSymbolic relational operator SVN VMS incompatibility:  is same as variable or function nameTLFTwo-branch logical IFWDUWRITE with default unitXEN with external nameXOR Extension to Fortran-77: Logical .XOR. operatorRLXReturn label LNCNon-numeric operand in numeric contextNLCNon-logical operand in logical contextCIS Conflicting INCLUDE switchesINC Extension to Fortran-77: INCLUDE statementSOR Subscript out of range for array FNS Extension to Fortran-77:  is not a Fortran-77 function or subroutineVNF VMS incompatibility:  is not an intrinsic function on VMSEIR Extension to Fortran-77: indexed readVKI VMS keyword  ignoredLMA Length mismatch for argument  of statement function ASF Illegal argument  for statement function EID Extension to Fortran-77: identifier with "$", "" or more than 6 charactersADV VMS incompatibility: associate variable is a dummy variableDIM Possible DO index modification inside loopIDN Opt - illegal DO nesting - optimization discontinuedPAV PARAMETER used as associate variableCNMCharacter and non-character variables ACB Argument out of range for CHAR, high order bits ignoredAIL Illegal length argument for ICHAR, first character usedADS  Variable  already declared in SAVE statementOHC  Octal or hexadecimal constantIMN  IMPLICIT NONEMBD IMPLICIT NONE -  must be explicitly declaredFWE Found  when expecting FEE Found  when expecting either FEE	   or USI   used incorrectlyICL Illegal character  in label fieldIAC Illegal ASCII character  in sourceUMP Unmatched parenthesesNRC Statement not recognizedMSP Statement name misspelledISN  is not ISN  is not IDT Illegal or misspelled data typeIIP Illegal implicit specification parameterLLS Label too large or too smallLAD Label  already defined at line: DIA DO index variable  is already activeILF Illegal statement after logical IFISD Illegal subscript expression in DATA statementAWN Array reference  has wrong number of subscriptsIDN DO loop at line:  is illegally nestedDTI The dimensions of  must be of the type integerEXB EQUIVALENCE extends COMMON block  backwardsABD  has already been defined IDV Implied DO index is not a variableTFL Too many FORMAT labels specifiedECT Attempt to enter  into COMMON twicePIC The DO parameters of  must be integer constantsRFC  is a recursive function callMCE More than 1 COMMON variable in EQUIVALENCE groupIED Inconsistent EQUIVALENCE declarationIZM Illegal  size modifier BOV Statement too large to classifyDVE Cannot use dummy variable in EQUIVALENCEVSE EQUIVALENCE subscripts must be integer constantsNIR Repeat count must be an unsigned integerNIU Non-integer unit number in I/O statementIXM Illegal mixed mode arithmeticCER Compiler error in routine DID Cannot initialize dummy parameter  in DATAIOD Illegal statement used as object of DONNF No statement number on FORMATDSF Argument  is same as FUNCTION nameCQL No closing quote in character constantLGB Lower bound greater than upper bound for array EID ENTRY statement illegal inside a block IF or DO loopIAL Incorrect argument type for library function NLF Wrong number of arguments for library function LTL Too many items in list - reduce number of itemsLFA Label arguments illegal in FUNCTION or array referenceDLN Optional data value list not supportedDDA  is duplicate dummy argumentEDN Expression too deeply nested to compileENF Label  must refer to an executable statement, not a FORMATVNA Subscripted variable in EQUIVALENCE, but not an arrayNEX No exponent after D or E in constantLNI List directed I/O with no I/O listLED Illegal list directed NIO NAMELIST directed I/O with I/O listSOR Subscript out of range for array IID Non-integer implied DO indexIBK Illegal statement in BLOCK DATA subprogramSNL  statements may not be labeledFNE Label  must refer to a FORMAT, not an executable statementEIM ENTRY statement illegal in main programIDS Implicit DO indices may not be subscriptedIIS Incorrect INCLUDE switchIVP Invalid path specificationNFS No file name specifiedCFF Cannot find fileINN INCLUDE statement nested too deeplyCSF Illegal statement function reference in CALL statementDFD Double  name illegalIUT Program units may not be terminated within INCLUDEd filesIFD INCLUDEd files must reside on diskSAD Array  - signed dimensions may appear only as constant range limitsDFC Variable dimension  must be scalar, defined as formal or in COMMONRIC Complex constant cannot be used to represent the real or imaginary part of a complex constantDNL Implied DO specification without associated list of variablesMWL Attempt to define multiple RETURN without formal label argumentsNUO .NOT. is a unary operatorDPR Dummy parameter  referenced before definitionVSO Variable dimension allowed in subprograms onlyIFE ATL Array  too largePTL Program too largeDDN DO loops too deeply nested - reduce nestingEIL Expression illegal in an input listTDO  type declaration out of orderITL Illegal transfer into loop to label IND Improper nesting: DO at line  has not terminatedINI Improper nesting: IF at line  has not terminatedNIF No matching IFAHE IF at line  already has ELSEUEC Label  previously used in executable contextUFC Label  previously used in FORMAT contextIVH Invalid hollerith constant - 0HIVC Invalid character constant - ''NCC Can't store numeric constant in character variable CSA Can't split string across numeric and character variablesSNC Substring of non-CHARACTER variableICN Illegal combination of character and numeric dataCEN Character expression used where numeric expression requiredIOR Substring bound out of rangeNWB Numeric variable must be aligned on word boundaryNWW Numeric variable  must be aligned on word boundaryOAG Octal or logical argument illegal to generic functionLND Label  must refer to a, not a declarationSTD Statement  is a declarationIBD Illegal substring bound in DATA statementFID Can't initialize character function name ZLD Zero-trip DO loop illegal in DATA statementCNE Character and numeric entry points cannot be mixedCEL Character entry points must have the same lengthCFL Reference to character function  must have a fixed lengthOBO  may only be specified onceUKW Unrecognized keyword IXS Illegal  specifierIXS Illegal  specifierWIF  is illegal with internal filesOUB Only upper bound of last dimension of  may be asteriskAOA Assumed-size arrays only allowed in subprogramsASA Assumed-size arrays cannot be used ISS   illegal in SAVE statementNLS  may not be declared length starCEX Constant or constant expression requiredMST  must be ECS  EQUIVALENCE-d to COMMON is illegal in SAVE statementEXI Exponent must be integerRUS Relational expression illegal as UNIT specifierUNS UNIT may not be specifiedNMD No matching DOSMC Size modifier conflict for variable IOC Illegal operator for character dataION Numeric operand of concatenation operatorIAN Illegal assignment between character and numeric dataNYI Not yet implementedIFS Illegal format specifierIQN INQUIRE - neither UNIT nor FILE keywords were specifiedIQB INQUIRE - both UNIT and FILE keywords were specifiedNNA NAMELIST is not allowed in NNN NML= must specify a NAMELISTMST  must be MKR Multiple key relational specifiersKKS If KEYID is specified then either KEY,KEYEQ,KEYGE or KEYGT must be specifiedKCS  can not be specified in an indexed readOIR Key relation specifiers may only be used in a read statementIFR Format can not be  in EMH  must have UMS UNIT must be specifiedUIF UNIT may not be an internal fileTKI Too many keys specified for indexed fileIKY Illegal key type - must be INTEGER or CHARACTERUDF Undefined label 20O TOPS20 ONLY: ,> &s+rq,> &s+rq,>,>
&s,r}
&s	
&
&s
S~ &@)Bl
"=fru
&sZ Fx,^,^,^7@x	`
&s

+x _&"QDx6@,r}[x."
",~SKERRCGERR?
? Internal compiler error processing statement 
? Call to  from 

Debugger execution:
@	`-0 w&(M 7Vdu+s w(N.s Nw2NX+sZdu+@+@	` APPP X((

((((((
(
((	(00000000((

88888888888888888888888888((@@@@@@@@@@@@@@@@@@@@@@@@@@PHHHCfW@T)e ASSIGNMENTSbTEZ IFDHSTFN OR ARRAY ASSIGNMENTXcTCh DO]#TD1 DOe5 END STATEMENT FUNCTIONRaTE# IFRcTE| IFT)k SUBSTRING ASSIGNMENTArgumentAn arrayM\1b REWIND4>` DOUBLEPRECISION\CP UNLOE,?S DIMENSION?@\/ REWRITETF ELSEl< INCLUDE\7. CLOSET,

 PAUSET, STOP

?@ BLOCKDATA4>Z INTEGERJP\/O DECODE<B? INTRINSIC=@T*o CALL	E>f FUNCTIONJZ FORMAT:@T* ASSIGNTDN ENDDO4>^ LOGICALM\1d ENDFILETFK ENDIFT+k CONTINUE4@ SAVEC IMPLICIT$?? PARAMETER
%,?Y COMMON<B EXTERNAL4>b COMPLEXT+O RETURNC@\1f FINDJ@\/H ENCODE\C? SKIPELC NAMELISTC@\1k DELETE?+ PROGRAM?P\/ READA@\/& TYPE%,AX EQUIVALENCE	E>n SUBROUTINEeL3 DATAA@\/3 PRINT4>\ REAL\7, OPEN	Ct>v ENTRY\70 INQUIREAP\/: ACCEPTAP\/A REREAD?@\/ WRITE<T*" GOTO4>d CHARACTER\1R BACKA@\/- PUNCHMt2t3t6t7t9t;t<t>t?tAtBtDtFtGtItKtLtNtOtQtRtTtUtWtXtZt\t]t_t`tbtctetfthtitktltntptrtstutvtxtyt{t|t~tuuu V Hd 
Y J

V L W Nd  P@,~ d HV,>vP,|/vU 
 JY

 LV d NW  P@@l@,~-0.vV w~<&(.( Hp0h+uh :+uh .:QZd .XNd,j Zp p 
pQJ@ w~ H@6Lw+up :XZ@+uq *!XJ@ 
pS0GP( /vV+-0.vUZw}@@  
w~

w}/

/,QL( w N( w~/w}<,> w}.:,>,(/vV@/vU+-0 aH +v,>,>vV,*/vV 
vW Jd

 Lf,| [`4Vv

[X,>Z`,>,>_,>vQ,dz/vW+v k(vX0H+v

`al+v,>,>_,>vQ,dz/vX+vS.GN` X` .nvY+v,,vY0L+v (vZ*vZGaH+v:vZ,>lw.,>,>_,>vR,dz/vWS0GP` 0pvY X`+v, `ah+v%,>,>_,>vR,dz/vX+vS*GJ` X`Z
`4Jv+

k 0an+v+,>vS,e3/vU ,lvY@+-0@@l *6hf@
 ,1hO@

G
aJ+v4,>vS,e3/vU@@f aN +v8,>f,>v[,*/vV f Pf vW Hd,|

`al+v>,>f,>vT+vD 
k6v[ .0V@DaN+vG `ap+vF,>f,>vT,e3/vV+vNS(GH`+vN@@Z(1P*+vN,vZ.v\G

aL+vM,>f,>vU+vDS*GJ`+@	`V9jn+5s)/0 $@0`0@&`$`$(,`H0unknownidentifierconstantlit stringlabelstatement endrelational op.NOT..AND..OR..EQV. or .XOR."**" or "^""&""("")"":" ",""$""-""/""+""*""=""//""'"""v]v^v`vavbvcvevfvgvhvivjvlvlvmvmvnvnvovovpvpvqvqvrvrEQVPOT8E0.NE. or .NOT. or .NEQV.ND@.AND.RH.OR.ORP.XOR.QVPQ0.EQ. or .EQV.T0E0.GT. or .GE.T0E0.LT. or .LE.RUE.TRUE.ALSE.FALSE.HwHw
 FORMATn executable statementw+w,NONEW   NEWCASE NEWSTATENEWBIG  NEWSMALLILL     TAB     LT      BLANK   SPEC    DIGIT   UPPER   LOWER   FOS     EOB     REMARK  ANDSGN  LPAREN  RPAREN  COLON   COMMA   DOLLAR  MINUS   SLASH   PLUS    ASTERISKEQUAL   LTSGN   GTSGN   NEQSGN  DOT     SEMICOL LITSGN  OCTSGN  COMNTSGNDEBUGSGNUPAROW  UNDRLIN ACTEOB     ACTINIT    ACTANY     ACTTAB     ACTSTSKIP  ACTREMEND  ACTGOBAKNOWACTLT      ACTSTMNTFOSACTGOBAKNXTACTEXPLT   ACTRETNOW  ACTCONTLT  ACTCALCONT ACTCONTDIG ACTCLABSKP ACTNOEND   ACTSTEOP   ACTENTREMARACTMULTST  ACTCLASF1  ACTMULTNULLACTILLCHAR ACTCOMNT   ACTDEBUG   ACTCOMNTFOSACTINTERR  ACTNOCONT  ACTNULLFOS ACTCITCONT ACTCALCLT  ACTENTCLABSACTCBUGCHK ACTENTLAB  ACTILABILL ACTILABEDCKACTILITCONTACTILABDIG ACTILNTC   ACTILNTI   ACTILNTD   ACTILITNC  ACTILITC   ACTILABLT  ACTUPLOW   ACTCONSTSKPACTSKNAME  ACTSKLPARENACTSKRPARENACTSKCOMMA ACTGETLIT  ACTENDLIT  ACTBAKTOTERACTSKCONBLDACTSKPHOLX ACTSKPHOL  ACTHOLTAB  ACTENTERM  ACTUNMATEOSACTSKILL   ACTCLASLT  ACTCLASUNREACTCLILLCHAACTCLASBACKACTCOMPAR  ACTCLASAL1 ACTASGNMNT ACTCLASF2  ACTIFCHK   ACTDOCHK   ACTARITHIF ACTLOGICIF ACTDOCHK1  ACTDOSTMNT ACTENDCHK  ACTCLASF3  ACTCLASF4  ACTKEYTERM ACTUNMATKEYACTSPELLINGACTBADCHAR ACTTHENCHK ACTBLOCKIF ACTSUBCHK  ACTSUBASSIGACTCLAS1A  ACTSKCOLON ACTKEYSUB  ACTDOCHK2  ACTWHILECHKACTCONTBLANACTLTENDCHKACTENDLTCHKACTENDLSNACTEOB     ACTANY     ACTTAB     ACTHOLCONDOACTFMTHOLPKACTHOLCON  ACTREMEND  ACTGOBAKNOWACTLT      ACTFMTHOLCKACTGOBAKNXTACTEXPLT   ACTLEXFOS  ACTRETNOW  ACTCONTLT  ACTCALCONT ACTCONTDIG ACTCLABSKP ACTENTREMARACTMULTST  ACTINTERR  ACTNOCONT  ACTCITCONT ACTCALCLT  ACTENTCLABSACTCBUGCHK ACTUPLOW   ACTCONSTSKPACTSKNAME  ACTSKLPARENACTSKRPARENACTSKCOMMA ACTGETLIT  ACTENDLIT  ACTBAKTOTERACTSKCONBLDACTSKPHOLX ACTSKPHOL  ACTHOLTAB  ACTENTERM  ACTUNMATEOSACTFMTQT1  ACTSKILL   ACTCLASLT  ACTBADCHAR ACTSINGLEX ACTDOUBLEX ACTNOTDOUB ACTMAYBDOUBACTENTIDENTACTPKUPID  ACTENDID   ACTENTDOT  ACTTRYREAL ACTMISOPER ACTGETOPER ACTOPCHK   ACTMISOP1  ACTENTGETCOACTGOTINT  ACTCHECKLETACTBILDDBLIACTREALCON ACTENTRLBLDACTGOTREAL ACTEXDBCHK ACTGOTOP   ACTCHKPLMI ACTNOEXP   ACTINTEXP1 ACTFMTQT   ACTGOTIEXP ACTHOLCHAR ACTHOLEND  ACTENTLITLEACTLITEDCHKACTTIC2CHK ACTENTOCTQ ACTNOOCT   ACTCHKOCPM ACTOCTQ1   ACTGOTOCT  ACTNOTIC   ACTSCANCHARACTSTRCHK  ACTSTOPLIT ACTFLEX1   ACTFMTEOS  ACTFMTCHAR ACTRIS     ACTSTOPINT ACTGOT6INT ACT6DIGIT  ACTSKCOLON ACTKEYCHK  ACTKEY1CHK ACTCONTBLANSTSTMNT   STILINE   STSKIP    STCONTINUESTNOEND   STEOP     STTERM    STCLASF2  STCLASAL1 STIFCHK   STDOCHK1  STDOCHK2  STCLASAL2 STCLASAL2ASTCLASF4  STCLASAL1ASTCLASAL1BSTLEXEME  STSKIP    STCONTINUESTTERM    STDOUBLEX STGETCONSTSTFMTLEX  STREMARK	STINIT	STRETNX	STNULLST	STCOMNT	STCALCONT	STCLABSKP	STCNTCONT	STCITCONT	STILABEL	STLABSKP	STILNTCONT	STILITCONT	STGETLIT	STSKNAME	STCONSTSKP	STSKPHOL	STCLASF3	STSPELLING	STIFCLASIF	STTHENCHK	STDOCHK3	STCONTBLANKSTENDLSNSTREMARK	STRETNX	STCALCONT	STCLABSKP	STCNTCONT	STCITCONT	STGETLIT	STSKNAME	STCONSTSKP	STSKPHOL	STIDENT	STDOT	STSCANOP	STBLDDBLINTSTREALCON	STREALCON1	STOPCHK	STINTEXPONESTINTEXP0	STINTEXP1	STHOLEX	STLITLEX	STLITEND	STOCTQ	STOCTQ0	STOCTQ1	STCSCAN	STSSCAN	STOPOBJ	STFMTQT	STFHOLCON	STFHOLPKUP	STSIXDIGIT	STKEYSCAN	STKEY1CHK	STCONTBLANK push - nextstate 	return to  pop - STATE endofilenot endofilefalseunknown returned
  CHAR   CODE   ACTION   STATE -0.) V *1H$@
,)D
 cGcA
aJ+|, `P+| ,>*,/)@@cZ HpZ

p4L|, 
p (`p+|*:*,>lh1,>,eW/+  aH
&X pS.GNh p h+|! Y Pe@@c V Hb P_

V La W Na@@@@ H@@@@,|K:
y@/)+-0.+ V HpZ*pQ*	,>,|/) ,0F@

 .0F@G

aL+|@V+|:[s1B+|I@hp`p 
V2Jp+|A1B+|I d Pp,>Y,>,e//+ p Zd /++6H+|M : Z+|O0h,+|O ..n

 LR`0 YQN0 W P0@@0 ( H0L,+|Y,7 
0J,+|Y,>	,e3/)@,~ZV5H|` ,$ LV 	 NV0V P,>
,|k/),~

W`L+|b . NY .A N W P V3H+|g ,L+|d00P+|j
W

V :,~-0@@  w6H`+|o[s+|pZs

Y Le$+@|r+|q+}"+}<+

+}K+}L+}Y+}`+}a+}t+}{+}+~+~+~
+~+~+~!+~,+~6+~P+~S+~h+~l+~r++*+	+X+[+c+i+k+n+o+p+v+x+z+|+++
++T+!+&+)+,+.+1+5+D+E+U+p@5F}%V7F+}"6J`+[+C0F
jV

UQ,A` LVV 6P`+}-[s+|qZs+|qZV3HU+}1 "+|q, 1F@+}60F@+}5 e Pb6P`+[+C,, 0F@+}5,>,>
,/+ +}51B+Q0F+}?>V+ V 
 aJ+}C,>,

/) ZY+}G

`L+}F . NY,>,|/) ,A L .$ NV V PW+}".AnV+G cHc (7P@GaN+}V4P}T,>_,>,dz/+@@+}V,>

,>_,>

,dz/+

(:+T0F+}^V[s1B+}],|60Z+Y : Z> @+|q> 8+}50F+}fV[s1B+}j,|61Z+}j+Y aP+}i@@+}j ( H`  V H@@@,>,/)

(`L J .$ NV V HW  X@:
@+P,| V1P$+}z 
 ,GL( J + +7N,]  *GJ  H>
 (+t7N+~ $+|q $+|q F +,N`Z+g  V P8 (BH8@@ ($ HV PW+}s Y Nb V @aH+~,>,

/) ZY 
V JWV+~:
YZs,|K 
W Je

 L  . N 8`P+|q+31F+37P,] 
 ,GL( J ,! LV> 8+G V0N!+ +0F@+~# $+|q a PV b HV 
_ JY1H$+~* a2NW+~*,>*,_/)@@c a NW+~50F@+~2 V00#+P,>,|/),>*,_/)+P V1P$+~5,>*,_/),|+}.4N~N (0F@*AaH+~@

V0L#+~>  0+~?  0p,+~N ,1F!@

 .1F@A

 01F@A

aL+~N 
Uaj +~Laj+~J  (+~K  (h,+~N  .n,  X :
 +.4N~i,>,gM/)+~i2X+~V 0 P+~V@@ (6P@ ,7J@

AaH+~],>_,>,dz/+@@k . N@@ Fd@@ V Pd,>,|/) 
Y J

V8

L W Hd  N +0F+~j &A "+|q 0 P $+|q,>,>Y,>,dz/+ .nV  
+.4N (0F@*AaH+~y,>,>,e7/++ ,1F!@

 .1F@A

 01F@A

aL+,>,gM/)  
 J :

+~O Uan +,>,e7/) aP+ +,>,>_,>,dz/+6N`++  0BP87P+ P[
@ Je Jb3P+ ..n  N N 8 He HV HW[
8 JY+ 
 J

e LV *$ JV0F@ &A "6T+  4 0GPP.42t+w (GHP+  07N@ *7H@
GaP+*,>,>_,>,dz/+ $+|q + Y Nb:Y,|K W He 
|J,L0aN+3$+|q$aP+~N+4 +|q1F+L@@@@,>,>Y,>,dz/+ 0pV +C V0N!+ + + . N $0./0 P V1H!+C+0F+M $	+|q  (GH@ P,>Y,>,e//++}y  0GP8 N+f  0GP8 N1F+}y $+|q  0GP8 N 0  PV+f  0GP8 N 1F+b,>Y,>,e//+ (! HV+ ( +a,N`Z+g  0BP8 +|q `0N+|q+[/&6N`+[+C  /. N+[s +|q:+>n+>  5.t6L`+|q+C6L`++6N+>  +|q . N +0F+@@+4 .0F/@ 00F@GaN+6H`++Zs +|q $..+l 1F,+ 00F$@ *7h@
AaP+|q +?N+4+".AnV "+|q  X8: @@+|q 07N@ *7H@
AaP+,>_,>,dz/+@@>

 0+|q aN+0B+!,>_,>,dz/++$,>,>Y,>,dz/+ (hV@@+1F+F6P+)6Jl+)  Nl

(`L J  V P8@@ ($ HV PW 
X(+o.N6P+5+(  
 :

  +( d NV  PY  HV 
d JW , L@@ 3.+E  
 `J H ,.l+@  N N@@@@6P`++3T+4T} k0HtZ+M@@k+	,>,> ,dz/+7L+R F :+  
  +|q !+|q k1NtZ+I (t Hk  *Jj+( d(N. Nd !+ d 00N$c@ (0F@AaP+g

" L(:  ( H " P	+ !+[ d0N"'+l F (t3 Hk #+ $%+|q .t!+s .t++s@@  # P8:+4 .t% Nk+I d2N-+w (t' Hk+I $+|q d(N. Nd $+ d(N. Nd,>,s/) Zk4Z $+ !+ . N  %+3 07N@DaP+ $+|q2X#+I $!+|q kZ08Q0Q` P %+(6Nl,q,>,>Y,>,dz/+ (hVS* J

  N0:  + &	3F+ 00T@ (0FA@ *0F@
GAaP+ $)+|q $#+|q .t,+s7N+# :t- Zk+$ (t" Hk (Jh+( .t- Nk 0Jp  $+|q . N  &+3 0N+:+ . N  '+3 . N  ' H@:
 + .0FA@ 00F@GaN+A  *0H+@
 ,1(@

 00h@A

G
aJ+A .t&+s %6H`+[[s+|q (+0F+GV+|q d2P-+J *t' Jk $'+|q6J+M6Nl+M  Hl  8`P N  
V J @@ ,$ LV JW  X8:+}s0F+\V[s1B+_,|61Z+_ 
`0J+|qZs+|q aP+^@@+_ ( H`  @`H P

V L(@@,>,_/) k0Nt'+i 5Ri (+

 `L H 
 V N(@@ 0$ PV NW  X :

+}s Y Nb V @aH+w,>,

/) ZY 
V JW+z:
Y,>,|/)

V LW,|K *$ J JV &A " F :J+7NV+>VV+[6JV+3X+  X@:6>VV+C+@	`X:
$$V"*"6$

@"g"@@ @@
@
@
@a@$	@h6@h6bh6B(FbFbFbXVBF

 
`P
 
#h
@
 
 
 0


c$	
b`XCi6.`4.`.@4.%H6.%H6.%H6.H6.%H6.A$.v

PPPPPZ P\!P\

P$	PP^*P`Q,PbP\PPPPP!PPPPP&PdPP\!P\!PP\ Cp|``x@#iD0EB`#i'A$	#i%!0#q#i#h$Ch#i#i#i#iE#i#i#i#i#i	#i#iD8D8#iChCp|`a6@dxzDyDyDxXdqA$	dxz%9**CpzdxzdxzDydxzdxzdxzdxzE)dxzdxzdxzdxzdx&	dxzdxzDyDydxzDy@`@````````````````````````````6$
w V HpZ*pQ*	,>,|/
x ,0F@

 .0F@G

aL+8V+3[s1B+B@hp`p 
V2Jp+:1B+B d Pp,>Y,>
N,e//
w p Zd /
w+0F+M 
V Je JW

 L . Nm aP+L6H+L,>
x,g%/
x,da :,~@,~0F+UV[s1B+T,.1Z+T :,~ : Z@,~ 0h,+X ,.l

 0 NV Ne NW L[0 PY@,~7H+n

V L H  01.@*
yDaP+e",.l+` (.h 3n+k,>,_/
x :.z+f  PV

 0 HW[0 ZY@,~-0.
y@@  w6H`+t[s+tZs

Y Le$+@w+v+(+f+A+C+G+Q+X+a+c+++++!+#+1+=+D+F+`+c+g+r+s+w+x+}+++++
+++++!+#+%+(+1+9+C+`+h+v+x++&+2+=+h+i+p+w++'+2+7+F+`+j+l+p+s+z+}+	+	+	
+	+	+	+	+	%+	-+	:+	=+	D+	G+	Q+	d+	g+	s+
+
+
+
+
+
+
"+
#+
*+
,+
8+
C@5F+V7F+(6J`+~+0F
jV

UQ,A` LVV 6P`+3[s+vZs+vZV3HU+7 "+u, 1F@+;0F@+b e Pb+b,, 0F@+b,>,>
N,/
w +b".AnV6P`+
D+
F1F$+F FZLC+
L 
O $+v0B+J FZLN+
LFTZT2PS+M,>,K/
x6J+PZLN N 
O+
F>+
F $../. NFTZT2PS+
F,>,K/
x+
F0F+_V[s1B+^,.1Z+^ 
`0J+u+~ : Z> @
+u> 8
6P`+~+7N+3N+ 
3J+v,>,_/
x,V .
z(
zGaN+g

(aL+o 0$ PV+S"0.p[@ HY .$ NV 
V JW

 X0
: 
P+
F,>,_/
x,V  @aN+{ ($ HV+S ($ HV 
 X(
:

 
P+
F0F+V[s1B+	,.1Z+	 `0N+u+~ 
aJ+@@+	 , L`

V L(,>,_/
x .$ NV V PW  X 
:

+u 
Q@@ $+v,]  0GP8 N> @
+7N+ $+v $+v.V 01N@ (0FA@ *0F@@
GAaP+	f

b Le+	f F +
L7N+'3N+',V *$ JV+u,N`Z+/ aH++@@+, * J`

V L( .$ NV LW+u `0H+u+~ Y Nb V @aH+8,>
Q,

/
x ZY 
V JWV+9:
YZs,|K 
W Je

 L 
P+u1F+C,]  (GH@ P (! HV>
 (
+	 $
+v V0N!+
F 
R+
F.
R4N^ (0F@*
SAaH+P

V0L#+N  0+O  0p
{+^ ,1F!@

 .1F@A

 01F@A

aL+^ 
Uaj +\aj+Z  (+[  (h
{+^  .n
{  X 
:
 
S+
F.
R4NT,>
T,gM/
x+T,>
T,>_,>
U,dz/
|6N`+
D+
F7N+n N[8 He Hb3N+l,V+o

e LV+o e HV ($ HV0F@ &A "+/ 
U+
F,>
V,>_,>
V,dz/
| .$ NV+S 
W+
F Uan +{  (h
| aP+^+w/&7N`+Zs+u 
W /. N+
F[s 
X+u:+
D>n+
D>  
5.	6L`+u[s+u6L`+
D+
F6N+
D>  
+u . N 
X+
F0F+
F@@+" .0F/@ 00F@GaN+6H`+
D+
FZs 
Y+u $..+ 
Y1F,+
D 00F$@ *7h@
AaP+u 
Y+
F>N+
F 
Y+
D".AnV "+u  X8
: 
Y@@+u 07N@ *7H@
AaP+/,>_,>
Z,dz/
w@@>

 0
+u0B+4,>
Z,e3/
x+
FTZT2PS+7,>,K/
x0F+
FZ

LN+
? aN+
D0B+>,>_,>
Z,dz/
w+B,>,>Y,>
[,dz/
| (hV@@+
D7N+W  
V J 3H+W3H+P,V 
.
},
}GaN+G ($ HV  
@`J+S

 X0
:+~,V *$ JV

8aL+U0F@ &A "+u  X 
:+~0F+YV+u6J+\6Nl+\  Hl .$ NV V PW  X 
:
+u6Nl,q,>,>Y,>
[,dz/
| (hVS* J

 
O N0
:+1 0v+kS+u0V+mS:

+u0V

+r*
R4Jq,>
[,>
\,gM/
w 
~+u*
R4Jt,>
\,gM/
xS:  V+O B 
]+
D 0v+zS+0V+(
R4H~,>
],>
\,gM/
w 
~+(
R4H,>
^,>
\,gM/
w 
 +D $ /.	+@=+u+
+v+

+++!@0F+vS6+u0F+vS6+u /0	+@E+u+v+v+v+++@+v(
R4H,>
^,>
\,gM/
w 
+u(
R4H ,>
_+(
R4H%,>
_+#0F+v(
R4H ,>
`,>
\,gM/
w +u0F+v(
R4H%,>
`,>
\,gM/
w +u /. (Z8. Pc0P+* 
8. Jp@0v+-@@Xf9+ 

a J

/,L	 . N@@p 
a+
F:0n+5 /(H	+
F 0H+
F ,QLp 
bXNp,>p,/
x,>,>
b,e7/
w+
F .0F/@ 00F@GaN+K ( Hp 
8
 J0j+G

/,L	+
F

0L+
F .QNp 

bXJp+9 1h+S

Ual +O,>
c,e7/
x 0 P~ 1n+W ( H+W,
SA

paL+W,>
c,e7/
x

.,&,QLf 
bXPf v\ Hd,|  
c0J+_6LX+_ p HX,5Lc(5Hc,>,`/
x Xah@+g,>Z
,>,XI/
w7Q6+D 
c+
F@@eO@e@@@@ v] Nd 0
 Pc  

d J 
:

+o,>
d,>,>
e,e3/
|S. N1FA+
"  

O J 
:

+1 .0F,@ N 
e v} P	4P~@@pZ*pQ*A` Jp@@p+
F $+v	 .1F@ p (00@AaN+Fp:
p3V+
F ,0V@

 00F@A

aL+ 	64 + 
v] Jd 0 Pc@@f

 Lf,| Q4+*
SA
aJ+,>
f,e7/
x 	 h T+O (.h	6N + $+vZ0pQ0A` PpQ(A` HpO@p 2

p Lp2rp+$p
p3N9@@p+$9 paH+0	 + 	7P8+):
	+'Z	8,>,>,>
e,e3/
|S, L1FA+
"  
O H8
:
 
f+
D@@e@@e@@@@ v] Nd  
g H@
:
+o 07N@(
gGaP+=,>
h,e3/
x v] Zd 
 Jf@@f7Ll+B,v- Q6+D ( Hc,| Q6 F +
L3X
d+Y6Pl+|0F$+Y6L+K,>
h,e3/
x,>,>,ub/
wXZ 0QP Z* Q*A` J

&,/."N2N+U@@+X Uah+X,>
i,e7/
x 
i+
F@@
0F"+\ (

 Hc 
j+
F0F"+_ *
 Jc+[2X
d+|+	 A5Nh e.he)@@ 
/* J+
F6He+
F:e+
F .
 Nc 
j+
FO@e  
d P8
: 
k+u,V  Nf  Pf+	b@@
0F"+v 0

 Pc+[0F"+x,uT 
k+
F,>
Q,|/
x;V,uZN&" 
l0F+	O@
+
F1F+
F $"+v6Nl,q,>
l,e3/
x v] Hd+	6Nl,q /( H 
m+
FFTZT2NS+	
x 
m+
F6N
"h .he $ +v6N+	 $$+v>+
; Uan +	,>
n,e7/
x .p7H+	 ,L	>+	Z	@@8+
"@@,>,>,ub/
wXZ .QN Z(@Q(A` H	A0.0	 P 
n+
FZZ	2N+	* *QJd,5 ,.l0F+	, 
o+
FF	:

+
F0F+	0F	:+	$6P+	2,>
o,e3/
x*
p1J+	5 .N	+	2Z	,>Z,>Z
,>,>,ut/+
"@@@@@@
@@ 
p+
F,>
q,>,>
e,e3/
|  
O P8
: 
fS* J+u 
q1F+1F+
F $'+v 
r  1&+	M,>
r,>,>
e,e3/
| &:)T ./(  T V+
F.
R4N	T,>
s,gM/
x 1h

+	X,>
s,>
t,>
e,e3/
|7L
+	\O/p "H3H: 0p+	^ :+	_ : Zc 
 Jf

 Lf v] Nd F,|.+
L,>
Z,e3/
x FS:+
L n0N+	k0B+	o F+O0N+	m0B+	o+	j2N+	o ,+
?0FA+
A*V1J+
A b Ne+
A7Nn+	{ N	@@n	3F+	z0FA+
A,V1L+
A+	r,uT+
F	3F+
F5V	6Ll,q F :+
L,uZV>

V+
A0F+
A $%+vFTZT2NS+
,>,K/
xZ

L@ H+O.V 01N@ (0FA@AaP+
 
b Je FZLD+
LFTZT2NS+
,>,K/
x[L +
ZV 03NU@ (0F?@AaP+
 $+v $
+v,>,>,ub/
wXZ .QN Z(@Q(A` H	@@ $.+v 
O+u 
t $.:1n+
;0N+
F,>
u,>
u,>
e,e3/
|+
F 0N+
D:+
D0B+
4@0t+
0@@Pf9
. 0 Pi 
v H	F	,uT 
v+
F0FA+
A(V1H+
A

b Le+
A0B+
< i8 Pi0p+
FF	+
F0F+
@6Hl,q

f L+O,uZV>V F@+
L 
w+
F7NV+
F>VV+~6JV+
J3X
S+
J  X@
:6
S>VV+/
y+@	`X$

<U>U6$"$$

d"$

$$$7ex(6$lHf$

$$$$4I6$@ @@

@ ((000000DX@X}|(  h
 @@  h
 h
 h
 h
@h
!	!(F@pA(BA(A(!(A	b(XB0`X"(B(fb(d	(dB(4
9@84A$	`X@
`@ d#$)
D!#D!#!#A$	Y	B1@YY'Y(Y'Y'%'Y	a&*@(@( (E	&*&*E	&*E4
"H"H4"HH$q>
@0XV 0eq>
q>
eq>
aP4
eq>
A$	P*,@0*B8*

"8*B84@* $	 *"8*"P* *. *"8$ *@$ *@$@*@*@* *

"8$

"82 *"8*a,@(@( (cY,a ca0aP4cY.A(cY,cY,cY,cY,cY,cY,cY,

Y,cY,

Y,

Y,

Y,

Y,cY,cq,a&cY

cY,ca0ca0cY,cY06$#<>===<=><=>=dotted operatorOCTAL DIGITOCTAL DIGITa maximum of 24too many digits6-digit numberlarger number-0 w*,.
 0Z+

0pZ

XL +

z@+-0.

@ w *A`QJ  6

w0/.  008@ (1x@GaP+

3X

,>Y,>,e//
$*.
 =6

Zp

w0 0X?+

 ZV2PU+

 , 0X@+

 ,, 0X@+

,,>/+

E 
w

( 0 (2N@ *6Pp@
AaH+

w 08XN0 0A`QP0 * Jm(DaH+

/,>,g%/

,da w

86P0+

3 88XH8+

/ w

@0L?+

>ZV2NU+

>, 0X@+

>,, 0X@+

>,>/ (A`QH8 8

@aL+

E,>,

F,>w,|/

7p@/

+-0,>  Hd *Jd7Xz+

S,>,/

,>,dO/

R{4X

S 0Pd,>,/

,>,dO/

 .Nd,>,dZ/

,>,dZ/

 /@ 0 Pd(6)6,>,dG/

@)64X

^ 
.* Jd[4X

c .Nd,>,dG/

 0Pd@S)64X

g 0Pd,>,dG/

60U+

j,>,dZ/

Ual+

m,>,dZ/

 Uah+

o,>+

q,>,dZ/

,>,dZ/

aJ+

u,>,dZ/

an+

x,>,dZ/

 aP +

{,>,dZ/

al+

~,>,dZ/

aH+

 
aJ+/

aN+

 aP+
,>,dZ/

al+

Uah@+

 
A
4J,dZ/

ap+

aL+ aH+
aJ+ aN+Pd , Ld	v &(8
 ,>,dG/

&.

&, =#,>,dZ/

 &(.(  ,>,dG/

 0Pd	v

 ,>,dG/

<*Jdd&G &0j0 08+

,>,dZ/

 ,Ld d He,^+-0.

FaH+
.*	 Jp ,p.

	x6++F@4Z

L.

2,(+,>,dz/ V(,

G++:@+f;/

+-0ZVZ
U3H+,>,dz/ZaN+ *p<
3v++:@+8aN+Z
U. *8_", LX VU@@S.V7@+@,~-0.

@/

+@,~-0

aH+

B:@+6JS+ aN+ =.:+ :S.0 Pp (p. 	x6++,

+,Za H @@W *"
Z, .n.*j05P =- *0n@
Z

a0 (0P@A
."Z00(h..n, (0L@A
`J=-.0N+318
+37J`=-00P+2 X  . NW+3@@W aP+6 =.:+6 :<$:ZhoZUZ
 / 2x +<@@`+C / QP`QPd,5XZ`X`  QZ
`[`.
 *6g 0
".p ZU/"PU"
 .jV" .na"

.la" .zW+-0,>,> (	t,),^,^+@,~-0.
+s

aL+a ( Np6P! P( 
=.*S

.,Lp.p.p	t6+[+],
pJ(+k(NF+d,,>,>,dz/ 
L.
 J(,J@@!@@V 6
 aN+o =.:+p :<$:ZhoZ@.(
 HU+@@!7L`+|A,S.0
 [`.(
*8[`<,>,>,(/
 aP+ =.:+ :<$:ZhoZUZ
 /".:
 Z 7, @@

aL+	 =.:+
 :<$:Zho. 8Q aP+ =.:+ :<$:ZhoZ
Z

 .
Z /
*87"0PXZU3V+,>,>,>,dz/,|Z0Z+ :@+ :/

w7N0+(,>b,>,dz/a,

WL,0Z@+,>,>,e3/

,7, 0X@+6,,  +-0.
 JZ,/Q,` L . N 0 P   ``H@+D ` 4# 
 Jp34p+D ,L=B28+K,>,_/

`aL+J,>,e/

.8+D   N,>,e/

@@ 01P+Q@
J+NZ .6LX@ 016
@AaN+W=R8 U/ H /p"HV VU 
U", L(  @ NW[@ HY

(LeZd 8 PdA0.d/ Pd@/

 w6V +i

UZ67Q6` Vp

w 0ZZ2N+oZ
8
 J@@ +y 
A
 5Jr8Q+sQ XZ[/ P Z
.

 L*8X  
w

( L( 3V+@P+|  .p H 
w6L( H(   3Pw X

3Lw X 3Nw X 3Hw X 
l3Jw Xl .0 P   wQ*8_@/

+-0.< .6L`@ 01x
@A`N+0x
+ :@+B 
/*
 J"

V Lp Y Pp 6ZX3x+ ,>,_/

.6+ 4 
/
 J!

Q2v+("".nX7HX+'"

".lX.6+#

U/

.,
 S.0
 *8_/!*4_7N+/"
!.j7J+1"!.p7Pl+3"!.hl"!.h"
!.j"

!.l p PY"".na p/" HV"
".jW"

".la"".pd"".nd"".he"
".j"

".lU"0 P0@/

,>. Bp Dp Fp w 8&" $)$|=8G FX p p p@/,^+-0

Z4H^a,W,>4h1,>,eW/

Y,>,g*/

 *!B
w`J
&`Z

0H,>,>,(/

7Hw+g

 `L@+ w 0@GP8[8 PY 
8 JW 8 HV@@p

cG

caL+p `n+p`N+p `P+o,>

 ( Hp aN+7pY,da,>Y,C/

,>,g*/

*V0J+x>Y+.V0N+{O@Y : Zm+(V0H+ Y&6

Y/

 LY+>

Y,>W,>V,g/

,>"+ `aN+,>,|/

 V3PW+

,>W,>,g/

:V,>,g%/

+,>W,>V,g/M/

O@c7Jw+."4N,>,e;/

@@`@/

+-0.# 
_ J" , L 0 N b P# : Zc 
V3J+p 	 N. 01 Pp #1H$+."

#.,#76++ .N.=6*"#.0$".pp :$ Z#76p+X

  .18@ 00x@AaN+R(.1H+7 ,L. ,L.@P. /`N+=,>",C/

&X@@/
&$ 	 H. 
 J#

  01X@ .1X@AaP+@  
 aJ+J,>	,

 Z"+L:

",>	,|/

 Lp V 02N#@ (2L@GaP+.+_4XSX. 
2JV+W7Pw+_ p H+_=6/ /`H+\,>",C/

&X : Z/@
J.
&$ 	 Z.+. 06Lw@ 	 (3N.@AaP+l 
/`J+h,>",C/

&X ,L. .N.@H.
&$+p 
/aJ+p,>
,>_,>
,dz/@/

. Y Hp 
V Jp

W Lp l28+{ ``P@+z,>,_/

.8+v@@l p HY 
p JV

p LW@/+@,~@	`\:Z)"+"<a/0"2XVH$5"< 0 x

FORTRAN V./G/ST/F77/NOF77/OPT/NOWA/C/SY/I/M/EXP/NOER/L/EXT/D:(mn@	Page<0:0<0`<|$@hD@

(-Jan--Feb--Mar--Apr--May--Jun--Jul--Aug--Sep--Oct--Nov--Dec-INSTATTRANSFRINGSINPUTEOPRESEOPRESTOREOVERFLOW, LINE TOO LONGBACKTYPE-0.s@@p@@p@@pZ6pQ6A`@[w< Hp2tp+MZ
w.
Z8(Q8A@ 2:

p1l+K `p+E`P+E (p Hp
'p aH+HZ*p,>,g*/t * Jp@@pZ6pQ6A`.0P=2?9<[0H+Q,_5LQ 0P ,L `n+V`N+V 0p Pp
'p aP+YZ(p,>,g*/t@/s++[-0.t U`h, 
aJ +a,>u,*/t .6LN@ (7Pj@G 
` ,1J@

GaN+ (1P@ ,7Ji@

GaH+,>`,S/t6Nj+r,>a,S/tS*vx Jp+{,>a,S/tZ
.
jXJl S,GLT , LdZ(pQ(A` Hd,>j,dG/t@Nd,>,6/tZ*p,>,S/t

j0L+,>b+,>b,S/t6Ni+S:vx Zp+
lZ*pQ*A` Jd,>,dG/t@

LdZ*p,>,S/t

i0L+,>c+,>c+ aN+,>d,g*/t,>,6/t aP+,>d,g*/t,>e,S/t@/t+-0,>.u ( Hd,>e,S/t7jr+$Z.pQ.A` Nd,>,dG/t@PdZ(p,>+%,>f,S/t,>f,S/tZ.pQ.A` Nd,>q,dG/t@PdZ(p,>,S/t,>g,S/t,>g,S/t,g` 
|/
H  Vp,>,/t,>h,S/t

}/

H  } NH569.v,>,/t7h}+?,>h,S/t,>},/t

| LH,>i,S/t[(/p"4xIZ(pQ(A` Hd,>,dG/t@
JdZ,p,>+I,>i,S/t,>j,S/t@@p,>j,S/t,>|, /t,>k,S/t |$:,>, /t7H{+[,>k,S/t,>{, /t,>l,S/t {$:,>, /t,>l,S/t,>y, /t,>m,S/t

y$,j0$,2&

p  &02,>, /t &(2 ,>m,S/t ..&.7x+l,>, +m,>n,S/t,>n,S/t y< ,>o,S/t,>, /t,>o,S/t 
$*j0$*2&
p  &02,>, /t &.2 ,>p,S/t .(&(7x+,>, +,>p,S/t,>q,S/t@/u,^+-0

.v ( HdZ*pQ*A` Jd

w&,j07X+,>,dG/t (Hd w&(j0&*t7X+,>,dG/t 0Pd w&(t 082+ .Nd08+ 0Pd5X (Hd+,>,dG/t@HdZ*p,>,S/t@/v+-0.uZ(pQ(A` Hd * Jd,>w,dG/t@

LdZ.p,>,S/t@/u+-0 `H+0 
=,w.qN

aL+0@+ 
w0J+2,>r+Q r Nd 0 Pd@@	 w H/+@-7+N+9+=+@+D+J w~,>h,dO/tzr ,Ld+N w~,>h,dO/tzr+N

x L/,>w~,dG/t 	nr+N,>w~,dG/t

lr .(Nd 0Pd+N,>w~,dG/t

lr .(Nd ,?Ld ."Nd@Pd,>s,g*/t+-0 wZ8 Q8A` 6
0J+X .n=6U `n+[aN
'w aP+,>w,g*/t+@	`iyz{}

"$&())+-001(M4// 0L\BB
%FTNWRN   ?FTNFTL    fatal error and  fatal errors and  warning
 warnings

[ No errors detected ]

 Size:			no code +  data words
 Run time:		
 Elapsed time:		
  Special run time:	
 Dynamic memory used:	no words

 Number of symbols in table:	
  Size of storage:		
 Number of COMMON blocks:	
  Size of storage:		

 Compiled:	 Source lines at:	.  lines per minute
 Compiled:	 Executable statements at:	.  statements per minute

E-0. aH+=*0J+: :+: : Zk,>_,>x,dz/+T 
k1J+H Y Np@@Y,>,>y,e// p PY ( Hk 
 J_ Jd

XLd,j,>(+P7N`+K,+k@@`+L,>_,o/  H_ Hd 
XJd,j,>(,|k/:.H,>,M/@/+-0Zm4XkZ`*0J+^ X`n+g,>y,>X[`,>,>z,dz/+g. 01N@(D*DaP+f,>X[

`,>,>z,dz/S,BLX  h,>	,>,(/+VO+-0

.@@p@@p 8 ` Hp4Hy

p[05NwZ00hO+w 0`n+wZ0,>,>{,dz/ pZ
  Jp5Jp=8n@/+-0.@@p u[
  Jp

p`L+l  . Np,d],>{,S/,d],>|,S/ p[h,>,C/,>|,S/,>},S/:j uZ
  Ju5J|@/+-0. wZ
 "
.ja7Vu+ZX4NZX+@@p4V'ZX0P+Z
X :2Jw++Z
X0J+[X :2Nw@aZ+ * Jp+&7Jp+&[XZX5N$[`,>,>}+%[`,>,>~,e3/[X+ u@@p4VNZ

X0L+HZX2Pw+H 
paJ+B[XZ

` Lp,J ZpXZ`,>p,G8/ pZ8<XP8 8< H8[8[
P2X+9[8Z`QZ8+>ZP[@3X+<ZP+9ZPZ
`XJP pZ@8XH@ @8 N@QX@R``[X4TEZXXZP+FZX NuZX4TH[XQPPZX0P+M[
X2Jw+M,>,E/ . NpZX+(@/+-0 u4TWZ
P0J+VZPZw2V+VO+ZP+Q@+-0R`PQ:PX:Q*: (2h+`@@ 2(+`Q8X *:8 ,P L@0t+e .
+NP.@@P..4+a.40te 40t+m (
 HP.@@P..4+i,>	,/,>,/ ZS* JOO@Y@@d

( L^ . Npd Ndl   Nq@++y-0.@@p.
 (
 HUS*H JX

(2l+@@02,+Q8

X *6 @@VS0V.0V *6^[S *0( @
 ,1H@

A
ZS 00N@A
aJ+[SJ+  A
 4T`Tl`Tl`TlaT+l`Tl `Tl @ A4N* Jpd,

Gdd ,P1Z@+t paP+"O@Y,>

,>~,dz/ : ZY,X@@@@@@ 
( JP

 Hd , Lc . Nf,| Z@@`d ,>',|k/0Z+2 
aJ+/,=+*6Hk+C,>(,|k/+t 
aJ+5,>,>

$.k.40t+; Tk+L 
/*<
+@->+L+@+C+D+G+IZ: ,>,>_,>,e/+L,5+d,>_,>,dz/+d,>,>_,>,dz+LZ: ,>,>_,>,dz/7J+O

k.0N,v

k. 00N@Z
0 (0J?S@GaP+VO@z+W@@zO@@@@@l k84X\,>,*/4:d kZ
h,(7H`+dZ  ,1N@

*G

aL+d,>,/ k0N+),U,l,6Ju,{6Pj+o

`l+o 
 Jp Lp,<., p p H.
,[

`L+t,PZP Z(	z+ +".@/+,x,~ 	`A"(S
8Xjs[O"8  DX X4X6X[Mc@}}w~|o0$ 00$06$84 a dummy array

Unterminated DO and IF statements

Line: 
 CLASSIFICATION - STATEMENT STORDER