Directory of image this file is from
This file as a plain text file
?>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