?>2CTXLH
RXYHVXXLHXTLHXU2IO?"\XP[E2IO>XQO=XR.Z)J)8H8JC<XW;XB)XVJ)C;.\HR9DXRHQ8DXQHP8DXP.*9HRHUXR:DHQHTXQ:DHPHSXP.5SNS)HPK:?H+N	CPW+GKE>(+XPR+XPQ+XPP[E+GHW=(+1XW;&HP? +"*: +XHW9D8F=H/DHPHV2I
?HQ
>HR
=/F:XRXQ+*A0>(I2I4IT?8GC?RQP+NCD3TWH2 GN+MCE+OCF3TWH*M>J* B * B 3LKI7RKA3YN +ACN+BCE7TCY+ECD+I;N*M>J* B * B 3D[E3A3U3T& 7NWP3TV 3XWT3N	S+OCN+ICS2.3R" 6.*JB/* B 2 & 3F: 3O> 7UCT+UCT7D[E3IWC6 OI2 	G3V;E2,T3E> 7UCT+UCT3GWO7SR 7OR /T+Y" 6.*JB/* B 2 & 3F> 7UCT
UCT+ICS7DKI7ESC+ECD7ISN3OF $GPH^ <B,F>>G2I<<<B<B2J%LI,)X)2LIJYC2C-EB2I2B,
D02I2B,$D=P%2I,%P)2I,)2I2B,1DL2I2B,6DA2I2B,;D[HA<B<B<B<B<B<B<B<B<B<B<B<B<B<BM[?-Y-ZBCBD>%<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B"9<(*T8!
""9ZV"9ZWJV
\JW
]O"? 	  Z9WG=XC*K2IO$<(*5K[<(*1=H*38![)K^XHLHC(K	>(S)*(	!HH	
;	   YJV
\9P*2JZ<<BNARA[CNARA[)<BO)2I.9[)K%[WOGTSGOGTK)TSG/G09+U04:SW/T?-EEEFE?DEZD$EYE*EQ04D H8K*ZK+ZA"9> 8AK&ZY"9[;"9[<JYG*R-S<B[W[X9$[UOW[VKVCJ[HKV8J8HCJKO="9KI[GKG[X"$OW8J8J8JSU*F:SWOWCLKM>(.*CKY[TKGST*	KEZ6KY[TKHST*.KFZ7:KR	S.$KN>(8AJ\Z3KXKO.9>==?3EG?8H?>?;?7
3DCG??"9>PKJ[G<XKP[H"$J6[E[GJ7[F[H/ZKY8![Y0Y+.0\KC<(+=KD>(+;0^ [Y+.0Z/*2C/B8P1PQ>>VLF\VV& 69I1T\9K4[;Z3J:=Q\TKLZ[JJ=UMLI]ZYQQ9!TS[\IJ"Y;SVMS]>^KUXQ8H[QNU=QDSS"$B=QCS:IQRQIHH;K[[9HPQIH8&&=A^N!%HX%A8HPXMV=E^N$%A! >FK&"[X!AH>X[FC>&CF\L!X>^ENX"!C[=E&N2HZ::&$D
 "8H!XN&DEK:IQR4IU=LT:HQR4HU=LT=%!C:B3"C;9AE8P1P$;^%EN<[ST%JM""80[KVK  >&C["[ >&ENHA  >%^X!>F&[CC  >F&[CC>&ENHA!XR">C &8HPXNV^^:XV^&&>KBK &&8F  >&S  >& =A^N!%HXAA>%^[$CC:R6 X9E&N>$&C[ K8!XD"NE&&>PF&>AHA!X&&>F&P>FSH&X8S& F;PSF&&>F&  >NFHH8 FF>^ &XX=QU\LL:R
KK??+32C-6IK> /7,\/%+4ATB+$SQ++;+)<BL5SNLMFRJEZNJFZO;X*PJNZEJNZS8NOROXG: NOROXHJM2I
?2IO>>(+W&B+UHXJEXXHW<(*;8!HY=*;ZEHS9HXSHT8HXTHU8HXURE*/+C8 ZEHYXW+A&ARE+HV?+H;&&DHX?H&D&HP?+R;&&D;XXV2I
=&C+%HG[/.< JEC-2I
>.2I
<.2I
;: [-ZE;VJN[+8.O??8LH/.K2ZNK3ZO;([-*PRQMEPS(HGZC8LH"\XSHW< RXYHVXXLHXTLHXU2IO?"\XP[E2IO>XQO=XR.Z)J)8H8JC<XW;XB)XVJ)C;.\HR9DXRHQ8DXQHP8DXP.*9HRHUXR:DHQHTXQ:DHPHSXP.5SNS)HPK:?H+N	CPW+GKE>(+XPR+XPQ+XPP[E+GHW=(+1XW;&HP? +"*: +XHW9D8F=H/DHPHV2I
?HQ
>HR
=/F:XRXQ+*A0>(I2I4IT?8GC?RQPJZD8NARAZNNAXGJZXJAZY8LGPGZ: LGXHJZ7*JXZ\8NYRYZ7: NYXH2IO?"62I
?O>"62I
>O="62I
=RY;VJXZ48.Y8\H.6&IX 2IO?	<XP2IO>XQHWK;=++K:XT	9PT+KHV8DHQ<X8!XV2I
?
>
=HV  ^K[[K\[$ [AV2IK[Z<;VK\Z=*> [AK2IN:;(+S<B<B<B<B<B<B<B<BSN?==4L\RQPL5SNRLMFP;S(PHJG^FJHZN8NIRIXG: NIRIXH&C*]HVHXXVHWHYK?XWHPXXHQXYHRXZXPK>ZN&AHX8HXXHY8HXYHZ8HXZ<X&RN*(&D  P$IVZJE^FJ;[A8N<R<XG: N<R<XH&C+2HVHXXVHY8!HWK=XWXZK<[A;XSHP?H+\&B&HZ8DXZHY8DXYHX8
XX	;SA+VHXXPHYXQHZXR&D  W [AK2IP9;(2I
:+0PL*?A??%=?K?ZQ;&ZR2INQ8 <X9A^Q:0JQZQRR*E.JSZW8NTRTZ"NTRTXGJSZ%JTZ&8LG*	9=H81XQXPXR8HXVK>XW2I
=	<  RJ6Z:8N7R7[B: N7R7XH8LHXG: LHXHJ62I
;J7
:/9HP9HXPHQ8HXQHR8HXR:D2I
=/N/VFL2IO8< K72I
8  !:2IO([^S(O([
 [AK2IS\;(+$+; PJ[JOJNMFMEBOUZAJFZK8NGRGZRNGRGZ)8N)"W  Z)K?ZC9DZJA9DZA<XJ)JRC*[.WVX$IVZ=*/RB8!ZAZCJ)Z38N*R*Z:N*R*ZF8NF<(.&=+BRB8!9DRC=+B9HZDJD8!ZFJC8 ZCJCZEZJAJFRC<H+9P=H9ZAJ8DZJA9D<P+RJD+S:JB8H:ZBJ<X8!  M:S.S.REJA=HJD<H9HRE+7  N<[ST%?4JZD8NARAZKNARAZQ8NQ
H8!  ">DRRRR  $ [AK2IT	;(  MZQ2I
?
>
=JQ  OTAZ0J0=H8 ^1;$J3XHJ2Z>8LHC<>(+HLH[[LHZ*8 Z/LH[
LHZ)LHZ+LHZ,J2[LHZ-HH8AZ3R/+
: 8N*< 	38N)K;Z.8J+^-R-J0?HJ.9DJ.J,^-;VJ2[18.3TW> /7,\/%+4ATB+??ARQP$GPH^ <B,F>>G2A<<<B<B2J%LI,)X)2LIJYC2C-EB2A2B,
D02A2B,$D=P%2A,%P)2I,)2A2B,1DL2A2B,6DA2A2B,;D[HA<B2J%LI,)X)2LIJYC2C-EB!KWM[?-Y-ZBCBD>%<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<BP2A2A2A2A2A2I2A2A2A2A2A2A2A2I2I2I2I2I2I2I2I2A2I2I2A2I2I2I2I2I2I2I2I2I2I2I2I2A2ATX8[$40K"5V2 	! <U<	
[:K$+T)U-V
PHNXR%JNN6CR6P;;!BYBC*JERSN<O[K2S^VTFVQ<B=[?X)N-X7L7XGLG

2LH]Z**)X)N.X7L7XG2LH\ZV2ILG8

2L2I*IX)N/X7L7X-L-Z(2LH]Z*P-L-

8P78H),72-7X)2LH\X-OIKH-\7P7H[8A\7*HX)OJKL7K9Z*P7L7X7**A?[ X[L[BKNZ(J(KGZ*2CN([[N*<(+]X7/K2J	HGAX%K!!E2J	HH2J	NA+<[:K,,%<B<B<B<B<B2J	NBP)K-YRK:ZN: YOK YP+7JF!EQO*X%RBL?<H)CRN: JMYNJ[YOIP=H*&:QNMNC<9DIP8F8FYPMN+U]N9P*!ZFJ)!ER;QT*;%Q"L)CR3WS3S&*-)C*;+S+PJF8
8FZFJFC<MM]MJF8F8FC<MS]SJ/Z;QS+UISYMQSJF]SP))CK
YTJ2YSJ/Z;/W9?HH>2J&LCP)K%Z3W[%O.+5E-2J&LDP)YQ[32J&LK)<<B<B<B=.2I
POP
ROP2A8 Z(: J(>(*SJ(")";: J(*H:A")	Q!W/S	Q"AD(/S")KT
UKX
WK(
V2K.AH 9F8DKYXHHHX\HHX!HHX	HHX.HHX3HHX8.)HPKZXIHIXJK[XKHH[F2ALI2Q\JPK+D2A.;LIB8RL3(>G;%C 0A?&?%?$2K2AZ?^2I
&S&S	+];$
)2A/%B	>?Y^=0FORTRLTM<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<BR&*M",J	?H*OJ)X<K?
>J*C2K.J(X<J+*L=)R	* ",J&?H*"J)X=K=
>J*C2K.SJ(X=J+*
??HATAW?O?JW2IO<C;>(.,K:Z(K9Z)K8Z*K7Z+K6
52AK4
?K4
=2I.,J 
3O38!
22A/CB>2AO1C0<(/J9J8H8 //<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<BCX8??555	L=/PO?W?TAHAP>F2=VFM(FX,HU 1D&APQXH[!DE\Q"UP[Q LBI0PJJ3M2PKFH,M3 KFH,Q3JN,C8DNTN0!>A\CO*(3O4JXH[DJ,HA  K[- PL74QECO8=C%CPLDC:LECG;>V1CPM?=OECG>>U=C QNT"0B"B"B"B"B"B"B"
"B"B"B"B"B"B"B"B"B"B"B"B"B&*:+2LJDZJ2C2J&WHJXZW2C.I(2AJW=2J?&WIJQZW.LBBJOZ"L2K^J$^%J."WAAH	:,CECNCDB CLCOCCCKB B2B,CECXCICTB,B5B0B4B,B5B0B2B3B)CECNCTB)B,CIB=B1B,B3B)B,CLCPB,CLCPB1CICBCRCACRCYB B B B B	B	B/B/<B<B<B<B<B<B<BBMBLBJB BI??N/N/N>RGRIRBRBRI<B<B<B
BSYM^X*ARGL4\JANDX+BLOCKVX*CALLLX+COMMNNYJCIA8!XJCLA:YJCLL9YJCMA8 YJCML8PX+DECIM	]X+DUMMY-\\JDCAXX*EAP3=X*ENDE]X+ENTRY62X+FORTR[/ZJHLT<BX)IF3ZX+CPAGEV[\ZISZP\JINCPYJIAC8AXJIOF0BXJION0A\JJMP(\JJMS XJKRB0^XZKSF0YX*P3:YJNOP8X+OCTAL	 X+OPDEF^EZJOSR<DX*PAGEC\X
PAUSENXJPLS0VXZPSF0QX+REORGC%X+RETRN"/YJRAL8DYJRAR8HXJRFC0LXJRRB0JXZRSF0IYJRTL8FYJRTR8JZZSKP<HX+SKPDF^DZZSMA=ZZSNA<(ZZSNL<PZZSPA=HYJSTA: YJSTL9PZZSZA< ZZSZL<XZZSPC?H\JTADHX*TEXT8 [A [BB2AU>2AT& [AC2ATL+V(//	DIRECTORY LISTING OF FORTRAN II LIBRARY FILES	//
TYPE DEVICE &  LIBRARY FILE-NAME  : 	,I0) [DD2ATF2ATH2AT2ATB [BE2AU=2ATB]S 7]SLG>(+-/<8K;ZL [BE2AU=2ATB]SJL+?\NBRLVEDA8<H*E 7]S\G [BE2AW>2ATF]S [BE2AW=2ATF]U 7]SLG2A
< 7]ULG2AO<>(* *$8A2A
;*	K:2A
;8 [CF2AT2ATB2ATO
9O9<(*7?H*7+X [BB2AW>2AWB [AC2I+W(/	FILE NOT FOUND ON DEVICE INDICATED	/)/8 [CG2AW=2ATN2AP8A8!O;>(+,+& [BH2ATF2ATH2A
72AW7O78!K6+?\400CTPT[TNDTMTWBA8?H** [BE2ATP2ATB]S 7]SLG2A
>O>
=O=C<<(K;
=O>C:<(K9
8O=O8
>9 [BE2ATP2ATB]SO> 7]S\G/7 [BB2ATM2AZ
82AW8O88!K6?H+D [BE2ATR2ATBYA [AC2I*1 [AC2I/5+?<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B[ADW.TR ? ?TLTQ8(//	DIRECTORY LISTING OF FORTRAN II LIBRARY    	,3A2,	.	,A2,//	ENTRY	,5X,	CORE	,5X,	RELATIVE	/,	POINT	,5X,
PAGES	,4X,	BLOCK-	/)2A
>2AW>O>8!K=?H/<K; [CE2ATS2A[:2AP]S 7]SLG>(/9+ZK; [CE2ATS2A[;2AP]S 7]SLG2A
88AO8
7 [BE2ATW2AP]S 7]SLG+?TWTT]FAD]FATS8 %<H
?2AO?
>:O?C=9H8J8J8J
?O>C<
> [BB2ATM2A\;
;2AW;O;8!K:?H*.K9 [CE2ATS2ATV2AP\+ [AC2I*X [AC2ATT [AC2ATU [AC2I+D(3A2,4X,I3,8X,I3)8/88A8!2AO7>(+O+M [I [J [J2LK3[!2AO.2I>(8AKG2C/U[,2A;$G-K,
-2I/?&A/H.C?==2C<(>TM[CDCTVA?>TUTT*Z8?^!^
?<<BN(ZQR(N(XGR(2A.F<BLGPG2A.PZG;VJG[Y"F2L? *!"P.V [AK2A %FILE:J	"V[B"P[C"FJE[DJCZV"P^VRVSD*4"F2J&AHJB[D2J	4A+[JC[L2JKC	4B+[2J	4IJQ[VKM8!<B\GKL<B.(: [L+O:K!Z(K "V=HJ]=H8!9F8F8F[B"F"P[<"FJQBKB[:HG[;	D*!+Y*Z?>E>VBM?^O?<?V":"K 7"5LGZ^R6N6ZNR62A.R<B^NRN2A.]2I
ONOBJC>(*/NOBEJI>( %<H.PNO"].:J6ZL2J&H2J&	E*JD0&0!+D2I: NFZMJBZONOBG<(+SJMZRNRZJJAZNNNBG<(+]JMZRNR2A^Q2J&	IJLZ6"RJJ"]"]JHZM"R"RM++"RJK"]"]JHZMJAZO"R"RM+7  D&Z*Z&Z*Z2AW?RLRL<HR!:J!>(;XK>Z2JLK=Z3 [AK2A$2*-$8N5R52A.JJ+Z4J,Z5*7:AZ2Z)ZLJ4Z$"["XG8: LG9J8J8HZ!J"
A
<"[]"[V:AZ3
;KU
:  B	OJ3R39HKVXG8LG<X+$8J8J8JC92A/W P%&Z*Z&Z*Z&Z*Z&Z?0,2	AT1FM4=XS	?	>&+?Q& ?R	&?T&]?W	B?X&-?Y&? &A&T2A
=	<8 Z
O=C;K:>(	9*	9	8*	9	?K7<(*K6	5*$	4*ASA: K+[+2AO3
ASA	<8!
A;VK+?H*O3[)OA[**	9WA+^;$KA[AS+*	2K)
3K*8!XS: 2AO3>(+\SA:A
ASA: 
A8 [+*-: KA[%2AO%
3*	<[%*L7P"J	S3TSA,Y$35W,O	?Y,
2?8?/2]$)0*%W	?	>O=
?
=: Z[K<*	K;	:O??H;$K9	:O?=H8! [AM2A$*K8	: [NK8	:*:	?	>Z[O==: 2AO78!I=SO==+O8!	6K5	:O==(+H8 Z\I=8 
>*>K8	:R\<H+D2AW>*<2AO=8!<H:I== 	6R[* *I:K8	:*12AO4=/3Z\>H	:K2R\+Z:O4>(/SK9	:/SR"+^J\3Q"SJ 3TB%<(+8RZ>H+6 3%/O.1E	%0-,OE?;/P.0 %<HO?8 [J[G [O8 [H8 2A
>:SJ<H*7	=	<* ?R*2? *M?U*M?S*K?;*6$O[I [AP2A%/ [AQ2A%,KI [R [AS2A%,SG*MSH.
[G*M: [ISH*<I=<HKG8 	;W>;X2IO:
:SI+Y/98 2AW>+X[G+U [AP2A%/SG+Q+Y	; [AT2AA>/83N	T3NWU2MNJ"M&J/N7B3L	F+LE3NWD3V:,3AWM2,WL3NT")*M( 4EP3Z0*,8/O	%	?2AO>>(*HK="O*"8:*	?	<"O*KK;=HK:K92AO8 [U.O"
I?>(	7.Y2AO>> *-:J2> **"8*$Z22A.
K6"OK5"O.
R2K=C42A.8:J2> *4K32AO8 [UC2K1<(*3K09K:<P*9*48JS!+TO!C8[S!O!C7K6<(*-K52JR . ?*9	42J	3Q-? A*	42J	3,^2A2J	<I/*>-?3A?T??J?M0$!B A? %W $22W	?/> [AV2AA>[O[P2IO=<(+M=*RK<SO
=:2IO=K;?*^ [AP2A%/SP*RQ [AQ2A%,K:2I
=2AO9K8>(KP8!I==8 	7 [AS2A%,Q2IO=8D?H+IO=9H
=O68H
6O58H
5O=C4O=K3
=*52IO=C2
=2A.2IO=K;?H %<H/Q;$	7: KP[P+R<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<B<BGH?<RQ3Z?:$)PD/4 P*2 [OR)*HRL  CI?J(*X> *[: Z)JKZS8NLY>RLNLY?2A.RL;X 70KDG9F8TZ(;(DG8!RL*P[DKDK?9K><X*>R*:2AN*R*<(*?KD>(*>R**3[D2AN*Z*KD.*8![D*2IO=XUO<XTO;C:XSHS
;**2IO=HU
=8DO<HT
<8DO;HS
;O;9H8JC:K9	8SD+H/E2IO=9D
=O<8D
<O;8D
;2A/*HY,O0OPQRJ?FHSY=2AO?<(.	>$R?(,?74&?8,K?:("?;(A??2-$R2AW=.W
?.HS<(:A2A.]"WI?>(	<O;> R.	:I=8![Y"*>OLG<X*98J8J8JC9	8SY*2*,	7[ZOKZ<X+I8A8F8F8F<HLGK6\GSY*>*,I>[WI=KY9HI?XG8/O[Y+! [AW2A%/SY+]2A/Z:2AO58 [Y+-K4	8SY++	:*C: I*M*	%? ,8,O?0$2,Y&
0*$)I=8 2A
?8 Z=8 2A
>XS2AW?<H*[	=	<4Y? 4J?U4J?S4G$MW*JHSR=/;2AW>8! 7A>\G:	:	9*J<XUK8Z=
> 7A>LG=*58!2AW> [AM2A$*XS [N%*2A\U8 HUXUR=HS< *5I=2A
7I=8 J=K6	5PU2ALU=H*$K4	3+OXTHS9FHS8DHTXS2A/W3L* 203E	XT*M*M>J* B * B 3ESN2MNJ3A,O0)SD	%?<20+K0*,8/O+JOIOERXGHG8F8F8DBJUZRJJ0\J5>(0Y8 [J.V9T6&8*8L706-61668A9V8=9V9V9V9V9V0Q*FHG0V:  U0Y*FK/*F0I*F0N*+==K->(*=S-+ K)*+6:*F69+EK-8 [.*F6Y*?6Z9HK,2A	([.K-8!9HK*Z
2IK.<X+Z8F8F8F<HNR^R: K-[-+EK-K.9HK*2I	(K+*+;	BMAB 9ZTHGC?JJ [Y**3\WL3NT2,J 3LOO/KA?C?2ANW>(+V2B2A&X+VB  U2ANY>(+V2BHGB2A&Z+V*JARFFAQF)K?0&0Z040V0L [O2A^W^Y  A61/>HGR<*6K=9A8A<P*89DK?66K<>(8 Z<*J??JI0\XG0ZHGK;> MHGK:> +K;&MHG*JHG0!+O0&:/MM*J [AK2A6AQRSTUV
XYZC G]BPO3456789:=LE?^
M*]V-./012ADJI[<F!"$%&	();N\HK>=3=6565N6FBJ:A???? ERROR AT LOC G>JKZP8NLZXRL:0NLXHRL8[!LH8D<XS!9HZALHZBLHZPLHZXJ["2AO"8J8J8JPO"PS"*(JP8J8JJK?["JX8F8DZXJXJS"*8K>XG	=;&	=K!>(+]  K8DBJJTP/JC<<(*2K;=HK:K9 [U/P [X2C.M0!+  X["O"<X+/8J8J8JC22A/	?HALCD	/8ZLB A? ?
MBM?<IOERKW"7OT<(*Q\HLKX2B2A	V  % [AK2A<"ZKY*LJUZBJVZCKW"7OU<(*Q\HL.Z"ZJ	ZBJ(ZCK[ZZK\ [URZ*0KZ*LXHJBZ;NC[FRCNCZ;RCEE.78N;R;2A\H/E: "7EKS\H/LDA<=E!E*E7G!G/9?NZK[ZB [XK\ZCLWTK5[SK?Z [A%2A=42AK>2A
6
7+)SCSVE9E/?=:B?::A? :FCHOP0APA0DAHBLCPH0PADBPHPBDAP???
=>7;
?
;7>=??
?0O?0O?0O?0O?0O?0O?0?0? ?P>0=1;274/8********************************OP0APA0DAHBLCPH0PADBPHPBDAP???
=>7;
?
;7>=??
?0O?0O?0O?0O?0O?0O?0?0? ?P>0=1;274/8********************************

Note: Lines longer than 256 characters were wrapped