DIRECTORY DT0: [ 1,1 ] 10-AUG-73 TAPE .DIR 1 10-AUG-73 <233> FORLIB.OBJ 167 10-AUG-73 <233> 105400 EAEMOD.OBJ 16 10-AUG-73 <233> 151400 FISMOD.OBJ 2 10-AUG-73 <233> 100000 EISMOD.OBJ 17 10-AUG-73 <233> 075400 FPUMOD.OBJ 30 10-AUG-73 <233> 123000 FORPC .OBJ 3 10-AUG-73 <233> 146400 EAEPC .OBJ 3 10-AUG-73 <233> 147400 FISPC .OBJ 3 10-AUG-73 <233> 150000 EISPC .OBJ 3 10-AUG-73 <233> 150000 FPUPC .OB &PL(>RdXL( OfhOQi@FO@8L(OhehOhhOih$^0L(p;h pphv; h(}@ON@v@8@>XzXL( Iqh(}@NXL(h Nhh(}@FDdXL.vpLp@(`.&{h{h{h C.    8 `.& ( `œ  b\ QL \P8 p.pLp@(&ؚhh(h $.   ' , 4 8.& #`   `œ .L b\P  .,@8XL""@(,@8h& ! "":.ԪpHLp@(Ԫph z\.vppLp@(vph z\.쨀p Lp@(쨀phphz\z\,. .0Lv@8@ON@.(}@(f;h pphv; h.f)A Nwff[ "(}.&e7 8  4ONv@88.L@@w w&  +(}(}.r ( Cå å$ נA  .:  e` . %  å.נ0נ9@.')&CD ( OfhOfhORi@7VOdL(O(ih OPihOQihORihOxih6˫dL(Ϋ@yhVݩ}L(ݩ؁h ݩh ݩ(hݩPhݩxhVU}L( U؁hUhU(hUPhUxh^dL(dhOfhOfhOfhOfhOfh6 \< $plr  \ p.Ԫ@8Lp@( Ԫ@8h'(&\  \ p.ԪpHLp@(Ԫph.&f u f &?.&&dQ& V v .L`BQ   $)` g.rc $)m `e@pLp@(:_""hp.&5 5  $pl&6 6 %.OKL(vhJ&csshONhPh2  \ %?RRR .  r( R    .0ew W  W  AG  (} GVe@e$.?Q.vpLp@(HF&{h{h{h C.   sp `sp#*& `œBp@b\  \E  pp.pLp@(j&ؚhh(h $.S2XL(S2h>@8L(@8hp@6E@8XL(E@8h>>@8L(@8hp@w6L(h<>@L(h@h>KL( hp@R6XL( `.ei@ i A @ A @ %<.  A @ 6v *%\%%      pr.ԪLp@(0Ԫh.&f f &  6  h.&  6 v .L%w   a6 W.r6.w R w BeA eB A  ..0Lv@8@ON@.(}@(f;h pphv; h.f)A Nwff[ "(}.&e7 8  4ONv@88.L@@w w&  +(}(}.r ( Cå å$ נA  .:  e` . %  å.נ0נ9@.')&CD   s  sp  .&`sp  `œBp@b\ &L  \  \ pp.I@8Lp@(d"W9h:.  p Cp f.&\  \   \  p Le  \ \ px.Ԫ@8Lp@(Ԫ@8h'h6쨀>L( 쨀>h6}L( h6HiL(S4h6Ϋ@XL(Ϋ@h6ΫdXL(ΫdhL6Ϋ@XL(Ϋ@hZ>]L(hp@P>dw ,eA eB A w eA eB g.A B w eA eB A  l. w eA eB A  w eA eB A \.0w e@ eA @  w e@ e/.VA @ w ee@  B A @  B @.|A @ +%%B.    C B A @  6 v-.e\     s "pn.    em   e$m 6i M6 M.:%?RRR .  r( R    .0ew W  W  AG  (} GVe@e$.?Q.,@8XL""@(,@8h& !W? "":.WL(}@(w+h6xh . =7` =j   jl.&?AA @ pf\  \ pz.ԪpHLp@(Ԫph.&f jwf &wfU&.& Mvv 6`vU A.L q` c qm `C.ra@ `qeAa@ a A @ A @ \.%  A @ 6.v %\%%    ! &pj  .ԪLp@L(8hp@6@8L(@8h6*@8XL(*@8hp6@8L(@8h^@L(hݩhhhhhNL( hh*hh V(XL(hh"h:@,L(N+h,h:h .6 6 &  f 6.& c v  6N L\J.vppLp@(vph.&f  & N & + & .&   v   R.L     %  {.r  6 6 :  < px. .LPB P &w@!h  (}r:יc&>X4%]@$.sWL(}@(vhWh . =7` =r   rd.&@AA @ Ps.LB P &w@!h  (}.rA!h-ÍJ7,kt4yNq.(:5;oS%]-1@ !hE.R("Ԫh.&f f &  6  h.&  6 v .L%w   a6 [.r6. RC  BaA CaB A  E. ,aA CaB A  aA CaB A .B  aA CaB A   . aA CaB A   aA CaB A /.0 a@ BaA @   a@ BaA @ .V @VXL((:hbhh@ON@yVPXL(*<h AhJh chi@!>쨀 XL(쨀 h hW>Ԫ XL( Ԫ hԪ@8@>b XL( v hv@8@6 XL( h6  M% AD e .U% %a v Ee.%6  6  E v v   %\.v@8Lp@(v@8h& `$&\ \ pr.}L(}@(T}h6h2.D C %S.&  K#  w]@8Lp@(J3Wqh.@ V  A ,& W@@&\  $pl.D@8Lp@(JAWhh. @ V  A ,& W@@&\  $pl.s@jLp@(}@0(X shXaAa@  B A @  B A @ .| +%%B.    C B A @  6 v.e\       pr.&    aam6qe  .vppLp@(vph.&f  & N & + & .&   v   R.L     %  {.L( h6* XL(* hD6E XL( E hN)}XL(ݩhOhh S4hUh!>BdL(OfhOfh ^+L(* hh h@8hphp@}D@HL(dSh wdhje;@(}@Lf&\ (}.Lp@(Shhz.e&f&   v v v !N.& v v v 6 6 6 6 .L    wPv.r Da.    .   B A @  A @  @ @% .  M%+& N % 0. Be !% .D!  e@ & & f .&@ A&  (phL    w (}.ɫ}Lp@(}@(Hzy}h0.A e@ & f@V*& A&w   (}pq.WL(}@(a WhHa \h.CD!r  6 6 3  C px.  EsAq Dws w`.w w6 e%6  $6  E v v %\Z.v@8Lp@(v@8h  r\ \ px.}L(}@(D }h6h2.D C  %[&&"ON@-}@7%@7@@+]@p@c]@H@6]L(>]h>+]L(+]h]hNc]L(c]h ]h"]h۩]h6@8L(@@8h>+@8L(+@8h@8h>c@8XL(c@8h@8h#_}.0 d_ SL$_  h.V  m B A @ m A @ m@ m.|60         C &.B A D 6 ve\ .          pp . 9 B A @  A @  @ -0!&?.L4 L$$ 9.:U0 B A .`@     R" @$ @% .& L w 97e.L=  W@@ @R .r7N J@7H@w@.P@ PBCD Efw .IA@?0@ @׳>:L]L?ƪ* (} @L.tWL(}@(4?<phH<h. CD @%: .& L w 97 %  v v wf&\ (}.Lp@(@hhz.e&f&   v v v !N.& v v v 6 6 6 6 .L    w8v.r Da.    .   B A @  A @  @ 4% .  A% % By. e&f-L(De`h`h-}@7 '@7'@6@]@NL(@6h-}h7""@p@v#dL(Gh@(p!@7w@@`;@p@D`@^@5FL(ݩ}hh je;hf.@8L(66&h-}h-~@7 '@7'@6P(@]@'.쨀p Lp@(X쨀phph.e&&   v fN v p.& 6 6  Rv .L `.r   @ %._mm@ .0     A C vr. %\  !  0  p|. _ e.0(Q.L=  W@@ @Z.r7Z Z@7\@wTd.P@ PBCD Efa .wIA!h@!h?0j@ k,Q (}.@׳BTe5>愾 >Fl.&ź+ o. k>''+$IriL?̨̔몿@p 0.dLp@(}@!(#h.D 3 C,  f$  (D.&) % fDvwB.0wC    m B A @ m A .V@ m@ m60    .|     C B A D 6 v.e\    p&p.       B A @  A @  @ 5. 0 B A @   <.   @ :.쨀p Lp@($쨀phph*]pL(|]hh@8@]@@8@]@@8@+]@+@8@۩]@]@p@]@c]@c@8@p L(6P(h-~hje;@@(p!@7w@7""@@@D`@^@6L(hn=@8L(@6@8h-h~h]@-@7@7 '@7'@6p@+0 @      ` $pl V.Lp@(`&ihhK. N A f C%~.&_   uL\    p~.n}L(niZh?.&fD #%   .& % e M% @A,@ PCBP.LA& aw @ E (}.r  w@;\)8A;\)pC[\/ p(}Eys@‚=L.xdLp@(}@!(dh.@ ? C8  F1  &,.&B@ BBCP.LC e&0.r a@    -.e&&   v ]N v y.& 6 6  Iv .L `.r   @ %.vmm@ 0  .   A C v %\  (ph.    0  @  @л"     4 pz.Lp@(T2ihhK.>]L(p]hp@~6pL(6ph-hje;@@(p!@7w@7""@@D`@^@n:@8L(86qh-h]@-@7 q@7 '@7'@6Ps@>]L(f]hp@pL(P6Psh-hje;@@-X@(p!@7w@/*L BCf&\m.OKL(@hQ&csshONhPh2  \.%L(p;ih.;h;)qhF;rh8Cih*ChC)qhbCrhT~.77\77\77I& "&.&\77\77\77&  &0"pn. w@;\)By"l> A6 (}(@êg{H@׋@7Q@3e.+Lp@(}@o&(z/+h/0h. ZBP Z.&BA  &.Lw 1@r5@?U?*@ڪA(}prr?[/.l+Lp@(}@&(+h0h1. N A f C%.&v   \ L   p.n}L(RiZh[.&fD %   .& %e v vv vLf&\.OKL(vhr&csshONhPh2  \.tL27""@ݩ}@@D`@^@n7% L(7""h7%h7@)h7 qhP7h.Ps@`;@p@nnL(pw3Xhp@(}@ON@Ԫp@:@vp@쨀p@>7XL(<7'h7 'h&ev+L(j7@h7 h7h"7h7@8h 7>h7Kh 7phԪ@8@f3,L\77\77\& $.%L(p;iwhq.;xhCiwh*CxhJihFJh8{JiwhbJxhT.77\77\77+& "&.&\77\77\77&  &,L\77\77\9& $4. ^BPv ^.&BA  &.Lw 1@rz5@3e-?p (}p.rv9?uοMc?kA`5?I2f?(*@& A/rz?[7r(.L(hh &\d.@8L(" h&h@8hph5(0;ؚh.;h&۩ؚh۩h(CؚhCh.ؚhhؚh h"+.Aa@e\Aa@t&te\^.tL(6;h2.;h;Ph(۩h۩Ph*Ch.CPhhPh h Ph$.Aa@ e\Aa@&te\\.tL6L(Hht:h@`;@p@D`@^@NfKL(Ne&h@`;@p@>̫]L(̫@`h`;@6A@L(A=hjFL(H Xh@p@VKHL(w&h(}@p@@쨰"@7>(W 7.%L(pKih.KhK)qh*KrhKiwhFKxh8ihbhT.7\7\7& "&.&\7\7\7P&  &,L\77\77\C& $.%L(piwh*.xhihhiwhFH* V  \.ԪL( Ԫh(VEC&\".vLp@(<vh,.VECDABu&&\  pz.vpLp@(HF&{h{h{h CG(49ؚh.9h(٩ؚh٩h*AؚhAh.ؚhh ؚh h$/.Aa@ g\Aa@& tg\.tL(<9hr.9Ph*٩h٩Ph,yh6Ah.APhhPh"h Ph&.Aa@ g\Aa@s& tg\g\.%EL("(p!h-X@>KL( IqKh(}@>HL(Nh(}@ >B+L(&?h(}@vK@jL(sh(}@ON@,@p@vp@쨀p@zy}@v@>+L(Xh(}@~2L(6}Fxh8ihbhT.77\77\77P& "&.&\77\77\77&  &,L\7\7\=& $.%L()qh*.rhiwhbxhTëihëh9.ë)qhFërh8ëiwh~ëxhp.DDDDDDD """"""""""""""""""""""""""""""""""""""""""""""""""3333333333333@ """"""@DD@DDDD@DDDDADDB C8}@z 5'jL^ (mS^ VJ&S^ D S^ 1S(S^ B 'xd^ NVmxd^ W_&xd^ Zb xd^ ck(xd^ fnjL^ =o ( [rrkQ s&y Y 's& $D*"""""""""""""""""""""""""""""""3333333333333 5E J \ ҷ8a ͋,L  Bw(B ` % & ~&*C$$Βe E%>l  aʋaՀ$ & * P$ ΋Ί   ΋   d Ί  ( 1'u  Q$f $5@ U C΋ Cb M΋U@ U &  B" .&0 I2hp@(}@S4@ON@Ԫp@,@vp@쨀p@#@-fD+L(D+h(}@@@,@v@a \@/+@=dL(Jdhp@(}@S4@Of@ON@Ԫp@Ԫ@,@6x@#@+@iKWL(GvhWhp@(}@ON@Ԫp@,@vp@쨀p@6x@#@+@ J7\7\7& "&.&\7\7\7r&  &.L\7\7\y& $"r7\7\ .%L(ʫih.ʫhʫiwh*ʫxh˫ihF˫h86.˫)qhd˫rhV˫iwh˫xhts.KL(H;ih.;h;)qh,;rh$CihChC)qh>Crh6.p\ r\p\ r\j*&p\ r\p\ r\.%L(H;iwh.;xhCiwhCxhJih,Jh$Jiwh>Jxh6&.p\ r\p\ r\B*&p\ r\p\ r\.%LL.   sp `sp#*& `œBp@b\  \E  pp.pLp@(j&ؚhh(h $.   s  sp  .&`sp  `œBp@b\ &L  \  \ pp.I@8Lp@(d"W9h:.Mn9 L(vh(}@ON@Ԫp@,@vp@쨀p@zy}@nV@QpL(<@Qh}h&(}@,@8@@6,@8XL(,@8hnvWL(+h6xhp@(}@ON@Ԫp@6@vp@쨀p@!~sWL(rvhWh.@(}@Of@ON@Ԫ@7\7\7& "&.&\7\\{&  (.Lw\\w&  $((r\\w\=  O(HKih.KhK)qhKrhKiwh,Kxh$ih>h6X.p\ r\p\ r\*&p\ r\p\ r\n.%L(Hiwh1.xhihhiwh,xh$!ih>h6.p\ r\p\ r\o*&p\ r\p\ r\q.%L(ZP  p Cp f.&\  \   \  p Le  \ \ px.Ԫ@8Lp@(Ԫ@8h'pf\  \ pz.ԪpHLp@( Ԫph&\l.ԪLp@( ԪhQv@iZ@@VR@8L(WqhON@Ԫp@p@vp@fRpL(nWPshON@Ԫp@,@p@#@/+@vDL(Wh$WhW qhON@Ԫ@,@p@+@d@VD@8L(WhhON@Ԫ@p@v@,VC@8XL(W(R.DLDz@Q@.,0z@(}@("vLDh\qhsh(.@  & !&fA> Dz&W.& DP . :/5$.L451%@-vr7"tQ(".r` `%7 5< %Q.2%<@ABCDEw%  Q (}S)qh<.rhiwh>xh6ëihëh.ë)qh,ërh$ëiwhPëxhH[.p\ r\p\ r\.&p\ r\p\ r\p6L\ r\.%L(`ʫihV.ʫhʫiwhʫxh˫ih,˫h$~.˫)qh@˫rh8˫iwhT˫xhL .p\ r\p\ r\ .&p\ r\p\T &\d.:L(+h6,h:h &\z.rLp@(rh"&\ & & \8 pz.vppLp@( vphV&\-.v@8Lp@(v@8hUhON@Ԫ@p@v@EnѪL(vIؚhQX\hQhRh@(}@ON@Ep@VתL("Sh(}@ON@Ԫ@8@v@8@QV6}L(8Zh:h@(}@ON@NL(99h@(}@ON@QV}L(o'` hV     .Baz   .KL(&,h@hi.f e e.OKL(csh_ONhPh  \.9LL(89Lh.9Lh Ah((}h_h r\,Lp\ r\bX  r\ \ px.vLp@( ^vh V&\%.EpL( Eph\.EL( Eh5 \.}L(}@($)}h6Y(}@Of@ON@:@anmL(@h@(}@Of@ON@Ԫ@v@iZ@@Ni@QL(,uhp@(}@ON@"^s@jL( sh(}@ON@p@v@@I^ɫ}L(bzy}h(}@ON@p@vp@쨀p@dVmWL(^ ؚhX\h_hΫ(dh0.f f\f@ feX \ eX&\@a\Ba\x[.DLDz@Q@.,0z@(}@("vLDh\qhsh(.@  & !&fA> Dz&W.& DP . :/5$.L451%@-vr7"tQ(".r` `%7 5< %Q.2%<@ABCDEw%  Q (}\h,,=7fw7f\@ (}.L(h ]h"eeVNN&\.Lp@(hhze &\.쨀p Lp@(쨀phphe&\](}@ON@E@nL(0Whp@(}@Of@ON@Ԫp@6@vp@^WL(2IhQ0\h(}@Of@ON@:@vWL(a Wh|a \hp@(}@Of@ON@Ԫp@vp@쨀p@1vtWL(<ph<h@(}@Of@ON@Ԫ@v@@^.DLDz@Q@.,0z@(}@("vLDh\qhsh(.@  & !&fA> Dz&W.& DP . :/5$.L451%@-vr7"tQ(".r` `%7 5< %Q.2%<@ABCDEw%  Q (}_     .Baz   .KL(&,h@hi.f e e.OKL(@hQ&cshONhPh  \.9LL(89Lh.9Lh Ah((}h`.Lp@(xihhO &\.n}L(iZh 7f\@4.p L@(}@j(Jw""hG.fͥ DC ! U ,& EV5! aw &(}.pa~dL(#hp@@(}@ON@Ԫp@:@p@vp@쨀p@xdL(dh@(}@Of@ON@Ԫ@,@p@v@i@@1~+L(/+h/0hp@(}@ON@Ԫp@:@p@vp@쨀p@jl+L(+h0h@(}@Ofb     .Baz   .KL(&,h@hi.f e e.OKL(vhJ&cshONhPh  \.9LL(89Lh.9Lh Ah((}h_h _hΫ(dh0.f f\f@ feX \ eX&\@a\Ba\xdLp@(VC""hp.&E@F   Fp.& Ep0   0L O.OKL(@h&csshONhPh2  \.tL(0;ؚh.;h&۩ؚh۩h(CؚhCh.ؚhhؚh h"e@ON@Ԫ@,@p@v@@>L(hhF@L(bpHh(}@p@ FWL(\ph(}@p@yN@8L( hh@8hph>WL(/xWh(}@FKL("xKh_h _hΫ(dh0.f f\f@ feX \ eX&\@a\Ba\xg.DLDz@Q@.,0z@(}@("vLDh\qhsh(.@  & !&fA> Dz&W.& DP . :/5$.L451%@-vr7"tQ(".r` `%7 5< %Q.2%<@ABCDEw%  Q (}h+.Aa@e\Aa@t&te\^.tL(6;h2.;h;Ph(۩h۩Ph*Ch.CPhhPh h Ph$.Aa@ e\Aa@&te\\.tL(49ؚh.9h(٩ؚh٩h*AؚhAh.ؚhh ؚh h$i(}@p@}>ѪWL(Rh(}@>ɪL(Qh(}@bVԪL(|Ԫhp@ON@Ԫp@쨀p@ fvL(vhp@ON@Ԫp@p@vp@쨀p@NvpL(d{h{h{h p@uNpL(ؚhj.DLDz@Q@.,0z@(}@("vLDh\qhsh(.@  & !&fA> Dz&W.& DP . :/5$.L451%@-vr7"tQ(".r` `%7 5< %Q.2%<@ABCDEw%  Q (}k     .Baz   .KL(&,h@hi.f e e.OKL(vhr&cshONhPh  \.9LL(89Lh.9Lh Ah((}hl/.Aa@ g\Aa@& tg\.tL(<9hr.9Ph*٩h٩Ph,yh6Ah.APhhPh"h Ph&.Aa@ g\Aa@s& tg\g\.ggL(;h.;h;dh*;rh.;h;h .;h;h;vhp;vhmh(h p@NI@8L(W9hON@Ԫ@8@p@p>Ԫ@8L(rԪ@8hp@i>ԪpHL(Ԫphp@>ԪL(Ԫhp@F;+L( A;-h(}@p@]F,@QL(8@Qh(}@p@n     .Baz   .KL(&,h@hi.f e e.OKL(@h&cshONhPh  \.9LL(89Lh.9Lh Ah((}h_h _hΫ(dh0.f f\f@ feX \ eX&\@a\Ba\xpt;dwhE.;rwh;xh;xh;yh~;yh.vh8vh<dwhbrwhfxhTL&xhXyhFyhJQ. \ \ .&\ \ &\ I.L&\ &\ &\ .r&\ &\ &\ &\d.hgL(;ph.;ph;$qh*;2qh.;rh;rh <.;|sh;qF) L(j8vh(}@p@F:L(@+h,h:h >s+L( -h(}@T>a L(*vh(}@>bKL(\@h(}@{>rL(*rhp@>vppL(vphp@_h _hΫ(dh0.f f\f@ feX \ eX&\@a\Ba\xs  L(h. NhhPh^dhRݩh@QhOhehDOfhHOfhOfhOfhOfh OfhOfhOfhOfhOfhOhh<OhhzOihfO(ihOPihOQihORihOxihS4hUhU؁h UhU(hUPh*Uxh}h"@jh~h@h hh_@(}@FON@,@8@p@9L@@@v; @Iq@(tshh8h<dhbW.rhfhThXhFhJ.ʫhpʫhtʫdhʫrhʫh&ʫhʫh~ʫh. \ \ .&\ \ \ {.L\ \ \ .r\ \ \ \.igL(ʫvh.ʫvhʫdwh*ʫrwh.ʫxhʫxh u>v@8L(Xv@8hp@i>vL(vhp@6EpL(.Eph6EL(>Eh6EXL(,Ehb>vL(h(}@2F}L(P}h6h(}@7NvC C TITLE: TRACEF C VERSION: 04 C LAST EDIT: 20-APR-73 RFB C C COPYRIGHT 1973, DIGITAL EQUIPMENT CORP., C MAYNARD, MASS. 01754 C SUBROUTINE TRACEF(ICNT,ITYPE,JPAR,INAM) C THIS ROUTINE IS A FORTRAN TRACE ROUTINE. C IT CAN BE MODIFIED, BY THE USER, TO C TAILOR THE TYPE OF TRACE, HE NEEDS. C FOR INSTANCE, HE CAN TYPE OUT THE C VALUE OF VARIABLES WHICH ARE STORED C INTO, ALONG WITH THE LINE NUMBER WHERE C THE STORE OCCURRED. C THE CALL IS SIMILAR TO: C "CALL TRACEF (ICNT,ITYPwhje;@@@}@U@S2@OPi@ON@A@-}@,0z@@Q@7p@7@8@7%@7@7@7 @>7@@+]@ݩP@ݩ@c]@쨀>@@8@. LIq@v; @L.@@9L@p@,@8@.ON@(}@_@(h.. NhhPh^dhRݩh!.@QhOhehDOfhHOfhOfh.OfhOfh Ofhx .ʫyhʫyh˫h8˫h<˫dhdw.˫rhh˫hV˫hZ˫hF˫hJ.˫pht˫phx˫$qh˫2qh˫rh(&˫rh˫|sh˫sh=. &\ &\ .&&\ &\ \ _.LV\ \ V.r\ \ V\ " \ V\=.jgL(h.hdhyL(Th hON@쨀p@FL(Fhhp@/F쨀p L(b쨀phphp@fFL(Zihhp@6n}L(jiZhFp L(2w""h(}@@.pL(zE,IPAR,INAM)". C C ICNT IS A VARIABLE WHICH CONTAINS WHAT C KIND OF TRACE IS OCCURRING C C ITYPE IS A VARIABLE WHICH TELLS THE C VARIABLE TYPE IN CASE OF A STORE TRACE. C C IPAR IS A VARIABLE CONTAINING SUPPLEMENTAL C ADDRESS INFORMATION C C INAM IS AN ARRAY POINTER TO THE ASCII C PROGRAM NAME. C C ICNT MAY HAVE THE FOLLOWING VALUES: C C 1 - SUBROUTINE ENTRY, INAM POINTS TO A 6 C CHARACTER ASCII SUBROUTINE NAME. C C 2 - SUBROUTINE RETURN, INAM POINTS TO A 6 C CHARACTER ASCII SUBR{OfhOfh.OfhOfhOhhOhhzOihf'.O(ihOPihOQihORihOxih .S4hUhU؁h UhU(hG.UPh*Uxh}h"@jh~h&@h hh.&f&f 4j 7 $ON&9L(m.&7 67 VF, _6o.L7 7 ` 1 F*ON 9L Iq|*rh.hh .hhvh8vh<dwhb+.rwhfxhTxhXyhFyhJ.phppht$qh2qhrh&rh|sh~sh{. \ \ .&\ \ &\ k.L&\ &\ &\ .r\ \ \ \.kgL(Jvh}NwL(K f9h(}@@^@N嫀pXL(* ""h(}@@pq@?N@QXL(><@hu~@h(}@p@U>˫XL(*y}h(}@fDL($vLDh\qhsh((}@,0z@Q@Dz@b>KL(6,h@h~OUTINE NAME BEING C RETURNED TO. C C 3 - STATEMENT TRACE, IPAR CONTAINS THE C SEQUENCE NUMBER OF THE STATEMENT ABOUT C TO BE EXECUTED. C C 4 - GOTO REFERENCE - IPAR CONTAINS THE SEQUENCE C NUMBER OF THE STATEMENT WHERE THE TRANSFER C WILL OCCUR. C C 5 - STORE REFERENCE - ITYPE HAS THE VARIABLE TYPE, C IPAR POINTS TO THE VARIABLE, WHERE C ITYPE= 0-BYTE C 1-LOGICAL C 2-INTEGER C 3-REAL C 4-DOUBLE C 5-COMPLEX C 6 - STORE REFERENCE OF SELECTED VARIABLES - ITYPE HAS THE C _`$r W    %. )%[&  e Fh,@8J.T 7 7 7 e*ON9Lv;  _" [.n %\e\ j%& e  .67e  7<7 7 : ON9Lv; "&.\` w  _` (}$p.7 h .JvhJdwh*Jrwh.JxhJxh .JyhJyhKvhtKvhxKdwh#.KrwhKxhKxhKyhKyh+.˫vh8˫vh<˫dwhd˫rwhh˫xhV&˫xhZ˫yhF˫yhJ. &\ &\ .&&\ &\ &\ O.LV&\ &\ V&.r\ \ \ ?\ \.lg!FOKL(csshONhPhFPpL(Ofh OfhOfhVHpHL( S4hS4hS4hS4hS4h>@jL( @jh@V>lL( ]h`;@p@FiL( +]h]h`;@p@VdVARIABLE TYPE, IPAR POINTS TO THE VARIABLE. C C 7 - ASSIGN STATEMENT - JPAR CONTAINS C THE SEQUENCE NUMBER BEING ASSIGNED C C C THE SUBROUTINE TRACEF MUST FOLLOW THE C NORMAL RULES FOR A FORTRAN SUBROUTINE C C WARNING: ANY ERRORS OCCURING C WITHIN THE SUBROUTINE TRACE, C WILL SHOW THAT THE TRACEBACK NAME C AND SEQUENCE NUMBER OF THE STATEMENT C WHICH CAUSED THE TRACE ROUTINE TO BE C ENTERED, NOT THE STATEMENT IN ERROR. C C C NOTE: IF THE GOTO TRACE IS USED, DO NOT C COMPILE THE PRO0\ \j. x#~7 7  ~.0\     pp.  ` `Ca |%*.h  h& J[.@V  -( \\ s.f &7  .  Caw 7.  Z^.\ '72! L(Jhp.JhtJdhJrhJhJhW.Jh~JhKhKhKdh*.Krh.KhKh KhKhc.Kph8Kph<K$qhbK2qhfKrhT&KrhXK|shFKshJy. \ \ .&\ \ \ m.L\ \ \ G.r\ \ v\ \.L( c]h]h]h۩]h`;@p@'Fi(L( +@8h@8h`;@p@>l(L( @8h`;@p@;Fd(L( c@8h@8h`;@p@Znp`L(Bphvh@-X@7w@`;@@pq@6@QL(`-Xh>GRAM WITH THE /SU C SWITCH, SINCE THE GOTO TRACE USES C THE SEQUENCE INFORMATION. C C BYTE INAM,LPAR,LNAM DIMENSION INAM(6),LNAM(6) DOUBLE PRECISION JPAR,DPAR REAL RPAR COMPLEX CPAR EQUIVALENCE (IPAR,LPAR,RPAR,DPAR,CPAR) DPAR=JPAR GO TO (10,20,30,40,50,50,70),ICNT C C SUBROUTINE ENTRY 10 CONTINUE C WRITE(6,100)INAM 100 FORMAT(/' ENTER ',6A1) RETURN C C SUBROUTINE RETURN C 20 CONTINUE WRITE (6,101)INAM 101 FORMAT (' RETURN TO ',6A1/) RETURN C C SEQUENCE TRACE C 3.| n7 p .$\ bN7:\Y.J@a\Ba *" $F.p~7  v\ | ~m. Ca twh.\&\ 7 7Z&\ 7 .7DCa 7 ,\.fA    R w"((}\..A f  R#" wͥ$(}X.T%L(H;ih.;h;)qh,;rh$CihChC)qh>Crh6.p\ r\p\ r\j*&p\ r\p\ r\.%L(H;iwh.;xhCiwhCxhJih,Jh$Jiwh>Jxh6&.p\ r\p\ r\B*&p\ r\p\ r\.% L(h@nʫXL(6쨰"hpqh0^hhHhPsh$,0z@pq@3NpL(TphpqhJv@`;@N}L( #}h`;hDz@@ZNDdXL(BDzh@D`@@>L(&h쨰"@0 CONTINUE WRITE (6,102)IPAR 102 FORMAT(' SEQ. ',I4) RETURN C C GOTO TRACE C 40 WRITE (6,103)IPAR 103 FORMAT(' GOTO SEQ. ',I4) RETURN C C STORE TRACE C 50 ITYPE=ITYPE+1 GOTO (1000,1100,1200,1300,1400,1500),ITYPE C C BYTE C 1000 WRITE(6,1001) LPAR 1001 FORMAT(' BYTE = ',I4) RETURN C C LOGICAL C 1100 WRITE(6,1101) IPAR 1101 FORMAT(' LOGICAL = ',O6) RETURN C C INTEGER C 1200 WRITE(6,1201) IPAR 1201 FORMAT(' INTEGER = ',I6) RETURN C C REAL C 1300 WRITE(6,1301@% * pw$((}#.z%7B  G  > .@8@쨀>@c]@0.ݩ@ݩP@+]@7@@7 @.7@7@7%@7@8@7p@.@Q@,0z@-}@A@ON@M.OPi@S2@U@}@@.@je;@(h*7 .ONL(HKih.KhK)qhKrhKiwh,Kxh$ih>h6X.p\ r\p\ r\*&p\ r\p\ r\n.%L(Hiwh1.xhihhiwh,xh$!ih>h6.p\ r\p\ r\o*&p\ r\p\ r\q.%>DvL(DD`hDwhn,L(#th Xzh Qh,0zhjh7@p@e@{>;}L(x7wh@>6v L(Xeh6*%L(7hf9LL(,9Lh9LhAh(}h_h_hΫ(dh$) RPAR 1301 FORMAT(' REAL = ',G20.8) RETURN C C DOUBLE PRECISION C 1400 WRITE(6,1401) DPAR 1401 FORMAT(' DOUBLE = ',D25.10) RETURN C C COMPLEX C 1500 WRITE(6,1501) CPAR 1501 FORMAT(' COMPLEX = (',G12.5,',',G12.5,')') RETURN C C C ASSIGN STATEMENT TRACE C 70 WRITE(6,71) IPAR 71 FORMAT(' ASSIGN = ',I4) RETURN END @Q쨀>A"ݩP$OPi"(0t(000DtjW, D tjDb*S2S2 b -}S2(Vr(/' ENTER ',6A1).S27@ 7% r }"S2uvw*S2 -}S2S2*(' RETURN TO ',6A1/)g,7@7%  }"S2$(EL(Z)qh<.rhiwh>xh6ëihëh.ë)qh,ërh$ëiwhPëxhH[.p\ r\p\ r\.&p\ r\p\ r\p6L\ r\.%L(`ʫihV.ʫhʫiwhʫxh˫ih,˫h$~.˫)qh@˫rh8˫iwhT˫xhL .p\ r\p\ r\ .&p\ ~tL(2;ؚh;h&۩ؚh۩h(CؚhChؚhhؚh h"tL(6;h2;h;Ph(۩h۩Ph*ChCPhhPh h Ph$B~tL(69ؚh9h(٩ؚh٩h*AؚhAhؚhh ؚh h$tL(<9h9Ph*٩h٩Ph,yh6AhAPh .TITLE $DVB $VERSN 09 ; ; ;COPYRIGHT 1972, DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE ; OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT ; WHICH IS NOT SUPPLIED BY DEC. ; .GLOBL $DEVTB .CSECT ; ;THESE ARE THE FORTRAN DEVICE TABLE ENTRIES ;WITH THE DEVICE TABLE HEADER AND ENTRY VECTOR ; .IFNDF RSX .WORD DEVM3 ;ADDR OF ENTRY FOR ERR LOG DEVICE ;ERROR LOG DEVICE IS -3(DEVM3) .WORD DEVERR ;ADDR OF ENTRY FOR ERR MSG FILE .ENDC $DEVTB: .,S2-}S2(S27@8F(' SEQ. ',I4)7%d,}S2 S2 -}S24*((' GOTO SEQ. ',I4),(S2 7@8 7%$}u,Aݩ  @8AU*Z&.* Z &S2B.H(?,S2H-}S2(S27 BX('r\p\ r\,Lp\ r\bhPh"h Ph&GxL(T;h;h;ph0;shBChCh Cph6CshHWhWh(Wph<WshNnHxL(0;vh;yhCvhCyhJvh$Jyh*Wvh WyhnIxL(0JhJhKhKhKphKsh$Kvh,Kyh*JxL(Hhhph$sWORD 8. ;NUMBER OF ENTRIES IN ENTRY VECTOR .IFNDF RSX .WORD -3 ;DEVICE NUM OF ERROR LOGGING DEVICE .ENDC .IFDF RSX .WORD 6. ;DEVICE NUM OF ERROR LOGGING DEVICE .ENDC ; ;THE DEVICE TABLE ENTRY VECTOR ; .WORD DEV1 ;ADDR OF DEVICE 1 ENTRY .WORD DEV2 ;ADDR OF DEVICE 2 ENTRY .WORD DEV3 ;ADDR OF DEVICE 3 ENTRY .WORD DEV4 ;ADDR OF DEVICE 4 ENTRY .WORD DEV5 ;ADDR OF DEVICE 5 ENTRY .WORD DEV6 ;ADDR OF DEVICE 6 ENTRY .WORD DEV7 ;ADDR OF DEVICE 7 ENTRY .WORD DEV8 ;ADDR OF DE BYTE = ',I4)*7%XXXxZ,}S2 S2 x-}S2*j((' LOGICAL = ',O6),(S2 7@8 7%$}E(*S2S2  -}S2(*(' INTEGER = ',I6).S27@8 7% "}$S2(c*S2 -}S2(S2((' REAL = ',G20.8),7p7%116FORRUN.DGN 000 FORT000000 INVALID CALL TO ERROR 001 FORT000001 NO SPACE TO DO I/O 002 FORT000002 SUBROUTINE DIRECTLY(INDIRECTLY) REFERENCES ITSELF 003 FORT000003 ILLEGAL FLOATING POINT INSTRUCTION 004 FORT000004 SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED 005 FORT000005 SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED 006 FORT001000 SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED 007 FORT001001 DEVICE PARITY ERROR 008 FORT001002 CHECKSUM/PARITY ERROR-END OF DATA ERROR (RANDOM) 009 FORT001003h6ëhëhëph*ësh<׫h ׫h׫ph0׫shBnKxL((vhyh ëvhëyhʫhʫh ׫vh׫yhnLxL(0ʫvhʫyh˫h˫h˫ph˫sh ˫vh(˫yh,MxL(Thhvh0yhBhh vh6yhHhh(vh<yhN.NxLVICE 8 ENTRY ; ; ; ;ENTRY 1 OF DEVICE TABLE ; DEV1: .WORD 0 ;LINK BLOCK PTR .IFNDF RSX .RAD50 /SY / ;PHYSICAL DEVICE NAME DEFAULT .ENDC .IFDF RSX .RAD50 /KB/ .ENDC .BYTE 0 ;HOW OPEN SWITCH .BYTE 0 ;UNIT NUM DEFAULT .RAD50 /FOR/ ;DEFAULT FILE NAME .RAD50 /001/ .RAD50 /DAT/ ;DEFAULT EXTENSION .BYTE 233 ;NO AUTO DEL, GROUP & OTHERS READ/RUN ONLY .BYTE 0 ;DEVICE STATUS SWITCH .BYTE 0 ;MODE OF I/O - FUNCN WORD (RANDOM) .BYTE 0 ;STATUS OF I/O .WORD 0 ;RECORD COUN } S2"(,S2-}S2(S27[#$(' DOUBLE = ',D25.10)L7%$$S$D,}S2 S2 D-}S2.6(h(' COMPLEX = (',G12.5,',&(S2 7 7%h&\',G12.5,')') ,}S2S2-} S2J'z((' ASSIGN = ',I4)*(S2 7@8 7%uf\ UNDIAGNOSABLE I/O ERROR 010 FORT001004 END OF FILE OR END OF MEDIUM 011 FORT001005 UNABLE TO ALLOCATE CONTIGUOUS FILE 012 FORT001006 DEFINE FILE NOT DONE (RANDOM ACCESS) 013 FORT001007 DEFINE FILE DONE (NOT RANDOM ACCESS) 014 FORT001008 INVALID PROTECTION FOR FILE ACCESS 015 FORT001009 FILE DOES NOT EXIST / OR IS ALREADY OPEN 016 FORT001010 UNABLE TO OPEN FILE 017 FORT001011 WRONG MODE FOR FILE ACCESS 018 FORT001012 INVALID DEVICE NUMBER 019 FORT001013 INVALID RECORD NUMBER (RANDOM AC(X~OxL((chch khkhrhrhsh sh$hh.ggL(.hgL(.igL(.jgL(.kgL(.lgL(.%T - BLOCK NUM (RANDOM) .WORD 0 ;BUFF ADDR (RANDOM) .WORD 0 ;BUF LEN (RANDOM) .WORD 0 ;ASSOCIATED VAR ADDR (FROM DEFINE FILE) .WORD 0 ;NUM RECORDS IN FILE (FROM DEFINE FILE) .WORD 0 ;RECORD LENGTH (FROM DEFINE FILE) .WORD 0 ;USER ID CODE .WORD 0 ;ERROR VAR ADDR (FROM SETFIL) ; ; ; ;ENTRY 2 OF DEVICE TABLE ; DEV2: .WORD 0 .IFNDF RSX .RAD50 /SY / .ENDC .IFDF RSX .RAD50 /TT/ .ENDC .BYTE 0,0 .RAD50 /FOR/ .RAD50 /002/ .RAD50 /DAT/ .BYTE 233,0,0,0 .WORD 0,0,0,0,f\@5}j\CESS) 020 FORT001014 SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED 021 FORT001015 SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED 022 FORT001016 SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED 023 FORT001017 SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED 024 FORT002000 CANNOT DO CONVERSION WITH FORMAT SPECIFIED 025 FORT002001 PARENTHESES NESTING TOO DEEP (>2) IN FORMAT 026 FORT002002 SYNTAX ERROR IN FORMAT 027 FORT002003 REFERENCE OUTSIDE OF RECORD BOUNDARIES 028 FORT002004 SYSTEM ERROR NO DIAGNOSTICL(.%L(.%L(.%L(.%L(.%L(*"L(l҉hbh$h $h$)h 2hhlhThYhbh^%OaL(;Љh0,0,0,0 ; ; ; ;ENTRY 3 OF DEVICE TABLE ; DEV3: .WORD 0 .IFNDF RSX .RAD50 /SY / .ENDC .IFDF RSX .RAD50 /PP/ .ENDC .BYTE 0,0 .RAD50 /FOR/ .RAD50 /003/ .RAD50 /DAT/ .BYTE 233,0,0,0 .WORD 0,0,0,0,0,0,0,0 ; ; ; ;ENTRY 4 OF DEVICE TABLE ; DEV4: .WORD 0 .RAD50 /PR / .BYTE 0,0 .RAD50 /FOR/ .RAD50 /004/ .RAD50 /DAT/ .BYTE 233,0,0,0 .WORD 0,0,0,0,0,0,0,0 ; ; ;ENTRY 5 OF DEVICE TABLE ; ; DEV5: .WORD 0 .RAD50 /LP / .BYTE 0,0 .RAD50 /FOR/ .RAD50 /005/ . FORT000000 INVALID CALL TO ERROR FORT000001 NO SPACE TO DO I/O FORT000002 SUBROUTINE DIRECTLY(INDIRECTLY) REFERENCES ITSELF FORT000003 ILLEGAL FLOATING POINT INSTRUCTION FORT000004 SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED FORT000005 SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED FORT001000 SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED FORT001001 DEVICE PARITY ERROR MESSAGE ASSIGNED 029 FORT002005 SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED 030 FORT003000 SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED 031 FORT003001 EXPONENT OVERFLOW IN DOUBLE PRECISION ADDITION 032 FORT003002 EXPONENT OVERFLOW IN REAL ADDITION 033 FORT003003 DOUBLE PRECISION DIVISION BY ZERO 034 FORT003004 EXPONENT OVERFLOW IN DOUBLE PRECISION DIVISION 035 FORT003005 INTEGER DIVISION BY ZERO 036 FORT003006 EXPONENT OVERFLOW IN REAL DIVISION 037 FORT003007 COMPLEX DIVISION BY ZERO 03JЉh۩Љh ЉhЉhʫЉh%PaL(\;h;`h;Ph,JhJ`hJPhN۩h۩`h۩PhF{h {`h h"h`hPh6h`hPh>ʫh.ʫ`hʫPhVhh&%QaL(L;h; hJh6J h6۩h&۩ h&h hh hʫhBʫ hB~nL(:YMh }RAD50 /DAT/ .BYTE 233,0,0,0 .WORD 0,0,0,0,0,0,0,0 ; ; ;ENTRY 6 OF DEVICE TABLE ; ; DEV6: .WORD 0 .RAD50 /KB / .BYTE 0,0 .RAD50 /FOR/ .RAD50 /006/ .RAD50 /DAT/ .BYTE 233,0,0,0 .WORD 0,0,0,0,0,0,0,0 ; ; ;ENTRY 7 OF DEVICE TABLE ; ; DEV7: .WORD 0 .IFNDF RSX .RAD50 /SY / .ENDC .IFDF RSX .RAD50 /UD/ .ENDC .BYTE 0,0 .RAD50 /FOR/ .RAD50 /007/ .RAD50 /DAT/ .BYTE 233,0,0,0 .WORD 0,0,0,0,0,0,0,0 ; ; ; ;ENTRY 8 OF DEVICE TABLE ; ; DEV8: .WORD 0 .IFNDF RS FORT001002 CHECKSUM/PARITY ERROR-END OF DATA ERROR (RANDOM) FORT001003 UNDIAGNOSABLE I/O ERROR FORT001004 END OF FILE OR END OF MEDIUM FORT001005 UNABLE TO ALLOCATE CONTIGUOUS FILE FORT001006 DEFINE FILE NOT DONE (RANDOM ACCESS) FORT001007 DEFINE FILE DONE (NOT RANDOM ACCESS) FORT001008 INVALID PROTECTION FOR FILE ACCESS FORT001009 FILE DOES NOT EXIST / OR IS ALREADY OPEN 8 FORT003008 REAL DIVISION BY ZERO 039 FORT003009 EXPONENT OVERFLOW IN COMPLEX MULTIPLICATION 040 FORT003010 EXPONENT OVERFLOW IN DOUBLE PRECISION MULT. 041 FORT003011 EXPONENT OVERFLOW DURING NEGATION 042 FORT003012 EXPONENT OVERFLOW IN REAL MULTIPLICATION 043 FORT003013 INTEGER OVERFLOW ON ADDITION 044 FORT003014 PRODUCT OUTSIDE OF RANGE ON INTEGER MULT. 045 FORT003015 INTEGER BASE = 0, INTEGER EXPONENT <= 0 046 FORT003016 DOUBLE BASE = 0, INTEGER EXPONENT <= 0 047 FORT003017 DOUBLE Bh&C\}h@@(}@w@ɪKr@VXL(HXh@@w@ɪKr@6ɪKrL(:ɪKrhLNwL(whhXhz@6(}XL((}hB&PL(.RdXLOQi@( ~OfhX .RAD50 /BI / .ENDC .IFDF RSX .RAD50 /AD/ .ENDC .BYTE 0,0 .RAD50 /FOR/ .RAD50 /008/ .RAD50 /DAT/ .BYTE 233,0,0,0 .WORD 0,0,0,0,0,0,0,0 .IFNDF RSX ; ;ENTRY - 3 OF DEVICE TABLE(ERROR LOGGING DEVICE) ;SPECIAL ENTRY USED AS DOS-11 ERROR LOGGING DEVICE ;LOGICAL UNIT NUMBER = -3, LOGICAL DEVICE NAME = CMO ; DEVM3: .WORD 0 ;LINK BLOCK PTR .RAD50 /KB / ;DEFAULT PHYSICAL DEVICE NAME .BYTE 0,0 .RAD50 /FOR/ ;DEFAULT FILE NAME .RAD50 /CMO/ ;FORCMO.DAT .RAD50 /DAT/ .BYT FORT001010 UNABLE TO OPEN FILE FORT001011 WRONG MODE FOR FILE ACCESS FORT001012 INVALID DEVICE NUMBER FORT001013 INVALID RECORD NUMBER (RANDOM ACCESS) FORT001014 SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED FORT001015 SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED FORT001016 SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED FORT001017 SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED ASE = 0, DOUBLE EXPONENT <= 0 048 FORT003018 DOUBLE BASE < 0, DOUBLE EXPONENT <= 0 049 FORT003019 REAL BASE = 0, REAL EXPONENT <= 0 050 FORT003020 REAL BASE < 0, REAL EXPONENT <= 0 051 FORT003021 REAL BASE = 0, INTEGER EXPONENT <= 0 052 FORT003022 REAL OUTSIDE RANGE ON REAL TO INTEGER CONVERSION 053 FORT003023 EXPONENT OVERFLOW ON DOUBLE TO REAL CONVERSION 054 FORT003024 FLOATING POINT EXPONENT OVERFLOW 055 FORT003025 FLOATING POINT DIVISION BY ZERO 056 FORT003026 INTEGER OVERFLOW ON DO-Caw  OQi+.O@8L(OhehOhhOih  \.0Lv@8@ON@.(}@(p;h pphv; h.f)A Nwff[ "(}.&e7 8  4ONv@88.L@@w w& E 233,0,0,0 ; .WORD 0,0,0,0,0,0,0,0 ; ; ; ; ;SPECIAL ENTRY FOR ERROR PROCESSORS MSG FILE ; .WORD 0 ;LINK BLOCK ERR RTN ADDR DEVERR: .WORD 0 ;LINK PTR .RAD50 /ERR/ ;LOG DATA SET NAME .BYTE 1 ;PHYSICAL DS NAME FOLLOWS .BYTE 0 ;UNIT NUM .RAD50 /SY / ;PHYSICAL DEVICE NAME ;DEFAULT TO SYSTEM DEVICE .WORD 0 ;FILE BLOCK ERROR RETURN ADDR .BYTE 4 ;HOW TO OPEN (OPENI) .BYTE 0 ;ERROR RTN CODE .RAD50 /FOR/ ;FILE NAME .RAD50 /RUN/ .RAD50 /DGN/ .BYTE 1 ;USER ID CODE .B FORT002000 CANNOT DO CONVERSION WITH FORMAT SPECIFIED FORT002001 PARENTHESES NESTING TOO DEEP (>2) IN FORMAT FORT002002 SYNTAX ERROR IN FORMAT FORT002003 REFERENCE OUTSIDE OF RECORD BOUNDARIES FORT002004 SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED FORT002005 SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED FORT003000 SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED FORT003001 EXPONENT OVERFLOW IN DOUBLE PRECISION ADDITLOOP VARIABLE 057 FORT003027 COMPLEX BASE = 0, INTEGER EXPONENT <= 0 058 FORT003028 SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED 059 FORT003029 SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED 060 FORT003030 SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED 061 FORT004000 SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED 062 FORT004001 SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED 063 FORT004002 DEXP CALLED WITH EXPONENT GREATER THAN 88. 064 FORT004003 DLOG ARGUMENT LESS THAN OR EQUAL TO ZERO 065 FORT004004 +(}(}.r ( Cå å$ נA  .:  e` . %  å.נ0נ9@.,)&CD%?RRR.  %((  R  <.0  ew W  W  AO (}!VQ e@e$.? Q.XzXL(}@( Iqh8xwxYTE 1 .BYTE 322,0 ;ALLOW ONLY INPUT ACCESS .WORD 4 ;FUNCTION WORD (READ) .WORD 0 ;BLOCK NUM .WORD 0 ;BLOCK ADDR .WORD 0 ;BLOCK LENGTH ; ; .ENDC .END ION FORT003002 EXPONENT OVERFLOW IN REAL ADDITION FORT003003 DOUBLE PRECISION DIVISION BY ZERO FORT003004 EXPONENT OVERFLOW IN DOUBLE PRECISION DIVISION FORT003005 INTEGER DIVISION BY ZERO FORT003006 EXPONENT OVERFLOW IN REAL DIVISION FORT003007 COMPLEX DIVISION BY ZERO FORT003008 REAL DIVISION BY ZERO FORT003009 EXPONENT OVERFLOW IN COMPLEX MULTIPLICATI DSQRT ARGUMENT LESS THAN ZERO 066 FORT004005 EXP CALLED WITH EXPONENT GREATER THAN 88. 067 FORT004006 ARGUMENTS OUT OF RANGE FOR "TIME" CONVERSION 068 FORT004007 IABS ABS(X) GREATER THAN 2**15 - 1 069 FORT004008 IDIM RESULT OUTSIDE OF RANGE -2**15-1 TO 2**15-1 070 FORT004009 ISIGN RESULT GREATER THAN 2**15 - 1 071 FORT004010 ALOG ARGUMENT LESS THAN OR EQUAL TO ZERO 072 FORT004011 SQRT ARGUMENT LESS THAN ZERO 073 FORT004012 SNGL EXPONENT OVERFLOW ON ROUND 074 FORT004013 RANDU/RAN WRONG N (}v.XL(}@(i&h Nhh wy (}.DdXLORi@( OfhOfhCaw  ORi*.OdL(O(ih .OPihOQihORihOxih\.˫dL(Ϋ@yhJ 3 10-AUG-73 <233> 150000 TRCLIB.OBJ 12 10-AUG-73 <233> 172400 TRACEF.FTN 7 10-AUG-73 <233> 005333 DVB .MAC 9 10-AUG-73 <233> 102554 RUNDGN.SRC 13 10-AUG-73 <233> 031646 FORRUN.DGN 16 10-AUG-73 <233> 112215 FREE BLKS: 257 FREE FILES: 40 ON FORT003010 EXPONENT OVERFLOW IN DOUBLE PRECISION MULT. FORT003011 EXPONENT OVERFLOW DURING NEGATION FORT003012 EXPONENT OVERFLOW IN REAL MULTIPLICATION FORT003013 INTEGER OVERFLOW ON ADDITION FORT003014 PRODUCT OUTSIDE OF RANGE ON INTEGER MULT. FORT003015 INTEGER BASE = 0, INTEGER EXPONENT <= 0 FORT003016 DOUBLE BASE = 0, INTEGER EXPONENT <= 0 FORT003017 DOUBLE BASE = 0, DOUBLE EXPONENT <= 0 UMBER OF ARGUMENTS 075 FORT004014 PDUMP WRONG NUMBER OF ARGUMENTS 076 FORT004015 INVALID ARGUMENT TO "SETFIL" 077 FORT004016 FILE ALREADY OPEN ON UNIT - "SETFIL" IGNORED 078 FORT004017 SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED 079 FORT004018 SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED 080 FORT004019 SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED 081 FORT004020 SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED 082 FORT005000 CSQRT UNDERFLOW 083 FORT005001 EXPONENT UNDERFLOW ON DOUBLE PRECISION A \.ݩ}L(ݩ؁h '.ݩh ݩ(hݩPhݩxh&&&&\~.U}L( U؁h?.UhU(hUPhUxh\.dL(dh.OfhOfhOfhOfhOfh FORT003018 DOUBLE BASE < 0, DOUBLE EXPONENT <= 0 FORT003019 REAL BASE = 0, REAL EXPONENT <= 0 FORT003020 REAL BASE < 0, REAL EXPONENT <= 0 FORT003021 REAL BASE = 0, INTEGER EXPONENT <= 0 FORT003022 REAL OUTSIDE RANGE ON REAL TO INTEGER CONVERSION FORT003023 EXPONENT OVERFLOW ON DOUBLE TO REAL CONVERSION FORT003024 FLOATING POINT EXPONENT OVERFLOW FORT003025 FLOATING POINT DIVISION BY ZERO DDITION 084 FORT005002 EXPONENT UNDERFLOW ON REAL ADDITION 085 FORT005003 EXPONENT UNDERFLOW ON REAL DIVISION 086 FORT005004 DEXP CALLED WITH EXPONENT LESS THAN -89.4 087 FORT005005 EXP CALLED WITH EXPONENT LESS THAN -89.4 088 FORT005006 EXPONENT UNDERFLOW ON DOUBLE MULTIPLICATION 089 FORT005007 EXPONENT UNDERFLOW ON REAL MULTIPLICATION 090 FORT005008 EXPONENT UNDERFLOW ON DOUBLE PRECISION DIVISION 091 FORT005009 FLOATING POINT EXPONENT UNDERFLOW 092 FORT005010 SYSTEM ERROR NO DIAGNOSTIC&Ca\\(.S2XL(S2h &\Y.@8Lp@(@8he \* p.E@8XL(E@8h \.@8Lp@(/@8h@ \ FORT003026 INTEGER OVERFLOW ON DO-LOOP VARIABLE FORT003027 COMPLEX BASE = 0, INTEGER EXPONENT <= 0 FORT003028 SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED FORT003029 SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED FORT003030 SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED FORT004000 SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED FORT004001 SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED FORT004002 DEXP CALLED WITH EXPONENT GREATER T MESSAGE ASSIGNED 093 FORT005011 SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED 094 FORT005012 SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED 095 FORT006000 CONVERSION ERROR 096 FORT006001 SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED 097 FORT006002 SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED 098 FORT006003 SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED 099 FORT007000 SUBSCRIPT LESS THAN OR EQUAL TO ZERO 100 FORT007001 SUBSCRIPT GREATER THAN DIMENSIONED 101 FORT007002 VALUE OUT OF BOUNDS (COMPUTED  p.L(h$   `\ `\.@L(h@h:\\j.KLp@( hX  \ \a px.XL(h7HAN 88. FORT004003 DLOG ARGUMENT LESS THAN OR EQUAL TO ZERO FORT004004 DSQRT ARGUMENT LESS THAN ZERO FORT004005 EXP CALLED WITH EXPONENT GREATER THAN 88. FORT004006 ARGUMENTS OUT OF RANGE FOR "TIME" CONVERSION FORT004007 IABS ABS(X) GREATER THAN 2**15 - 1 FORT004008 IDIM RESULT OUTSIDE OF RANGE -2**15-1 TO 2**15-1 FORT004009 ISIGN RESULT GREATER THAN 2**15 - 1 FORT004010 ALOG ARGUMENT LESS THAN OR EQUAL OR ASSIGNED GO TO) 102 FORT007003 FLOATING POINT UNDEFINED VARIABLE 103 FORT007004 SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED 104 FORT007005 SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED 105 FORT007006 SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED 106 FORT007007 SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED 107 FORT007008 SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED 108 FORT007009 SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED 109 FORT007010 SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED 110 FORT008 \}.쨀>L( 쨀>ha(AaP AaH \!.}L( h  \\T.HiL(S4h7@a&\.Ϋ@XL(Ϋ@h \aTO ZERO FORT004011 SQRT ARGUMENT LESS THAN ZERO FORT004012 SNGL EXPONENT OVERFLOW ON ROUND FORT004013 RANDU/RAN WRONG NUMBER OF ARGUMENTS FORT004014 PDUMP WRONG NUMBER OF ARGUMENTS FORT004015 INVALID ARGUMENT TO "SETFIL" FORT004016 FILE ALREADY OPEN ON UNIT - "SETFIL" IGNORED FORT004017 SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED FORT004018 SYSTEM ERROR NO DIAGNOSTIC MESS000 LINKAGE ERROR (MISSING FORMAT CONVERSION ROUTINE) 111 FORT008001 LINKAGE ERROR (UNFORMATTED I/O) 112 FORT008002 LINKAGE ERROR (DIRECT-ACCESS I/O) 113 FORT008003 SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED 114 FORT008004 SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED 115 FORT008005 SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED -01 .ΫdXL(Ϋdh@a\.Ϋ@XL(Ϋ@h \h.]Lp@(2h&]h;. @` B N *3 &FT  V .+]L(+]h]h:.vl& 6   k.&v  -& a   d .L e0f`e0#   e.r %  V  ӕ* * v 'd @U.c]L(c]h &]h"]h۩]h.E D&6 E.&& & f& & )mЕ :.L6 A N v B Ж.r'  C B A U.  W - P .e   4   z. 6 L I-E6 T. 6 mm  .0 m  Օ0Օ.V.v!Օ0 v  .|  7 m .  v n .  ӕ-ӕ ˕0 {.e:3e%V f&. h dD C B A eC B A @ eB A @ eA .:@ e@  6&f * & .`mC B A mB A mA c  e.f C B A @  ". eӕ* v W!,v*(.&f&     R m.  eC B A eB A eA e@ e% . ev!6 ͕- 6 .D v!% Օ1 -Օ.-3*j e0     ].@8L(@@8h. @`& 6 CŀנT נFQ"&נ @ N V v .+@8L(+@8h@8h.79fm6& .&BE v , +!2.L-  BE •00 .r0   v   B. V 6 v @ @ @ `.c@8XL(c@8hd@8hg.& & &f&f& & & A& & .&$m"$    DE v!$w.L+--  'DE 0.r0L    9Q  X. 0 $ FaB A @ v!$N  .  /#   .cw& 23   w e. . vv    w(.0EDN " v!$DE+Q.V- v!$DE 00.|90 ` av!$  `. "w   4 4f.& ( " mB A @ mA 3.@ m@ c  e  =. e=-9B.:6 C B A @ #"B .`A @ C6v "$e.΋V w  Jf. &f 8 2&f . eB A @ eA @ e@ e B A @    A.-L]@6@..7'@7 '@-}@(De`h[`he.& &   4"4 6-}7'&&" $ & &w] 7 '+.Lp@7""@i&(@6h-}hH. &4 &o&4 " "&4 4 &  pz.#dL^@D`@.p@`;@@7w@(p!@&@(Gh. <C E \% f&^N.&&r . D`$7w((p! .L , $    .r % P D (ph"   e  `;.L(ݩ}hh je;h.& l ,2~ lp.&e   .L    @ .r   e  .  @  ..@8L]@6P(@7.7'@7 '@-~@(66&h-}h .& &   $ ]6P(-~"7'.&& &w 7 '.]pLc@8@c]@A.]@p@]@۩]@+@8@i.+]@@8@]@@8@]@:.@8@(|]hh. "w 5$"u" ( ww.& 5 5  <  \  & w.L# - 0%  .r  ` @`u"  5t.&fC" E\5" a. "A"u " . q 8 @ w y8"k& ZzN"22H.ZzN"2 2..(2@Z@6J,)/T'(ADEFGILOHPXQ "&2@Z @ 6J).N n w w8%*.t < 8 wZ p. w` wnu nw* .wV \  5m5-5p.t4-w5 5 w z. w   tm4-w .2w wA"B`4-.Xw " P u" wl .~w5-t5  wD .wpA" ɥ' 4 wP "i. P' " 1u".4 .w w   N.% wu"u u.< wu"u we.b%  u" wdu.  u"  " 5-.t5 wH w<5-.t5  5$" u~.u"  u px. & & D.F & & .l "e u w . u u %..  d uw .$(. c]"]$]&۩](+]<P.]]P c@8 @8@8@81. w& "1 %"+@8@8@8{.A-(-ȥ,  f t`4-z.84T  A--Y T.^䃀 fc4-w fk.f "    5 E&]. ` vN -6.  "! 4   }.  C  w pr.5 5 5 w `K.BP  w  `h` .p L^@D`@.@@7""@7w@(p!@E.@je;@(6P(h-~h.&  w r   7""^.&  ew%  wD7w (p!7""0.L  "0r w "7""D`$7""?.rreӕ  . $ %`r . w el 7""n.Cʥ ʥ  ʥ   "r&.   $  @ y.0   4 2 >7 $je;.V    2+)2 .| 1 $  1. נ0  je; wje;7"".L(hcME MMMM.=@8L6p@7'@.7 '@7@-@]@(@46@8h-h~h.& & &   _]6p$--(7'"& &  w~ 7 '.]Lp@(p]hC. "  W=f& $.&  -  pp,L &f 5 R .6pL^@D`@U.@7""@7w@(p!@@{.je;@(6ph-h.&1 m G  - ^$7w((p!.& b c  "r  &D`.LN "|eS`.rr 1e5  .  "rr4^.2   5 # je;" w e   7"".:@8L6Ps@7'@(.7 '@7 q@-@]@(8956qh-h:.&   ]6Ps -$7'& & w 7 '.]Lp@(f+]h. "B  &C.&f  " "L   pz.pL^@D`@`.@ݩ}@7""@79w@(p!@.-X@@je;@(P6Psh-h.& ~ q   ^$7w((p!.&  ol  .L{uuu&$r#o f.rf  "rr  -X .rr "  q- . &ݩ}. =C`44 Bl . B` "  =4 g.   errrr(0  w  0je;7"".7% Lp@`;@.Ps@(7""h7%h7@)h7 qhP7h.u.Ece% D 4 4 4  /+.&ww" "W= U A.Lw< "    S.r$ =w  .e(\  A%  px& 4   %Psp `;+.L쨀p@vp@ .:@Ԫp@ON@(}@p@(pw3XhD!7 R(<, ON:R:(Ԫp쨀p.2F wh&&\lK!9,2vpF p (}h"l.< p@&&\  pvb\HpCHCE.7XL(<7'hw7 'h&.& & & & & && &f&f6 & %\j.+LԪ@8@(j_.7@h7 h7h"7h7@8h &7>h7Kh 7phi.&  c.& U%aEce %e% D a.LU% Z.4%E .raI .%e  K. F\  ak.t A @ A @ A A A A E4.% Q-   %  X.  t&* \*&*Ԫ@8 Ԫ@8"*).0 v4m%% XNV4m  w0U.L^@D`@.p@`;@@(Hh2t:h. W  M r ^"D`&*& \ P  p`;n.fKLp@`;@&@(Ne&h.  e\ 11 .& 1 \  <p&p L `;.̫]L`;@(̫@`h&"Q  `;.A@L(A=h&&"5 \.Lp@@(H Xh.  1 9%5  *&%\   pp"p~.KHL쨰"@@e.p@(}@(w&hU.f Cx A{L y D` m 쨰"}.& tA &W0 W9.LWAWZR   ѥ. .ree`& " e . 0t +f& " #t . t t W/ W'.  @ 4tw  (}   p.(W L-X@("F(p!hY. W [W Yt  .&ff "-X*.L e  G   %e.r "  %5M.e   \ .  &.          .KL(}@( ]IqKhA@Awj (}.HL(}@(Nh#CCwQ (}.B+L(}@(|&?h Cew (}.K@jLv@zy}@.쨀p@vp@p@,@ON@&(}@(ash2.fEffE f&7 $"v,"ON$쨀p&$~.&. %Df&&&f&d zy},.Le7 XD w_ ON vpX"(}*r eew %(}pm.+L(}@(XhAQ$@Aw (}.2eL#@쨀p@.vp@,@Ԫp@ON@S4@.(}@p@(6}2h=.fE@m  @ *e'.&  t$A@ffe ! &#.Lf&& @f&& @7 p%,,ONp "쨀p$vp&p.rwA@7 7 j. (}ONS4S4S4Ԫp*ON쨀p  S4S4i.p6 @\.vp쨀p쨀p vp pԪpp!.4CC\/ C\     \.D+L/+@a \@.v@,@@@(}@(D+ho.f@&$& %f&Ea \@(vk&& f& %w,/+, (}^.=dL+@#@ym.6x@,@Ԫ@Ԫp@ON@8.Of@S4@(}@p@(Jdh.fEU%f f& f&6x,+",_*&E & & 7 Dwr. #,ONS4ԪOf D H (}.KWL+@#@.6x@쨀p@vp@,@Ԫp@=.ON@(}@p@(GvhcWhqp.& fEf f& f6x,"+&,O.&&) EU% f&& @f&7 #,.LZlv\ &*ONvpZ 쨀p lpv.r \76   7 &ON(Ԫp.  \e7 Ԫp.  \  % ONԪp Ԫp  w 6 u (}.9 Lzy}@쨀p@.vp@,@Ԫp@ON@(}@B(vh .fD  &&&&&.&&  0&&&&&&7 T6$ON&vp(T.L^f\& @\ &Ԫp^쨀p f"zy}&,,rv7 ~E  w  0 ON Ԫp~ (}w.@QpL@y,@8@.(}@(<@Qh}h&.%[&  eT %\,@8V&& ew(}.,@8XL(,@8h k.WL쨀p@vp@8.6@Ԫp@ON@(}@p@]&(+h6xh|.D& &&@7 }(D& &ON쨀p(*&& 6  A7 ||*ONvp|6 p"$|H||,6p  ||ԪpX*Ԫp쨀pԪp 쨀p Ԫp쨀p.dl ew\ "Ԫp쨀pԪp l(}.\S\ e& @7 B"ON$쨀p&.Pe\f& +P \:יc&>X4%]@`.sWL@iZ@b.v@Ԫ@ON@Of@(}@..@(rvhWh.?.fD& &&&&h!@.&7 DfD& &&&& 6  ON D(Lh!A7 T*ONviZ "lf.iZ  ԪOf|c.Ԫ Ԫ Ԫ^*ԪԪ  Ԫ" ew.ԪԪ  ԪOfe.\ \\SD(}$9.\ e& & & @7 t0ON "&t. e\r f&&&&&  rm."~\-ÍJ7,kt4yNqv ~j.H(:5;oS%]-1@R n!h.R@8Lvp@p@W.Ԫp@ON@(Wqh. &  . & @ .& $<  7 J "ON$Ԫp&Jr.L 7 h ONԪphl.r % 6 @7 &ON(vp>$%\% p.RpL/+@#@.p@,@Ԫp@ON@(nWPshX.&ff& #% ! "K.& f&7 < %./+ ,ONԪp<#",*Lv\@    pr.DLd@+@.p@,@Ԫ@ON@(&Wh$WhW qh.6 6    x.&&fU%f& )+ '~.L  (  f&7 l(+,ON Ԫ"l(d.r ev\@ ,U    H  p.D@8Lv@p@<.Ԫ@ON@(Whh. &      E .&& & & @  9^[.L7 f ONԪfK.r7  ON"Ԫ$. e .6 6 6 @7  x ON"v$(   %\e   pp.C@8XLv@p@.Ԫ@ON@(W(hi. &      H.&& & & @  < 9a.L7 l ON Ԫ"lz.r7 &ON(Ԫ. e + R. 6 6 6 @.7     %\eONv    p.ѪLEp@ON@'.(}@@(vIؚhQX\hQhRh.& f6& f N&.&&@&&7 8   ONEp8J.L @A ff7 n W ON"$n~ rw (}.תLv@8@Ԫ@8@7.ON@(}@("Sh*ffff7 w"ONv@8Ԫ@8$(}p.6}LON@(}@.@(8Zh:h D&&7 wON(}.LON@(}@&@(99h8 D&&7 wON(}.}L:@ON@P.Of@(}@(o'` h f7 w" ON :Of(}.mLiZ@v@.Ԫ@ON@Of@(}@@(@h].CeDe&&&&fffy &f 7 <w. ONviZԪOf< > (}.i@QLON@(}@&p@(,uh.@&&@&&7 wONp((}&  .s@jL@v@.p@ON@(}@( sh.fEA8<B  e@ & & f& j.&& ff& & f7 @ fONv@.Lfffr$r w     | (}p.ɫ}L쨀p@vp@.p@ON@(}@(bzy}h.fEA$( e@ & f& f& f7  (ON{.&, ff vp쨀p,Lw   (}p.mWLE@ON@".(}@(^ ؚhX\hk.& f Ne&&&&@e.&&&&&7 6   ONE6)L%w (}.Lvp@6@j.Ԫp@ON@Of@(}@p@;(0Wh@.@A&&ff 7 "ON$vp&6(ԪpK&,w!pOf, (}.WL:@ON@.Of@(}@(2IhQ0\hW. D@@/   Ċ&7 H$ON&:(Of&(w u((}.WL쨀p@vp@(.Ԫp@ON@Of@(}@p@;&(a Wh|a \h.& & & & & D&&D&& .& @%7 @  IAONvp@.L e e@ .rew& & & & & D&&e   (}. #@  .@6 7 6 6 #ONvpy.?%-0 @ ׳. f&& @׳@f&7 l(ON Ԫp"p$l&p(vp&02f&f&7 v0,2ONԪpvԪp쨀p Ԫp[N*쨀pԪp쨀p Ԫp 쨀pԪp*Zf w  \,쨀p쨀p 쨀p Off(}.|f& \ e\>:Q 9L]L?ƪ@%.tWL@v@].Ԫ@ON@Of@(}@@&(<ph<h8.f& & & & & & & & & D&&&&6.&D&&&&% @.L%:7 Z IA! ONvZ.rh e $e$@!.h ewf& & & & & & & & &  (}.D&&&&e #@-  .  # ! h.  @6 6 6 .07 :6 6 6 ON v :.V6 #?G-0 A-<-j|.|8@ k ,.TeB׳f&& & & @.TeB׳@f&7 L,ONԪ "L$&v(.f&f&7 s$ON&Ԫ(Of8^p.^Ԫ Ԫ ԪN"*ԪԪ  Ԫ.*ԪԪ  Ԫ.:D w\& Of D(}2.` f&&&&& \ /".e\5>愾 >Fl.&ź+ .k>''+$IriL?̨̔몿@ .dL쨀p@vp@.p@:@Ԫp@ON@(}@.@p@(#h.D g C`  fX & @$&&&&&7 nxn"*ONnԪpx:nB~&.vpp~ Ԫp 쨀pvp쨀p.P^de\\;@*쨀pvp^ 쨀p dԪp.v\ \N @   =@fR.&ysE[\pCf&f&\%h. aw @   (}$po w (}.xdL@i@.v@p@,@Ԫ@ON@4.Of@(}@@(dh.fD 2 C+  F$e.&&&&&\);@7 f  ON"Ԫ$f&i(L,f<*,, f i<,s.Z2ff@  ~.2f f ԪOf$p .  I6Af& .l>f&"yB7 &ON(BxT *BԪ Ԫ xT. ffff7 c*v ON Ԫ"F.  aw    (}.&\e\ \\&&?.L&&\\.r\ \@3eޘ@7Q@׋@êg{H.+L쨀p@vp@.p@:@Ԫp@ON@(}@.p@(/+h/0h.& Dr)&&]  .& 5@5@7 $ON&p(=L~,쨀pvp  Ԫp~\.Ԫp쨀p Ԫp 쨀pԪp쨀pj.,Ԫp쨀p : Ԫp쨀pg.xf&\  \& +Ԫp.\\r1@\s.[?\ we ?U?y(} pm*@ڪA.l+L@v@Q.p@,@Ԫ@ON@Of@.(}@@(+h0ht.& fDezr&.&&&&A  e3.L5@m h(}(LX(}.  F&   \]b,!J& & w2 r7 < ~ F.e35@7  (ON{r* v Ԫ.OfԪ  ԪԪKZ*Ԫ Ԫ ԪE,Ԫ  ,Ԫ.$$e Cf$$Ԫ $p.&&&&& \\j X.& \\z!LR  v b.@&f&( E5<. $    m  ^ &. ;BazhXhhw&(@Lw. &MU  && &.hKrɪ:(LKrɪ.w(.r1@\ r(7[?\.@ w-?v9?uοMc?kA`5?8 (}&fI2f?(*@ A/.L(hh6 6 \r.@Lp@(}@(bpHh.W( BC @ bb@ be .&K @    CKL &   &*Krɪ$G v@ eދ.lhXH(@@.E@w@KrɪLX. ԇ Aa% c  " &@.) #' (@.w.$$ 90ZAKrɪ&  B e  e .]ۂF! Q$ wp(}u.WLp@(}@ (\phf.W% BC @ bb@ be .&K @    L  wp(}.@8L( h&h@8hph(    \.WL(}@(7   AC  N |.Y & C #--ACV.F +% w w 0.((}&"(}B w w  ww . h\}C&h}b hYM:(@@@(}.@w@KrɪL.>\\PPPP\P <&.\\\. /xWh A@AD@ D wE (}.KLp@(}@i("xKh *DD A @  w p$(}].ѪWL(}@(RhD@@/ Ċw (}.ɪL(}@(IQhBh ʫBhʫh hh h.*&h ۩&h۩6h J6hJh ;.h;L(LQa%.\\\PP\LR\\\\&.X\\\\\\\\\.&h芪h芛VhPʫh`ʫhʫ>hPh`.h芻6hPh`h芓"h芊. h`{ h{FhP۩h`۩h۩.eNhPJh`JD@@/ Ċw (}.ԪL쨀p@Ԫp@.ON@p@(|Ԫh.&7   ONԪp.&7 47 L, ON Ԫp쨀p4$ON&Ԫp(L.L7 feONԪppfre\.vL쨀p@vp@hJ,hP;h`;.h;\(LPa%.\\\\\\ +hЉʫhЉhЉ hЉ۩hЉJ.PhЉ;(LOa%.\v\  C CL(B FB&.!:$>62. *#:>62. *.hbhYhT.p@Ԫp@ON@p@((vh,.   @  .&  2   \& ^  pp$L 7 ,ONԪpԪp쨀pԪphP*Ԫpp  ԪpԪp.v\)$쨀pvp  vp:.\\.\hlh񊕫.h2 h)$h$ h$h.bh҉l(L"*.(L%.(L%.(L%.(L%.(L%.(L%.\ $\\  e\.vpLp@(d*&{h{h{h C.    8 `.& ( `œ  b\ Q L \ @` O p.pLp@(&ؚhh(h $.   ) . 4 4.& (Llg.(Lkg.(Ljg.(Lig.(Lhg.(Lgg.p\& \e\\b\ \\\ \e\g.'hh$hs h %`   `œ .L b\ @`    (phr\  \s p~.I@8Lp@Ԫ@8@y&ON@(W9h.&&f  7  (ON{.&* 7 <   Ԫ@8*ONԪ@8<.L\ \   \e [r \ \3 p.s.nhrhrhkhk hc.hc((LOx.X(LNx.\ &\L&\&\ &\e&\g&\\ \&.\\\\\ \\e\\g.;NhyG<hv(hhHhy6hv.l hhBhy0hvh.hT(LMx.J\\e\& Ԫ@8Lp@(r:Ԫ@8h'. -  (  &C B.&   B` Ë   .L  \   \  \" &pj.ԪpHLp@(Ԫph.&f f & G   .& v  76   .Lp  d deA @ A @ .r% \e\\ \\e\\b.,hy˫(hv˫ hs˫hp˫h˫h˫hyʫ.Ahvʫ0(LLx.p\& \\\b\ \\\ \e\g.hy׫hv׫| hʫhʫhyëhvë hy.Yhv((LKx.W\ \\\ \e\g&*\ \\\ \e  A @ 6vW. %\%      "pn. `@ `  ` `   .ԪLp@(nԪh.&f f &  6  h.&  6 v .L%w     6  ).r   .   e B A @ K.\g.eBhs׫0hp׫h׫ h׫<hsë*hpë.Xhëhë6hs$hph.hH(LJx.\g \&7\e\\g\\\\b.*hyK,hvK$hsKhpKhKhKhJ.*hJ0(LIx.o\&\b&&\ &\&\&\ &\e&\g&. B A @ +%%B.    C B A @  6 v. e\   n (ph.0     mB A @ E mA @ E mW.V@ E m E      ,(|m@ E m E    2.;+Lp@(}@&( A;-h/(@  w h(} pi.,@QLp@hyW hvW*hyJ$hvJhyChvChy;.hv;0(LHx.\ \L \\ \e\g\ \&.Y\\ \e\g.NhsW<hpW(hWhWHhsC6hpC. hChCBhs;0hp;h;.h;T(LGx. \g\g & (}@(8@Qh$@@ w Z(}pq.) Lp@(}@(j8vh @ w (}py.:L(@+h,h:h .6 6 &  f 6A h"& v  6N\.s+s@Aa\g @Aa.&hP h"hPhhPA.hA6hy,hP٩h٩*hP9.rh9<(Lt.\g &@Aa\g @Aa./$h𛹫 hؚ h𛑫hؚ.hAhؚA*h٩hؚ٩(h9.hؚ96(Lt.\\e  L(}@( i-h(CD@ D wt "(}.a L(}@(*vhC@ w (}.bKL(}@(*\@hIB  w (}.rLp@(*rh&@Aa\e @Aa.$hP h hPhhPC.hC*hP۩h۩(hP;h;.2h;6(Lt.\e &t@Aa\e@Aa.+"h𛻫 hؚh𛓫hؚ.hChؚC(h۩hؚ۩&h;.hؚ;2(Lt.\Ba&.v v N \%% &  &pj && \>.vppLp@(vph.&f  & N & . ) .&   v   R.L  C 6  %%.r    6 6 %> pr.   Dv   0e.%6  6  E v v ·ͅd\@a\e \ X@e@f]f.$h(dΫh_h_h(}hAhL9.hL9,(LL9.M&nh7(L%*.V &s'z""0.<'E .C<V' .^<U'z.%\ @        .v@8Lp@(Xv@8h. #    &  .& B  BB`   \ nL\ \  p.vLp@(vh.&f    & N & QV.&  1<T'.E<S'M.<R'fr.N<Q'zL.u<P'z&.xX8 :.<O'zxX8:.heX(L v.r "&  0˥ "L. :& .Lv  6   v.r  66 6 6 7.6 "&v "    5. %6 6 6 6 ?  p~.    ~6  n6 .   ^6  N e.0%v 6 6 6  D v v v l.V 6e\  B A @ :.|-  - --*.    T  e & rr&. rr r 2 rr2 .)hw7 x(@L};.&p7ehjh0z,hQ hXz h#t(@7.G@p@eL,.T 1 1 1 1 1 &&>  15% >.;.EpL(.Ephc.   B -  c&e \n.EL(>Eh. B - -  &-   e \.EXL(,Eh.# - - - e& \hwDh`DD(LvD.}" w  A`  @ .h &(@"L.`D   r&$O W <   .}hzDB(@&@`D@LXdD.< zD!.vL(}@(htA@@ Awk (}.}L(}@(P}h6h2.D C %U.&     @  wf &(} L&\.L쨀p@ON@,&(Th hy.ee& 0  (h`;h} # (&@zD@L}.Liv"vvv n c_ R&.v(v vvv$=.JhpqhpT(&@v@`;Lp.pq &%  67 &E$ON&쨀p(&z.& 7 H ON"쨀p$HdLN&\.Lp@(Fhhz.e&f&   v v v !N.& v v v 6 6 6 6 .L    w>v.r Da.    . f0z, >  &  .H$hPshHxhh^0hpqh"6(.c@0z,@pqLXʫ.   @e.r222w "r.wef"f&&"effL.B EQSMENA &.  z  ѕAU  &f&.)  B A @  A @  @ 7% .  D%"& N % B. Be %e B A @ N .0 B    m B A @ 7.Vm A @ m@ m60    8.|      C B A D 6 vn.e\   > pr.        B A @  A @ P p. @ 0 B A @  .    @:Rh(@L .06vL @        B &.j `@ `   &f&.\h-X`(L@Q.,w :  \4- Zw  . FORT "f"eU%f." } e &f&f'.@-.쨀p Lp@(b쨀phph.e&&   v |N v Z.& 6 6  hv .L `.r   @ (%..% D %e% %.e @ D   mm@ &.0     A C . v %\     < er. @   %  @`|.-X (Ef fef % f`V. :& @f eff  TE0.{2 rw&`   . K   e .$w7V @&,#W.  * W.AAa 3A &.&` r.`;( 1pv.00  @  @ EV    p.Lp@(Z,ihhK. N A f C %.&C B    \ yL     p.n}L(jiZhC.&fD !%   .& % e A %%̠L.9pq` ȕ`   D&.-  f&f&& @&.hvhpB(@@-X@w7@`;.@@pqL`p.`;p w oh@8h@8c (@`;@pL(d.`;p  5   @ &L   B f&\J.p L@(}@j(2w""h_.fͥ DC 5!  &awB (}.pL(.wL^@@&(}@(K f9h.& e@ S O@ Xh@8 (@`;@pL(l.`;p  h@8h@8+ (@`;@pL(i.`;p w -h]۩h]h]h]c. (@`;@pLd.`;p  9^Z.&B Ӌ% *.4 ,.Le0  ˕ p. +C (.r/E ! ѝ7 * . * W=ws ((}" z'N<-.嫀pXLpq@@z&(}@(* ""h.B   `ȋ }C pq1 &wS (}h]h]+ (@`;@pLi.`;p  h] (@`;@pLl. A\0  h@jC (@L@j.6\&f)h4Sh4Sh4Sh4S.ph4S (LHpH.=.@QXLp@(}@!&(><@hu~@h,. @ fff&6  & D!wp(}.˫XL(}@(*y}h.@  A _0x  &wS (}.DLDz@Q@.,0z@(}@($vLDh\qh\\hfOhfO hfO(LpP.\  hPhNOhssc(LKO.P e  &0_0^e f_.ah@h,6(LK.   sh(.@  & !&fA8 Dz&U.& DP . 9/5 $.L350%@-xt7$uQ($.r` ` 7 5> %iQ.4 >@ABCDEwf$ Q (}f    .Baz