DIRECTORY DT1: [ 1,1 ] 07-SEP-73 TAPE .DIR 3 10-AUG-73 <233> 137514 FORTRN.OBJ 71 20-AUG-73 <233> 126000 OV0 .OBJ 71 20-AUG-73 <233> 126000 OV1 .OBJ 82 20-AUG-73 <233> 034000 OV2 .OBJ 101 20-AUG-73 <233> 070400 OV3 .OBJ 94 20-AUG-73 <233> 172400 OV4 .OBJ 46 20-AUG-73 <233> 104000 COMDGN.SRC 14 10-AUG-73 <233> 162725 FORDGN.FTN 5 10-AUG-73 <233> 166614 FORCOM.DGN 21 10-AUG-73 <233> 173317 F.yXLL@~@p@.%@K.@oM[M@. H Ai&} ppoTd(p.  E  w! Jp$pk.07a`DF^$pLL$e%=.VW!@W  mՕ Օ #yKe% N.r D ! ҕ^e@ |. eF <Se%e%." W0Օ 7 7  ie% "e% >. H Ai&} ppoTd(p.  E  w! Jp$pk.07a`DF^$pLL$e%=.VW!@W  mՕ Օ $m N!$z (ay.w  a &  UaPM aL^!x. D  a w .e =.+ .EVEN .CSECaPMaOM!T .=.+.$$$$. ...&f P  *e.T   mmxz g$z .zD D D EE <ܟ<S&BxC.&fm& &%#䒰",,.LvA #wB P##H.r# ,#)¥'C CV  T[. D& wE#< ADp< 9w\.  7   .$T[ YZ,YZ.L w $ S J& L\gWa ax$S(aOMR. R\ E%   R,.0 - % , "T[&s" e%@p.| >el-h-` $e%""""t!"""v$"".   f e% e%$/d)  [] ERROR  a\ga\g4  @vLGi+ vL$G.t!f>Lg'@g@./@/D@ @Q@k<@Ba@.z@ @dy@@!S@.!ܟ@!'s" e%@p.| >el-h-` $e%""""t!"""v$"".   f e% e%$/d)  [] ERROR  a\ga\g4  @vLGi+ vL$G.t!f>Lg'@g@./@/D@ @Q@k<@Ba@.z@ @dy@@!S@.!ܟ@!(f& *Fgz .  <m  @gz . `%` @A L @%.` l .  .8       f a.^@a   1/D"e3l. & $   ‹¥,!2T[. <l ¥(! J" & o T[.¥, 6 ¥,¥)  T[T[).V U •)/ )),&F T[.|u ,  "t" T[,$ @Q&RP w, @Q R\gW @QB./w' W!ݦ,R @Q R @QR. C ` ` C V 3  @QR$V(\gW ww A. @QR @QRa-!X. )w *@#@ #}@a'`@.,*K@.L@vL@vL!@R@.Ww@a@a @a$@a&@.aOM@aPM@a N@aL^@aw@.ay@a*}@:dS@:d`@:d@+.gS@g`@\q@ar @rv~@C.s@wr @wt8@w`@z @.z\@z@Bx@I@@<(0t!fh.f     `A  w 0 &a .&#& +@#@ #}@a'`@.,*K@.L@vL@vL!@R@.Ww@a@a @a$@a&@.aOM@aPM@a N@aL^@aw@.ay@a*}@:dS@:d`@:d@+.gS@g`@\q@ar @rv~@C.s@wr @wt8@w`@z @.z\@z@Bx@I@@<(0t!fh.f     `A  w 0 &a .&#& ,?. <0  =<  &"[M& Nm; *<"5 *`S:dS:d`z [M3.>C C C Ee & [M [M.d>%  */D!2 !2&.2DmC f aD f   z .11 7 `/D!2$! .0 7 7  :B  !6!-   "aWa%aPM.B wH< *w . " <9w\a $axZ.h )w 0 ,< (a%T[a !$<(9w\. w .  )Gw 0 a axT[&a , 7L 5P .a% NazL\gW:dS:d` q,\g @Q R @QR* E .7 5 $zg'gSg`$g',LA 5@w + ,*aw a$a*}w`a $ayO(pEm @   |*!g z g'a*} aL^.@ @ @ EC X 5&  !$g'~.  05S*a*}aL^ !Bx"z(w`. f w  !(aya$!aPM &aL^v.5w /7 5 $zg'gSg`$g',LA 5@w + ,*aw a$a*}w`a $ayO(pEm @   |*!g z g'a*} aL^.@ @ @ EC X 5&  !$g'~.  05S*a*}aL^ !Bx"z(w`. f w  !(aya$!aPM &aL^v.5w 07&!7.D b  Dl7!7!7 !6&!6." e  J"&  !2.HeLlL p PD p$!G.n DB <J"@  U.f ?w ;@ 7 E$a ay!"!%&!. /Bm<  .z %`%S!%$z (!%.f @w ; w , ;$1 1*a-! aWa%:daL^    .ay! @QR @QR.$ BLIRDCXADHLEND=ERK*a-! aWa%DH L .JR= $PSH0 dkrx $FIND $INR"dkrx.pI $INI $INFI $OUTRI $OUTI $OUTFI $ENCD $DECD0,0 .:L;gL) O@ @Q@.@-Z@a@z@\_@.fH@l26X (!aPMBa"#(/D.(   r q*/ rv~k<dy"z&k< .N &  w0 $vL! .Lrv~\q(,*KN.tw m7 7 t-7  .aPMm .Lwt8rv~"Ww(wr ,. k&5-P w zgSg`&aw\.*  ZV M B 3aPM*z(a;( 36X (!aPMBa"#(/D.(   r q*/ rv~k<dy"z&k< .N &  w0 $vL! .Lrv~\q(,*KN.tw m7 7 t-7  .aPMm .Lwt8rv~"Ww(wr ,. k&5-P w zgSg`&aw\.*  ZV M B 3aPM*z(a;( 4a aya "!%&ay.D7 m*! z !%! !%&z .,@  wBmU2.%[! @z  %S"%`&%[.RE   ` f ' %2!%0*x7 4w 0 w ,!(7 !aPM0!%"ayY.+ f  "(a  !6!aL^"!&L, wD7!,m55S@t!@!@#,@.,*K@,@-@:@vL!@Q. NS@ Na@R@T[@a%@.a-@aOM@aPM@aW@aL^@O.aw@ay@:d@:dS@:d`@.:d@gS@g`@\g@\gW@.y@e3l@(r:L;h{L?h.@ . j ~.fHj\gW @Q"R( @Q_.&  7 ,65 & w w .a*} :dS :d`ayaPM"aPM. > ;E& Fz,,  e  C* aya$za*}$aL^0.P  w, ?!a*}aL^!.v<w A | 5A*a*}a*}a*}wr "z(w`.&5"    :dS :d`ay'.75 & w w .a*} :dS :d`ayaPM"aPM. > ;E& Fz,,  e  C* aya$za*}$aL^0.P  w, ?!a*}aL^!.v<w A | 5A*a*}a*}a*}wr "z(w`.&5"    :dS :d`ay'.G&U*a0M !!%z  ,S",\a. ~w 1 pw +C.,S,\a z aPM1!% a w.   f b!aL^!!(7.0. = t zw m , .t!taPM !6$!7.Vf  w  wRCm5(aL^!aPM.KO&z .|U Cm f $,S,\a ,S,\a!79#HRa- aW NS Na&a.L /( w + -ZT[$,.r);Cנ נ=7  :  Na(aw<. 7 , ) ! :T[T[j(7 H T ,:d :dT\gW @Q-#.  Cנ נ(" @Q- a-aWE.  w ^UA( NaaPM^zE   Bx$aOM.dwew # w a aL^$ C$ 5.a'`  a'`z:dS".* w    w C$:d`aPM$aPM&.PF w  w #  CF?( awaPMa ay"aOM (v w   *aw !ar a'`ar a'`J.z F   Bx$aOM.dwew # w a aL^$ C$ 5.a'`  a'`z:dS".* w    w C$:d`aPM$aPM&.PF w  w #  CF?( awaPMa ay"aOM (v w   *aw !ar a'`ar a'`J.z DDDDDDDD """"""""""""""""""""""""""""@DDDDDDDDDDDDDDDDDDDDDDDDDDDD """""""""""""""""""""""""""""333333333333DDDDDDDDDDDDDDDDDDDDDDDADDB C8}@z %'^ 1G%Na^ 1G&Oa^ RWPa^ eeQa^ )^ Ra^ *.%&y ['&( '%& ''jL #'xd 0mjL 1mxd f jL 1 xd f&jL g&xd (jL 1(xd f 4X =$D333333333 %4; ҷ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 I 7 d(s dydyvL"a N. ͵c)͵`w "ͽ$ RaPM"" @Q( @Q.w +H F͵@@ ͽaPM+ H( @Q], w 3L  w Vw , @Q aPM3Lk<"aPM$V$,P  w f U,aPMP rv~k<aPMf!o.Hw D7aA&& 7 w (a& #}  &aPM(&nF J 7 d(s dydyvL"a N. ͵c)͵`w "ͽ$ RaPM"" @Q( @Q.w +H F͵@@ ͽaPM+ H( @Q], w 3L  w Vw , @Q aPM3Lk<"aPM$V$,P  w f U,aPMP rv~k<aPMf!o.Hw D7aA&& 7 w (a& #}  &aPM(&nF K . =.+ .EVEN aL^ !.&eAf& Q.e& &AmC g$z . l!ee R$ .0  < "i !&!2,V&@ w & 4ayaPM"ay.#"Lz@!U@!ܟ@.!@,@WS@W`@T[@.aPM@ay@:dS@:d`@(fLgS g`y.* wZ f& u$ Na:y) O(T['.P( , )   (:d .v w  f   -Z,(T[.= ӝ 7 0,:fHlSfH"t!(:.N j T7 -Z" NS&vL! 7 7 0,fHvL! fHvL!:\_f.=[ M w w  , awa$aPMaPM. F 7 7 *ar ar awa$ ar &sT"w w w ,  aPMaPMaPM".e B 7a& & *ar s,.7 $w F 7 P. aPM ar awa$ ar &s,w @E w * a :daL^aPM$ @Q(<J N w w  , awa$aPMaPM. F 7 7 *ar ar awa$ ar &sT"w w w ,  aPMaPMaPM".e B 7a& & *ar s,.7 $w F 7 P. aPM ar awa$ ar &s,w @E w * a :daL^aPM$ @Q(<J O#"h. % # "5EUx*,zWSW`"!U$!ܟ"&5w \ .!ܟ:dS :d`aPM\ay!-@,  :Wt .GLOBL 4 T[$. z(Lz@<U@<ܟ@g.!U@!ܟ@,@2@2,@r.WS@Ww@W`@T[@:d@.:dS@:d`@:d@rv~@wS@.w`@zw@z\@P)wZw, -:vL!T[,$ 831* NS NS-Z NSa Na.H0-,N . Na -Z NS NSN \gW(-Z*n  e F k,aL^-Z!e\gWF"\g . @QR @QRa-!b( &  *aW! Naay#,,w7Qw "w < Jw X.R aPM"aPM<aOM"aPM*\"w @ J w "w D ."aPM @aOMaPM"aPM D.~JJ&E5@2 zIaOMz!ܟ!SQ.   f7 deVW ~" a Ndyz"z\.ѕ,ѕ B-> .dyI"dy&dy.E 7 "wwv ROUTINES ndy a N CALLED: Rw "w < Jw X.R aPM"aPM<aOM"aPM*\"w @ J w "w D ."aPM @aOMaPM"aPM D.~JJ&E5@2 zIaOMz!ܟ!SQ.   f7 deVW ~" a Ndyz"z\.ѕ,ѕ B-> .dyI"dy&dy.E 7 "wwv ROUTINES ndy a N CALLED: S((h(h zrh,Y7 y 7e* rv~:d2, Ww$z($  fU E*z\ 2,zWSW`:d$D PE*<U<ܟ :d<ܟwSw`.` -~ "(zwrv~zw"zw&T[_*( 7 :Ue-3* :d,z:dS:d`":dTN 5P `.y NazN\gW:dS:d` _,\g @Q R @QR* E  *a-! aWa%:daL^   .ay! @QR @QR.6 BLIRDCXA $PSH $PSHR1 a-! aWa%V\ $PSH, $IO $IOF J.XL? %@@z@c.] X@dy@lSU  "." .GLOBL $READ $WRITE $DC$IC$LC.HI O .END .GLOBL $OTSV MAIN. .n.GLOBL $EXIT $EXIT : MOV MOV -(%.0),-(%6) JMP @(%4)+ .EVEN +10,f.%0 BR +4,%0 BR MOV -(%0),-(%6) v. (%5)-4,%0 ADD #10,%0 ADD #4,%0. . = .+: 0 : 0,0 : 0,0,0,0 :  ,MOV.t!y뀻Lt!&@t!'@.#@T[@9w\@e3l@(8it!hV  "." .GLOBL $READ $WRITE $DC$IC$LC.HI O .END .GLOBL $OTSV MAIN. .n.GLOBL $EXIT $EXIT : MOV MOV -(%.0),-(%6) JMP @(%4)+ .EVEN +10,f.%0 BR +4,%0 BR MOV -(%0),-(%6) v. (%5)-4,%0 ADD #10,%0 ADD #4,%0. . = .+: 0 : 0,0 : 0,0,0,0 :  ,MOV.t!y뀻Lt!&@t!'@.#@T[@9w\@e3l@(8it!hW.( ,) :d :d:dT[* EUU7 U7*!U !ܟ!ܟWSW`:dl.Ʃ 9678 ,:d rv~"T[).u:L@z@.!@,*K@,@,Xz@.t@.a%@a0M@ay@9w\@@&e3l@(u:hI. Z  X@!@'&@@.a'`@,*K@,@:@T[@.a$@aw@a*}@+dI@:dS@.:d`@:d@gS@g`@w`@&(Xht!h*. ! 0-"lS T[lS .& f&   [ lS+dI$a'`(a'`u.L@ T =L ,DT[T[ .r D B ?W=:Y.   . ""e3lT[t!' .$9w\&w48FILE# t!& 48.y:}?L/D@) @.E M@p:@@%@%p@v.0M@L@{d@dy@p@'.}@t!@!2@""@""g'@\.""v@a'`@'Q@X(`9@\(Xa@.%,%@2@3؁@X:*}@x:@.:k@O;@o;@@A@@vL@.vL@Z.   . ""e3lT[t!' .$9w\&w48FILE# t!& 48.y:}?L/D@) @.E M@p:@@%@%p@v.0M@L@{d@dy@p@'.}@t!@!2@""@""g'@\.""v@a'`@'Q@X(`9@\(Xa@.%,%@2@3؁@X:*}@x:@.:k@O;@o;@@A@@vL@.vL@[ G.e3l ,*K,Xz,Xz.t&a0M.& V DL I a0M,,Xz<.L nW(F C @ TW,; 2,).r 8 5 : 0 / o",9w\",n., W)' W,  !"6.    z{$a% zayza.|}~ .GLOBL $DEFIL   ,\ B @6,z",. =W,8 5 3 0 ɋ z,.W,%   "ɋ,": .1f )./BF '&@,S. = 0  BM:,*K lS$a*}.0EUP  Lf!$w`gSg`aw!.V CF !*? %awa$!"dy&] X)| ]vLD@vL(F@vLxF@vLF@l.vL$G@vLG@oM*@ Nk@ N"@(. N#@ N@N@oTd@^k@.^"@^#@^M@_ 3@_oM@Q.T`K@T`|N@`@a\g@>aH@F./d@/dZ@4d(@s@s"@.s&@s;M@9wY@wz@wt8@z.y""@y#@yp:@yK@yvL@?.yM@ys@yM@nz @z @?.z@zt!@z""@u~@~@.t!@ D@,@Bx@(^vLD@vL(F@vLxF@vLF@l.vL$G@vLG@oM*@ Nk@ N"@(. N#@ N@N@oTd@^k@.^"@^#@^M@_ 3@_oM@Q.T`K@T`|N@`@a\g@>aH@F./d@/dZ@4d(@s@s"@.s&@s;M@9wY@wz@wt8@z.y""@y#@yp:@yK@yvL@?.yM@ys@yM@nz @z @?.z@zt!@z""@u~@~@.t!@ D@,@Bx@(_U,9     .X:kLL@z@<S@.<U@<ܟ@dy@#S@#`@.X:*}@Ww@T[@wr @wt8@.z\@I@( X:kLh.  9(/  T[T[ (T[i.&-   N ) " T[T[(T[y.L ,M ,) T[.r `eTTTTTTT $POP2 J*Da5ÜE$ zz:dS:d`:dT.^p:L @Q@] X@dy@.lS@!@:@vL!@R@.a%@a-@aW@aL^@aw@=.ay@+dI@\g@\gW@( ~\_hQ.(  & !$ vL!lS+dI dy$lS.& e$$ ! a(.E U(h!E =hU(h=h#U(h.#=h #}h}s}h\z8whf 7 7 7 77*>aH {dt! D0Mwz&s,) T`K T`|Nnz vLBx.6!! s&Bxz""ys oM*$vLF.\   ` vLxF",(,y" 7 *3؁ 2 %b(.E U(h!E =hU(h=h#U(h.#=h #}h}s}h\z8whf 7 7 7 77*>aH {dt! D0Mwz&s,) T`K T`|Nnz vLBx.6!! s&Bxz""ys oM*$vLF.\   ` vLxF",(,y" 7 *3؁ 2 %c   3  X:*}. 7 2 &ef wt8wr z&z\u. B  5/*dy Idy"#S$#`^. E EP,X:*}<ܟ<S<U<ܟ <ܟQ.E,eL@&S@z@.<U@<ܟ@@,@,s@.K`@YZ@`@@+dI@\gz@b.wt8@z|@z&@zT[@d] X ] X.L ( ,,:\gW.r , ,ĕO ĕP \g&\g"77 +. @Q R @QRa-!N.  H  <  0aWa%a% a%. CF 5 5      a%aw! $ENDD!     ayaL^.; e,%a\g'Q&7 7  ^.N` O;%,%a\gQ.5`׭ .,x:vLxFvLxFx:p:$q.  ѕ?ѕ ѕ ѕ w p:x:"x:&vLF.0& f$(^k.,/EW 7 /EvLG" Nk.R ~W 7 /E  N# N# :kf,%a\g'Q&7 7  ^.N` O;%,%a\gQ.5`׭ .,x:vLxFvLxFx:p:$q.  ѕ?ѕ ѕ ѕ w p:x:"x:&vLF.0& f$(^k.,/EW 7 /EvLG" Nk.R ~W 7 /E  N# N# :kg(*E,ehO.f& W- ~ |%YZ YZ ,.&y ѥ,t e&&& & zz|"z|&z|.L W- W U%Rѥ)Oo,.r&f&& e   YZzz|z|.( (&  z&"&k.$Cfe e&  `@hL) ? @ @Q@.z@!@-@:@a%@.a-@aW@aL^@ay@:dS@.:d`@:d@\g@\gY@(? %h.7  5ĕP .) ?  \gYz:dS:d`$\g.& I e0 *:\ga-!$\g( @Q L *- @Q -a-!aW_"d5im.x VW E@*vL(F y#y#y""(nz B. -ASU -Y,` `nz  N N&Nj.-LIU0-. NNnz N N$ N. *  B8 N O;*q. @ H$P  wASLIERONCKSU nz *6COOPGOdP\v * dP\vF.jm.x VW E@*vL(F y#y#y""(nz B. -ASU -Y,` `nz  N N&Nj.-LIU0-. NNnz N N$ N. *  B8 N O;*q. @ H$P  wASLIERONCKSU nz *6COOPGOdP\v * dP\vF.k+dI"wt8&wt8.(e e e ] &S(\gzz,s( e YZYZ.<@?LS@`@.,S@,\a@/@ @Q@k<@R. 2@ L^@@@%2@.%[@z@<@<L@<@C.<*K@<@< @<@<@.<S@<U@<ܟ@uS@u`@.!@%z@a'`@E,e@,@$.l  *a%z :dS:d`:daL^~ $POPay!:.? S>@L,@@.z@!U@!ܟ@#@#,@v.,*K@,@SLdf@W,@T[@~.wS@w`@ z#@e3l@( +? WhKh.fB= & W)#,*K z#".& ɥ( ( z#.LmX 7()  wzBxBx&s&.~7  wr  Ĕ{ss"""g',.0! ”0   . ``ע,ע/ע 7  "vL.  Ĕ0 7ע,ע/ T`|NO.ע $vLFvLxFvL(F"yp:&vL(F(< w F7 d*vLG vLG N"yM N"Q*nX 7()  wzBxBx&s&.~7  wr  Ĕ{ss"""g',.0! ”0   . ``ע,ע/ע 7  "vL.  Ĕ0 7ע,ע/ T`|NO.ע $vLFvLxFvL(F"yp:&vL(F(< w F7 d*vLG vLG N"yM N"Q*o,W@,Xz@.KO@.t@KR@.K`@[M@ Nm;@R@YZ@.`@@a@a@aOM@aPM@.aL^@aw@ay@+dI@BxE"@j.BxF"@BxI"@Bx}@z @z|@M.zT[@Bx@@e3l@(#<@ha&h. f  @B#$e3l/,Xzk<".t.&¥/ @ɋ  ɋɥ, w b3&aPM(b.Lp7EpEP   SLdf #,].r = )( T[$e3lL. f     #,*K,$T[.(  ɥ  ɋ  z#,F&&5EU* zwSw`!U!ܟ!ܟ zW,.09L? W@L"@.@@!@#,@a'`@.,q\7    Z,yMvLG N"vL$G^#`,~Xw 7 .^# ^#vL$G^"^M$^"$7 (^MvL$G^"`vLD 7 7 *E ME M vLDvLDE M.B!H y$E MvLDoM*oTdvL.`wFed- @!  yKoTdyvLp.r\7    Z,yMvLG N"vL$G^#`,~Xw 7 .^# ^#vL$G^"^M$^"$7 (^MvL$G^"`vLD 7 7 *E ME M vLDvLDE M.B!H y$E MvLDoM*oTdvL.`wFed- @!  yKoTdyvLp.s 77 .CSECT c&k< .KO,Xz%z\.rf7 7 7  : v$< < <L&z. R+ N  ,<ܟ<< .  , /   <L+./ ed ɥ//I. 7 v H  mK*<  <  < $<&z$07 &*z z[M,Xz Nm;t*K@.L@49@y@D9@x:*K@5.`@@a@a0M@aPM@aw@.a*}@9w\@ z#@(09hB9`"h~.wt & W) W= z# ).& E V %Ep L",*K.LU    & #,a0M!$(a0M(r F [*! a*}a'`aw! a'`.u" ? _ee!PwwFZX(`9"\(Xa&_oM\$H  e*yM t!\(Xaz z zt!de /*zt!zt! \(Xaz zz*z 7 <6 *wt8a'` /dZvLu~ /d7 7 7 7 &*'Q/D %%p!2X(`9g(Е Е *_ 3X:*}X:*}X:*}X:*}*w7 7 wv" ? _ee!PwwFZX(`9"\(Xa&_oM\$H  e*yM t!\(Xaz z zt!de /*zt!zt! \(Xaz zz*z 7 <6 *wt8a'` /dZvLu~ /d7 7 7 7 &*'Q/D %%p!2X(`9g(Е Е *_ 3X:*}X:*}X:*}X:*}*w7 7 ww,XzD.L<ĜE%{ &*<` Sk<%[$%2E.r   r dww"a aOMz!*e<U  M.%[ ,\a,S,S,\aay". 8 G    F(aOM!aOM z(!#! 5 =. . =. =|a'`<*K a'`  5*ay z <z <<x  w77   p*D99w\x:*K49@y.Lx:*K.$F:   k`@a0M&x:*K(7 f w e1.? Wx:*K,*K.L#,aPM C.E&ȋ w  &a!aPM &a.$     . : m !".J e W, e  a0M.pS C ! WyD7 *""v"" 9wYy""y#" N"},wZ7 ww@*yMvLG^"^MvL$G$dy. 3*  70"%,%nz *(nz e.> Օ/P OՕ:ĝ (T`|NE.de0Օ, Օ Օ  dy $a\g(`M. D ! %,&vLD4d(A@!"A@.  w J7 +*zD7 *""v"" 9wYy""y#" N"},wZ7 ww@*yMvLG^"^MvL$G$dy. 3*  70"%,%nz *(nz e.> Օ/P OՕ:ĝ (T`|NE.de0Օ, Օ Օ  dy $a\g(`M. D ! %,&vLD4d(A@!"A@.  w J7 +*{. f &+ GuSu`z$a'.8 aC 7gBx}aL^BxI"< .^h ' Vm. <  @QR <$z (%[. +   . aOMaya< BxF"(aL^&  w . =w (!aPMaPM @Q.w $PC=. .=$PC .EV{(R aPM  @Q|  L"5.0 U  .GLOBL $TSI -IRD .GLOBL $TRTST .E,eL@&S@z@.<U@<ܟ@@,@,s@.K`@YZ@`@@+dI@\gz@b.wt8@z|@z&@zT[@(*E,ehO.f& W- ~ |%YZ YZ ,.&y ѥ,t e&&& & z}""v"" 0Ms0M&vLxFK.7 • !•SvLF }}(L,   % 6.o;@%,%a\g""v""y(   ,%,% a\gs&s""(@ =*%,% a\gvLxFvLF~,`wwl  .L s;MvL(FvLGvL$GvLDl.f1 f~""v"" 0Ms0M&vLxFK.7 • !•SvLF }}(L,   % 6.o;@%,%a\g""v""y(   ,%,% a\gs&s""(@ =*%,% a\gvLxFvLF~,`wwl  .L s;MvL(FvLGvL$GvLDl.f1 fR EN U .  mP ɥ(]ɥOt*<L <L<z YZ.Pɥ"MɥZMɥRMɥ-@ɥ+ Q (,.@L Jɥ*&%I C7 7 zz|$<L.fɥ(1ɥ- ɥO!ɥZ!ɥR!ɥ+ YZ* # ! <7G*,z<z <zO.     QYZ,W,i7 jz|"z|&z|.L W- W U%Rѥ)Oo,.r&f&& e   YZzz|z|.( (&  z&"&k.$Cfe e&  `@+dI"wt8&wt8.(e e e ] &S(\gzz,s( e YZYZ.:dw>L) ? @A$$$yp:! OPTIONS =  %,%vLG2# 0000 ERRORS %,%vLFS.4d N(^EXECUTION DELETED FATAL ERROR. IN ASSEMBLY PHASE e mfvL /d[.$  D  DaoM*oTdX(`9\(Xa.J D  D  DS"A@A@_ 3_oM,p D  e,A@A@%,%A$$$yp:! OPTIONS =  %,%vLG2# 0000 ERRORS %,%vLFS.4d N(^EXECUTION DELETED FATAL ERROR. IN ASSEMBLY PHASE e mfvL /d[.$  D  DaoM*oTdX(`9\(Xa.J D  D  DS"A@A@_ 3_oM,p D  e,A@A@%,%EE*E,e<L<ܟ<S"<S$<.   0w^ - << <2.kÜ " x nn Bx$BxK-Dd %% 0  daOM<<j .j Ü  E | Bx K`$KR.&&  )&w T"K` K`K`&aPM(T.E%0 EC E<ܟ <) @.? S@? `@ @Q@L"@d@u.@%kQ@z@O@@~@$.uR@u`@!ܟ@!@""g'@m.#,@#xQ@%@@a'`@'~@>.E,e@,@,@-@-@Y.:@{L?@ N@R8@R@.oTd@Y@Z @T[@a@\.a @a%@a-@aOM@aPM@.aW@aL^@aw@ay@a*}@D.:dS@:d`@:d@ev@gS@`.g`@\g a\gA.  **COMPILER ----- CORE**vL/d. PHASE USED FREE DECLARATi.IVES XXXXX XXXXX EXECUTABLES XXXXX *XXXXX ASSEMBLY XXXXX XXXXX E.s;MLa@vL$G@oM[M@.^M@s@I@(s;Mh.!   ?&oM[MoM[Ma^M(^M.& ѕ< W  E."IvL a\gA.  **COMPILER ----- CORE**vL/d. PHASE USED FREE DECLARATi.IVES XXXXX XXXXX EXECUTABLES XXXXX *XXXXX ASSEMBLY XXXXX XXXXX E.s;MLa@vL$G@oM[M@.^M@s@I@(s;Mh.!   ?&oM[MoM[Ma^M(^M.& ѕ< W  E."IvLSz|.E& & & &   %%"&z|`@ aOM6.w LE  e  aPM Lz|(aL^/.(  J&,  .4Ja"!.NWORD .BYTE 377& # @ /" L^.t@ @ @a &  @ 5" 2.@ @ @ @a  5$%z(.w7e z$ z%zz@\gW@g@9w@[@.wr @wS@w`@y @y@J.y) @y'@}d@~W@(.) Ohd) RhP(NhH z#hv.e!_0$ oTdy 9w@[ .& 4'1'* $*&f$ydevR8&y*.L ߊ W  W) @~ @~y.r  ?_' y:{L?"$GI"vL$Gb.LU0ѐѕ:  ѕ. r ^MI^M$I6.r EFs a.5& /CC,SY:FTNLIB[1,1]/L/G  &.O @vLDzz  -.axLL"@@a@(@axh. ɥ0   D L"#"&%ɋ$GI"vL$Gb.LU0ѐѕ:  ѕ. r ^MI^M$I6.r EFs a.5& /CC,SY:FTNLIB[1,1]/L/G  &.O @vLDzz  -.axLL"@@a@(@axh. ɥ0   D L"#"&%ɋ"&+dIQ .Cy NL@g@Z./D@@@z@<S@.<U@<ܟ@uR@uS@u`@%.!@#S@#`@&K@,*K@m.,@,R@.t@S@@a%@.a0M@aL^@aw@a*}@:dS@.:d`@:d@:d@gS@g`@.9wY@wr @wR@w`@y @.z @zt!@zT[@Bx@؁@Y.@@@@@YF.(  ʆo g& T[E,e"k.ߋ 5x5nK.z ""g'wSw` ? S"? `k. Q&E Pl  yd.  = O$46  1 dY.04 &*U* eu# gY|.VCEEBPBe៣*y N&,.|P(0>HNBCCBE.3, aD.2,Lk<@d@!@(.,*K@2@2H 2@3}@.`@@a @a0M@aPM@aL^@.ay@9w\@wz@z\@(n2,h\2h . .TITLE .CSECT .GLOBL : JSR %4,$Ph.&OLSH .GLOBL $POLSH,$NAM $NAM,0,0,L .GLOBL $SEQ  \$\ w .2 aPM z\ay!2G(x3, aD.2,Lk<@d@!@(.,*K@2@2H 2@3}@.`@@a @a0M@aPM@aL^@.ay@9w\@wz@z\@(n2,h\2h . .TITLE .CSECT .GLOBL : JSR %4,$Ph.&OLSH .GLOBL $POLSH,$NAM $NAM,0,0,L .GLOBL $SEQ  \$\ w .2 aPM z\ay!2G(x.@@@@@.@@(@P@x@.@Ȃ@@@(=.u!h Nm;hljh@h2.N e 6 6 * &K"&,&& %E*zzw` wR\.D5 W( e *:dS :d`(z.jeҐE P  @  0R yZ.Q PRT!f _ %@ &.) W( H _ _ 0/ ~WH$.Q P_(_BE@Cy(.:%FK    ( y) ? T[,`_  &&f&. ::) ? ) ?  y$}dk.&E  ,)C,zu`   w  ,3}a0M a0Mk<aPM $ w e w .ay! ayaPMz\aL^-$, w L(a  aL^!wzaPML.i9N?L @Q@k<@.z@!U@!ܟ@!@a'`@.,@.L@2@2@3}@u.x:*K@vL!@R@a@a @.a0M@aOM@aPM@\g@@\gx@z.wY@w   w  ,3}a0M a0Mk<aPM $ w e w .ay! ayaPMz\aL^-$, w L(a  aL^!wzaPML.i9N?L @Q@k<@.z@!U@!ܟ@!@a'`@.,@.L@2@2@3}@u.x:*K@vL!@R@a@a @.a0M@aOM@aPM@\g@@\gx@z.wY@w   E <ܟ"  e6 *Bx.6 6 ! t w  I$ ,.m k  eW,W)c  &.  E?E2Q G .t",*KX(   ^,a0Ma0Ma% wr >"<UA *zgS uR}d@~ ,."  ,)"   ,. ,)" ߊ U,@~(}d.p & }dy) ? ":. & _tEpU  :y) t%kQ(T[.B, &fK" @~y'"y&}di.h& ( #F $}d@~T[$}d(y.z@x`@z @z\@.(pthh 2h L^hhL"h.hdhhh~hd.!hp&Kh,,hv,*Kh,8hxC..KOhj.th6.th~.hnKht._MTqh NhlR8h^ThbHXhr.YhjT[h`hf`@h(a$h.a%ha-haWhaL^hawh8.ayhayha*}h+dIhevh\5.\gh\gWh\gYhgh`9w\h@Ihre3lhz@x`@z @z\@.(pthh 2h L^hhL"h.hdhhh~hd.!hp&Kh,,hv,*Kh,8hxC..KOhj.th6.th~.hnKht._MTqh NhlR8h^ThbHXhr.YhjT[h`hf`@h(a$h.a%ha-haWhaL^hawh8.ayhayha*}h+dIhevh\5.\gh\gWh\gYhgh`9w\h@Ihre3lh g`awa%.VE & )& *:d :daL^a%&|E   `*wr z :d:daL^!p.es* z"&/.e&  5*zaL^ z$:dS&:d`M 5 E* :dS :d`zw`. w .GLOBL $ADJ Gߊ K /¥,¥) d @~T[Q.  %)Xf  2 Z . 5$ ,)< z:dS:d`T[.‹% 7  EP—i(@~;.& P   ` a'`.L )!  Un oTd"a'`&a'`x.r&   }d}dy.& ߊH_.B09AZ6.&!w  4, @QRaPM $a'`(a'`"LS  *x`! @QR @Q.fS w  .GLOB,Rx`aPM @Q RL $TR $TR, =.  I.ĕ:ĕ,ĕ fa\g@\gx$\gx. wf w7 0$\gx\gx.B09AZ6.&!w  4, @QRaPM $a'`(a'`"LS  *x`! @QR @Q.fS w  .GLOB,Rx`aPM @Q RL $TR $TR, =.  I.ĕ:ĕ,ĕ fa\g@\gx$\gx. wf w7 0$\gx\gxwR $/D,$ l6 v6* (/D($,Hve 4 5*Px uS"u`,lm 2 EE:*gz  (PBx$<S.2Q l3 $E ~$<U(<U<ܟ P. E3QU W, ɋ *<S <ܟ#S#`$.W, feF  @~oTdfeF 솁, oTd.,?L) @) @.O @ @Q@%kQH&S@&d@.&`@R`@z@@O@.@~@g'@q@`^@t! @}.!ܟ@!@""g'@# @#xQ@.#g'@%N@'~@,@-@.-@:@SLdf@ N@!Nq@b.#N`^@R@S @WD,@Z H.T`|N@a@\gx"\g@&\gx.w  .GLOBL 8\0o"aOM aPM $\(012456:?DHLp.124 5 6:?DHL.&PTX\+-***/.OR..AND..NOT..LT..GT.PTX \i.L.EQ..NE..LE..GE.   b.r  U t  >.&  &Cå å$ נAQ.  :  f.e`    å.נ0|. נ9\gx"\g@&\gx.w  .GLOBL 8\0o"aOM aPM $\(012456:?DHLp.124 5 6:?DHL.&PTX\+-***/.OR..AND..NOT..LT..GT.PTX \i.L.EQ..NE..LE..GE.   b.r  U t  >.&  &Cå å$ נAQ.  :  f.e`    å.נ0|. נ9e"&.& 4m$g&z .(" C C C E$  Nv3 *x zT[gz g?.f7E E E Eve $ g "Pv&wa- wE*zT[ zT[ zt!,Ry 9wY$  EE~*( S@(PuRuSsQa @a%@a-@.a0M@aOM@aPM@aW@aL^@.aw@ay@a*}@:dS@:d`@p.:d@:d@df2g@gS@g`@.\g@\gW@^q @sq@s`^@.wr @w`@y}@y@yO @,.y(@yt!@y2g@yp@yBx@ .y) Hy'H}@Bx@@.*(F@(,h(#,hW,hD.&fv  X $XB¥  ɥ ɋ DN.0 &f DW .VR &&f.|  Ëנ@ .e ee e ѐ  l.@(&fe B y.em&ff&ea0Mz "z\_. Z  e a0M.:&f $2 e $a0M.`W0W7B¥  ɥ ɋ DN.0 &f DW .VR &&f.|  Ëנ@ .e ee e ѐ  l.@(&fe B y.em&ff&ea0Mz "z\_. Z  e a0M.:&f $2 e $a0M.`W0W7eu`u` x1.> Lg@ @Q@.L"@@@%[@%`@P.z@<S@<ܟ@!U@!ܟ@O.!@#,@a'`@'@,@.,Xz@-@.KO@.t@YZ@.a-@aOM@aPM@aW@aw@.ay@:dS@:d`@\g@\gW@j.\gz@wt8@w`@wS@w`@. z#@z @z\@z@e3l@A(> h (.&G X  %9,X  #N`^}$w`&WD,$L X /_ ߷ .WD,X df2g}#g' @Q&h   .R @Q RO t! .$ e9.&d df2g%Nyyt!. J  .yBxy2gyO yp} SLdf&. B l    E0W0m. W9WAWFE7 e (x:*K.&̋ 7w .w '* vL!.La aPM vL!$wzB.  w :: $SEQv"aOM wY!a .,7mf& ɋ ɥ'.L.Lwz.!ɥ,ɥ/ɥ= ɥ(ɥ)  .D      ɥ'jɋ:.#q@8L(c@8h@8hE0W0m. W9WAWFE7 e (x:*K.&̋ 7w .w '* vL!.La aPM vL!$wzB.  w :: $SEQv"aOM wY!a .,7mf& ɋ ɥ'.L.Lwz.!ɥ,ɥ/ɥ= ɥ(ɥ)  .D      ɥ'jɋ:.#q@8L(c@8h@8h. 77f& ѥ(ɋ ,XzYZL"a.&ѥ)(  ɥ=  .L ׅ%5E` *,Xz ,z%`"!U$!ܟ(rU@EB   %*!ܟ <ܟ<S'.t z,w & =0.ayaPM ,z w`"wSZ. 5ɥ,$ɥ)! Ez\gzl#g'$#g'.e _ %A._"yO y2gy(".&y}',&   _ b .yO  y2gy2gyO g'"aPM$bl.8 _ } '^,g'aPM}yO y2g&y2gl.^;CONTROL STACK PUSH DOWN ;CONTRO yO ).L STACK POP   &d*(F(df2g.@    E#".& & &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 0.& & &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 0$z"  U*<ܟ<ܟwt8w`wt8:dSD.0 0  6ɥ,ɥ)P N:d`%[ gz .ɥ=M W ]Ep] z#&'.B&       Ee#,\gW'&h0 077 G.\g @Q- @Q-a-, w  m2 2  K.!aW aPMz z\ z&df2g._5%#*(F z:dS:d`.%%E%?. %   E8df2g"&df2g.B%%  %Z*(F R`"T`|N.h%%%W % 1. %  T`|NT`|Ndf2g$&d.  EG&d$(&du.0.|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 @    A0.|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.7^_: JSR %4,$POLS.KO,Xzo-H $POPR .GLOBL $RETA $RETA .:KfL> @d@.k@k<@t!'@t!f@""@^.""v@#@(@,0M@,Xz@.2@2,@X:kL@vL!@qQW@.SW@`X@@+dI@rv~@9w\@.wY@z@@@(o|h9wYh9w~\hP, w7 ' w7-1H H   ѕ$H  H &d&#N`^x,j jjjvc,j js`^j`^j R`$v+*$ |   P,|a*}aOM#N`^"!Nq$F   0*s`^ sq`^q+.be %#% (!s`^$sq(wr P,5% %*z &S &`sq.z*}fL@g@1.R@S@`@,R@,S@.,\a@? R@? S@? `@L"@.@@%R@%S@%[@.%`@&R@&S@&`@z@.<S@<U@<ܟ@@uR@o.uS@u`@!S@!U@!ܟ@.!@!@!@#R@#S@3.#`@&K@X(`9@\(Xa@,8@.,Xz@9@8@X:*}@KR@KS@c.K`@_MTq@ N@.z*}fL@g@1.R@S@`@,R@,S@.,\a@? R@? S@? `@L"@.@@%R@%S@%[@.%`@&R@&S@&`@z@.<S@<U@<ܟ@@uR@o.uS@u`@!S@!U@!ܟ@.!@!@!@#R@#S@3.#`@&K@X(`9@\(Xa@,8@.,Xz@9@8@X:*}@KR@KS@c.K`@_MTq@ N@ * #vL!t!f,Xz """""v,$   ,zt!'wY,0Mk< $.H  3 4 ڄ  eG9w\ k<`X@(d.n Ԅ  +    k<> * &f  7 *2qQWSW+dISW"2,.&   rv~9w\& .  ,   s`^,% y,R` R`s`^ "$&"(4  * ( 4x&   i*a%wr  zaya%aL^*&A  U s*a%awwr zgS g`,* _ + F ,wr za sqaL^$F.N& (  r z.&  S0@WR@0.WS@Ww@W`@YZ@S[ܟ@.T[@_oM@`@@+dI@:dR@.:dS@:d`@:d@:d@:d@.gR@gS@g`@bsp@9wY@%.9w\@wt8@wR@wS@w`@m.wR@wS@w`@y @z @.z|@z@zt!@zT[@zw@.zBx@z\@z@؁@@.@@@@@.@@@@@.@S0@WR@0.WS@Ww@W`@YZ@S[ܟ@.T[@_oM@`@@+dI@:dR@.:dS@:d`@:d@:d@:d@.gR@gS@g`@bsp@9wY@%.9w\@wt8@wR@wS@w`@m.wR@wS@w`@y @z @.z|@z@zt!@zT[@zw@.zBx@z\@z@؁@@.@@@@@.@@@@@.@@ (,9w\  0 X:kLcFPXais|x.FPX a is|*|.  .>SUBROUTINEFUNCTIONBLOCKDATAEXT.dERNALDEFINEFILEDIMENSIONCOMMONEQUIVALEa.NCEDATAIMPLICITENDLOGICAL*1LOGICALBYTE.INTEGER*2INTEGERDOUBLEPRECISIONDOUBLEC@.OMPLEXREAL*8REAL*4REALPXW PX & `^($df2g(r *t'  H  .yO  ypSLdfH#g' SLdf"df2go. H   F &  ,H  F& $ (#N`^*  &  .!Nq s`^sqR`&" 7*!Nqq #N`^ `^R`sq.%%.s`^!Nq #N`^`^}"`^.% %'@ @!@"@R.#@$@%@&@'@9.(@F@P@x@@.Ȃ@@@@R@.S@`@c@8@@8@( .&:h,h,Rh,Wh,sh8.,zhS@hd\gzhwr hFz&h:. 0   CaCa$ L"M.&` 7! h  zt!-.L @ @!@"@R.#@$@%@&@'@9.(@F@P@x@@.Ȃ@@@@R@.S@`@c@8@@8@( .&:h,h,Rh,Wh,sh8.,zhS@hd\gzhwr hFz&h:. 0   CaCa$ L"M.&` 7! h  zt!-.L    *k< kSW+dISW2,.axLL"@@a@(@axh. ɥ0   D L"#"&%ɋ3, aD.2,Lk<@d@!@(.,*K@2@2H 2@3}@.`@@a @a0M@aPM@aL^@.ay@9w\@wz@z\@( ([.#N`^ R`!Nqq$#N`^((e.>  @  ( #g'df2g}$wr (}.d %%%%.%  5df2g"wr &z-.'    .:dS:d`yO ypSLdf":( /.    H  & 3, #g'SLdfdf2gH$&*    & ,  T&5  L"g&rEEV!3*&S&` <ܟ<S<SK`D.`&$  z|.*w6 6v*F F"x$ea vA*Ȃ z|&K.6 ߁W"W. W'4E؁x L".ewPwev N*  T&5  L"g&rEEV!3*&S&` <ܟ<S<SK`D.`&$  z|.*w6 6v*F F"x$ea vA*Ȃ z|&K.6 ߁W"W. W'4E؁x L".ewPwev N*n2,h\2h . .TITLE .CSECT .GLOBL : JSR %4,$Ph.&OLSH .GLOBL $POLSH,$NAM $NAM,0,0,L .GLOBL $SEQ  \$\ w .2 aPM z\ay!2G(x   w  ,3}a0M a0Mk<aPM $ w e w .ay! ayaPMz\aL^-$, w L(a  aL   T`|N#N`^!Nq"&  &,  #N`^`^!NqqsqT*6  6 ,s`^#N`^R``^}"6,X  %  ).T`|N #g'`^q -$h,|    W.!q- $q=.  $POP $PUT %p"!  " (#N`^[. %   F"&,8.@v  E%=* w`wR"Ww(zw.f ^ew*zF$(r60Z* X:*}<ܟG,S0z\ S0 zwt8w`, W(U5%$*,Xz !ܟ&S&`"YZ*E R   *K`< F"&,8.@v  E%=* w`wR"Ww(zw.f ^ew*zF$(r60Z* X:*}<ܟG,S0z\ S0 zwt8w`, W(U5%$*,Xz !ܟ&S&`"YZ*E R   *K`<^!wzaPML.i9N?L @Q@k<@.z@!U@!ܟ@!@a'`@.,@.L@2@2@3}@u.x:*K@vL!@R@a@a @.a0M@aOM@aPM@\g@@\gx@z.wY@wz@x`@z @z\@.(pthh 2h L^hhL"h.hdhhh~hd.!hp&Kh,,hv,*Kh,8hxC..KOhj.th6.th~.hnKht   ~ r $ s`^ $~(r .` % h "R` `h R`$A& x  *sq!Nq!Nqx\gW>"0D pp .\g \g @Q^q  @Q^q .J    "a-! aW!L.p  $REV & $df2gR` sq& Nl.cĕ ĕ$ܟ KR"EE<*wt8zz<ܟ<SS(E! !*<ܟ<S N" NH.2 wT 61(z Nz $9w\ &X v ve . F&v $I UU*9@8`@9@8K`(wve .*<ܟ KR"EE<*wt8zz<ܟ<SS(E! !*<ܟ<S N" NH.2 wT 61(z Nz $9w\ &X v ve . F&v $I UU*9@8`@9@8K`(wve .*<._MTqh NhlR8h^ThbHXhr.YhjT[h`hf`@h(a$h.a%ha-haWhaL^hawh8.ayhayha*}h+dIhevh\5.\gh\gWh\gYhgh`9w\h@Ihre3lh.B09AZ6.&!w  4, @QRaPM $a'`(a'`"LS  *x`! @QR  S(,\g\g $\g(u,  & ĜH H ,\g!NqH \gH "\g& @Q  *#xQ @Q #xQa-!aWE. B  _   !df2g. H (}H \g @Q"-( @Q"D y*-a- !aW!(^  H # 9@8P $I  ~*`@ 9@8wt8w`"U0e *wt8 <ܟz\+dI&  ?De* N #z.ыW', &TN 5!K`K`&K`.*ԕ u 7BU w"X$ K`zT[YZ&S&`.PW'ы  Nz # 9@8P $I  ~*`@ 9@8wt8w`"U0e *wt8 <ܟz\+dI&  ?De* N #z.ыW', &TN 5!K`K`&K`.*ԕ u 7BU w"X$ K`zT[YZ&S&`.PW'ы  Nz  @Q.fS w  .GLOB,Rx`aPM @Q RL $TR $TR, =.  I.ĕ:ĕ,ĕ fa\g@\gx$\gx. wf w7 0$\gx\gx\gx"\g@&\gx.w  .GLOBL 8\0o"aOM aPM $\(012456:?DHLp.124 5 6:?DHL.&PTX\+-***/.OR..AND..NOT.ܩ.df2g \gWH \g @Q-~ _J, @Q- a-!aW!- $CMORANNTADSBMLDVPWNGLTGTEQNELEGE{,  ~ r ` *  sq~r "` .  ߋP *df2g    ""g'(P & H ĜH ,\gW *(FH \gH \g0"  c* N.vыDeT N$zK`&K`.  6 6 6 6 @* (Pz"x.6 6Da WHw$xxL".B w(W.BWEoWDl 0/ &,Xz,  ve $Io*9@8"`@"2 UUUe*9@8 <ܟK`& N.vыDeT N$zK`&K`.  6 6 6 6 @* (Pz"x.6 6Da WHw$xxL".B w(W.BWEoWDl 0/ &,Xz,  ve $Io*9@8"`@"2 UUUe*9@8 <ܟK`&.LT..GT.PTX \i.L.EQ..NE..LE..GE.   b.r  U t  >.&  &Cå å$ נAQ.  :  f.e`    å.נ0|. נ9B¥  ɥ ɋ DN.0 &f DW .VR &&f.|  Ëנ@ .e ee e ѐ  @QO @QOa-!l#8  r BIIRDCJX $W aW! r T .T   N @E%_?df2g N df2g.z ߋߋ@E _ $df2g  ) T`|N( (.  B &5&,  R`s`^z :dS":d`* _ J e_Z *`^q J BxZ". B  _ B.S.LE0Q @<w$&`wt8 wRw`.rw] 6 6 6 6   $(P $. 0     P   T[".   6 N"("e e*$ z\+dI.ewww$$ .$whwl6 wjf S.LE0Q @<w$&`wt8 wRw`.rw] 6 6 6 6   $(P $. 0     P   T[".   6 N"("e e*$ z\+dI.ewww$$ .$whwl6 wjf  l.@(&fe B y.em&ff&ea0Mz "z\_. Z  e a0M.:&f $2 e $a0M.`W0W7E0W0m. W9WAWFE7 e (x:*K.&̋ 7w .w '* vL!.La aPM vL!$wzB.  w :: $SEQ df2g#g'!Nq #N`^&O. J  _  (J `^qBxsq(`^.4 _   &%(sq q#N`^!Nq"#N`^B*Z  5.!Nq z&S&`Bx .| `  ߋ} "& S.  BE @  $)  - &*. @  _ $SBS j#_MTq 9w\.J T 6 6Da6z*xxx x(.pWEWDv T W+A(x"!.W-~6 \6Da xxx$z*.& -ER  -  (@8* ee8,   $&ve-DF *j#_MTq 9w\.J T 6 6Da6z*xxx x(.pWEWDv T W+A(x"!.W-~6 \6Da xxx$z*.& -ER  -  (@8* ee8,   $&ve-DF *v"aOM wY!a .,7mf& ɋ ɥ'.L.Lwz.!ɥ,ɥ/ɥ= ɥ(ɥ)  .D      ɥ'jɋ:.#q@8L(c@8h@8h.& & &f&f& & & A& & .&$m"$    DE v!$w.L+--  'DE 0.r0L    9Q $SBXL" !df2g#g',   <   y ,df2g < df2g  #N`^& R" ttX L X *  f_ ~,ttX  L  X  * !Nqf,    . R @Qa%!Nqwr .B Ò _  @E !(*z aL^ R @Q,h E 4`_  CF * '~ R @Qa%. _(bspT&"$R UUU*`@ bsp<ܟK`!@E0Qej*&S&` wt8wRw`"V w h*z\+dI $p 1*c@8 !"f.eE T w ("& $D U U*`@<ܟO"(bspT&"$R UUU*`@ bsp<ܟK`!@E0Qej*&S&` wt8wRw`"V w h*z\+dI $p 1*c@8 !"f.eE T w ("& $D U U*`@<ܟO" 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=- $SVSP $SVPA $aw!df2g}&. SVE@B &5@O"df2g@~"z(!ܟ$ 5_ 3 _ ,:dS :d`aPM3 ay!  _  . R @Q a%ay   E _ ^.R @Q a%:d:daL^. ß e ߋ=@E%(aPM  df2gaL^!@~c.F %@5 _ + E 55F*K` w`wR!U!ܟ&S.5   E $&` uS u`"<ܟ&<S. & f Br NS0$+dI..e`) `)  E @(S0 zz wS"w`b.TEm  5 z ",Xz(uS z555*u` :dS :d`wSw`#S&  W(EUEE 55F*K` w`wR!U!ܟ&S.5   E $&` uS u`"<ܟ&<S. & f Br NS0$+dI..e`) `)  E @(S0 zz wS"w`b.TEm  5 z ",Xz(uS z555*u` :dS :d`wSw`#S&  W(EUE9B.:6 C B A @ #"B .`A @ C6v "$e.΋V w  Jf. &f 8 2&f . eB A @ eA @ e@ e B A @    A.z*}fL@g@1.R@S@`@,R@,S@.,\a@? R@? S@? `@L"@.@@%R@%S@%[@.%`@&R@&S@ }a*}a "wr &z.l _ CEF _ B &ay aPM aw aPM" ( ×  3 _  ,@~'~'~aPM  aL^W. _  _ -1 $CA.! aPM  df2g@~#g'. LL $CALLP BR .+: 0 .GLOBL $RPOLN. JSR %4,$RPOLN .GLOBL $RPOL0 J.$ SR %4,$RPOL0 .GLOBL   &Y.J    &*#` !U!ܟ!ܟ wS.f 5E fE`m*w` zBx&S&`K`KR.w! w _$zT[zt!y 9wY"zT[.fE \1$zT[S[ܟ N"z &S[ܟ."ww7Uff&E*zT[z NzT[wSw`.Hff&& 7 m  Ww Nz .nE%  *#` !U!ܟ!ܟ wS.f 5E fE`m*w` zBx&S&`K`KR.w! w _$zT[zt!y 9wY"zT[.fE \1$zT[S[ܟ N"z &S[ܟ."ww7Uff&E*zT[z NzT[wSw`.Hff&& 7 m  Ww Nz .nE%  &`@z@.<S@<U@<ܟ@@uR@o.uS@u`@!S@!U@!ܟ@.!@!@!@#R@#S@3.#`@&K@X(`9@\(Xa@,8@.,Xz@9@8@X:*}@KR@KS@c.K`@_MTq@ N@S0@WR@0.WS@Ww@W`@YZ@S[ܟ@.T[@_oM@`@@+dI@:dR@.:dS@:d`@:d@:d@:d@.gR@gS@g`@bsp@9wY@%.9w\@ ,& &$*(F(!.p    g" "*(F&". F _ & O*  F$!Nq&sq. _%%  (#N`^s`^ !Nq#N`^".  ~ W   h y2g ~ h$. ~ %  h ~"y2g~h$y2g(~..% @ h w`wRS[ܟ(zw. . &f=z zt!$X(`9O. e w7e7bzt!zt! \(Xa.TRUE..FALSE. .2L G@{d@A.t!@t!&@t!f@i@y@_qt:@.z@~W@(/h h.y2gyt! $y2g. h | ~e*yt! y2gh|y2g~$y2g* P UW, a*}aw! z$gSq.   E g` wr , t! t!fz~W G(  w*_qt:t!&{d{d{d"i@y).aHhDahFNahhyshk&~h:t!h* Dh 3?   ***.*7 f&7 f e>, t! t!fz~W G(  w*_qt:t!&{d{d{d"i@y).aHhDahFNahhyshk&~h:t!h* Dh 3?   ***.*7 f&7 f e>( .&:h,h,Rh,Wh,sh8.,zhS@hd\gzhwr hFz&h:. 0   CaCa$ L"M.&` 7! h  zt!-.L  T&5  L"g&rEEV!3*&S&` <ܟ<S<SK`D.`&$  z|.*wz`(4_x _ ~ ,x~R @Q a%(T  ,zaL^!- S.t  $PA $PSHR $GET Z!"(,   ,- #N`^#N`^"!Nqhf(,!Nq hf*hhhh  ,hhh hs`^s`^ .PaD7 wE7F7H7@"|.`hahJa2hF/dZhLEf@QhD.y""hy#hyp:hyKhpyvLhn.yMhy h|z h~zhzt!h3.zT[hu~h)|~KhZh Zh 3C.; FORTRAN ........ FORTRAN .......-&. 00:00:00 00-XXX-70 PAGE 0000  L.L<Ex* x".rE= z. Nzb|.`hahJa2hF/dZhLEf@QhD.y""hy#hyp:hyKhpyvLhn.yMhy h|z h~zhzt!h3.zT[hu~h)|~KhZh Zh 3C.; FORTRAN ........ FORTRAN .......-&. 00:00:00 00-XXX-70 PAGE 0000  L.L<Ex* x".rE= z. NzbwT 61(z Nz $9w\ &X v ve . F&v $I UU*9@8`@9@8K`(wve .*<ܟ# 9@8P $I  ~*`@ 9@8wt8w`"U0e *wt8 <ܟz\+dI&  ?aL^&!.  ;POLPTR: ;@POLPTR: ! #g'#g'df2g  ;STK DEPTH: df2g X ;POL CLASS: y( .;T.O.S.: ;CURTYP: ;CVT:SER:OPR#g'y2g= @: \ D+D;CONVRT: ;INTERNAL ERROR *(F&dh"h _ *#g' #g'#g'#g'#g'#g'*Te   ",aPMTzE z&' .&z'y' NQ'^; Z Q;QP F.FdePQP "c l ru ry.*}*>@L( 3(@ .hng'h/Dh6) ? hn) h . @Qhkhk<hPkWh;hxU.%h$%2h%Zh(%ph-ZhzE z&' .&z'y' NQ'^; Z Q;QP F.FdePQP "c l ru ry.*}*>@L( 3(@ .hng'h/Dh6) ? hn) h . @Qhkhk<hPkWh;hxU.%h$%2h%Zh(%ph-ZhDe* N #z.ыW', &TN 5!K`K`&K`.*ԕ u 7BU w"X$ K`zT[YZ&S&`.PW'ы  Nz  N.vыDeT N$zK`&K`.  6 6 6 6 @* (Pz"x.6 6Da #g'aL^!g'"* _ % *g' %NT`|N"T`|N,   ;  *g'g'!df2ga$aL^ ! !M.#gL/@/D@%.? W@k@k<@\_@t!'@.t!f@""@""v@#@y@#@.X(`9@\(Xa@,0M@,Xz@2@c.49@y@x:*K@vL!@qQW@_ 3@._oM@`.0MhahzhjOh<h*;.<Lh4<h2<*Kh,<h< h0.<h<h.hv@~h h.] XhVdyhfHhlShVht.}h t!ht!'h!h<!%h>=.!h~!2h&!6h8!7h:!(7h|.""h&""t!hH""g'h""vh(#hR7.#xQh%@h%zh'&@ha'`hh.a'.hf'h'~h,Xzhp-h.-h.Lh2hT9@8hrX:*}h.x:*Kh:hvL`.0MhahzhjOh<h*;.<Lh4<h2<*Kh,<h< h0.<h<h.hv@~h h.] XhVdyhfHhlShVht.}h t!ht!'h!h<!%h>=.!h~!2h&!6h8!7h:!(7h|.""h&""t!hH""g'h""vh(#hR7.#xQh%@h%zh'&@ha'`hh.a'.hf'h'~h,Xzhp-h.-h.Lh2hT9@8hrX:*}h.x:*Kh:hvL WHw$xxL".B w(W.BWEoWDl 0/ &,Xz,  ve $Io*9@8"`@"2 UUUe*9@8 <ܟK`&S.LE0Q @<w$&`wt8 wRw`.rw] 6 6 6 6   $(P $. 0     P  9wY@9w\@wY@yvL@V.z@(,#hZ#`"hrD9hG:aSh9w@[h&( w7 'w M*# 9wYvL!t!f/D /" w*# #_ 3X(`9_ 3X(`9 :-  t*\(Xa_oM "" ""vzt!',R ؅ w.wY,0MyvL,Xz9w\"#@y?*v   !hV[Mh Nhd. NSh Nah NhqQWhRh7.US@QhzSWhLS0hfWwhrYZhq=.T`|Nh:dh=dyhb\g@h\gxh,.$q"har hrv~hpshbspht.sh$s"h%s&h#wYhlwzh5.wt8hlx`hjyMhLyhdnz h .zwht}dh~HXh\,hBxhQ䒰"h! 3C+MAIN.DATA.145 & & H.Hy!hV[Mh Nhd. NSh Nah NhqQWhRh7.US@QhzSWhLS0hfWwhrYZhq=.T`|Nh:dh=dyhb\g@h\gxh,.$q"har hrv~hpshbspht.sh$s"h%s&h#wYhlwzh5.wt8hlx`hjyMhLyhdnz h .zwht}dh~HXh\,hBxhQ䒰"h! 3C+MAIN.DATA.145 & & H.Hy T[".   6 N"("e e*$ z\+dI.ewww$$ .$whwl6 wjf 焃j#_MTq 9w\.J T 6 6Da6z*xxx x(.pWEWDv T W+A(x"!.W-~6 w.yvL? WvL!\_x:*K"49@y$.  . (,ENDFORMATDODEFIN.  (,.EFILEASSIGNCALLCONTINUERETURNGOTOIF(PA.USESTOPREADPRINTWRITEENCODEDECODEREWINDBACKSPACEFIND.axLL"@@a@(@axh. ɥ0   D   nn 9 A 56 )* V.Vw |s L+4  @7 ..$$$$. $$.T`*}>LyBxHd(7. 3(^)   nn 9 A 56 )* V.Vw |s L+4  @7 ..$$$$. $$.T`*}>LyBxHd(7. 3(^) \6Da xxx$z*.& -ER  -  (@8* ee8,   $&ve-DF *(bspT&"$R UUU*`@ bsp<ܟK`!@E0Qej*&S&` wt8wRw`"V w hL"#"&%ɋ3, aD.2,Lk<@d@!@(.,*K@2@2H 2@3}@.`@@a @a0M@aPM@aL^@.ay@9w\@wz@z\@(n2,h\2h . .TITLE .CSECT .GLOBL : JSR %4,$Ph.&OLSH .GLOBL $POLSH,$NAM $NAM,0,0,L .GLOBL $SEQ  \$\ w . hMO h&dhR`h@.hg'hqh|`^ht! h^5.# h#g'h%NhSL h~SLh4.SLdfh!Nqhx#N`^hS hDWD,h.df2ghr^q hUsqhzs`^hy}h.yhyO hjy(hpyt!hly2ghhD&yphn}hv*(Fht1 3h.hf.:?Lp:@a@.@t!@L@Df@%2@ hMO h&dhR`h@.hg'hqh|`^ht! h^5.# h#g'h%NhSL h~SLh4.SLdfh!Nqhx#N`^hS hDWD,h.df2ghr^q hUsqhzs`^hy}h.yhyO hjy(hpyt!hly2ghhD&yphn}hv*(Fht1 3h.hf.:?Lp:@a@.@t!@L@Df@%2@ *z\+dI $p 1*c@8 !"f.eE T w ("& $D U U*`@<ܟO"E 55F*K` w`wR!U!ܟ&S.5   E $&` uS u`"<ܟ&<S. & f Br NS 2 aPM z\ay!2G(x   w  ,3}a0M a0Mk<aPM $ w e w .ay! ayaPMz\aL^-$, w L(a  aL^!wzaPML.i9N?L @Q@k<@.z@!U@!ܟ@!@a'`@.,@.L@2@2@3}@u.x:*K@vL!@R@a@a @.a0M@ X.0M@%,%@x:@vL@vL!@.vLD@vL(F@vL$G@vLG@ N@.`@a2@/dZ@Ef@Q@wY@.wz@yK@yvL@|~K@~}@.~HX@( 3( !h,0Mh.o;@hNA@hH NvLhaha h?.a&hra0MhVaOMhaPMha Nh.a\gh/dhk 3C. @ $ yvL0M0M x:$vL(F2.&5` X.0M@%,%@x:@vL@vL!@.vLD@vL(F@vL$G@vLG@ N@.`@a2@/dZ@Ef@Q@wY@.wz@yK@yvL@|~K@~}@.~HX@( 3( !h,0Mh.o;@hNA@hH NvLhaha h?.a&hra0MhVaOMhaPMha Nh.a\gh/dhk 3C. @ $ yvL0M0M x:$vL(F2.&5` 0$+dI..e`) `)  E @(S0 zz wS"w`b.TEm  5 z ",Xz(uS z555*u` :dS :d`wSw`#S&  W(EUE*#` !U!ܟ!ܟ wS.f 5E fE`m*w` zBx&S&`K`KR.w! w _$zT[zt!y 9wY"zaOM@aPM@\g@@\gx@z.wY@wz@x`@z @z\@.(pthh 2h L^hhL"h.hdhhh~hd.!hp&Kh,,hv,*Kh,8hxC..KOhj.th6.th~.hnKht._MTqh NhlR8h^ThbHXhr.YhjT[h`hf`@h(a$h.a%ha-haWhaL^hawh8.ayhayha*}h+dIhevh\5.\gh\gWh\gYhgh`9w\h@ H (vL(F x:p:ap:H.L   ! Օ^e@ m.r\ Օ ĕ  7 7 a"0M.C? )נ נ0~0Mp:~HX.נ9נ  Ԑ7 -נ~HX yvL. נ  !-&"p:p:~HX&yvLr. Eנ 9נ -Dw~HXyvL.0w >w + 0)נ 7 H (vL(F x:p:ap:H.L   ! Օ^e@ m.r\ Օ ĕ  7 7 a"0M.C? )נ נ0~0Mp:~HX.נ9נ  Ԑ7 -נ~HX yvL. נ  !-&"p:p:~HX&yvLr. Eנ 9נ -Dw~HXyvL.0w >w + 0)נ 7T[.fE \1$zT[S[ܟ N"z &S[ܟ."ww7Uff&E*zT[z NzT[wSw`.Hff&& 7 m  Ww Nz .nE%   w`wRS[ܟ(zw. . &f=z zt!$X(`9O. e w7e7bzt!zt! \(Xa.TRUE..FALSEIhre3lh.B09AZ6.&!w  4, @QRaPM $a'`(a'`"LS  *x`! @QR @Q.fS w  .GLOB,Rx`aPM @Q RL $TR $TR, =.  I.ĕ:ĕ,ĕ fa\g@\gx$\gx. wנ`4-~0MyvLp:.V- b l wѐ/yvL yvL5.|m C å1å9 -yvLyK$yvL.w7 $~HXvL!0MyvL$0M.fvppl f@ `Vwz wY$@].  6 . - N6 .( N,  2 x:, `2a2 vLG"%2$vL$G&:נ`4-~0MyvLp:.V- b l wѐ/yvL yvL5.|m C å1å9 -yvLyK$yvL.w7 $~HXvL!0MyvL$0M.fvppl f@ `Vwz wY$@].  6 . - N6 .( N,  2 x:, `2a2 vLG"%2$vL$G&:. .2L/@o|@.%S@<@@u:@u!@{d@.!;@#"@(@i@y@9wY@2.9w~\@ zr@(dhh .t!hBt!fh>#h:#,h6`X@h l..&  &Cå å$ נAQ.  :  f.e`.80000 fh˕/DDevLGfh.^ 'd &f-Df &Df( -* %,%Df. s   vL$G` vL$G&vLD..  ,@ @ vL$GvLD. > ?& #`vL$G$vLD$.@  7R "%.80000 fh˕/DDevLGfh.^ 'd &f-Df &Df( -* %,%Df. s   vL$G` vL$G&vLD..  ,@ @ vL$GvLD. > ?& #`vL$G$vLD$.@  7R "%w.B   0(9w~\B{d {d${d({d~B wr{d i@y.aHhDahFNahhyshk&~h:t!h* Dh 3?   ***.*7 f&7 f e> .    å.נ0|. נ9B¥  ɥ ɋ DN.0 &f DW .VR &&f.|  Ëנ@ .e ee e ѐ  l.@(&fe B y.em&ff&ea0Mz "z\_. Z  e a0M.:&f $2,%&RI.<bR P 8. %,%R%,%vLG"Df&t!.b   f$ t!DfDf"%,%$vL$G+Ջ D w   j.7w ww  ' -  N&vL.8!&f  `ע0$vL/dZ/dZEf@Q"Ef@Q.ӕ  7 J* |~K%,%~}vL(%,%H,%&RI.<bR P 8. %,%R%,%vLG"Df&t!.b   f$ t!DfDf"%,%$vL$G+Ջ D w   j.7w ww  ' -  N&vL.8!&f  `ע0$vL/dZ/dZEf@Q"Ef@Q.ӕ  7 J* |~K%,%~}vL(%,%HPaD7 wE7F7H7@L/D@""@G.""t!@""v@( 3(8z""h 3C.&fW!UE!+  """"t!(/D&5!w ""i.L( 3(d.zLgH RH.SH`H,RH,SH@,\aH-.? RH? SH@? `H %RH%S"  vLG.""[M>L/D@""@G.""t!@""v@( 3(8z""h 3C.&fW!UE!+  """"t!(/D&5!w ""i.L( 3(d.zLgH RH.SH`H,RH,SH@,\aH-.? RH? SH@? `H %RH%S#LH<3}H.3؁H~}H6( 3(E MhV.E Shp:h^hahhQ2.t!hDfhh@hVhZ .%hR%2hNe%hLhi+h^(.iL,hb%h5'QhX(`9hv\(Xahx_.%,%hf2h2hx:h:khf.O;hvLhrvLhNvLDhvL(Fhx.vLxFhRvLFhnvL$GhvLGh NkhZe. N"h N#hNhoTdht^kh`.^"h^#h^Mh_ 3hz_oMh|.`h$#q@8L(c@8h@8h.& & &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%H.%[H %`H&RH&SH&`H,.<SH<UH8<ܟHuRHuSH:.u`H !SH?!UH!ܟH!He.!H !H#RH#SH #`H .KRHKSHK`HWRHWSH.W`HS[ܟH:dRH:dSH:d`H.:dH:dH:dHgRHgSH.g`H wRHwSHw`HwRH .wSHw`H z|HzBxHz\H.zH؁HHHH.HH&H.%[H %`H&RH&SH&`H,.<SH<UH8<ܟHuRHuSH:.u`H !SH?!UH!ܟH!He.!H !H#RH#SH #`H .KRHKSHK`HWRHWSH.W`HS[ܟH:dRH:dSH:d`H.:dH:dH:dHgRHgSH.g`H wRHwSHw`HwRH .wSHw`H z|HzBxHz\H.zH؁HHHH.HH'ahJa2hF/dZhLEf@QhD.y""hy#hyp:hyKhpyvLhn.yMhy h|z h~zhzt!h3.zT[hu~h)|~KhZh Zh 3C.; FORTRAN ........ FORTRAN .......-&. 00:00:00 00-XXX-70 PAGE 0000  L.L<Ex* x".rE= z. NzbzE (+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 HHH \.H"H$HH&H(. H*!H,"H.#H0$H2:.%H4&H6'H8(HFH: .PHxHH ȂH Hx.HHRHSH`H (\HHH \.H"H$HH&H(. H*!H,"H.#H0$H2:.%H4&H6'H8(HFH: .PHxHH ȂH Hx.HHRHSH`H (\+z&' .&z'y' NQ'^; Z Q;QP F.FdePQP "c l ru ry.*}*>@L( 3(@ .hng'h/Dh6) ? hn) h . @Qhkhk<hPkWh;hxU.%h$%2h%Zh(%ph-Zh`.0Mh,@ e@ e B A @    A.z*}fL@g@1.R@S@`@,R@,S@.,\a@? R@? S@? `@L"@.@@%R@%S@%[@.%`@&R@&S@&`@z@.<S@<U@<ܟ@@uR@o.uS@u`@!S@!U@!ܟ@.!@!@!@#R@#S@3.#`@&K@X(`9@\(Xa@,8@.,Xz@9@8@X:*}@-.,=.!h~!2h&!6h8!7h:!(7h|.""h&""t!hH""g'h""vh(#hR7.#xQh%@h%zh'&@ha'`hh.a'.hf'h'~h,Xzhp-h.-h.Lh2hT9@8hrX:*}h.x:*Kh:hvL!hV[Mh N0KR@KS@c.K`@_MTq@ N@S0@WR@0.WS@Ww@W`@YZ@S[ܟ@.T[@_oM@`@@+dI@:dR@.:dS@:d`@:d@:d@:d@.gR@gS@g`@bsp@9wY@%.9w\@wt8@wR@wS@w`@m.wR@wS@w`@y @z @.z|@z@zt!@zT[@zw@.zBx@z\@z@؁@@.@@@@@.@1  55@& 7%~\. v "#qZK.v"~(~*. @ @`e-v Q Da. `h7"77X PwL& O oM*oM*LyBxHd(7. 3(^) hMO h&dh8  zt!-.L  T&5  L"g&rEEV!3*&S&` <ܟ<S<SK`D.`&$  z|.*w6 6v*F F"x$ea vA*Ȃ z|&K.6 ߁W"W. W'4E؁x L".9. C`e  %d)LL?. &  P  E?%C&  Lppp:.6 w7 $%Z&yZZ&}s}) 7 'Bapph'%&: .Z&yL(Z&yh&V06.13 ^./!L(O hoM[MhE:. C`e  %d)LL?. &  P  E?%C&  Lppp:.6 w7 $%Z&yZZ&}s}) 7 'Bapph'%&: .Z&yL(Z&yh&V06.13 ^./!L(O hoM[MhE;R`h@.hg'hqh|`^ht! h^5.# h#g'h%NhSL h~SLh4.SLdfh!Nqhx#N`^hS hDWD,h.df2ghr^q hUsqhzs`^hy}h.yhyO hjy(hpyt!hly2ghhD&yphn}hv*(Fht1 3h.hf.:?Lp:@a@.@t!@L@Df@%2@X.0M@<ewPwev N* F"&,8.@v  E%=* w`wR"Ww(zw.f ^ew*zF$(r60Z* X:*}<ܟG,S0z\ S0 zwt8w`, W(U5%$*,Xz !ܟ&S&`"YZ*=.,.]gL? S@? `@. @Q@L"@@@z@2.uS@u`@!@,*K@,@R..L@R@a@a @a%@.a-@aPM@aW@aL^@aw@.ax@ay@a*}@:dS@:d`@i.:d@:d@gS@g`@\gW@{.wR@w`@e3l@(K f9h|,.]h. 1  ɥ(? !$ e3l>. g(@L; 9@|@@`.@H g,H@,HkQH8.sH"W@-`@C`O@C`O@M.C`O@C`O@C`O@|~K@*@N.@( g(lx g h ghhxzhpX g(.`P@@AS. C`OC`OC`O!C`O)C`Oi.&S s;1@i}@" C`OC`O; 9$|@.L֯ޯp!$^?%,%@x:@vL@vL!@.vLD@vL(F@vL$G@vLG@ N@.`@a2@/dZ@Ef@Q@wY@.wz@yK@yvL@|~K@~}@.~HX@( 3( !h,0Mh.o;@hNA@hH NvLhaha h?.a&hra0MhVaOMhaPMha Nh.a\gh/dhk 3C. @ $ yvL0M0M x:$vL(F2.&5`  H @E R   *K`<ܟ KR"EE<*wt8zz<ܟ<SS(E! !*<ܟ<S N" NH.2 wT 61(z Nz $9w\ &X v ve . F&v $I UU*9@8`@9@8K`(A,*K .L$L"C.&w f r  S,r\gW @QR$ @Q&R.L w w  4 W.a-! aWaPMwax$!-r $TR . $TRX . $TRA 0 $TRAL Q. f > B,)& ɥ, ". *υɋ :| ,|\gW @Q R& @Q(R.   ,wb*a- !aWa%aL^!B)~$"W-`&|~K;r q+ *.kQ(>LE M@E S@.@g,@,@kQ@s@k.}@vL@vLD@vL$G@vLG@h.oM[M@ N@oTd@^M@C`OH.C`OHC`OHC`OHC`OH/d@. g @ gh@s"@yM@z@.(; 9h|@hhF"Whb.-`h4d(h|~Kh*hh".X:lX:;dl X:vLlRlC(vL(F x:p:ap:H.L   ! Օ^e@ m.r\ Օ ĕ  7 7 a"0M.C? )נ נ0~0Mp:~HX.נ9נ  Ԑ7 -נ~HX yvL. נ  !-&"p:p:~HX&yvLr. Eנ 9נ -Dw~HXyvL.0w >w + 0)נ 7נ`4-~Dwve .*<ܟ# 9@8P $I  ~*`@ 9@8wt8w`"U0e *wt8 <ܟz\+dI&  ?De* N #z.ыW', &TN 5!K`K`&K`.*ԕ u 7BU w"X$ K`zT[YZ&S&`.PE  UE*za*} zgSg`w`v. P w ѥ,J.wR aw!aPMax"!.F Uɋ'ɥ,9 z? S? `(`*lɥ(3   ,\gW @QR @Q"R. ɥ)w we,a-! aW!aPM (   .\gW @Q R @QFr lrhlrBxl.ABEMNOPQRTUr  rh rBx r  rh rBx r  rh rBx r  rh rBx  r  rh rBx G0MyvLp:.V- b l wѐ/yvL yvL5.|m C å1å9 -yvLyK$yvL.w7 $~HXvL!0MyvL$0M.fvppl f@ `Vwz wY$@].  6 . - N6 .( N,  2 x:, `2a2 vLG"%2$vL$G&:.8HW'ы  Nz  N.vыDeT N$zK`&K`.  6 6 6 6 @* (Pz"x.6 6Da WHw$xxL".B w(W.BWEoWDl 0/ &,Xz,  ve $Io*9@8"`@"2 UUIRa->. ww ɋ *!aW !L"(,.%  < zu`uS. f ѥT ѥO)e3l,*K".> 4 ɋU<* !z ? S"? `&:d`(:dS*dÝÝ i* @Q @Q"\gW  w .R Ra-!Jr   rh   rBx   r   rh   rBx   r  rh rBx r   g rhS  ghrBx` . (1;( E SvLDoM[M "r &rh7.4 & -;ee* K0000 fh˕/DDevLGfh.^ 'd &f-Df &Df( -* %,%Df. s   vL$G` vL$G&vLD..  ,@ @ vL$GvLD. > ?& #`vL$G$vLD$.@  7R "%,%&RI.LUe*9@8 <ܟK`&S.LE0Q @<w$&`wt8 wRw`.rw] 6 6 6 6   $(P $. 0     P   T[".   6 N"("e e*$ z\+dI.ewww$$ MaWaPM. ̅ w JE . ax!a z :d$:d"  $ASP $AS .{aL^ ay.y=dgL L^@@4.!@,*K@.L@a@a0M@3.aOM@=dy@e3l@(=dwh!ydhQ. B 7¥O& e3l.L$=dy.&¥" w ` 2 NrBxX:oTd N$X:;.ZE ^-\  X: NvLG$vLD$m@ݴ,E MvLDvLDE SX:@}@ F(X:@s" oM[MoTdr . N  @z(v*0.X:X:@X:($X:*(X:0`.2 20     \&X:2X:2X:0X:.w L b $  O<bR P 8. %,%R%,%vLG"Df&t!.b   f$ t!DfDf"%,%$vL$G+Ջ D w   j.7w ww  ' -  N&vL.8!&f  `ע0$vL/dZ/dZEf@Q"Ef@Q.ӕ  7 J* |~K%,%~}vL(%,%H  P.$whwl6 wjf 焃j#_MTq 9w\.J T 6 6Da6z*xxx x(.pWEWDv T W+A(x"!.W-~6 \6Da xxx$z*.& -ER  -  (@8* ee8,   $&vQ! =dy(.L w < 1$aOM L^.r B ܅ ځD  } a .! D .GLOBL $PAUSE",*K.LaOMaOM. $PAUSE .GLOBL $STOP $STOP .AS$CII ^^ .BYTE 0 .EVEN .u:L@z@.!@,*K@,@,Xz@.t@.a%@a0M@ay@9w\@@&e3l@(RX:;d X: &X: .$(7 7 w :&X:  X: X:;dX:;dv(J W  W  W s. X: X: X:;d X:;d X:vLJ.j f! ! ?( X:vL vLDE MvLD "X:,f D   , vLD X:X:vL "X:$X:vL r. 0 < !, X:vLDX:X: X: . < SvLG.""[M>L/D@""@G.""t!@""v@( 3(8z""h 3C.&fW!UE!+  """"t!(/D&5!w ""i.L( 3(d.zLgH RH.SH`H,RH,SH@,\aH-.? RH? SH@? `H %RH%SH.%[HTe-DF *(bspT&"$R UUU*`@ bsp<ܟK`!@E0Qej*&S&` wt8wRw`"V w h*z\+dI $p 1*c@8 !"f.eE T w ("& $D U U*Uu:hI. Z   G.e3l ,*K,Xz,Xz.t&a0M.& V DL I a0M,,Xz<.L nW(F C @ TW,; 2,).r 8 5 : 0 / o",9w\",n., W)' W,  !"6.    z{$a% zVҋ  4" vL/d X: X:;d. % 7 7 < W!;U& X: X:X:X:<r,& & - 2 ,X:vL X:X:vL NX:2lJ@<"< *X:@X:< X:"X:< \ы7 R. X: X:vL X:X:vL X: t ;=  < ? i.X:vL X:; X:=X:<X:vL P.B Rw @  Z W %`H&RH&SH&`H,.<SH<UH8<ܟHuRHuSH:.u`H !SH?!UH!ܟH!He.!H !H#RH#SH #`H .KRHKSHK`HWRHWSH.W`HS[ܟH:dRH:dSH:d`H.:dH:dH:dHgRHgSH.g`H wRHwSHw`HwRH .wSHw`H z|HzBxHz\H.zH؁HHHH.HHHHX`@<ܟO"E 55F*K` w`wR!U!ܟ&S.5   E $&` uS u`"<ܟ&<S. & f Br NS0$+dI..e`) `)  E @(S0 zz wS"w`b.TEm  5 z ",Xz(uS z555*u` :dS :d`wSYayza.|}~ .GLOBL $DEFIL   ,U,9     .'|QL @Q@@ .!@#,@a'`@,*K@.L@.vL!@R@T[@a@a @$.a$@a%@a-@a0M@aPM@.aW@aw@\gW@ z#@(4'|Qh?"  ݗ*.L ,*K\gW @QRZ? &X:vL X: X:$X:vLT.  4%W!:UW!=Q ,5 &X:o.5 U  '5K,,X:X:vLX:$g,k.&  | W!$ W!:RX: X:A.$ D+ W!; w z X: .J W!= W!:   98 X:.p- +  5 EU 7P&X: X:;dX:X:KH \.H"H$HH&H(. H*!H,"H.#H0$H2:.%H4&H6'H8(HFH: .PHxHH ȂH Hx.HHRHSH`H (\\w`#S&  W(EUE*#` !U!ܟ!ܟ wS.f 5E fE`m*w` zBx&S&`K`KR.w! w _$zT[zt!y 9wY"zT[.fE \1$zT[S[ܟ N"z &S[ܟ."ww7Uff&E*zT[z NzT[wSw`.Hff&& 7 m  ] , @QR a-!aWa%&0 F w $w *a'` a'`aw!a  aPM?.N ( w B 44 vL!a$aPM .t/$" wt> #.?    7.   H    @QRa. ;w w F }&aPMaPM"aw&a$i. ^5-Y.X:X: X:X:X:.U@U  U;.X: X: X:X:vLX:. T w Fff T tg&X:vL X:;dX:vL X:4.5- : Uff 8EU X:vLX: $. >ыwwU E7 `X:X:X:vL,D 7 $ b1PprxY.X:X:$br "p$r&xr._160FORCOM.DGN 000I REDUNDANT CONTINUATION MARK; IT IS IGNORED 001I CONTINUATION MARK NOT IN RANGE 1 TO 9; IT IS IGNORED 002I ILLEGAL STMT. NUMBER, NON-NUMERIC CHAR. IN COLS. 1-5 003W ILLEGAL TYPE OR IMPLICIT STATEMENT, INTEGER IS ASSUMED. 004W NON-DECLARATIVE STATEMENT IN BLOCK DATA. 005F SYMBOL TABLE FULL. 006W TOO MANY CONTINUATION LINES, REMAINDER IGNORED. 007S MIXED MODE IS USED IN AN EXPRESSION. 008F ILLEGAL UNARY OP., ONLY +, -, OR .NOT. ARE ALLOWED. 009F CLOSING "/" MISSING ON BLOCK NAME.`Ww Nz .nE%   w`wRS[ܟ(zw. . &f=z zt!$X(`9O. e w7e7bzt!zt! \(Xa.TRUE..FALSE. .2L? W@K@.&v~@e^@{d@X@s!e^@.#@#,@#`"@&@09@.B9`"@i@y@:aS@fa  f ~ H ! @Q R$T[.2 w& j" D  D a2.X . w D ĥ'aay.~wHKw L &w w e(0aPM"aPM$.BE fE  _  a0M.DE0!   ` .a   ɥ> wJ% . w w  EpU && aaPbh & xU r.   5e5 X:X:X:.U X   :׭ X:vLX:&X:.     X:X:$X:. & W!@ 5UU  n X:vLX:vL.&W!# USW!-  W! X:;d"X:;d.L( U JW!( W!+ U.r=c 010W ALL PORTIONS OF FORMAT MUST BE WITHIN OUTER LEVEL PARENS. 011W TOO MANY RIGHT PARENTHESES IN FORMAT. 012W ILLEGAL CHARACTER(S) TERMINATING A STATEMENT. 013F ILLEGAL FORM FOR A NUMERIC CONSTANT. 014F INSUFFICIENT COMPILER SPACE TO EVALUATE THIS CONSTANT. 015W INTEGER CONSTANT TOO BIG. LARGEST POS. VALUE ASSUMED. 016F ILLEGAL SYNTAX IN LIST ITEM. 017F ILLEGAL LIST TERMINATION. 018W ILLEGAL CHARACTER IN FORMAT STATEMENT. 019F DIMENSIONS MUST BE SPECIFIED FOR EACH VAR. IN THE LIST. 020F DIMSdZ@Iq@.\q@ z#@}@(/hl.hLt!ht!&hvt!fh~#@yhQ.49@yh &#,aPMxaPM0.b( ɥH w .GLOBL $FMTRT w  . $FMTRT $TR .ASCII ^^ .EVEN ()'.,/-aHhDahFNahhyshk&~h:t!h* Dh 3?   **i  & !$ vL!lS+dI dy$lS.& e$$ ! ] X ] X.L ( ,,:\gW.r , ,ĕO ĕP \g&\g"77 +. @Q R @QRa-!N.  H  <  0aWa%a% a%. CF 5 5      a%awjX:X:X:X:"\.r& ы!ыE& .X: X:X:X:X:*e m7 7 $ emf. r X: X: X:$"X:.7  ыw &X:X:X:X:|. l  7 P V 5 U@ X:(X: . V  UU  X:vLX:vL(X:v.,    .  0 kRST ALPHABETIC. 032F ILL. SUBSCRIPT IN AN ARRAY ASSIGNMENT OR MISSING SUBSCRIPT. 033F ILLEGAL OPERAND OR POSSIBLE ADJACENT OPERATORS. 034F TOO MANY SUBSCRIPTS OR NO CLOSING PAREN FOR SUBSCRIPT. 035F NO FUNCTION ARGUMENTS PRESENT. 036F UNRECOGNIZABLE PARAMETER IN FUNCTION CALL. 037F FUNCTION CALL MISSING A ")". 038F ILLEGAL ROUTINE NAME. 039W MISSING END STATEMENT, END IS ASSUMED. 040W IMPROPERLY NESTED DO STATEMENT. 041W DO LIST OVERFLOW, NO MORE THAN 10 NESTED DO'S ARE ALLOWED. 042W ILLEGAL SYl*.*7 f&7 f e> .PaD7 wE7F7H7@& " E7 7r >&X:.    W!;W!< X:.*oNTAX IN COMMON/EQUIVALENCE. 043W TABLE OVERFLOW IN COMMON/EQUIVALENCE. 044W DUMMY VARIABLE OR ADJUSTABLE ARRAY USED IN COMMON. 045W VARIABLE ALREADY IN COMMON, CANNOT BE RE-DEFINED. 046F ILLEGAL DO STATEMENT SYNTAX. 047F DO CONTROL VARIABLE IS NOT A SIMPLE INTEGER VARIABLE. 048F DO PARAMETER IS NOT A SIMPLE INTEGER VARIABLE OR CONSTANT. 049W BAD STEP VALUE IN DO, IT IS ASSUMED TO BE 1. 050W ILLEGAL CONSTANT IN PAUSE/STOP. 051W ILLEGAL OR MISSING STATEMENT LABEL, IT MUST BE NUMERIC. 052F ILLEGAL pz nz n}.*}z?LLH<3}H.3؁H~}H6( 3(E MhV.E Shp:h^hahhQ2.t!hDfhh@hVhZ .%hR%2hNe%hLhi+h^(.iL,hb%h5'QhX(`9hv\(Xahx_.%,%hf2h2hx:h:khf.O;hvLhrvLhNvLDhvL(Fhx.vLxFhRvLFhnvL$GhvLGh NkhZe. N"h N#hNhoTdht^qL",*K.LU    & #,a0M!$(a0M(r F [*! a*}a'`aw! a'`.  w77   p*D99w\x:*K49@y.Lx:*K.$F:   k`@a0M&x:*K(7 f w e1.? Wx:*K,*K.L#,aPM C.E&ȋ w  &rC  @       UK.P   t &X:vL X: X: &X:H.v 5`ʕ'5@ʕGfAʕ X: "t. R fA  .eʕ Jҋ  1(X:.b -< S8 & NvL/dvL$G&X:8. (6 6&  (. X:( X:6X:$X: (X:.4s SYNTAX IN GOTO/ASSIGN STATEMENT. 053W ILLEGAL PARAMETER IN STATEMENT FUNCTION LIST. 054F ROUTINE NAME CANNOT BE A NUMERIC CONSTANT. 055W "SUBROUTINE" OR "FUNCTION" NOT FIRST STMT. OF ROUTINE. 056W ILLEGAL PARAMETER IN SUBROUTINE OR FUNCTION LIST. 057W TOO MANY PARAMETERS (>255) IN ROUTINE LIST. 058W CONSTANT MAY NOT BE DECLARED IN EXTERNAL. 059W TOO MANY LEFT PARENTHESES IN FORMAT. 060W MISSING COMMA OR ) IN COMMON/EQUIVALENCE. 061W MISSING ( IN COMMON/EQUIVALENCE. 062W DUMMY ARGUMENT OR ADJUSTtkh`.^"h^#h^Mh_ 3hz_oMh|.`hahJa2hF/dZhLEf@QhD.y""hy#hyp:hyKhpyvLhn.yMhy h|z h~zhzt!h3.zT[hu~h)|~KhZh Zh 3C.; FORTRAN ........ FORTRAN .......-&. 00:00:00 00-XXX-70 PAGE 0000  L.L<Ex* x".rE= zua!aPM &a.$     . : m !".J e W, e  a0M.pS C ! W  L"5.0 U  .GLOBL $TSI -IRD .GLOBL $TRTST .E,eL@&S@z@.<U@<ܟ@@,@,s@.K`@YZ@`@@+dI@\gz@b.wt8@z|@z&@zT[@v EEEUQa7  X: X: $.Z ~ 5@ŭEU &X:X:X:"X:P. X EU  8 & X:X: X: $X:84. 8w Zn  7 }*X:8vLGn vLG"vL&/d].   J  **(a&X: X: $X:*(X:(&.  ^ʕ  ʕ) ҕ. X: " A. wABLE ARRAY USED IN EQUIVALENCE. 063W INCONSISTENT EQUIVALENCE. 064F TWO OR MORE COMMON ITEMS ARE EQUIVALENCED. 065F I/O UNIT IS NOT SIMPLE INTEGER VARIABLE OR CONSTANT. 066F ARRAY OR FUNCTION NAME NOT ALLOWED AS UNIT IN I/O STMT. 067F ILLEGAL SYNTAX IN I/O OR ENCODE/DECODE. 068F MISSING ARGUMENT IN FIND. 069F ILLEGAL RECORD DESIGNATOR IN RANDOM ACCESS READ/WRITE. 070F MISSING RIGHT PARENTHESIS IN I/O OR ENCODE/DECODE. 071W ILLEGAL FORM FOR END= AND/OR ERR= . 072W ILLEGAL FORM FOR LIST ITEM. 073x. NzbzE z&' .&z'y' NQ'^; Z Q;QP F.FdePQP "c l ru ry.*}*>@L( 3(@ .hng'h/Dh6) ? hn) h . @Qhkhk<hPkWh;y(*E,ehO.f& W- ~ |%YZ YZ ,.&y ѥ,t e&&& & zz|"z|&z|.L W- W U%Rѥ)Oo,.r&f&& e   YZzz|z|.( (&  z&"&k.$Cfe e&  `@+dz  ʕ ׭c.׭\ X: .> $   R $ vLGvLG/d" ( .d wF BLOCK . LENGTH  XXXXXX (000000)    +. 8 8 -1< ^(X:8X:8 N$vL(/d. 7   hB < 8"X: X:B (X:p. , ( ҕ 2"w  X:2_.& {F ILLEGAL SYNTAX FOR REWIND, BACKSPACE OR ENDFILE. 074F NON-INTEGER PARAMETER IN REWIND, BACKSPACE, OR ENDFILE. 075W ILLEGAL H CONSTANT IN FORMAT. 076W HOLLERITH CONSTANT COUNT TOO BIG. 077W SYNTAX ERROR IN IMPLICIT STATEMENT. 078W HOLLERITH CONSTANT IMPROPERLY TERMINATED BY END OF LINE. 079W .NOT. MAY BE USED AS A UNARY OPERATOR ONLY. 080W EXPONENT MAY NOT BE LOGICAL*1, LOGICAL*2 OR COMPLEX. 081W INTEGER**REAL OR INTEGER**COMPLEX NOT ALLOWED. 082W COMPLEX**REAL OR COMPLEX**DOUBLE NOT ALLOWED. 0|hxU.%h$%2h%Zh(%ph-Zh`.0MhahzhjOh<h*;.<Lh4<h2<*Kh,<h< h0.<h<h.hv@~h h.] XhVdyhfHhlShVht.}h t!ht!'h!h<!%h>=.!h~!2h&!6h8!7h:!(7h|.""h&""t!hH""g'h""vh(#hR7.#xQh%@h%zh'&@ha'`hh.a'.hf'h'~h,Xzhp-h.-h.Lh}I"wt8&wt8.(e e e ] &S(\gzz,s( e YZYZ.:dw>L) ? @) @.? S@? `@ @Q@L"@d@u.@%kQ@z@O@@~@$.uR@u`@!ܟ@!@""g'@m.#,@#xQ@%@@a'`@'~@>.E,e@,@,@-@-@Y.:@{L?@ N@R8@R@.o~ w 4 =% R d X: X:X:.L G @  w tr ĝ X:&X:.r c @ 8XE^ X:X:8(^ r( 6  .X:6 X: X:;d X: X:9  -  <.X:X: X:;dX:X:;d.  | p4@a ` & X:X:X:4 X:* 4W  ҝ83F IMPROPER LABEL SYNTAX IN IF STATEMENT. 084W ANYTHING **COMPLEX NOT ALLOWED. 085F MISSING COMMA IN READ, PRINT, OR PUNCH. 086F INCORRECT SYNTAX IN DEFINE FILE STATEMENT. 087W ARRAY MAY NOT BE DECLARED AS EXTERNAL. 088F ARRAY IS TOO LARGE. 089F ILLEGAL ROUTINE NAME. 090F ILLEGAL DO SPECIFICATION IN I/O OR ENCODE/DECODE. 091F ILLEGAL LIST IN IMPLIED DO. 092F ILLEGAL FORMAT SPEC. IN I/O OR ENCODE/DECODE. 093W SYNTAX ERROR IN THE EXPRESSION OF AN ASF. 094W MISSING "," OR ")" IN ASF. 095W MISPLA2hT9@8hrX:*}h.x:*Kh:hvL!hV[Mh Nhd. NSh Nah NhqQWhRh7.US@QhzSWhLS0hfWwhrYZhq=.T`|Nh:dh=dyhb\g@h\gxh,.$q"har hrv~hpshbspht.sh$s"h%s&h#wYhlwzh5.wt8hlx`hjyMhLyhdnz h .zwht}dh~HXh\,hBxhQ䒰"h! 3C+MAIN.DATA.145 Td@Y@Z @T[@a@\.a @a%@a-@aOM@aPM@.aW@aL^@aw@ay@a*}@D.:dS@:d`@:d@ev@gS@`.g`@\g@\gW@g@9w@[@.wr @wS@w`@y @y@J.y) @y'@}d@~W@(.) Ohd) RhP(NhH z#hv.e!_0$ oTdy 9w@[ .& 4'1'* $*@. X: X:4 X:X: X:t&    6ѝ=. X:X: X: X:X:6( 2  ѝw4 wa.X: X:X:4X:X:.J 6 $6X:;d X:6X:6.p 4) c& X:X:4 X: (X:" -6*vL$G vL$GX:6 X: X:$ 86݃CED "=" IN ASF. 096F ASF NAME HAS BEEN PREVIOUSLY USED. 097W SUBSCRIPTS OUT OF BOUNDS IN DATA OR EQUIVALENCE. 098F ILLEGAL EXTENSION OF COMMON ORIGIN BY EQUIVALENCE. 099F OPENING "/" MISSING FROM DATA GROUP. 100W UNEQUAL NUMBER OF VARIABLES AND CONSTANTS. 101W DATA NOT ALLOWED IN COMMON EXCEPT IN "BLOCKDATA". 102F SUBSCRIPTS ON UNDIMENSIONED ELEMENT IN DATA. 103F ADJUSTABLE ARRAY NOT ALLOWED IN DATA. 104F PRESETTING NAMED COMMON ALLOWED ONLY IN "BLOCKDATA". 105F ILLEGAL FORM FOR CONSTANT IN DATA& & H.Hy  nn 9 A 56 )* V.Vw |s L+4  @7 ..$$$$. $$.T`*}&f$ydevR8&y*.L ߊ W  W) @~ @~y.r  ?_' y:{L?"YF.(  ʆo g& T[E,e"k.ߋ 5x5nK.z ""g'wSw` ? S"? `k. Q&E Pl  yd.  = O$46  1 dY.,X:8X:6 X: X:vL$G  46f,vL$G X: X:4 X:X:6. ?A,R* ʥ $X:? vLG X:, X:*. ҋҕ ҕ B! & /dvLG "X:&&vLG.0 ? f e0R X:?m.V & @ ( @ ! X: &X:).|  `  e ee e D. : & ]4. 106F ILLEGAL REPEAT COUNT. 107W MISMATCHED DATA TYPES. 108W DATA MUST FOLLOW ALL OTHER DECLARATIVES. 109I NO PATH TO THIS STATEMENT. 110W VARIABLE MAY NOT HAVE BEEN REDEFINED AFTER USE IN "ASSIGN". 111F ILLEGAL FORM FOR COMPLEX CONSTANT. 112W NUMBER OF DIMENSIONS NOT THE SAME AS DECLARED. 113W RETURN IS ILLEGAL IN MAIN PROGRAM. 114W MISSING DO LOOP TERMINATION(S). 115F DIMENS. NOT TERM. BY RIGHT PAREN OR TOO MANY DIMENSIONS. 116W ROUTINE NAME CANNOT BE DECLARED EXTERNAL. 117F ENCODE/DECODE L>LyBxHd(7. 3(^) hMO h&dhR`h@.hg'hqh|`^ht! h^5.# h#g'h%NhSL h~SLh4.SLdfh!Nqhx#N`^hS hDWD,h.df2ghr^q hUsqhzs`^hy}h.yhyO hjy(hpyt!hly2ghhD&yphn}hv*(Fht1 3h.hf.:?Lp:@Ή04 &*U* eu# gY|.VCEEBPBe៣*y N&,.|P(0>HNBCCBE.E P  @  0R yZ.Q PRT!f _ %@ &.) W( H _ _ 0/ ~WH$.Q P_(_BE@Cy(.:%FK    E$ E ,X:4-.  UUUf E.X:X:vLX:vLX: (X: . &&&&& 0 xU &X:vL X: $X: (X:;d.%dX *T$ +^-&^.:P*/&! 7 & Lb"P X:.`d(b5`5`5@5@1 *X:.U E TwI LBLRdX X:.@&ACKS LEGAL BUFFER DESCRIPTOR. 118F ENCODE/DECODE BUFFER SIZE NOT SIMPLE INTEGER. 119F ARRAY OR FUNCTION CANNOT DESCRIBE BUFFER SIZE. 120S VARIABLE USED BUT NOT PREVIOUSLY DEFINED. 121F DIAGNOSTIC TABLE OVERFLOW. 122F ILLEGAL FORM FOR UNIT NUMBER IN DEFINE FILE. 123F MISSING "(" IN DEFINE FILE. 124F ILLEGAL RECORD COUNT (M) IN DEFINE FILE. 125F ILLEGAL RECORD LENGTH (L) IN DEFINE FILE. 126F DEFINE FILE ONLY ALLOWS UNFORMATTED (U) MODE. 127F DEFINE FILE ASSOCIATED VARIABLE NOT SIMPLE INTEGER. 128a@.@t!@L@Df@%2@X.0M@%,%@x:@vL@vL!@.vLD@vL(F@vL$G@vLG@ N@.`@a2@/dZ@Ef@Q@wY@.wz@yK@yvL@|~K@~}@.~HX@( 3( !h,0Mh.o;@hNA@hH NvLhaha h?.a&hra0MhVaOMhaPMha Nh.a\gh/dhk 3C. @ $ yvL( y) ? T[,`_  &&f&. ::) ? ) ?  y$}dk.&E  ,)C,zu` uR}d@~ ,."  ,)"   ,. ,)" ߊ U,@~(}d.p & }dy) ? ":. & _tEpU  :  N F@  Aj. N  & @  n.  &   `@ 2. 25UE d& X:X:vLX: X::.D 5@ 5` U7 &X:X:$X:vL(X:"$j7 7  h W.X: X:X:X:vL X:. 7  ^;-  &5U X: X:X: .55@UE@EW MISSING ")" IN DEFINE FILE. 129F EXPRESSION STACK OVERFLOW 130W ILLEGAL FORM FOR OCTAL CONSTANT. 131W OCTAL CONSTANT TOO LARGE. 132W OCTAL CONSTANT MUST HAVE AT LEAST ONE CHARACTER. 133W IMPROPER FORM FOR REAL CONSTANT. 134I NO EXECUTABLE STATEMENTS IN A MAIN PROGRAM. 135W MISSING COMMA. 136W REDUNDANT COMMA. 137W IMPLICIT STATEMENT APPEARS AFTER STATEMENT IT AFFECTS. 138W LOGICAL OP. MEANINGFUL ONLY ON BYTE, LOGICAL, OR INTEGER. 139F EQUIVALENCE GROUP TOO LARGE FOR ADDRESS SPACE. 140W ATTEM0M0M x:$vL(F2.&5`  H (vL(F x:p:ap:H.L   ! Օ^e@ m.r\ Օ ĕ  7 7 a"0M.C? )נ נ0~0Mp:~HX.נ9נ  Ԑ7 -נ~HX yvL. נ  !-&"p:p:~HX&yvLr. Eנ 9נ -Dwy) t%kQ(T[.B, &fK" @~y'"y&}di.h& ( #F $}d@~T[$}d(y.ߊ K /¥,¥) d @~T[Q.  %)Xf  2 Z . 5$ ,)< z:dS:d`T[.‹% 7  EP—i(@~;.& P   5  X:vLX:vL. " U  d X: X: X: .  N \U z'UX:vLX:;d(X:vLt.W!. W!$U   X:vLs.DW!. U  ~E$X:vL&~.j@ +-'"%"&{.<  w   T. T hU UPTED EQUIVALENCE TO MISALIGNED BYTE ITEM. 141W ILLEGAL EXPRESSION MODE IN IF STATEMENT 142W DATA VALUE EXCEEDS BYTE MAGNITUDE 143F DELIMITER > MISSING FROM VARIABLE FORMAT EXPRESSION 144W EMPTY VARIABLE FORMAT EXPRESSION 145F VARIABLE FORMAT EXPRESSION NOT ALLOWED WITH H FORMAT 146W NEGATIVE OR ZERO CONSTANT AS SUBSCRIPT 147F INTERNAL ERROR DURING CODE GENERATION -01****TERMINATING LINE**** ~HXyvL.0w >w + 0)נ 7נ`4-~0MyvLp:.V- b l wѐ/yvL yvL5.|m C å1å9 -yvLyK$yvL.w7 $~HXvL!0MyvL$0M.fvppl f@ `Vwz wY$@].  6 . - N6 .( N,  2 x` a'`.L )!  Un oTd"a'`&a'`x.r&   }d}dy.& ߊH_feF  @~oTdfeF 솁, oTd.,?L) @) @.O @ @Q@%kQH&S@&d@.&`@R`@z@@O@.@~@g'@q@`^@t! @}.!ܟX:vLs. L ZW!> " ! c X:;d"X:;d &X:.! -- @  ` & .(   & e @uX: .N A Z 0 9 .  $ ;.t  @ R  (X:;dt.C0   & N`U X:;d. ` vew W!;$X:.  W!, U ( 7 &X:vLC FORTRAN SYSTEM DIAGNOSTIC MESSAGE FILE BUILDER C THIS PROGRAM CAN BE USED TO BUILD FILES FOR C EITHER DOS-11 OR RSX-11D AND IT CAN BE C RUN UNDER EITHER SYSTEM BY MAKING THE APPROPRIATE C CHOICE OF "ASSIGN" OR "SETFIL" BELOW C C CREATES AND THEN PRINTS A FILE OF MESSAGES C FOR ACCESS BY THE FORTRAN COMPILER OR OTS C INPUT: C FILE - AS SPECIFIED BY KEYBOARD TYPE-IN C LUN - 4 C 1ST RECORD-- I3,40A1 I3=#OF 64 CHARACTER MESSAGES C TO BE ALLOCATED. 40A1=FILE SPECIFICATION C OTHER RECO:, `2a2 vLG"%2$vL$G&:.80000 fh˕/DDevLGfh.^ 'd &f-Df &Df( -* %,%Df. s   vL$G` vL$G&vLD..  ,@ @ vL$GvLD. > ?& #`vL$G$vLD$.@!@""g'@# @#xQ@.#g'@%N@'~@,@-@.-@:@SLdf@ N@!Nq@b.#N`^@R@S @WD,@Z H.T`|N@a@a @a%@a-@.a0M@aOM@aPM@aW@aL^@.aw@ay@a*}@:dS@:d`@p.:d@:d@df2g@gS@g`@.\g@\gW@^q @sq@s`^@.wr @w`@y}@y@yO @,.y(@yt!@y2g@yp@yX:vLX:vL&X:vL.  W!,    YX:vLX:;d X:;d.2W! W!  ş JX:;dX:;d.X @ 6f   X:;d X: .~ ыɋU  w X:X:vL.C @ @   #1- ;.` Ee) ``B ! LX:. #`B  s  . #1RDS- I3,64A1 I3=POSITION OF CURRENT C MESSAGE IN THIS FILE. 64A1=CURRENT MESSAGE C LAST RECORD-- I3,64A1 I3=NEGATIVE INTEGER. 64A1=IGNORED C OUTPUT: C FILE - FILE SPECIFICATION READ INTO FILSPC C LUN - 1 C 64 CHARACTER FIXED LENGTH RECORDS C C LUN - 5 (NORMALLY LP:) C PRINTED OUTPUT C INTEGER COUNT,INDEX BYTE TODAY(9),FILSPC(40),A(64),NULL(64) DATA NULL / 64 * 0 / COUNT=0 WRITE (6,1000) 1000 FORMAT('$SPECIFY INPUT FILE>') READ(6,10001) I0,FILSPC 10001 FORMAT(Q,4@  7R "%,%&RI.<bR P 8. %,%R%,%vLG"Df&t!.b   f$ t!DfDf"%,%$vL$G+Ջ D w   j.7w ww  ' -  N&vL.8!&f  `ע0$vL/dZ/dZEf@Q"Ef@Q.ӕ  7 Bx@ .y) Hy'H}@Bx@@.*(F@(,h(#,hW,hD.&fv  X $X(.&G X  %9,X  #N`^}$w`&WD,$L X /_ ߷ .WD,X df2g}#g' @Q&h   .R @Q RO t! .$ -`7& wCa7&X:&X: "rBx(X:W.<%LT! h7   L X:$X:&b^ ` .X: X: rBx rh r c.B w .R p&r  X: r "rh.   u57 f rh rBxX:.ABC f6A.X: r rh rBx X: .ޟ0A1) C C SET UP THE INPUT FILE NAME ASSIGNMENT C C CALL ASSIGN(4,FILSPC,I0) CALL SETFIL(4,FILSPC,IERR,'SY',0) C ENDFILE 6 C C READ FIRST RECORD AND ALLOCATE CONTIGUOUS FILE READ(4,1001) IBLOK,FILSPC 1001 FORMAT(I3,40A1) C C SET UP THE OUTPUT FILE NAME ASSIGNMENT C C CALL ASSIGN(1,FILSPC,40) CALL SETFIL(1,FILSPC,IERR,'SY',0) C DEFINE FILE 1(IBLOK, 32, U, INDEX) C C INITIALIZE ALL RECORDS OF OUTPUT FILE TO ZEROS DO 10 I=1,IBLOK 10 WRITE (1'I)NULL C C READ INPUT AND WRITE EACH RJ* |~K%,%~}vL(%,%H  vLG.""[M>L/D@""@G.""t!@""v@( 3(8z""h 3C.&fW!UE!+  """"t!(/D&5!w ""i.L( 3(d.zLgH RH.SH`H,RH,SH@e9.&d df2g%Nyyt!. J  .yBxy2gyO yp} SLdf&. B l    l#g'$#g'.e _ %A._"yO y2gy(".&y}',&   _ b .yO  y2gy2gyO g'"aPM$bl.8 _ } '^,g'aPM}yO y2g&y2gl.^  RRRRRRRR⋇.2?L{d@i@y@~.4d(@(i(haHhDahFNahhyshk&~h:t!h* Dh 3?  ECORD OF OUTPUT FILE 40 READ (4,1002,END=50)I0,I1,A 1002 FORMAT(Q,I3,64A1) IF (I1 .LT. 0) GO TO 50 COUNT=COUNT+1 C I0=I0-3 IF (I0 .LE. 0) GO TO 40 IF (I0 .LT. 64)A(I0+1)=0 C I1=I1+1 WRITE (1'I1)A GOTO 40 C C READ THE CONTIGUOUS FILE AND C PRINT A LISTING OF THE COMPLETED FILE 50 ENDFILE 4 CALL DATE(TODAY) WRITE (5,1003) FILSPC, TODAY 1003 FORMAT(1H1,28X,40A1/1H0,'MSG MESSAGE',17X,9A1/' NUM'/) C DO 51 I1=1,IBLOK READ(1'I1)A I2=I1-1 51 WRITE (5,1004) I2,A 1004 FORMAT(X,,\aH-.? RH? SH@? `H %RH%SH.%[H %`H&RH&SH&`H,.<SH<UH8<ܟHuRHuSH:.u`H !SH?!UH!ܟH!He.!H !H#RH#SH #`H .KRHKSHK`HWRHWSH.W`HS[ܟH:dRH:dSH:d`H.:dH:dH:dHgRHgSH.g`H wRHwSHw`HwRH .wSHw`H z|HzBxHz\H.zH؁H;CONTROL STACK PUSH DOWN ;CONTRO yO ).L STACK POP   &d*(F(df2g.@    E#"&df2g._5%#*(F z:dS:d`.%%E%?. %   E8df2g"&df2g.B%%  %Z*(F R`"T`|N.h% ***.*7 f&7 f e> .PaD7 wE7F7H7@@L( 3(@ .hng'h/Dh6) ? hn) h . @ F ILLEGAL SYNTAX IN LIST ITEM. F ILLEGAL LIST TERMINATION. W ILLEGAL CHARACTER IN FORMAT STATEMENT. F DIMENSIONS MUST BE SPECIFIED FOR EACH VAR. IN THE LIST. F DIMS. CONFLICT WITH THOSE OF AN EARLIER STATEMENT. W UNRECOGNIZED STATEMENT. F ADJUSTABLE ARRAY NAME OR INDEX NOT A SUBPROGRAM PARAMETER. W MISSING EXPONENT IN CONSTANT. $RU LIBR #FTNLIB.OBJ  @  ( #g'df2g}$wr (}.d %%%%.%  5df2g"wr &z-.'  Qhkhk<hPkWh;hxU.%h$%2h%Zh(%ph-Zh`.0MhahzhjOh<h*;.<Lh4<h2<*Kh,<h< h0.<h<h.hv@~h h.] XhVdyhfHhlShVht.}h t!ht!'h!h<!%h>=.!h~!2h&!6h8!7h:!(7h|.""h&""t!hH""g'h""vh(#hR7.#xQh%@h%zh'&@ha'`hh.a'.hf'h'~h,Xzhp F MAXIMUM FUNCTION DEPTH (20) EXCEEDED. F MISMATCHED PARENTHESIS. F NON-ARRAY REFERENCE TO ARRAY ITEM. F CANNOT ASSIGN TO A CONSTANT. F CANNOT ASSIGN TO A FUNCTION. W ILLEGAL CHAR. TERMINATING A STMT. OR POSS. BAD OPERATOR. F SUBSCRIPT ON NON-ARRAY VARIABLE. W NAME MUST BE 1-6 ALPHANUMERICS, THE FIRST ALPHABETIC.$RU LIBR #TMPLIB.OBJ"0D pp .\g \g @Q^q  @QMAIN.DATA.145 & & H.Hy  nn 9 A 56 )* V.Vw |s L+4  @7 ..$$$$. $$ W IMPROPERLY NESTED DO STATEMENT. W DO LIST OVERFLOW, NO MORE THAN 10 NESTED DO'S ARE ALLOWED. W ILLEGAL SYNTAX IN COMMON/EQUIVALENCE. W TABLE OVERFLOW IN COMMON/EQUIVALENCE. W DUMMY VARIABLE OR ADJUSTABLE ARRAY USED IN COMMON. W VARIABLE ALREADY IN COMMON, CANNOT BE RE-DEFINED. F ILLEGAL DO STATEMENT SYNTAX. F DO CONTROL VARIABLE IS NOT A SIMPLE INTEGER VARIAB$RU LIBR #TMPLIB.OBJLyBxHd(7. 3(^) hMO h&dhR`h@.hg'hqh|`^ht! h^5.# h#g'h%NhSL h~SLh4.SLdfh!Nqhx#N`^hS hDWD,h.df2ghr^q hUsqhzs`^hy}h.yhyO hjy(hpyt!hly2ghhD&yphn}hv*(Fht1 3h.hf.:LE. F DO PARAMETER IS NOT A SIMPLE INTEGER VARIABLE OR CONSTANT. W BAD STEP VALUE IN DO, IT IS ASSUMED TO BE 1. W ILLEGAL CONSTANT IN PAUSE/STOP. W ILLEGAL OR MISSING STATEMENT LABEL, IT MUST BE NUMERIC. F ILLEGAL SYNTAX IN GOTO/ASSIGN STATEMENT. W ILLEGAL PARAMETER IN STATEMENT FUNCTION LIST. F ROUTINE NAME CANNOT BE A NUMERIC CONSTANT. W "SUBROUTINE" OR "FUNCTION" NOT FIRST STMT. OF RO$RU LIBR #TMPLIB.OBJ255) IN ROUTINE LIST. W CONSTANT MAY NOT BE DECLARED IN EXTERNAL. W TOO MANY LEFT PARENTHESES IN FORMAT. W MISSING COMMA OR ) IN COMMON/EQUIVALENCE. W MISSING ( IN COMMON/EQUIVALENCE. W DUMMY ARGUMENT OR ADJUSTABLE ARRAY USED IN EQUIVALENCE. W INCONSISTENT EQUIVALENCE. $RU LIBR #TMPLB1.OBJw + 0)נ 7נ`4-~0MyvLp:.V- b l wѐ/yvL yvL5.|m C å1å9 -yvLyK$yvL.w7 $~HXvL!0MyvL$0M.fvppl f@ `Vwz wY$@].  6 . - N6 .( N, W ILLEGAL FORM FOR LIST ITEM. F ILLEGAL SYNTAX FOR REWIND, BACKSPACE OR ENDFILE. F NON-INTEGER PARAMETER IN REWIND, BACKSPACE, OR ENDFILE. W ILLEGAL H CONSTANT IN FORMAT. W HOLLERITH CONSTANT COUNT TOO BIG. W SYNTAX ERROR IN IMPLICIT STATEMENT. W HOLLERITH CONSTANT IMPROPERLY TERMINATED BY END OF LINE. W .NOT. MAY BE USED AS A UNARY OPERATOR ONLY$RU LIBR #TMPLIB.OBJ ?& #. W EXPONENT MAY NOT BE LOGICAL*1, LOGICAL*2 OR COMPLEX. W INTEGER**REAL OR INTEGER**COMPLEX NOT ALLOWED. W COMPLEX**REAL OR COMPLEX**DOUBLE NOT ALLOWED. F IMPROPER LABEL SYNTAX IN IF STATEMENT. W ANYTHING **COMPLEX NOT ALLOWED. F MISSING COMMA IN READ, PRINT, OR PUNCH. F INCORRECT SYNTAX IN DEFINE FILE STATEMENT. W ARRAY MAY NOT BE DECLARED AS EXTERNAL. $JOB BLDFTNDT[1,1] $ME THIS BATCH STREAM WILL BUILD THE FORTRN COMPILER AND OTS $ME ON YOUR SYSTEM, FROM DECTAPE. $ME HAVE YOU READ SYSTEM MANAGER'S GUIDE FOR DISCUSSION ON DEFAULT $ME OPTIMIZATION LEVEL? $ME IF OP:1 IS ACCEPTABLE TYPE: CONTINUE $ME OTHERWISE TYPE: ^C $ME TERMINATE $ME AND FOLLOW THE EDITING PROCEDURE DESCRIBED. $WAIT $ME HAVE YOU READ SYSTEM MANAGER'S GUIDE AND CHOSEN APPROPIATE $ME LIBRARY FOR YOUR CONFIGURATION? $ME HAS THE PROPER FILE BEEN PIP'D TO SY:LIBBÒ _  @E !(*z aL^ R @Q,h E 4`_  CF * '~ R @Qa%. _ $SVSP $SVPA $aw!df2g}&. SVE@B &5@O"df2g@~"z(!ܟ$ 5_ 3 _ ,:dS :d`aPM3 ay!  _  . R @Q a%ay  `vL$G$vLD$.@  7R "%,%&RI.<bR P 8. %,%R%,%vLG"Df&t!.b   f$ t!DfDf"%,%$vL$G+Ջ D w   j.7w ww  ' -  N&vL.8!&f  `ע0$vL/dZ/dZEf@Q"Ef@Q. F ARRAY IS TOO LARGE. F ILLEGAL ROUTINE NAME. F ILLEGAL DO SPECIFICATION IN I/O OR ENCODE/DECODE. F ILLEGAL LIST IN IMPLIED DO. F ILLEGAL FORMAT SPEC. IN I/O OR ENCODE/DECODE. W SYNTAX ERROR IN THE EXPRESSION OF AN ASF. W MISSING "," OR ")" IN ASF. W MISPLACED "=" IN ASF. LD.BAT AS INDICATED? $ME IF YES TYPE: CONTINUE $ME OTHERWISE TYPE: ^C $ME TERMINATE $ME AND FOLLOW PROCEDURE DESCRIBED. $WAIT $ME MOUNT COMPILER DECTAPE (DEC-11-LFCPA-A-UC) ON UNIT#0 $ME REMOTE AND WRITE LOCKED. MOUNT OTS DECTAPE (DEC-11-LFLBA-A-UC) $ME ON UNIT#1 REMOTE AND WRITE LOCKED. $ME TYPE: CONTINUE WHEN TAPES ARE MOUNTED $WAIT $ME THIS JOB WILL RUN FOR APPROXIMATELY 20 MINUTES $ME COMPARE THE CHECKSUMS FROM THE FILES TAPE.DIR $ME AGAINST THE ONES ON THE ACTUAL T E _ ^.R @Q a%:d:daL^. ß e ߋ=@E%(aPM  df2gaL^!@~c.F %@5 _ +  }a*}a "wr &z.l _ CEF _ B &ay aPM aw aPM" ( ×  3 _  ,@~'~'~aPM  aL^W. _  _ -1 $CA.! aPM  df2g@~#  7 J* |~K%,%~}vL(%,%H  vLG.""[M>L/D@""@G.""t!@""v@( 3(8z""h 3C.&fW!UE!+  """"t!(/D&5!w ""i.L( 3(d.zLgH RH. F ASF NAME HAS BEEN PREVIOUSLY USED. W SUBSCRIPTS OUT OF BOUNDS IN DATA OR EQUIVALENCE. F ILLEGAL EXTENSION OF COMMON ORIGIN BY EQUIVALENCE. F OPENING "/" MISSING FROM DATA GROUP. W UNEQUAL NUMBER OF VARIABLES AND CONSTANTS. W DATA NOT ALLOWED IN COMMON EXCEPT IN "BLOCKDATA". F SUBSCRIPTS ON UNDIMENSIONED ELEMENT IN DATA. F ADJUSTABLE ARRAY NOT ALLOWED IN DATAAPE DIRECTORIES. $RU PIP #KB:y2gyt! $y2g. h | ~e*z\H.zH؁HHHH.HHHHH \.H"H$HH&H(. H*!H,"H.#H0$H2:.%H4&H6'H8(HFH: .PHxHH ȂH Hx.HHRHSH`H (\ W NUMBER OF DIMENSIONS NOT THE SAME AS DECLARED. W RETURN IS ILLEGAL IN MAIN PROGRAM. W MISSING DO LOOP TERMINATION(S). F DIMENS. NOT TERM. BY RIGHT PAREN OR TOO MANY DIMENSIONS. W ROUTINE NAME CANNOT BE DECLARED EXTERNAL. F ENCODE/DECODE LACKS LEGAL BUFFER DESCRIPTOR. F ENCODE/DECODE BUFFER SIZE NOT SIMPLE INTEGER. F ARRAY OR FUNCTION CANNOT DESCRIB\( H`SHRHHH.xH H HHxHP. :HFH(8H'6H&4H%.:2H$0H#.H",H!*H .(H&HH$H"H.\ HHHHH.HHHHHz.Hz\xHzBHz| Hw`SHw. RHwHw`SHyt! y2gh|y2g~$y2g* P UW, a*}aw! z$gSq.   E g` wr z`(4_x _ ~ ,x~R @Q a%(T  ,zaL^!- S.t  $PA $PSHR $GET Z!"(,   ,ORLIB.BAT 1 10-AUG-73 <233> 003760 FORPC .BAT 1 10-AUG-73 <233> 005540 EAELIB.BAT 1 10-AUG-73 <233> 005621 EAEPC .BAT 1 10-AUG-73 <233> 014276 EISLIB.BAT 1 10-AUG-73 <233> 005647 EISPC .BAT 1 10-AUG-73 <233> 014352 FISLIB.BAT 1 10-AUG-73 <233> 014470 FISPC .BAT 1 10-AUG-73 <233> 022367 FPULIB.BAT 1 10-AUG-73 <233> 005661 FPUPC .BAT 1 10-AUG-73 <233> 014376 BFTNDT.BAT 4 10-AUG-73 <233> 135370 FREE BUFFER SIZE. S VARIABLE USED BUT NOT PREVIOUSLY DEFINED. F DIAGNOSTIC TABLE OVERFLOW. F ILLEGAL FORM FOR UNIT NUMBER IN DEFINE FILE. F MISSING "(" IN DEFINE FILE. F ILLEGAL RECORD COUNT (M) IN DEFINE FILE. F ILLEGAL RECORD LENGTH (L) IN DEFINE FILE. F DEFINE FILE ONLY ALLOWS UNFORMATTED (U) MODE. F DEFINE FILE ASSOCIATED VARIABLwRHw Hg`.SHgRHgHd:Hd:Hd:.Hd`:SHd:RHd:H[SHW`.SHWRHWHK`SHKRHK. H#` SH#RH#H! H!.eH!H!H!U?H!S H`u.:SHuRHuH8<HU<HS<.,H`&SH&RH&H`% [H%.SH%RH% H `@?SH ?RH ?.-aH\@,SH,RH,H`SH.RH gHLz. - #N`^#N`^"!Nqhf(,!Nq hf*hhhh  ,hhh hs`^s`^ sq. .GLOBL CSRFDGCSRK1GCSR3sqASMDIRD (("BJA.#   "S BJ%<NQCRSK1GCRVBLIRDCwNQZ.ZfnruCRSPGKCAX01248  ) fE BLKS: 40 FREE FILES: 35 E NOT SIMPLE INTEGER. W MISSING ")" IN DEFINE FILE. F EXPRESSION STACK OVERFLOW W ILLEGAL FORM FOR OCTAL CONSTANT. W OCTAL CONSTANT TOO LARGE. W OCTAL CONSTANT MUST HAVE AT LEAST ONE CHARACTER. W IMPROPER FORM FOR REAL CONSTANT. I NO EXECUTABLE STATEMENTS IN A MAIN PROGRAM. W MISSING COMMA. d( 3(L>M"[".GvL  H%%,(vL}~%%,K|~ *J7  ӕ.@QEf"@QEfZ/dZ/dvL$0עn r u(N.& CĔ ` B ˋȤX.BaE e _   @Q @Q"aPM$. _pD DLL z"aOM!p\gW(a-. D e0 O(! aW\gW$\g( @Q* T@4. @Q a-!aWT@4",.:H v  h  T Q.Hv  h  $T (. W REDUNDANT COMMA. W IMPLICIT STATEMENT APPEARS AFTER STATEMENT IT AFFECTS. W LOGICAL OP. MEANINGFUL ONLY ON BYTE, LOGICAL, OR INTEGER. F EQUIVALENCE GROUP TOO LARGE FOR ADDRESS SPACE. W ATTEMPTED EQUIVALENCE TO MISALIGNED BYTE ITEM. W ILLEGAL EXPRESSION MODE IN IF STATEMENT W DATA VALUE EXCEEDS BYTE MAGNITUDE F DELIMITER > MISSING FROM V`  f&!8.vL& N  - ' w ww 7.j  w D Ջ+$GvL$%%,"DfDft! $f   b.t!&Df"GvL%%,R%%, .8 P Rb<.IR&%%," R7  @.$DvL$$GvL`# &? > .DvL$GvL` ?CSRFGPAK1CD????ASMDX?VBIIRD 6.C012?4???8 #  &g'!#g'"(aOM.ҋ5 5E >"aL^&!.  ;POLPTR: ;@POLPTR: ! #g'#g'df2g  ;STK DEPTH: df2g X ;POL CLASS: y( .;T.O.S.: ;CURTYP: ;CVT:SER:OPR#g'y2g= @: \ D+ARIABLE FORMAT EXPRESSION W EMPTY VARIABLE FORMAT EXPRESSION F VARIABLE FORMAT EXPRESSION NOT ALLOWED WITH H FORMAT W NEGATIVE OR ZERO CONSTANT AS SUBSCRIPT F INTERNAL ERROR DURING CODE GENERATION  @ @,  ..DvL&$GvL `$GvL   s .Df%%, *- (Df& Df-f& d' ^.hfGvLDeD㋊/˕hf 00008.:&$GvL$2%"GvL 2a2` ,:x 2  , N(. 6 N- . D;CONVRT: ;INTERNAL ERROR *(F&dh"h _ *#g' #g'#g'#g'#g'#g'*Te   ",aPMT #g'aL^!g'"* _ % *g' %NT`|N"T`|N,   ;  *g'g'!df2ga$aL^ ! !M.#gL/@/D@%.6  .]@$Yw zwV` @f lppvf.0M$vLy0M!vLHX~$7 w.vLy$KyvLy- 9å1åC m|.5vLy vLy/ѐw l b -V.p:vLy0M~-4`נ7 נ)0 + w>w 0.vLyHX~wD- נ9 נE .rvLy&HX~p:p:"&? W@k@k<@\_@t!'@.t!f@""@""v@#@y@#@.X(`9@\(Xa@,0M@,Xz@2@c.49@y@x:*K@vL!@qQW@_ 3@._oM@9wY@9w\@wY@yvL@V.z@(,#hZ#`"hrD9hG:aSh9w@[h&( w7 'w M*# 9wYvL!t!f/D /" w*# #_ 3X(`9_ 3X(`9 -!  נ .vLy HX~נ-7 Ԑ  נ9נ.HX~p:0M~0נ נ) ?C.0M"a7  7   ĕ Օ \r.m @e^Օ !    L.Hp:ap:x: (FvL( H  `5&.2(FvL$x: 0M0MvLy $ @ .C 3k :-  t*\(Xa_oM "" ""vzt!',R ؅ w.wY,0MyvL,Xz9w\"#@y?*v   w.yvL? WvL!\_x:*K"49@y$.  . (,ENDFORMATDODEFIN.  (,.EFILEASSIGNCALLCONTINUERETURNGOTOIF(PA.USESTOPREADPRINTWRIh/dh\ga.h NahPMahOMaVh0Marh&a.?h ahahvL NHh@ANh@o;.h0M,h! ( 3(@HX~.@}~@K|~@vLy@Ky@zw.@Yw@@QEf@Z/d@2a@`.@ N@GvL@$GvL@(FvL@DvL.@!vL@vL@x:@%%,@0M.X@2%@Df@L@t!@.@a@p:L?:.̈́fTEENCODEDECODEREWINDBACKSPACEFIND.axLL"@@a@(@axh. ɥ0   D L"#"&%ɋ3, aD.2,Lk<@d@!@(.,*K@2@2H 2@3}@.`@@a @a0M@aPM@aL^@.ay@9w\@wz@z\@(n2,h\2h h.3h 1tFh(*vh}nphy&Dhghy2l!hytphy(j hyOhy.}hy^hs`zqhsU hq^rghf2d.,hWDD hS^hN`#xqhN!fhLdS.4hLS~ hLSNh%'h#g h#.5^ h!t^h`|qh'hgh.@`hRhd& h OM h )^3( .7(dxHyBL>}`*T.$$ $.$$.$. .TITLE .CSECT .GLOBL : JSR %4,$Ph.&OLSH .GLOBL $POLSH,$NAM $NAM,0,0,L .GLOBL $SEQ  \$\ w .2 aPM z\ay!2G(x   w  ,3}a0M a0Mk<aPM $ w e w .ay! ayaPMz\aL^-$, w L(a  aL^!wzaPML.. 7@  4+L s| wV.V *) 65 A 9 nn  yH.H & & 541.TADA.INMA+C 3!h" i9N?L @Q@k<@.z@!U@!ܟ@!@a'`@.,@.L@2@2@3}@u.x:*K@vL!@R@a@a @.a0M@aOM@aPM@\g@@\gx@z.wY@wz@x`@z @z\@.(pthh 2h L^hhL"h.hdhhh~hd.!hp&Kh,,hv,*Kh,8hxC..KOhj.th6.th~.hnKht._MTqh NhlR8h^TQhBxh,\hHX~hd}thwz. h nzdhyLhMyjh`xlht8w.5hzwlhYw#h&s%h"s$hs.thpbshsphv~rh arh"$q.,hx\gh@\gbhy=dh:dh|NT`.=qhZYrhwWfh0ٜSLhWSzh@QUS.7hRhWqQh Nha NhS N.dh Nh[MVh!vLh:h*Kx:.h*}X:rh@89Th2hL.h-.h-phXz,h~'h'fh.a'.hh`a'h@'&h hbHXhr.YhjT[h`hf`@h(a$h.a%ha-haWhaL^hawh8.ayhayha*}h+dIhevh\5.\gh\gWh\gYhgh`9w\h@Ihre3lh.B09AZ6.&!w  4, @QRaPM $a'`(a'`"LS  *x`! @QR @Q.fS w z%h@%hxQ#.7Rh#(hv""hg'""Hht!""&h"".|h(7!:h7!8h6!&h2!~h!.=>h%!<h!h't!ht! h}.thVhSlhHfhydVh X].h h@~vh.h<h<.0h <h<,h*K<2h<4hL<.;*h<hOjhzhah0M.`hZ-hp%(hZ%h2%$h%.Uxh;hWkPh<khkh@Q . h ) nh? ) 6hD/hg'nh. @ .GLOB,Rx`aPM @Q RL $TR $TR, =.  I.ĕ:ĕ,ĕ fa\g@\gx$\gx. wf w7 0$\gx\gx\gx"\g@&\gx.w  .GLOBL 8\0o"aOM aPM $\(012456:?DHLp.124 5 6:?DHL.&PTX\+-***/.OR..AND..NOT..LT..GT.PTX \i( 3(L@>**}.yr ur l c" PQPedF.F PQ;Q Z ;^'QN 'y'z&. 'z& EzbzN .z= Er." x*x.L.EQ..NE..LE..GE.   b.r  U t  >.&  &Cå å$ נAQ.  :  f.e`    å.נ0|. נ9B¥  ɥ ɋ DN.0 &f DW .VR &&f.|  Ëנ@ .e ee e ѐ  l.@(E<L.L  0 00 0GEPA0 -7XX-X00 000::000 .&-.......N RARTFO ........ ANTROR F;.C3 hZ hZKh~|)h~u[hzT.3!hzthz~ hz| hyMhy.nLhyvpKhy:hyp#hy"hy".DQhf@ELZhd/F2haJhah`.|Mh_oz3h_ Mh^#h^"h^.`h^ktdhTohN#hN "hN .eZhNk GhLvGhL$vnFhLvRFhLxv.&fe B y.em&ff&ea0Mz "z\_. Z  e a0M.:&f $2 e $a0M.`W0W7E0W0m. W9WAWFE7 e (x:*K.&̋ 7w .w '* vL!.La aPM vL!$wzB.  w :: $SEQv"aOM wY!a xFhL(vDhLvNhLvrhLvh;O.fh:kh:xh2h2f%h,%._xah(X\v9h(`XQh'5h%b,hLi.(^+hiLh%heN2h%Rh%. ZhVh@hfhD!ht.2Qhah^h:hpSh E.VMh E3( (6}H~H3.}H3e f7 &f 7*.***   ? 3hD *!!$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.:ht!:h~&khsyhhNaFhDahH>ah(