?<2KRPCH,DHY4CI8OH<<(P$2	,A*<"LNTC<, D4(9D8,J+8SDO(NU8SD[LODP/HA/4LO?H:0AL4?L<PL&<AD<4H\-\9?L(6DHLD;L*L>H;8/L:X=L-D6DTL-D;DLLD8+1DEL<H1L3H0(LZD<L2L0;LJ0OH101H6(2;LD0
L?P3DHL ,->4$JL-8;<HI4QZYHV> .RX*MP1*MP!0%]P1JYI
<(AIAE38AP=BXCXA%HAINRU-SEAR IQ).U%K!ISK3]W5IBHLHKC%+*H=+Y:S0K6<(+WIX$	;X+WHIX$	/S?:-4I\$	I%$	/0IY[0IZXKI^\KS0+;/6<H*F2K	?EFTO+>(+JOZ2A
[2IS[SZS]*IO>< *[O==H++C.>(K<K;
>O>2A
*2IO:<(K9
:O8<(K7
8:A	?CS^+X2AJ+
6J+
5J,
42I:A	?BS"+X:A	?BS&+X2AJ9
3J?8A
22B/12AO\
[O\2I
ZS\S[SZS]+J:A
+*Q2C/0>A1-?=FORTRNTMPASS2SVPASS2OSV4>K/*[!RA704>M
LT?L^MP>NLS>ILDFH>>DBINTEGERFUNCTIO8IREALFUNCTION8BCOMPLEXFUNCTIO8GDOUBLEPRECISIONFUNCTIO8FLOGICALFUNCTIO8EFUNCTION8NSUBROUTINE8BLOCKDAT9P.2HZ"2[VKV[^HKXJHJXLHY"2[YHKXMI[Z
LJZ2LK[%J2\MK%\LR
+W2A/EX/	;LI9!HP> +7LI9!HQ> +7LI9!HR>(<B2A/%"/=>0 C8K?2A^K2IO>8AZJ2CNK.J ??1<$Z?1.$\?;/$N?2;$P?9;$R?9,$T?4;$V?4,$X?(0.$^?;.*$ DTGYNS"[W58P6Q07$78HA+S.KV5AV8V-CUXS0O)O?	46F*R]49LA41%MSUS=5?\;<;/Z%\X3PU5LGQ>BICECNCDBMBIBMBZ.BL2IR(SP*(KO>(*JP*K+9A<P[+<XSO2I2
	[BH6*
RUJT[-K?[PJDZ(*ASO?*W*%K>*Y	=CICF<B*:*6JDZ(O-C<9J8JKM8J8JS-*;O-C<[MS-O-C;<(*AK:<(*HK9<(*AK8<(+K8A<(*A/72C.>OA??2AK6[[2ION<(/P2I	,A*"ONC5< K49Z8J[+SNONZUSN[OSP/PBO?0:A,?=P?&A?<]-	9?6:R;1*>3;/.:=6-61U-;1S81+1EA<12302JZ<1203;JO<11,62*;D
<?34R -;>4JI-;><IQ-;(71<).-;++-2M :2;:64U%:2L&;72;1-61J;?+?.!91-3>,K!(.6,IS:/*7)?3;1=N;;971;973;HL62+;8;H:3187<?M0:(+;-2>4K\=?<5,0>=K3>-,782]/?*-IB,,00W5971<HKA>G3C&K6LO1 $HGG	S*G$Z%SYSTAAI&?&?Z.FORTRNTMAE>>D=7BIB 3E32?KZS4O<XQ [HB	=Y[A\+WB(\C^
%PA=T]?
VRYGO3TVD][	$"M$" \"KD
H4X  4

LB"YIX2? M.2J%?*YIL<(K?IM\MQI<H*THM9!K>>X*%>LTHNXM2J%?*Y:*THMXNHMXHK=YIK(X"2J%?*.IL> *1IN\MP"*	INX *5HNXM*YH \MP"*!LHK<>(*RH K*>(+HNXM*HM8!K;X"I=XM%<X69X%;+QH*X6K:%:H*%:%9PGHG<Q:AX!%>MK%8+1%7+1K->(%6+1%>OPP"+1%5X!%8?:%7= :%6=CK9%:-4%5X!%9K8XH/7D/?%3D<=>>9
W2ILH< *K9$HLXLLH2AYR-RX$2A%3*RH$>(*%5PLPL2ILH> *VPHLH< *K%>HPXL%28!H6> *2K?%:%2%:HLXPH5> %>EDX5*
PLX5K>%:Z^X+K=X"I=XMLN\MP"*</<P5%;+IK;%:H*%:-4%7+5K:> +/HLXJX$%;+5H*%1P$%0+5+Q%7+5:H$%1%6-4K9%:%28!X$H$8!%:HJXLLJ%:P$+*-4%/%8+5K8%:-4%>GT-410=X/B?:
&%.=X*=%6--%0/?+	K>N%:%1%7+ JB> +%9[
%?7%7+ K0<(*88A<(*6K=> *TK
> *T%,YF	<*=%.=W*=HMX$H"X%%5H%%1H$%1IF*LS
*T8 K
=*S:%>RW-4%/%8*=%7+HK;< +KK:%:*MK9> *=%2<(*=YF%5JU%:K8%:IF%:%7+ K;> *=*M%2> *=NK7%:-4%;+3%:H*%:K6N%:%.=W*=*L%8*=+,UV&?/2=TST?+TH%/%.=Y/?%6/?%.=W/?K>/=-4%6*1YR%.=X*1%6*1%.=T*1%6*1%.=T*1%.<+*1%.=T*1%?*1%:%,%:K<%:%.=W*1%7-4J >(*L%>DF-4%2XM%2X".4%.<.--%+AAA8-
%.<;--%7+M%/%6RKI%:-4%:I*%:+J	;%.<;--	;D4CK:0\K9>(0Y/X/:XRXSXTXVXWXU%)+0A(X$	8	8	8HUH$+%HSXRHTXSHUXT/70.+$A=>F\FJWF=%	%.<2--%+8-4%	%+ABA8-4%.<(--%	%+ACA8:AYJ-4%	%7--J> +T%?+P%.=Q+X%,8A[[2IO[< K?> +XK>
[2A%+ ,0-4HJXL2IS[\KO[<(*?[[*:HK
[H\KH8!X2ALJ2I\KP+F2A%7-4*]%.=Q+X<H%/K=[[*1%>CO-4%+H608-4K<%:H"8!9H%:%&-4A%9F8F8FX$%&8A%H$+&%.<;--%6--K;%:-4-.QAI>7:;?YHH!> .BRA*N"UJ]ZK?ZAIH2I^2AR.BJT<(*8AZT	>"H:*R^R9.U%$COCF%.<<--%7*-?--2AK=%:"U2J&+H2J:A	6D-*2J:A	6C1*K<XHHK\HHP\HH?\HJ9\HH>\HJ?\HK\HIA\H
B\HIC\HIJ\HIK\H2J	6FK;%:P5-4%7/$I<(+.J>> /$S$S$/$%.<4--%+AEAB-4*.*!HK!%?$>G<%	%.<;--%.=X*=HLXOX=%"*=2IL%2AC?> +
H%X;[^H7X<%0*=+CH=<(*88!X=HOXLLOX$LOX%2IL%K?\%P%L%\KHK\%: H;\KH<\KH$\K2AP=*!%7-4K>>(*D%>QS-4%>QL-4P=%"*=2IL%?+SL;?H+2AH<%1H;%1*LL%C?> +H7K^2A%1H%%1*W:AH%X;2IL;XJ:ALJX;LJH7X<LJ[^2A*WBBBBBBBBBA>A4BBBB=TBLPX7%?.A%,8AX%2IL%2AB> .AHLXJX$H%8AX9%7.AK?>(*[%/+VX7	
: H,%1P$%0.A*\:AX8HJXLH$8!X$2I9ZD%>(.AL9X9L9H$> +X;AK7+3X92ALJX:H8 H7X72IL98AXILIXRLIXSLIXT2A%!X:H8 X8:AH9X9P$*:RA.A:AH$> .A2ALJX7+VXZK=X\++H[<P+*9HZ8HX[H:8HX:P\+%H:/ P98H9*9B?
VRYGO?3*=X%6--%;*TK?%:9&X$P5*O%.=T-4%;*]H*%:P$*J-4"YP+K>%:/=H+>(.Y%>II-4%9%?*=%,8AX$2IL$C<> *=L$C;K:\$2A%5:A%88IH9K9>P-4I %:%:-4%>SN-4%	%;--%?--%,YF%.=C--P5T+1IF%1H*%1HLXP-4%:IF%:%6/TJ3%:%.=T/T%6/T%7+-K]> +,%6/TSTK8%:/T%/%:K7%:+(%>DO-4%>BS-43)?MHA
6 CQ(	HLXJXNYDRNYER%?+V%,YGIGQG%1P2IMGAE> +YID8 EGID]G2A%7+K?< +
:AY:AX8HLXOX%/>HOXL2IK=EG> +\9ZMG]GQGH%\KMG< YGHK]GH8\KI\K\KH%8!X%2ALO2I\K2AP%+E%7+K<>(*J%/R.%>BD.%>TD.%>RT*]%>RD+KK;> +P*JR.%.<;--%6--K:%:-4%.<2--%	%+ADA8:AYJ-4V)*?<=T\\0=XH!> .HQK?2I[O<(*$K>XHK=[B2AOB9!2ILH> * 2AOBA%SB> *P2IO2A.<X*$O*GO\KHK
\K\KK=[B2AOB2I\K2AOBSBA%> *-2IHK9!K<>X*]2A%>ST/;OB[SBOBSB[AKBZH!> .2IO<(+	8AXHK:XIKA[B2ALI9!2ILH> +"SB+X*]<X+	O[+OO\KHK
K:XI\K2ALI2I\KSA+.*7K9%:P5-4+QL-	 2BRJ%1%1%7+.K?<(*DK><(* K=> *XQ	<*Y*UK;%1%:K:%:/9HQK8> *K;%1*DK7%1*D%/%?*(%,-
%^*>*4*0%].?=-\%]/?:-\%7*:K6>(/5%/%]0?=-\%7+.K4< /3%9%^/2<H/2%.=T/2HRX$HSX%HTX %^++<H++%.=W++HRXUHSXVHTXWH$XRH%XSH XT9$HLXL%]1?:-\%>CL-[%>MO-[Z"Z7["=XZP<8$L?2\	AB$J $???>=U%&*	IZ< *M%&**IZ>(*M%/**IYA%.%!<(*	9 X$K?X)K>Z6K=X%\%$)9F8F8F\%$)L%\%P%R6*[%>HO-[K<
Q%,-\P$<H**%&*	A%..%5%6+A%7*?K;>(/:%>MM%2> +A%2X$,$%/%2<(+P8AX$L$%:+H%28AX$,$%7/TK9=H+ K8=+ K<ST/T%//TK7> /6K5*VO	[1S	%7/	K1>(S	/	=P=HB<ZY.A?&<?\	=W[2?Z.%>SS-[X$%:H$%:%7-XK?< />IRK=>(/>P$2IK<D$> *YL$K;\$2A<H%28A%1%6-[%0**[K:%:%2%:%7-XK9/8X$%:H$%:*	%^+M*5/
/7%!X:H8%WX8P%HSH[> /7	6%]0?=%1%0/7<H/5IH8Y*02IMG2AC4>(/7%?/7%,8A[L2IOLC42A>(/7X8P%8 KL+COS	3O	3K2	3K1	3/0K=>EBJBM-PT*,3US^A=U^H\P74^=XK?< *EK>+CK=< *JK<+CK;< *W%7*UK:> *TK9+C%/K8+CK7< *\K6+C8A> /5"(+%.=R+2ILH2A+C%?.(K4XH2ILH2A<(.(HQ> *=2ILH2AO3> *>R(.(PH
H*-%>OP-[XR%2<(+NXSLS8!LR?(+RHS%1HR%1/2PSLS%:+DP"+\: X"/VSVLM/VH"%1HM%1/
HRK1<(+.?/%	0+&HT/%+N?)XD2,K[G$F?;$D$H=VC$B?>$?=P"*F: X".LMK?<(*AK>R.2AH!> *XK=%:NMRM%:.MNMRM
<.MHLZM: HLXLNM.\%?.$%.=R.$HQK;<(*2K:> .$R$R$.$[4%?+)%:%,X$H$%:%7+	K9> +&P$2I9ZD$K4H!> +WL$C8>(IVJ4> +1L$K7\$2AK6%:2A<H%28A%1%6+.%0+,+YK5%:%2%:<H%/R4.4%>MO.4%>SS%2:.4%>SF+W^]DLP=XN?,D^ B = \LK?9!HL>P.X!%>PD-4%7.KA%9F8F8FZ%7.KRKA%J.KXUXSXTO.YK><(*]K=9F8F8F
RO*;HRXRO*;9F8F8FXSO*;HSXSO*;9F8F8FXT%]2?=RYX*2IH*8A[OOO9HU<P
O2A>P.Y%>ML.Y%7/OK<=+[K;=H+[K=SO/O%//O%;+*%3+*K:>(%8+*K9%:H*%:-4%>AS-40&0!+/:/-=>0 IU;?U,+1J=F0?P(AAABBCBDEEXFDG N O H I J KPLHMGPGQ: H"X": HMXM."9H
HXXX8DH^HWXW8DH]HVXV8DH\HUXU8DH[HTXT8DHZHSXS.*OPSP<(+J%W+DI5$	HL	5	?/BS=	4BH /3+Y*$K2X	K2X(I,
1Z-*)D-XWH)> /!HWHX9PPZ%U:XZ/!/*& S^S^SSW/>GIS?&>NV;H7IKJJ\XHNOI0&8HY8!HRXYJ:Z7HS8D:HHZ?H*PJ;&<&=J68DZ6J58DZ5J48DZ4J38DZ3J28DZ2&9R7*JHYXRJ2XSJ3XTJ4XUJ5XVJ6XWXX&>.+N+$?DG-X$*,3??L<(+L[8L%8!K6>(+&P%S8+DK7%6IT[8L8!O8?H+YK7"!: +!: L>(+U: L\LK+X%K6\%K+8!H%K7.*
S[6K+Z*[7K<[+ICXI>*6O.PY=1B?PS[W?L=WX	X&XRXSXTXUXVXWXXZN%7.VX(%)*.AU[-P(HSXZHTX[HUX\HVX]HWX^HXX
	?	?	>	?XZX[X\X]X^K-X
	>*PH&> +H%7*;K=< +B%9	<*?%5%/H(>(.+NP&%5*O%/H(>(.
+N
RRX,	;+QK:XR	9RJN> 	8.K7<(WV< K6> %//V%7/
K59H> ++<XP	<PQJ/4%//
%6-4K3%:-4"*M<<B=S-X,3AG*
^(=R$*+$X,%).AUX
H,9D9DH,9DH
*AZQ%7/?	>"JQ>(*YH,8!X,"
9VH	M^]^/=K"XR	<H&> H(8!H,=*.8!X,K;*0X,K:ZQK9XOH,<(.
9HX,<P+K2ILOXYLOXZLOX[LOX\LOX]LOX^X
2A&Q*3HOK8*2HS9HXSHT8HXTHU8HXUHV8HXVHW8HXWHX8HXXPRAG/NHX9DXXHW8DXWHV8DXVHU8DXUHT8DXTHS8DXS/$F,*,&,3)R)V)JHRHYXYHSZ.HTZ/HUZ0HVZ1HWZ2K?[*XSXTXUXVXWXX	>J.9HZ.J/8HZ/J08HZ0J18HZ1J28HZ2<X	=S**VHYXR	<.HS<(HT<(HU<(HV<(HW<(HX>(+V;ZHS< +OHT<(HU<(HV<(HW<(HX> ?H.3	;:
HRXR+AXR.3K:[(K9[)98DO(91
(:0K([(S)+^/XP$<H/*S*%&/8/*S1/10X>\?6/U?:X+$,3$*+N?D	?.XQK>Z 9&
=	?<H*M%)*T9F8F8F^ W=*W<H^ R.	?<H*\%)*UN ^ R *H%	K<%:: %"+RK;%:8 H%%:H7%:2IL%C:2A> +R%7+RK9<(*$K8> +R/7K6XHLH%:P$*?K5%:%7+RK9<(/7K8> +R%7-4K9>(*"%>DA-4%>DH-4%&+UIZ< +%%&/XIZ>(+%%//XIYSX/XI*%:K4%:HR%:HS%:HT%:/(C6Q0?==TPS5$*2[T%7/?K>< *U%^/?<H/?	=%.=T/?%^/?
H/?%.=W/?*.8A< *ZK<+AK;<(/:K9>(	8*)9ZXSHS> 8AXRXT*.%/%^/?*6K7K7X$I*%:H$8!%:/6%7/?K5< +%!<(/48 X$K3X)9&X%K2XH$)+VA%9F8F8FXT$)+[A%HT\HP%+F	=+B9VH%?H/1+^HTK0\HK/\HK/\H*.K.>(+(%/*.K-%:%!%:*4^   /CQ-*/U<8.=?= $!I ?X/X/(=X/RJ:X$IQXM2J%?*J;> *OJ7\MP$*J*SH \MP$*D
PJ6>(*.MOJ5> *.J<2I^42A2J&8I2IN+^,R+R,R-*2A.3PPP>P2J%?*:*.6/,= <=B B>?:=7?6I.0F6"1*M.IF-.6V0"M&J.-Z0"161*J6I.1B4.5B;2;[D3I[NL&I2/WD3F;I3E	FL7E*J6I.1F1"6*M.IJ-.4V0"M&J.-^0.0.520&;3NWTG	E2I&/3NWT7GKE"M&J.-R12J%?*ZK?<(K>K=\MQI<H*SHM9!K<>X*%>LT*72J%?*Z:*SHNXM
MXNHMXHK;YIK:X"2J%?*XK?> */K9\MP"*(K9X *3H \MP"*"LHK8> *<2J%?*X:*7H K7>(+CHNXM*HM8!K6X"I=XM%9K5XH2ILH2A< +Y:$HLXL2ILH2AX$,$X$%3+.8!H$>(+L2ILH2A> + PH%5PLPL2ILH2A< +Y%5/4%$CSCY
ICGS?3D= <=B ?:>>58BIW=7: *OK?XW*N8A8A8A8AK>XW%.<2+M:AYC2I
=2A%?+M%,YAIA8AX$HLXJX%2IHWK<\$2A%.=X+J%?+M%,8AX$2IL$> +MK;\$2A8 H$%1P%%0+M*%H%2I\KH%8!X%HKYB2AHJXLLJ2I\K2AP%+C-4IC?(-4%>PH-4%.<?+M9$YCK:XH2ILH2A<(-4X$K \$+W-TAJPH
AAAB

Note: Lines longer than 256 characters were wrapped