&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  .   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.:.0Lv@8@ON@.(}@(f;h pphv; h.f)A Nwff[ "(}.&e7 8  4ONv@88.L@@w w&  +(}(}.r ( Cå å$ נA  .:  e` . %  å.נ0נ9@.')&CDpf\  \ 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. %?RRR .  r( R    .0ew W  W  AG  (} GVe@e$.?Q.,@8XL""@(,@8h& !W? "":.WL(}@(w+h6xh . =7` =j   jl.&?AA @ ("Ԫ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].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.RaAa@  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 !%@8Lp@(J3Wqh.@ V  A ,& W@@&\  $pl.D@8Lp@(JAWhh. @ V  A ,& W@@&\  $pl.s@jLp@(}@0(X shX 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@8L(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" @#.D!  e@ & & f .&@ A&  (phL    w (}.ɫ}Lp@(}@(Hzy}h0.A e@ & f@V*& A&w   (}pq.WL(}@(a WhHa \h.CD$  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' @% .& 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 ( % 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)]L(]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+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.&,.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&  &/@ PCBP.LA& aw @ E (}.r  w@;\)8A;\)pC[\/ p(}Eys@‚=L.xdLp@(}@!(dh.@ ? C8  F1  &,.&B@ BBCP.LC e&0.r a@    0. N A f C%.&v   \ L   p.n}L(RiZh[.&fD %   .& %e v vv vLf&\.OKL(vhr&csshONhPh2  \.tL17""@ݩ}@@D`@^@n7%HL(7""h7%h7@)h7 qhP7h.Ps@`;@p@FnL(pw3Xhp@(}@ON@Ԫp@:@vp@쨀p@>7XL(<7'h7 'h&ev+L(j7@h7 h7h"7h7@8h 7>h7Kh 7phԪ@8@f2,L\77\77\& $.%L(p;iwhq.;xhCiwh*CxhJihFJh8{JiwhbJxhT.77\77\77+& "&.&\77\77\77&  &,L\77\77\9& $3"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@(}@&(+h0h4(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\\.tL5L(Nht:h@`;@p@D`@^@NfKL(Ne&h@`;@p@>̫]L(̫@`h`;@6A@L(A=hjFL(H Xh@p@VKHL(w&h(}@p@@쨰"@7>(W 6.%L(pKih.KhK)qh*KrhKiwhFKxh8ihbhT.7\7\7& "&.&\7\7\7P&  &,L\77\77\C& $.%L(piwh*.xhihhiwhF7. ^BPv ^.&BA  &.Lw 1@rz5@3e-?p (}p.rv9?uοMc?kA`5?I2f?(*@& A/rz?[7r(.L(hh &\d.@8L(" h&h@8hphG(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.H* V  \.ԪL( Ԫh(VEC&\".vLp@(<vh,.VECDABu&&\  pz.vpLp@(HF&{h{h{h C""""""" """"""""""""""""""""""""""""""""""""""""""""""""""3333333333333DDDDDDD@DDDDDDDDDDDDDDDDDDADDB B C'jL^.(mS^.N&S^. S^. W(S^.:'xd^.R^mxd^.[g&xd^.bn xd^.kw(xd^.r~jL^.M{ (. rkQ. s&y.'s&.$D""""""""""""""""""""""""""""""3333333333333\b8a ͋,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@QL(<@Qh}h&(}@,@8@@6,@8XL(,@8hnvWL(+h6xhp@(}@ON@Ԫp@6@vp@쨀p@!~sWL(rvhWh.@(}@Of@ON@Ԫ@N7\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(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.DLDz@Q@.,0z@(}@("vLDh\qhsh(.@  & !&fA> Dz&W.& DP . :/5$.L451%@-vr7"tQ(".r` `%7 5< %Q.2%<@ABCDEw%  Q (}W 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\hZ     .Baz   .KL(&,h@hi.f e e.OKL(csh_ONhPh  \.9LL(89Lh.9Lh Ah((}h_h \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@@^_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 (}`.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@xd L(dh@(}@Of@ON@Ԫ@,@p@v@i@@~+L(/+h/0hp@(}@ON@Ԫp@:@p@vp@쨀p@jl+L(+h0h@(}@Ofc     .Baz   .KL(&,h@hi.f e e.OKL(@hQ&cshONhPh  \.9LL(89Lh.9Lh Ah((}hdLp@(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("xKhf.DLDz@Q@.,0z@(}@("vLDh\qhsh(.@  & !&fA> Dz&W.& DP . :/5$.L451%@-vr7"tQ(".r` `%7 5< %Q.2%<@ABCDEw%  Q (}g_h _hΫ(dh0.f f\f@ feX \ eX&\@a\Ba\xh+.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     .Baz   .KL(&,h@hi.f e e.OKL(vhJ&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_h _hΫ(dh0.f f\f@ feX \ eX&\@a\Ba\xo.DLDz@Q@.,0z@(}@("vLDh\qhsh(.@  & !&fA> Dz&W.& DP . :/5$.L451%@-vr7"tQ(".r` `%7 5< %Q.2%<@ABCDEw%  Q (}pt;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@s     .Baz   .KL(&,h@hi.f e e.OKL(vhr&cshONhPh  \.9LL(89Lh.9Lh Ah((}htshh8h<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(}@7Nv.DLDz@Q@.,0z@(}@("vLDh\qhsh(.@  & !&fA> Dz&W.& DP . :/5$.L451%@-vr7"tQ(".r` `%7 5< %Q.2%<@ABCDEw%  Q (}w_h _hΫ(dh0.f f\f@ feX \ eX&\@a\Ba\xx .ʫ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@W6n}L(jiZhFp L(2w""h(}@@.pL(z     .Baz   .KL(&,h@hi.f e e.OKL(@h&cshONhPh  \.9LL(89Lh.9Lh Ah((}h|*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~_h _hΫ(dh0.f f\f@ feX \ eX&\@a\Ba\x XL(h: Nhh\hjdh^ݩh@QhOhehPOfhTOfhOfhOfhOfhOfhOfhOfhOfhOfhOhh0OhhOihrO(ihOPihOQihORihOxihS4hUhU؁hUhU(hUPh6Uxh(}h"@jhh@h hh_@(}@FON@,@8@p@9L@@@v; @Iq@(.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@Vdhje;@@@}@U@S2@OPi@ON@A@-}@,0z@@Q@7p@7@8@7%@7@7@7 @>7@@+]@ݩP@ݩ@c]@쨀>@@8@.XLIq@v; @$.@@9L@p@,@8@.ON@(}@_@(h:. Nhh\hjdh^ݩh.@QhOhehPOfhTOfhOfh.OfhOfhOfhL(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@Z~pL(Bphphphvh@-X@7w@`;@@pq@6@QL(`-XhC 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,ITYPOfhOfh_.OfhOfhOhhOhhOihr.O(ihOPihOQihORihOxih.S4hUhU؁hUhU(h .UPh6Uxh(}h"@jhh&@h hh.&f&f 4j 7 $ON&9L(m.&7 67 VF, _6o.L7 7 ` 1 F*ON 9L Iq%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ʫL(6쨰"hpqh0^hhHhPsh$,0z@pq@ FL(TphpqhJv@N}L( #}h`;hDz@@ZNDdXL(BDzh@D`@@>L(&hE,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_`$r W    %. )%[&  e Lb,@8J.T 7 7 7 e*ON9Lv;  _" [.n %\e\ j+&f e2 &.67e  767  ON"9L$v; (.\7 f w| _ f((}. 7 L(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@S>;}L(x7wh@>6v L(Xeh6*%L(7hf9LL(,9Lh9LhAh(}h_h_hΫ(dh$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 \  p(.0\ \ l#7 7%. $\ .    ` `Ca p. p%\ \& *.@>OJ  -$[.f \\ 7 .  Ca.w   .N\ 'L(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,yh6AVARIABLE 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 PRO.7&! p vb7X.$ d P VB7.J:\@a\Ba .p"7  j .\  Ca .hwh\&\ 7 7N.&\ 7 78Ca 7 |. \fA    [..R wA f  R#" F(}V.Twͥ@r\p\ r\,Lp\ r\bhAPhhPh"h Ph&GxL(T;h;h;ph0;shBChCh Cph6CshHWhWh(Wph<WshNnHxL(0;vh;yhCvhCyhJvh$Jyh*Wvh WyhnIxL(0JhJhKhKhKphKsh$Kvh,Kyh*JxL(HhhGRAM 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%  {  (}.z pw%7B D (}W  X.@8@쨀>@c]@0.ݩ@ݩP@+]@7@@7 @.7@7@7%@7@8@7p@.@Q@,0z@-}@A@ON@M.OPi@S2@U@}@@.@je;@(h*7 ph$sh6ë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.Nx0 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.ON@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$ .TITLE $DVB .IDENT /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:L(X~OxL((chch khkhrhrhsh sh$hh.ggL(.hgL(.igL(.jgL(.kgL(.lgL() 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 (E,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 .WORD 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 .%L(.%L(.%L(.%L(.%L(.%L(*"L(l҉hbh$h $h$)h 2hhlhThYhbh^%OaLBX(' 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),DEVICE 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 CO(;ЉhJЉ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(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 FORT0010037p7% } 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%uUNT - 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,:YMh }h&C\}h@@(}@w@ɪKr@VXL(HXh@@w@ɪKr@6ɪKrL(:ɪKrhLNwL(whhXhz@6(}XL((}hB&PL(.RdXLOQi@( ~ 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 ACf\f\@5}j\0,0,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/ OfhCaw  OQi+.O@8L(OhehOhhOih  \.0Lv@8@ON@.(}@(p;h pphv; h.f)A Nwff[ "(}.&e7 8  4ONv@88.L@@w 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 DIAGNOSTIC 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 .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 w&  +(}(}.r ( Cå å$ נA  .:  e` . %  å.נ0נ9@.,)&CD%?RRR.  %((  R  <.0  ew W  W  AO (}!VQ e@e$.? Q.XzXL(}@( Iqh8x 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 03 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 RSX .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/ .Bwx (}v.XL(}@(i&h Nhh wy (}.DdXLORi@( OfhOfhCaw  ORi*.OdL(O(ih .OPihOQihORihOxih\.˫dL8 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 B 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 YTE 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 (Ϋ@yh \.ݩ}L(ݩ؁h '.ݩh ݩ(hݩPhݩxh&&&&\~.U}L( U؁h?.UhU(hUPhUxh\.dL(dh.OfhOfhOfhOfhOfhASE = 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- 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 ADDIT.BYTE 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 &Ca\\(.S2XL(S2h &\Y.@8Lp@(@8he \* p.E@8XL(E@8h \.@8Lp@(/@8h@LOOP 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 FORT004004ION 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 \ p.L(h$   `\ `\.@L(h@h:\\j.KLp@( hX  \ \a px.XL(h7 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 NON 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  \}.쨀>L( 쨀>ha(AaP AaH \!.}L( h  \\T.HiL(S4h7@a&\.Ϋ@XL(Ϋ@h 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 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 \a.ΫdXL(Ϋdh@a\.Ϋ@XL(Ϋ@h \h.]Lp@(2h&]h;. @` B N *3 &FT  V .+]L(+]h]h:.vTED I/O) FORT008002 LINKAGE ERROR (DIRECT-ACCESS I/O) FORT008003 SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED FORT008004 SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED FORT008005 SYSTEM ERROR NO DIAGNOSTIC MESSAGE ASSIGNED l& 6   k.&v  -& a   d .L e0f`e0#   e.r %  V  ӕ* * v 'd @U.c]L(c]h &]h]h۩]h.E DE66.&6Df& & )mЕ 6 ?.LA N v B .r'  C B A  . W - P e^.   4   b. 6 L I-E6 $. 6 mm  m.0  Օ0Օ.v!.VՕ0 v   .| 7 m N. v n O.  ӕ-ӕ ˕0 e:\.3e%V f& h. dD C B A eC B A @ eB A @ eA @ e.:@  6&f * & m .`C B A mB A mA c  e.f C B A @   $.eӕ* v W!,v*(&f~.&     R . eC B A eB A eA e@ e%  |.ev!6 ͕- 6  v!.D% Օ1 -Օ.- e&j0     .@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@8L(c@8hi@8hg.& &f&f& & & A& & $mv.&"$    DE v!$w+.L--  'DE 00L.r    9Q  0.  &aB A @ v!$ևN    ./#   cw&a. 23   w ze/. . vv    w(EH.0DN " v!$DE+-.V v!$܆DE 009.|0 ` av!$  ` "F.w    f& .  mB A @ mA @ m.@ c  e   C.e--)Bݤ.:6 C B A @ 6v ".`$eV w  J>. &f 8 2&f . eB A @ eA @ e@ e B A @    g.-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 '.]Lc@8@c]@.]@p@]@۩]@+@8@i.+]@@8@]@@8@]@:.@8@(]hh. "w85$"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]"]$]&۩](+]~.]]~ c@8 @8@8@8. w& "1 %"+@8@8@8{.A-(-ȥ,  f t`4-z.84T  A--Y T.^䃀 fc4-w fk.f "& - & & 5 V.V& ` vN .-6  "& -!.v !v N 4 o.   C  ! &pj.B w5 5 5 w.h `P  w  j$`` a.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-h1.& m G  - ^$7w((p!.& b c  "r  &D`.LN "|eS`.rr 1e5  .  "rr4^.2   5 # je;" w e   7"".:@8L6Ps@7'@(.7 '@7 q@-@]@5(896qh-h:.&   ]6Ps -$7'& & w 7 '.]Lp@(f+]h. "B  &C.&f  " "L   pz.pL^@D`@`.@ݩ}@97""@7w@(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%HLp@`;@.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\HEpCHC.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 I.ra .%e  K. F\  ak.t A @ A @ A A A A E4.% Q-   %  X.  t&* \*&*Ԫ@8 Ԫ@8"*).0 v4m%% XNV4m  w0U.L^@D`@.p@`;@@(Nh,t:h. M W   r ^"D`&.&  \ P  7p"`;b L.fKLp@`;@&@(Ne&h.  e\ 11 .& 1 \  <p&p L `;.̫]L`;@(̫@`hQ&"  `;.A@L(A=h&&"5 \.Lp@@(H Xh.  1 9%5  *&%\   pp"p~.KHL쨰"@@e.p@U(}@(w&h.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@Y("F(p!h. W [W Yt  .&ff "-X*.L e  G   %e.r "  %5M.e   \ .  &.          .K]L(}@( IqKhA@Awj (}.HL(}@(Nh#CCwQ (}.B+L(}@(|&?h Cew (}.K@jLv@zy}@.쨀p@vp@p@,@ON@a&(}@(sh2.fEffE f&7 $"v,"ON$쨀p&$~.&. %Df&&&f&d zy},.Le7 XD w_ ON vpX"(}*r eew %(}pm.+L(}@(XhAQ$@Aw (}e.2L#@쨀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*ONi쨀p  S4S4.p6 @\.vp쨀p쨀p vp pԪpp!.4CC\/ C\     \.D+L/+@a \@.v@,@@@(}@(D+ho.f@&$& %f&Ea \@(vk&& f& %w,/+, (}^.=dmL+@#@y.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@(qGvhcWhp.& fEf f& f6x,"+&,O.&&) EU% f&& @f&7 #,.LZlv\ &*ONvpZ 쨀p lpv.r \76   7 &ON(Ԫp.  \e7 Ԫp.  \  % ONԪp uԪp  w 6  (}.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.@QyL@,@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 (}.xd L@i@y.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  em h(}(LX(}.  F&   \]b,!J& & w2 r7 < ~ F.!LR 3.L5@e35@7  (ON{r* v Ԫ.OfԪ  ԪԪKZ*Ԫ Ԫ ԪE,Ԫ  ,Ԫ.$$e Cf$$Ԫ $p.&&&&& \\j X.&  v b.@&f&( E5<. $    m  ^ &. ;BazhXhhw&(@Lw. &MU  && &.hKrɪ:(LKrɪ.w& (\\z.r1@\ r(7[?\.@ w-?v9?uοMc?kA`5?8 (}&fI2f?(*@ A/.L(hh6 6 \r.@Lp@(}@(bpHh.W( BC @ bb@ be .&K @    &*Krɪ$G v@ eދ.lhXH(@@.E@w@KrɪLX. ԇ Aa% c  " &@.) #' (@.w.$$ 90ZAKrɪ&  B e  e .]ۂF! Q   AC $  CKL  wp(}u.WLp@(}@ (\phf.W% BC @ bb@ be .&K @    L  wp(}.@8L( h&h@8hph(    \.W  N |.Y & C #--ACV.F +% w w 0.((}&"(}B w w  ww . h\}C&h}b hYM:(@@@(}.@w@KrɪL.>\\PPPP\P <&.\\\.Bh ʫBh L(}@(7/xWh A@AD@ D wE (}.KLp@(}@i("xKh *DD A @  w p$(}].ѪWL(}@(RhD@@/ Ċw (}.ɪL(}@(Iʫ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`JhJ,hP;h`;QhD@@/ Ċw (}.ԪL쨀p@Ԫp@.ON@p@(|Ԫh.&7   ONԪp.&7 47 L, ON Ԫp쨀p4$ON&Ԫp(L.L7 feONԪppfre\.v.h;\(LPa%.\\\\\\ +hЉʫhЉhЉ hЉ۩hЉJ.PhЉ;(LOa%.\v\  C CL(B FB&.!:$>62. *#:>62. *.hbhYhThlh񊕫.L쨀p@vp@.p@Ԫp@ON@p@((vh,.   @  .&  2   \& ^  pp$L 7 ,ONԪpԪp쨀pԪphP*Ԫpp  ԪpԪp.v\)$쨀pvp  vp:.\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 $.   (Llg.(Lkg.(Ljg.(Lig.(Lhg.(Lgg.p\& \e\\b\ \\\ \e\g.'hh$hs hs.nhr) . 4 4.&  %`   `œ .L b\ @`    (phr\  \s p~.I@8Lp@Ԫ@8@y&ON@(W9h.&&f  7  (ON{.&* 7 <   Ԫ@8*ONԪ@8<.L\ \   \e [r \ hrhkhk hc.hc((LOx.X(LNx.\ &\L&\&\ &\e&\g&\\ \&.\\\\\ \\e\\g.;NhyG<hv(hhHhy6hv.l hhBhy0hvh.hT(LMx.J\\e\& \e\\ \3 p.Ԫ@8Lp@(r:Ԫ@8h'. -  (  &C B.&   B` Ë   .L  \   \  \" &pj.ԪpHLp@(Ԫph.&f f & G   .& v  76   .Lp  d deA \\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\g.@ A @ .r%  A @ 6vW. %\%      "pn. `@ `  ` `   .ԪLp@(nԪh.&f f &  6  h.&  6 v .L%w     6  ).r   .  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&. e B A @ K. 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.hyW hvW*hyJ$hvJhyChvChy;.hv;0(LHx.\ \L \\ \e\g\ \&.Y\\ \e\g.NhsW<hpW(hWhWHhsC6hpC. hChCBhs;0hp;h;.h;T(LGx. \g\g &s@Aa\g  ,@QLp@(}@(8@Qh$@@ w Z(}pq.) Lp@(}@(j8vh @ w (}py.:L(@+h,h:h .6 6 &  f 6A h"& v  6@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 &@Aa\e N\.s+L(}@( i-h(CD@ D wt "(}.a L(}@(*vhC@ w (}.bKL(}@(*\@hIB  w (}.rLp@@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&d\@a\e \ X@e(*rh.v v N \%% &  &pj && \>.vppLp@(vph.&f  & N & . ) .&   v   R.L  C 6  %%.r    6 6 %> pr.   Dv   0e.%6@f]f.$h(dΫh_h_h(}hAhL9.hL9,(LL9.M&nh7(L%*.V &s'z""0.<'E .C<V' .^<U'z<T'.  6  E v v ·ͅ.%\ @        .v@8Lp@(Xv@8h. #    &  .& B  BB`   \ nL\ \  p.vLp@(vh.&f    & N & QV.& E<S'M.<R'fr.N<Q'zL.u<P'z&.xX8 :.<O'zxX8:.heX(L v.r "&  0˥ "L. :& e & rr&. 1.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 @ :.|-  - --*.   rr r 2 rr2 .)hw7 x(@L};.&p7ehjh0z,hQ hXz h#t(@7.@p@eL,.T 1 1 1 1 1 &&>  15% >.hwD  T  ;.EpL(.Ephc.   B -  c&e \n.EL(>Eh. B - -  &-   e \.EXL(,Eh.# - - - h`DD(LvD.}" w  A`  @ .h &(@"L.`D   r&$O W <   .}hzDB(@&@`D@LXdD.< zD& 0 !e& \.vL(}@(htA@@ Awk (}.}L(}@(P}h6h2.D C %U.&     @  wf &(} L&\.L쨀p@ON@,&(Th hy (h`;h} # (&@zD@L}.Liv"vvv n c_ R&.v(v vvv$=.JhpqhpnT(@vL.pq &f0z, >  & %.ee  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.    .H$hPshHxhh^0hpqh"6(.;@0z,@pqLʫ.   @e.r222w "r.wef"f&&"effL.B EQSMENA &.  z  ѕAU  &f&.Rh()  .   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 @  .  @L .06vL @        B &.j `@ `   &f&.\h-X`(L@Q.,w :  \4- Zw  . FORT "f"eU%f." } e &f&f'.@er.-  @:.쨀p Lp@(b쨀phph.e&&   v |N v Z.& 6 6  hv .L `.r   @ (%..% D %e% %.e @ D   mm@ &.0     A C . v % @   %  @`|.-X (Ef fef % f`V. :& @f eff  TE0.{2 rw&`   . K   e .$w7V @&,#W.  * W.AAa 3A &.&` r.`;( A %%̠L1\     < pv.00  @  @ EV    p.Lp@(ZihhK. N A f C %.&C B    \ wL     p.n}L(jiZhC.&fD !%  .9pq` ȕ`   D&.-  f&f&& @&.shvhphphp.B(@@-X@w7@`;.@@pqLp.`;p w oh@8h@8c (@`;@pL(d.`;p  5 .& % e    @ &L   B f&\J.p L@(}@j(2w""h_.fͥ DC 5!  &awB (}.pL(.wL^@@&(}@(K f9h.& eXh@8 (@`;@pL(l.`;p  h@8h@8+ (@`;@pL(i.`;p w -h]۩h]h]h]c. (@`;@pLd.`;p  h]h]+9@ S O@^Z.&B Ӌ% *.4 ,.Le0  ˕ p. +C (.r/E ! ѝ7 * . * W=ws ((}" z'N<-.嫀pXLpq@@z&(}@(* ""h.B   `ȋ }C  (@`;@pLi.`;p  h] (@`;@pLl. A\0  h@jC (@L@j.6\&f)h4Sh4Sh4Sh4S.ph4S (LHpH.\\=pq1 &wS (}.@QXLp@(}@!&(><@hu~@h,. @ fff&6  & D!wp(}.˫XL(}@(*y}h.@  A _0x  &wS (}.DLDz@Q@.,0z@(}@hfOhfO hfO(LpP.\  hPhNOhssc(LKO.P e  &0_0^e f_.ah@h,6(LK.   zBa($vLDh\qhsh(.@  & !&fA8 Dz&U.& DP . 9/5 $.L350%@-xt7$uQ($.r` ` 7 5> %iQ.4 >@ABCDEwf$ Q (}f    .