GO+,>G+8,>G +8,>G ,>+8,>G ,> +8,>G ,> ,>+8,^ ,^ ,^,~NQ>~ Z<`X@ `C C~0C&l`C&v@C2|pC2|t(C6C6 C6MdC6Md C6|@CNM`CR`CRd@G0G~0GFG2|pG7NG>u)`G?G?@G?GNM`GO-I0I$@I$II dPI~0IFIex:I&hI2|pI2|t(I6 I6Md I6|@INL{@INM`IO-KcM2|S0SMPSMmSOS; SNL{@[B[B[&r[&r[> e@g&=`g&pg&t@g&ug:=@gG@iu$Y$G$O$?$3($5$Q$7)$$;$I!$K$=$W&$]$[$c$S/$e*3$U$E5+#>z($o*(.(*(:(::($y()xz)}P?()xz)}`$*(*(:(D:($.(.8.8.8*8.8:(I*(*(.8.8,0,0,0j0P,0,0h0@j(0,0,0,1x,1x,0,0,0,0:($h(@h ( l `j Pz PNh  h!|P*!xh!|`*!xx @$n(pz( S:($*(*(l(`:(X*(% QH , Z=Ҁ ` =    q_.XZX`E [X4NJ[X+HB2Jw` =QNX w,2  q _R`X`[X[X`Z X5J\.0ZX Np@a =XJX  q _ w/0`ZXC3.w`+HZ qXJX +-..1Z BU Jp0h`Z ;`7d `+z,{8.p L o7. p  o H(R` d  +z6`l   o+z  oZ hZ h L o`7  o8. pZ0XNhXZ0+f@/1`%  p` +`@`@ ʀO`  ƀ  ʀ% ` *%+ʀ%7b ,~ -.(  *{ ,6 L> X2Nw+F +u{`53V/`5 X2,w+{ >+ V>{ .{ 2jw`5 > 82(w`O+, Z o  +@$`+&++@+1`o`}@+[``+g+i@+p+u@  o c 4 n2 (e`  o   Lh n2 c@ e`6J `g,>3,6/0  o   h2  Jh`B u  o6  `y  o  o  `7J q+A  oXZ(`  oXN qQN q gZ`8 *j4, Z o  q oXLh  oXN q  |QH8 g ,l4* * @ !@" 2@ A2`[ A  oXZ AQZ A`  A o34XL A  o  }36``  o 2 4@@h c`  o i`[ p  oXZ pQZ p`  p  oXNhXN p`,> ,/0`Ҁ +l  o 6 `  oXN(  o  XNhQNh`Ҁ +s  o 6 `  oXN( `Ҁ +x  o 6 `  oXN(  o,~  +@$|```@+ @  o R+O`  ocR +.54N R+ 2Nh+` 2Jh+`  oB2J +:h`@,~-.B;* `% w XN0 `) wZ vXN0XL v`%-. [  +Z v4Z hXN v`GQ[ Q/ "L {{k`G .:0z,S> ,S Q J {[ Q"[ <  @@ O+(+$+$ `%@ ` $  $ U R$  n$  e$ >4E44C4GG44-..$l :C *QJ ,Z )yQZ )XZ )+>[ )XZQZ )8 wQJ |  N  O/$`%-..$ `h` ,>w,6/$8@/$`% ǂI;*%1J^+O@+P  Z8 Zp p<C.Z(?Q(`8  p<  Jp2vp+[8 5FZ+[`%@I+J,~-.6Hw` &g+a 'w`% ǂK; $KQ,` LpZ.pQ.A`  Lp 2vp +,p O@p@ R`:p+, #S`:p8p 0F` . 1S8`:p w $tZ"(Q"A`8` *R+ :p w<$.H WQ"A@ $<$ ..`` . <$  ..` ` 3S`/:p w< $,Z"0 -Q"@` [8 $%..+ ,8 $-.*+ ] ,S8`E:p w<$(Z" )Q"A@ $C?`C`9.(8`9 (8 5R`S:p wZ"0Q"A` S`M:@p`W89h@8Z*pQ* ,^/$,>&,^/$Z(+8K+aB +9l x8 Hx`aB+;M`aB+=,>'`aB+?O`aB@+B,>(Q/)@,~?` 5 F1i i>/&,~?h 0+J _+V@ d`aB@+O,>(`aB+QO`aB+S,>'`aB+VMS/),~?h ++Y U+e@ b`aB@+^,>(`aB+`O`aB+b,>'`aB+eM,>*/),~@ ` BINARY OUTPUTASCII OUTPUTASCII INPUThjlOBJECTLISTINGSOURCEp$sI/O#0 1 FILE 2 COULD NOT BE FOUNDI/O#1 3 UFD DOES NOT EXITSI/O#2 PROTECTION FAILUTE OR DIRECTORY FULL ON 1 DEVICE 4I/O#3 1 FILE 2 IS BEING MODIFIEDI/O#4 ENTER FOLLOWS LOOKUP OF 1 FILE 2I/O#5 LOOKUP FOLLOWS ENTER OF 1 FILE 2 I/O#6 DEVICE ERROR, DATA ERROR, OR DATA INCONSISTENCY IN 1 UFDI/O#7 DSK ERROR NUMBER SEVENI/O#8 DSK ERROR NUMBER TENI/O#9 DSK ERROR NUMBER ELEVENI/O#10 DSK ERROR NUMBER TWELVEI/O#11 DSK ERROR NUMBER THIRTEEN I/O#12 1 FILE STRUCTURE 4 HAS NO ROOM OR HAS EXCEEDED ITS QUOTAI/O#13 1 DEVICE 4 IS WRITE LOCKED I/O#14 NOT ENOUGH TABLE SPACE IN MONITOR FREE CORE FOR 1 DEVICE 4I/O#15 1 FILE 2 ONLY PARTIALLY ALLOCATED I/O#16 1 FILE 2 BLOCK NOT FREE ON ALLOCATED POSITIONI/O#17 1 DEVICE 4 NOT AVAILABLEI/O#18 1 DEVICE 4 WRITE LOCKED I/O#19 HARDWARE DEVICE ERROR ON 1 DEVICE 4 I/O#20 CHECKSUM OR PARITY ERROR IN 1 FILE 2 I/O#21 BLOCK TOO LARGE OR QUOTA EXCEEDED FOR 1 FILE 2I/O#22 NOT ENOUGH ROOM IN CORE FOR COMMAND STRING I/O#23 WILD CHARACTERS IN OUTPUT SPECIFICATION ARE NOT SUPPORTEDI/O#24 SUBFILE OUTPUT IS NOT SUPPORTEDI/O#25 1 DEVICE 4 CANNOT DO 5I/O#26 NON-EXISTANT INPUT FILEI/O#27 WILD CARD FEATURE FOR DECTAPE NOT SUPPORTED I/O#28 ONLY TWO OUTPUT FILES ARE SUPPORTEDI/O#29 1 DEVICE 4 ALREADY IN USE OR DOESN'T EXIST I/O#30 WILD EXTENSIONS IN OUTPUT SPECIFICATION ARE NOT SUPPORTEDCOR#31 NOT ENOUGH CORE FOR EXPANSION, COMPILATION TERMINATED$$~$ $$#$1$?#$M$U$c$k$yAGK$$$$dk$s$|$ $ 6$ d  @ `0 - LINE: FOUND  WHEN EXPECTING A  IN A  2 - LINE: FOUND  WHEN EXPECTING EITHER A  LINE: OR A 4 - LINE:   USED INCORRECTLY 5 - LINE: COMMON BLOCK  USED INCORRECTLY6 - LINE: NAMELIST  USED INCORRECTLY7 - LINE: ILLEGAL CHARACTER  IN LABEL FIELD8 - LINE: ILLEGAL ASCII CHARACTER  IN SOURCE 9 - LINE: UNMATCHED PARENTHESES OR BRACKETS10 - LINE: STATEMENT NOT RECOGNIZED 11 - LINE: A STATEMENT FUNCTION MUST BEGIN WITH AN IDENTIFIER12 - LINE: STATEMENT NAME MISSPELLED 13 - LINE: ILLEGAL OR MISSING CHARACTER IN FORMAT14 - LINE:  PART OF COMPLEX CONSTANT IS NOT A REAL OR INTEGER CONSTANT15 - LINE:  IS NOT  16 - LINE: LEFT HALF OF ASSIGNMENT STATEMENT IS NOT A VARIABLE 17 - LINE: LABEL OF TERMINAL STATEMENT MISSING IN DO 18 - LINE: CONTROL VARIABLE MISSING IN DO 19 - LINE: LABEL TOO LARGE OR TOO SMALL20 - LINE: LABEL  ALREADY DEFINED AT LINE 21 - LINE: DO INDEX VARIABLE  IS ALREADY ACTIVE 22 - LINE:  IS NOT A UNIQUE STATEMENT FUNCTION NAME23 - LINE: ILLEGAL STATEMENT AFTER LOGICAL IF 24 - LINE: LABEL INCORRECT, COMMA MISTYPED AS PERIOD 25 - LINE: LABELS MAY BE REPRESENTED AS INTEGER CONSTANTS ONLY26 - LINE: ILLEGAL SUBSCRIPT EXPRESSION IN DATA STATEMENT 27 - LINE: ARRAY REFERENCE  HAS WRONG NUMBER OF SUBSCRIPTS 28 - LINE: A FUNCTION MUST CONTAIN AN ARGUMENT LIST 29 - LINE: DO LOOP AT LINE:  IS ILLEGALLY NESTED30 - LINE: USE OF  IS ILLEGAL31 - LINE: THE DIMENSIONS OF  MUST BE OF THE TYPE INTEGER 32 - LINE: THE VALUE(S) OF  MAY NOT BE REDEFINED33 - LINE: EQUIVALENCE EXTENDS COMMON BLOCK  BACKWARD34 - LINE:  IS ALREADY IN USE AS A 35 - LINE: OPTIMIZATION TERMINATED36 - LINE: ASSIGNED VARIABLE  MAY NOT BE USED AS A SUBPROGRAM PARAMETER 37 - LINE: PROGRAM IS DISCONNECTED - OPTIMIZATION DISCONTINUED38 - LINE: IMPLIED DO INDEX IS NOT A VARIABLE 39 - LINE: FIELD SPECIFICATION NOT YET IMPLEMENTED40 - LINE: ENTRY NAME  ALREADY IN USE 41 - LINE: ARRAY'S  AND  MUST BE OF THE SAME TYPE42 - LINE: ATTEMPT TO ENTER  INTO COMMON TWICE 43 - LINE:  IS  AND MAY NOT BE DECLARED  44 - LINE: THE DO PARAMETERS OF  MUST BE INTEGER CONSTANTS45 - LINE: CANNOT GET SEGMENT  FROM DEVICE  46 - LINE: UNTERMINATED DO LOOP - LABEL  47 - LINE:  IS A RECURSIVE FUNCTION CALL 48 - LINE: MORE THAN 1 COMMON VARIABLE IN EQUIVALENCE GROUP 49 - INCONSISTENT EQUIVALENCE DECLARATION50 - LINE: SIZE MODIFIER MUST BE A DIGIT (4 OR 8) IN DECLARATION 51 - LINE: STATEMENT TOO LONG TO RECOGNIZE 52 - LINE: CANNOT USE DUMMY VARIABLE IN EQUIVALENCE 53 - LINE: CANNOT USE NON-CONSTANT SUBSCRIPTS IN EQUIVALENCE54 - LINE: NON-INTEGER REPEAT COUNT55 - LINE: NON-INTEGER UNIT IN I/O STATEMENT56 - LINE: NON-CONSTANT ITEM IN DATA STATEMENT57 - LINE: MORE VARIABLES THAN CONSTANTS IN DATA STATEMENT 58 - LINE: NAMELIST NAME OR ITEM  ALREADY IN USE59 - LINE: IMPLICIT DOES NOT PRECEDE OTHER SPECIFICATION STATEMENTS 60 - LINE: ILLEGAL MIXED MODE ARITHMETIC61 - LINE: COMPILER ERROR IN ROUTINE 62 - LINE: OPT - ASSIGNED GOTO WITHOUT OPTIONAL LIST HAS MORE THAN 10 OR NO ASSIGNS63 - LINE: OPT - LOOP TOO LARGE OR UNEVENLY BRANCHED TO OPTIMIZE 64 - LINE: WARNING - CONSTANT UNDERFLOW OR OVERFLOW65 - LINE: ILLEGAL USE OF COMMON BLOCK NAME 66 - LINE: CANNOT INITIALIZE A DUMMY PARAMETER IN DATA 67 - LINE: ILLEGAL STATEMENT USED AS OBJECT OF DO68 - LINE: TERMINAL STATEMENT OF DO HAS ALREADY APPEARED69 - LINE: WARNING - NO END STATEMENT IN PROGRAM 70 - LINE: NO STATEMENT NUMBER ON FORMAT71 - LINE: ARGUMENT  IS SAME AS FUNCTION NAME72 - LINE: NO CLOSING QUOTE IN LITERAL 73 - LINE:  STATEMENT NOT YET SUPPORTED74 - LINE: LOWER BOUND GREATER UPPER BOUND FOR ARRAY  75 - LINE: ENTRY ILLEGAL INSIDE A DO LOOP76 - LINE: WARNING - IDENTIFIER MORE THAN 6 CHARACTERS 77 - LINE: WARNING - DO INDEX MODIFIED INSIDE LOOP78 - LINE: OPT - WARNINGS GIVEN IN PHASE 1 OPTIMIZED CODE MAY NOT BE CORRECT 79 - LINE: WARNING - VARIABLE  IS NOT INITIALIZED80 - LINE: INCORRECT ARGUMENT TYPE FOR LIBRARY FUNCTION  81 - LINE: WRONG NUMBER OF ARGUMENTS FOR LIBRARY FUNCTION 82 - LINE: TOO MANY ITEMS IN LIST - REDUCE NUMBER OF ITEMS83 - LINE: LABEL ARGUMENTS ILLEGAL IN FUNCTION OR ARRAY REFERENCE 84 - LINE: OPTIONAL DATA VALUE LIST NOT SUPPORTED 85 - LINE: LABEL ILLEGAL ON END STATEMENT86 - LINE: MULTIPLE ASSIGNMENT NOT SUPPORTED 87 - LINE:  IS DUPLICATE DUMMY ARGUMENT88 - LINE: WARNING - ATTEMPT TO REDECLARE IMPLICIT TYPE 89 - LINE: ATTEMPT TO REDEFINE TYPE OF VARIABLE  90 - LINE: EXPRESSION TO DEEPLY NESTED TO COMPILE91 - LINE: LABEL  DOES NOT REFERENCE A FORMAT STATEMENT92 - LINE: NOT THE FIRST STATEMENT IN SUBPROGRAM 93 - LINE: SUBSCRIPTED VARIABLE IN EQUIVALENCE BUT NOT AN ARRAY94 - LINE: OPEN PARAMETER  IS OF WRONG TYPE95 - LINE: NO EXPONENT AFTER D OR E IN CONSTANT 96 - LINE: LIST DIRECTED IO WITH NO IOLIST97 - LINE: BINARY WRITE WITH NO IOLIST98 - LINE: WARNING - COMPLEX TERMS USED IN A RELATIONAL OTHER THAN EQ OR NE 99 - LINE: WARNING - COMPLEX EXPRESSION USED IN ARITHMETIC IF 100 - LINE: WARNING INFINITE LOOP. OPTIMIZATION DISCONTINUED 101 - LINE: EXTERNAL VARIBLE ILLEGAL IN EQUIVALENCE 102 - LINE: SUBSCRIPT ILLEGAL IN EXTERNAL103 - LINE: SUBSCRIPT OUT OF RANGE104 - LINE: NON-INTEGER IMPLIED DO INDEX IN DATA STATEMENT5,$a27$s${$G$RW$$gmux $) $K$W$e9@FLP$$c$lt{$$  $-$7$E(-29>$$$$\$g$${ $ $   $ A ' -$ g 9 >$  H M$ $  _ e$ $  z $    $ ?$ I + 1 7$ { C J$  U Z$  g n u { $ @ =;(.w =(  w.  @`#. {+ O/ K< 46 N 4 " O` & J:K, H.*H / {`#6(w~` -H ` ; LJ w6Hw~` /. 4 "=6 ] 6H ` + c@@K# w~, H@`#-.ǂ ,> | , @/ } & ^ & _ & `I I I @@p8@0v+  \ Z & " ( ,> ~  2H =4 r (,>h I ,> ~  2H   ( 6L( I+ |@` ( I Hp.hp p ,> |  2H   (6L J+ @`   J ۸ ,> |  2H   I&p ,> |  4 "=0  I8,> ,> | I 9 kI H H 4 "=6 ,>p ,> |  4 " = ,> |  4 "=6 # I&p,> ,> |  4 " Q Iø ,> | & t & u & v H ,> ~  4 "=6 3,> W ,> ~ @ 4 " o  W ,> |  4 "=6 =  X ,> |  4 "  W  I ,> ,> |  4 "=6 I  X  I€  ,> | I I @ `!@ `P0P1P2SP2P3GP3RP3C S T U V W X Y  ***** PHASE TIMING STATISTICS (IN MILLISECONDS)  PHASE START FINISH DAYTIME CPUTIME LPM(DAY) LPM(CPU)  ***** TOTAL TIME SPENT IN SEGMENTS:   ***** GRAND TOTAL TIMES:      &+ &+ &,>,I 5 & & "a@1l " &Z,^7@x `I ;+x  |&"QDx _xx."H,~SKERRCGERR? ? Internal compiler error processing statement ? Call to FROM DDT EXECUTION: .B6H `  Lp@@p,Jc6` 1'` OJp: p+#,Jc'++Lp:p+# p a/.E460 *Jp ]` a p< ʀ.*0j+5+6ʀQZ  XH 78QLh;+A < Lp2vp+_ƀ X[ Nh% y+_@@h+_ | J ,6/C` <.(80h` `  QZ  XN 7QJhJ4Q( KQ,` Lp  <46Z,Jc6+WHp` ,Lp<+W=6T  4J_/*E .Np=6]+_ .Ƹ@@h /B+ .D@@@p-` O@p,Jc1f` +m++m,Jc1f` :> ` ,6/E` : ` )$6ŀ,Jc1f` ` 6Hp[ Հ  /D+"5H   L  DL)؀.Ldd@ DL/$.Ldd@ DL,Jc1f+ :> +yO,~-. @@ @@L F H  *  :> ,y0F$+ L H  ?Ƃ+@0F`] *  ,Jc1f+1F`o : +O@ ,y0F"+,Jc1f+ .  `mE`M,Jc1f+`m.D +$ ,  & E+,`o.D  ++ *  &/D+80F"`c,Jc1f`_`7E`o,Jc1f`e>`o *  +8,e 1N`{ J  L +? L @@ .G`%@ `[$04_|0(ǂ 4c L*  +f*###` 0b2`4B`@@x1b+S/" Bx " X%  +Ā% drÀ dn`l+\#&0&{./4@6Bx+Pa@..@dn5,d#d,`T+i) |tn NL,~ 7 g  LL,D+g6$ 68}g5ȕe"NPQ]_Q!$\䴷5Rm!Cd_/)Dt]w>X{3vu5Ne. 9k1C~=(H%<~ 4V+OA?0{/Je1'NM^x01+'v=rh=;'nbT'&Wa&5NԱ0-YPdH5w,*)Z={Z/PC$:Q`S-0i%$r.t:$.AgýQ-$Z!9RY%{xV+6C-MaT\lj8%a 4ee`KPD2}?x/*7u{uoK -4Ref*yG8Fs?^1-mi)xZb2Jz b&t^SQ(3Lf33333 (2>@'0j=@&h/WB;M2@% /H.H;::J(@$0N9(--9y*2>,N4ӷ?wb`H-mA-g{)ȑ8Y=PMz[И\W 0|so lh6HmHʅ*D=$$DD$DD$DD""I" "H0 AP:T-n;D $Y[~-.ǂ{ wb4 HMB,>0L+k} JN,?.  , NOS` | L ` w O(Ll@ O3JN+],>M,> ,T86 w,A0L@ 0J@&+* Os+* w(L,>*w Zp,T p+*(>5H,B4Ln`+w M*@ 0J@  0N@ #3+v w (+w w h@ M4aH` w ,>M,/C6aJ+* w  Zp,/C p+*,>0L+& M(? HN*? $ LOS` | J `Q w*D 1J@,D1L@A O @ &6`/,D/E w ,l@ O3HN+,>M(H,> ,T6 Or+* w(J Zp,T p+*  | H  < ,6/F++@{`%-. w5H0C4Zh NP+80L+4[hB JP+8  | H y ,6/E` P,?.? NQs+S P 0N@ @ G (GD +S(Z ,>w,T w5NI4+JQHh(A1H+S+R Q 0H@ 0N @ A 2+S @`%-. w~(@ 0H@ ; 0L @ 0L@G"2+h[ h0l+c H N  J   ( ` H N  J  h  ( ` w~; 0L @.@ 0N@ "2+o w~` w~; 0L @*@ 0J@A3+v ,; w~,A0L+4 y h N=,?(J. = } H H  { N  > ; `,>w,>I(?,> ,{`%-. w(A0H+ H L @@    +,>I w,?,>,>J ,{ Zw w 7w@`%@ ` x-9as9a$s;044E4 H44EC41=G444  ;[ [ w.8 3N+SKQ.  ,6/`@@TZ.(Q. NSZ w[w/ JR SC4H_,>,T/ ZR Saj` ,> ,>R,/ ZR T2`  ,>R,/+O@T R`+ R 0H+c4B JW(0H+|4aL` h$("+z h$(  JR+0J+ h$0ۀ RaJ+,> ,>W,/` W ZR R0L+  R  $hۀ`+ h2`% ,> ,>R,/ ZR T+gO@T RB ..nS=6X 0aj`E T2`A  c,/`IcO@T`Ib  ۀ;, 3`a T2+/  B,/`aBO@T,> ,> T@ ,/ ZV V* Jh[ w,>,>w, VB4 HR. @ 0H@ G 2+D `XZ 7V@+-. w~2` w LX w~ HY7JY`.0N`0L`Bc LY`C0L`b HZ, 0L`B/`,>,6/` YZ h LY+KO+^@`%-.7Hw`C0L`O+v0J+g,>,>X/+v. 0N@ , 1L@"2`c,>/6` wC+t0L `B/+v@`% .@;< Hp2vp` . wZ (2Lw~+~O+%@/+@ `$@(  04HHH4AF8E44GHC H s J C ,~ (QH , @@XX, w}j:;u w~n;@@X;2, w + (QH , @@XX, w}j:;u w~n;@@X;2, w;XLX4H/w @ w @ 3`]z<+/XV 7Jw`oy @y @G3+7z=`oXV( +@ `,C,E,,, ǂ wZh H\[ hc4 L[C[h j[0L +^C(\0H+^ 0J @ 0L @ 2` y 8 J=(] } L  { N  > (^ ` N 4"L  hR (^  [0N +wC40J+w(_ 0H @ ._ 0N @G 2` y 0 H=*]. T } N  { L  > *^ ` L "N  hR *^  Z[0L +C(\0H+ 0J @ 0L @ 2` y 8 J=(] } L  { N  > (^ ` N 4"L  hR (^  \,`3H`- ,>,T/a [ \,`3H+ ,>,T/a Z[ \,`3H`G ,>,T/a \M w lb [ 0J@ 0H@ #3`{ Lp `h7U pƀ.: } [4 y h L= { ( H> L  { N  > (^ +b(c2+U w  QL , Z] ]XHh wXJ nd ,@ je.^8, 8XZ0XL( wQLhZ0b44HUǂc3X4b Hp3,>w,>f [.^ ,/gc4 L](c @ C N],h @@@^0L`*^0J `4 y h H= V } {3Ni+yS`` h+q w lj` hS`O@^` 2Ni@ 6H(@#3` w hj*k2`# QL , Z] ]XHh wXJ nd ,@ je.^ Hp, pXZ0XLh wQLhZ 0 b4#ǂb2X4b83 w4,86`j` N] 0L@*\ 0J@ A 1J@ A2+1 Np `j7U p(l..: } y 0 N=4 { h J> L  { N  > *^ ` ^3`{,>w*^ ,/g ]+< `XNh`,>w,>f,>m*^ ,/g ],k3+FXNhc N]*h @ B4 H] @ .^1N` ,T/a0H` N @@  h8   ( +b N @@    (  Z],>w,>f,>],/g w [ 0J@*n% 0 @ % 7.0@ %   @ A 7* @%5+|# h L_ J @@ S_/hR  .  w@  jo+0L+ 7(h@ h @ #3+ w  w hp+(k` w lp+,>w ,/g w4QJh@+-.ǂS( H .*c.W..(N.((H. *X. ‚ J :! wh^`%-.ǂS( H .*c.Y..(N.((H. *Z. . q J C C wh^`%-. w[hc+G`C40L`s H , Z` ` *XLh w `QNh+GC0L+? `QJ ,>{`B0J`c,h3`XZ8 J`Z(`s@`% .r QH , Za a ;Z (XLhXZ( a .nk (,,s;+W.:ah3+Z Z +[ t H S( H  Zb a b4 aj+a@+b ..sB$..QN  a Zp, pXZ0 Zd d[ /( . Nc;., waJ` H @@  .  ,  Zb`   Hb 8]+ d cZ( ju`:c d.[( u+ ,: c d. C lv:c9w H @@   ,  dXZ8 Z hhw wXL8bhx bXL8@/r+ ǂ w(s.: Ze  Hp2vp+ e[ (3L `=@`A (.he%5+ ǂ@@  K`aC K*y Jf..  Jp2vp`_[02Hw`Y+1Z 03Jw`W .ۀ%Q: +#@+ ǂ [ q H ;7J ;+Q+OZ (4LOZ( C Lp2vp+OÀ B(z +G[( Ng 8ah`,H/r 2 KC g K`  ;[hC6` B4 K,>c4 K,>,H/r%u  ;Z h L ;`i@+@ `3330 ! ! ! !C C C C C4H4HE.E4HE4 44A4G044 0_PA44A4444L$G4$@hCR@CTs@CF8F8F8$@8GHaB y =C }+@0`n@0 { J>,~. >,4,4/ >,6,6,W$ >,8,8& >,:,:,Y. >,<,</ >,W$ >,E,E& >,Y+ , ,+ ,,,+ + ,,+ ,,,??+ + ?+ + + ??+ + ?+ + + + + ,  MME,!,!,  .+ + i,!,!,  .+ + i,!,!,  U * *+ iA >G >I >F >(`@,NB {,~`@,NJ {,~`@,NR {,~`@,NZ {,~ \*.B`@,N {,a*.,~ \*.B`@,N {,_*.,~ \*.B`@,N {G*.,~ \*.B`@,N {}*.,~ y J= { >7 w { { J> y =,~" { >,~b { >,~,  Xd*:,~,j,j,s,u,y,y,  ,,   ,,  >( 8,~ >H8,~ >H8J8,~5*p (>€">( 8,~">H8,~">H8J8,~ >( 8. =,~ >H8" y,~ >H8 \*.B y,a*.,~ >H8" yJ8 =,~ { J>,E,~$ =,~ { J>,E,E,~,~,~b, %),/#, !%, 5# {"h,~z {gb {,~&>,~3*> >,~2j> >,~j { {,~Z { {,~b7 >Z,~ *,~  (,~  (,~&(6@h(Fh*6" *,~&(6@h(Fh*6 (J,~#%(] yZ (,~7 `@w[d(~"e y"`  (,~4HT7 aj`s:l(s+] y"` *,~4HTl*.*@ejl(,~7 w y,~,>  | N ,D,^x,^C }0,1+K/,++R +M ,+R `++R0,` ,+R 4LT`n@`,~4(W,~1L+Z ^3 ^,~S( ,~{@?Wps 7 6Q<`7 6Q<`7 6 F8LpcX9i+i7 6 p8!`7Pp`# 8`#:5 N7`L 6`F  "`cX@ l<LX cR:d6~d0~9"`)P?+|+! "`cX@ a|+LX cR:d6~d0~i i.`vh6ev`dv`v,lav %ld6~5VcX+W7%av`Z`dZ;z+YddZ;zaB@v,^ Vpd88,~ddZ;z+Z 6$,>`)P9{Nl"` cX@ ,~l+7 67 6Q<+% 7Tp+W448 !`7Vp+W Pu8:5.:W.`|l' d6~d0~%$% %ig.i +$[`X.8)[`LDcR9(+( F8cX%W`W7 67 6Q<+@ p !` p 46T8PU+G+Wt+\:5.`|l' d6~)' JcT@ '[LDcR$` F8cX9E+E% )aZ@+`/HH %i%k) 3( E+_ O@ E: E 9,~F  9,~@@  ?Q: ,~-.,Jc1f+f0F`,Jc1f+i : `,`,a7w@`%-.ǂ%,Jc1f`O@p =R+v:p %A+~ ,S8+y:p%+~ .S+|:p %B+~:@p+~S:%`%-.ǂ%,Jc1f+ : + &,`9O@p ,'S8+:p,Jc1f+O@p OR8`-:p,Jc1f`0F*@,Jc1f+0F@&6`+S:`9%a N  ES+:p,Jc1f`10F+ %C`9 %1 L :@p+%c Z  AS8`_:p,Jc1f+!0F'@ Zp,Jc1f`I0F"@,Jc1f+(0F@8A pA6`]n`9 %2 N  OS`w:p,Jc1f`c0F)@ Zp,Jc1f+50F@Ap6`uS: `9%e L  ,,S8+L:p,Jc1f`{O@ ,Jc1f+A0F)@ Zp,Jc1f`0F@ p#8 A6+K%`9 %3 N  ES+^:p,Jc1f+NQ+^,Jc1f` O@p .+S +Y:p,Jc1f+U0F` %D`9C%g ,S8 +\:p %A`9:@p+^ %4 Z  GS8`:p,Jc1f+` O@p (*R8 +i:p,Jc1f`0F+h%`9%i N  ES `:p,Jc1f+k0F`%`9 %5 L :@p`%k Z  ,&S8+:p,Jc1f`O@p ER8`:p,Jc1f+x0F` %B`9 %6 N  .*S+:p,Jc1f`0F+ %E`9%m L :@p+ %7 Z  ,*S8`:p%o7% %8 Z `  %F H  @@ Ƃ%`9 (#R8+:p%q7%5: %9 Z +  %F L + :@p+%s Z  | L ˀ  ,>%G,6%%`%-.ǂ%8@@p,Jc1f`?-`I,Jc1f+"O`O++',Jc1f`K@ : +7 p81&`c  | H ʀ   %: L ,>%G,6/%H+A0./(  Bp8,Jc1f+5+( %F J 8`u"hp^7Hp`y :+=@  p L  .%`%@@j 414`(V+G.6p+L :> +F+K.6+L(VP`,Jc1f+L/4+C>+S :> +S+X6Nj+V%,D%O@j,Jc1f+V` `#Z   Z S* J Q: aL +f Z  QN ,6H &`XZ &QZ &`XZ XZ &Z QLh  ,~  | H .*/(J ʀ  ,>%I,6%,~,Jc.+@ln+QOO`O``O`; %Cn `]n ,cnS:`an S:S:,:,,,,,,,,,,nn`k`u``n`S:S:S:`````n@  | H %u+O,Jc1f`a0F+4S:+Qn `,Jc1f`k=+9 %B+Q %E`,Jc1f`u=+>%+Q%`  | H  %;+O  | H %w+O  | H  %<+O  | H %y+O  | H  %=+O  | H %{+OKO+Q  | H  %> ,>%I,6%4:l,~,> E` E w" (nWO#"1t `/4 T L,(S.(NPŀ5V^@@ $`` T $S.(NP@@ " E@+e,l Z " [ "(D0,^`#-. C/w QD 5Dj`+r,XZ  wZ.0 ,&  < *:8  C ‚% W@`% ǂ% C1(}+v,>%J` w%} Np(%?+@$y`+}+`!`5`W`y+E+O E+ E+,l Z "[ "3Lp`  "v%+,l+[ "  p J  QN ",>%G,6`I p1*`F C "4 W`%5:O``ǂ% C%. Np2vp`1 %5:%`9,f%+,>,R% p w.%@.p]`E "."4H" +#%=OK,>w/%H+SC C /p8 W %5:+`+S`w,>,R% p w.%@.p Np2vp`g "."4H3 +4%_O5:6C C W+RC C /p8 W %w+`@@ $`ǂ% C,>p%5:A%`,>w,R%[ "0L+M E+>ǂ% C,>p%+@`,>w,R% w"A,f%+@3B $+R L,0`@%+-.ǂ%@@p w"8+Z8:p`[ "  p L ,>%K,6%:p4Zg`:p+a p %`O%`%@ `UNKNOWNLINEND"=""("")""[""]"":"",""$""**""*""/""+""-" RELATIONALOP".NOT."".AND."".OR."".EQV. OR .XOR."IDENTIFIERCONSTANTLITSTRINGj$mnopqrstuvwxyz|$$$ EXPRESSIONVARIABLESPECIDENTIFIERLPARENRPARENFIELDSPECLBRKTCONSTANTCOLONRBRKTDATADATAITEMVALUELISTLINENDSUBSCRIPTINTEGERDECLARESPECINTEGERSPECREALSPECLOGICALSPECDOUBLEPRECISIONCOMPLEXSPECBYTESPECFUNCTIONSPECTYPELISTSUBPROGRAMIDSUBROUTINEENTRYSPECPROGRAMBLOCKDATADIMENSIONONEARRAYCOMMONCOMMONGROUPEQUIVALENCECOMMAEXTERNSPECINCLUDESPECUNITSPECLITSTRINGIMPLICITIMPLICITSPECPROTECTGLOBALSPECNAMELISTSLASHDASHLOOPPARTEQUALDOLLARASTERISKPLUSMINUSCONSTANT TIMESCMPLEXCONASSIGNGOTOGOTOSPECCALLRETURNSPECSTOPPAUSEINPUTREADSPECIOSPECFORMATIDACCEPTPUNCHWRITESPECOUTPUTOUTPUTITEMPRINTTYPESPECENCODEENCODECODESPECDECODEREREADBACKSPECREPEATEXPRREWINDUTILSPECUNLOADENDFILESPECSKIPSPECFINDACTUALARGSTATEFUNCSPECARRAYASSIGNSPECLOGICALIFSPECARITHIFSPECASSIGNSPECDOSPEC.$'$1$7$?$A$C$E$$K'$S$W$[/135$m$q:<${?$B$E$$$$MO$R$$W$Z[\$$`$$$ef$ij$$nopq$t$wx${$$$ $  $  $  $   $ !$ #     $ 9 $&e$-c$-}$-$..3$..:4X$.-EXPRESSFUNCTIONSCANFIRSTSTATEMENTTYPEIDLETTERTOQUOTEEXPRLISTRECORDMARKOUTPUTEXPRLOCALARGLISTDOLABEL $  T V X$  [$  ^$  a c00@@@@pP@P@Pp ` p   @ p    0P0 `  0  @0`@0P p! 0 # @ 0 p P7@#`' 0 0@@)@0@P p@ p @-@-`PPPp   0/0@@ p# @ #` P@10 P0 @@@ p @  3`P@3`P@-  @  p00 @ @  p  @P `P3`3` P `'70  0 P5P``'7 - -P3`3`0P#0P@0@-P-` p `P` P2P @0p@ @ 0!`'P0`'PP 0`@## #0#@% PA6 !# $P`p0%&  #6 !&'  #`p6 !'(PPA6 !# ( (@P 0@)0#@G)`)p+  #`p6 !+,  #6 !,`KK. #6 !-p@OQQQOP@0@P  `6 !1 #07@2@`#P2`0p@ 3@P#0@44 0#6 !# @0P@`'01P P@8@G 0/0P8`@p0P @P 0 @:@9`::p00P @;`< 0 @ @@ 0@>0@@#P@P#P@ @  @A BP#! 0@ #B@  @ @ `@`                                    `` `         @ @ @         @ @@ @@ @@ ``````@``D D    @ @`@@`@``@@`@`@` @ @`@`@     @@@ `@ `  @@@@@@ @ `  ``   ` `  ``  ```   ` @ ``  ``  ``  ````````@ `@ ````` @@ @@  `  `@ @`@ ``@ @ ````@ ``@@@   .NOT..NE..NOT. OR .NE..AND..OR..XOR..EQV..EQV. OR .EQ..GT..GE..GT. OR .GE..LE..LT..LE OR .LT.RUE..TRUE.ALSE..FALSE.DOTTED OPERATOROCTAL DIGIT%?@\LOWER CASE @LOWER CASE [LOWER CASE \LOWER CASE ^$%% % % $%$%%$%#$%'$%)$%+$%/$%1$%3$%7$%9%%$%A%#%%%&%'%(%)%+%-%/04 j004 j04 j0, jx<<xL<<(  &x) ǂ&Y;/( wB JkZ ( Ll.&- 0N@*&- @2`%@`%6al`% lZ,[&[. 82L&.`%; +%gZ(0/(`% l&](&+3N`% ,>&/,D&_S, L  ,& N  w Zp p6c&Wj&-.&-n&0 J0 (&a.&, 3@ kB.&, r@ A 2+%}; ,>&1,D&_`&  kC]`& k B Jm l&c&]r+& ,>&/,D&_9%w h&2@&Y+@ `C `C~3@C&lgC&vC@C2|s@C2:C6C6'C6MdC6Md'C6|C@CNMc@CRc@CRdGG3@G~3@GF@G2|s@G7NG>u)gG?`G?C@G?@GNMc@GO-I3@I$GI%dGI dS@I~3@IF@Ie}I&i`I2|s@I2:I6'I6Md'I6|C@INL{GINMc@IO-Kc`M2|S3@SMS@SMmSO@S;!`SNL{G[B@[B@[&r@[&r@[>!`eC@g&=c@g&q`g&tC@g&u@g:=C@gGC@iu@66E4E4(ECQEC4-.ǂ) C8Ҁ E+&7 E,l Z "[ "`&y  )u L ,>)},6)`&,&@8  C W)`%.)~B* C`&),6/)`'/8[ "1L`'',(B8.5:&JO+'[ ")+&Nڸ`&. +'`''[ "8.[ )k)`''ǂ).  ( Np ) L 7 8 .(¸[p 80N`& *j* *,*+&a*+&dXBP(ah+&d j**h*`'!¸. 3[ p /,p&+'`&`&+&q`&`&`&`&`&`&`& (+&z (h*+&(h*+' (h*@`' (+&x (h*Zp `' (h*`'@h**+'@+&x@h*Z p +' :`'*) Ea(*`'*`'XBPan`' l**`'z*`'!XBah`'! j*)8.+&JB8. ",l Z "+&E/)~`#ǂ)[ "1H `'; ) N ,>)}+(Z "8,l Z "[ "`(ǂ*  C Jp,l Z ",*1L`'M`'Y Q`'Y4al@`'Y )v J4Q( H * `'[ " 2 @ 2 @ A 2`'k,&@C C W5:'5O/*`(=`'m* `'[ "1N`'E[ "1L`'y ) H ,>)}`'`N@`'b4A(}4H'EJQ*   )w N ,>*,6*`(=aj+'H`' :z*,>p,f) C Wc W W Lp2vp+'Uǂ) X*+'Sz* +'T@ l* )%',l Z ",*`(ǂ)d V Q@ O R4@ G3`'JQ*  *,6/* `(= Cb WQH , ) L  N  7 Zp p*h* * Cb W8  W .$e W' .  0 J +'u pXL(*+'y** 4J'y *'`j`(ǂ),) 3Z*`( ,>p,%L)+( p@ l* ) Cc W W,) p8)`(  C W) p C* `(;aJ@`(;  Q@*D3`(; Or`(; `(;KQ. N **`(5) `(7 )x * ,6)`(=)`#-..*8[ "0H+(+8+(*ǂ)) H 7 Zp p **@ l* p)+(,8+(, `([,l Z "`(A[ "`)',l Z ",&@ Zp(eO+)Q[ "0J`)ǂ)@@p p*3+(=B Jp,*4L(<[ " ) L +(fO@p+(A** 4J(A[ "  )y J +(f p** 0J+(K y h N=) }* J  { L  >  (   Zp7Np`( p y h L=.*.)z }* H  { J  >  .   Zp p** 4J(\ y h H=) } { Lp+(] h Np@@p,l Z "[ "3 `(0N`(O@p,l Z "[ "2+(h  ){ H ,>)},6*`)Z "(*0H`( y 8 L=) }* J  { N  >  (  7Lp+(}4 y h J=,*. )z }* N  { H  >  ,  (* )4 y h N=) } {`) h8* L  p N 8  *  Zp,l Z ")`) p*3`) *![ "1N+)  )| L ,>)},6+)' @ 0L @ 2`)5Z " Np,l Z "+),' Zp5:)`(c+)Q[ "0H`)yǂ)) L 7 Zp p .*n* p24,l Z ",( Zp5:)(O*`) p p4 ) pc Np(*`)_ *#+)3XZ8al+)3 p h* pC4 Lp*%`)o j*+);XZ0aj+); p n* p Jp)8`) p(* 0H`) ,>)},>,T* Zp p4*%+)G j*`)XZ0aj`) n* p* Zp0L`)+)O* p*'7 p/*`%@ `STATEMENT FUNCTIONARGUMENTFUNCTIONARRAYSUBSCRIPT~}|IDENTIFIERIDENTIFIERDUMMYRPARENAN ARRAYRPARENRPARENCONSTANTRPAREN$))i)k$))n$))Y$))q$E30$)$E)t<-C(E(E 4 SCFX/EE44C44A4C.0E4444E-. .- w-/(-p*/+*k`*`*7`*Q+*,+*3`*+*W`* E`*; E`*=,+ Z "3T "+*k  "1Z +*",++* | J  " 4,  T, H  * J " E-3,6+*A,>,*/-*W`*+*k+*k -1.  Jp2rp+*k ,*/-5:*2`*+*k9*.+*kҀ E+*7 E,+ Z "5:*7`*+*k   "(N  -1. \+*? #&,*} `*9*;O5:*B ,+T-5`* ,*/-5:*E`*+*k+*kҀ E`* E,+ Z "*`*+*k   "(N  -1.  Jp2rp`* #&,4L*Q +*R$*O*@+*k ,*/-*`*+*k+*k,>,*/-5:*Z`*+*k E+*^ E,+ Z "5:*^`*+*k  "+*k E+*W,>,*/-*O+*k E`* E,+ Z "*`*+*k  "(H( ,A*/-+-.0f`*,Jc`*1F`*1)`*.- &/-@`%@ : `*$*€ ,Jc1F+*y`*O`*0F$`*,+`* ,~Ѐ ,Jc,*l :,~,Jc6`+ '`+,Jc`+O`+1'`+,*l :,~,Jc1/++ ,*l :,~,Jc,*l,~,Jc.+@l+++SO++Q++Q++Q++Q++Q++Q++Q++QO++Q++Q++Q++Q++Q++Q++Q++Q++Q++Q++Q++Q++Q++Q++Q++Q++Q++Q++Q++Q++Q++QO++Q++Q++Q++Q++Q+ :++Q : : ,+ ,*u,*u,*u,*u,*u,*u,*u,*u,*u,*u++Q : ++Q++Q++Q++Q++Q : ++Q : :++Q : ++Q++Q++Q++Q : ++Q++Q++Q : ++Q++Q++Q,+++Q++Q++Q++Q++Q++Q++Q++Q++Q++Q++Q++Q++Q++Q++Q++Q++Q++Q++Q++Q++Q++Q++Q++Q++Q++Q++Q++Q++Q++Q++Q++Q++Q++Q++Q++Q++Q++Q : ,>-,6/-`+4:+,~-.ǂ-7@@p w,8`+8:p++W  " <,  p ,, L ,>-,6/-:p+++e:p`+ p 4, -9++^O-7`%@ `ILLEGAL CHARACTER"$"LITSTRING"("")""*""+"",""-"".""/"CONSTANT"A""B""D""E""F""G""I""L""O""P""T""X" $++m+n$+$+$+$+$+$+$+$+$++y+z+{+|+}+~+,,,,,FORMATSPECLPARENFDGROUPRPARENLINENDFIELDDESCRIPTORSLASHPLUSMINUSCONSTANTPCHARNUMBEROFTWODESCRIPTORONEDESCRIPTORXCHARTCHARDOLLARLITSTRINGGCHARPERIODFCHARECHARDCHARBCHARICHARLCHAROCHARACHARASTERISK$,#,$,),$,/,,,,,$,?$,A,",$,&,',($,S,+,,$,[$,]$,_$,a$,c$,e$,g$,i$,kQ0p0 @@`  `0P p  `P P 0p@ ` `p  `@` `0p@  `0 P@  `  `@Ppp P  `  ` `  0@@ `p 00PQ?}7?}7?}7?}7?}7?}7  @`@`?}7@`8p?}7 `8`@ ``8 8 ., ., .,    @,Jc1f+- :> +-"0)+-) : +-'$6Z.ŀ,Jc1f+-%+-"=-U,>0,60++-. 0 L  V C C W@+,Jc1f`-]8 9,~-. -}6`-{0 2H E`-o O@ EO+-8  E -] 3Z+-< T E`-{=2-9@+->O+Oe@@,~ǂ0-,Jc1f`-O@p IR`-:p 6 0`- ,)S8+-K:p 6 0`- ."S`-:p,>070+5:-P`-`. *  +. CR+-U:p 60!`- ,&S8`-:p  0`- .!S+-\:p 0#`- SR8`-:p,>070+5:-a`-`. , L (+.:@p`-`-,>70+-O`. ,Jc1f+-h0F`.ǂ0-,Jc1f+-k :1z5z-p,>0,60/+. O@p (R8`-:p1T`.0T`.7`. , S8+-|:p0T`- +-|0T`. : (R8+.:p0T`.7`. S8`. :p5`.0T`. S+. :p0t`. ΀+. O/0+.7 pO 0-+.@0-`#-.ǂ0-,Jc1f`.!+.K8`./`.CK,Jc1f`./-`.G,Jc1f+.`.=K Lp`.U`.CK Np`.U01,6/0`.e8b [+.(03,D0+`.Q [  [`.c8  [c [`._03,D0++.0 [B3jp`.U@0-`%0%70+,~,Jc1f+.51F+.9O`.s@,~-.[ "0H +.Rǂ0+ C< 8,Jc1f+.>0F+.Nǂ0+B C  W Jp E&e5:.FO0-`.[ "1H+.C[ "1J+.L 0 ,>0,6/0`.,>p,f0-`.B C WB C W,f0-,Jc1f+.R1'+.W1#+.WO`.@ `%-. w H=@@> { y * } {`%-.ǂ0+ C8 E`. E`.,l Z "[ "1N `. 0' L `.Z " 05C C W,Jc1f+.j0F@`.1)+.s[ "   N ,>0,6`.,f0-`%-.ǂ0- C  +JQ*  ,04L.{07`.`H@+/bA*}4J/ 0 N ,>0,6/0`/=aN+/09+/ (09091*+/ `/8 C Np E,l Z "8+/+/[ " 3 @ 3 @A3+/B C  W&e/+`/;+/+/B C , W,lB C W,l Z "[ "1J+/ E,>p,f0+@0-`%-. ǂ0+ W`/O c ,> ,0-  | N ,>0,60+8 [  Y 8`/W0;`/b j J  0XL  X P D ,[,>,0- < Hp2rp+/] H X,>0 ,0-Z C 2J+/=0=,D0+(01H+/F,03`/  | H +/D0?:+/F | L ,>0 ,60-`/k L  0XN 7 XTX@@ }  ,, W0+j J  0XL ZX.0+/S0A+/VXVPaj+/V l0!E,*0`/0C`/XVPan`/z0!$/k7  [XTX  ,ZB R`/0=,D0+ W0+ZX.0`/0A+/iXVPE,*0`/0C`/XVPan`/z0!c Y Y,0-b W,> W,/0+@ `STATEMENT FUNCTIONARGUMENTFUNCTIONARRAYSUBSCRIPTNTEGEREALOUBLEPRECISIONOMPLEXOGICALITUBSCRIPTINTEGERTORPARENIDENTIFIERSCALAR/$/000$0 000 0 $0$0 ] ,AC'+M(C(,,,-. ǂ7o w hb,A(}0OK,Q,  `0U,781L`0WJ,Q(  7q+0/ w4`0c 0H`0a,>79,67s+0{@+0h h ,>7:,>,7s $ -b Hp2rp`08 H+0\$ N7u+0> l7;[ P07w+0Nǂ7o 7w[ PC0 (`h`0ǂ7o( L S. N 7 Zp p *j7< 7y p47o7o 2+0T(al+0TKQ.  ,>7=,67oO 7{ 0N`0Z C 2J`0J(Q(  ,>7>,67o`0@@ H0N8907b,7s Y/7* D -.$QD , X . < ( Y*"7} H  7?XJ 7 6, (7 2+0o, O 0L+0r :z78+0s3\` `0z7@`0 7XT[ w,>,>w,7s@7o+-. ǂ7o w[w.w Hp2rp+1 H,>X,3#7o5:1`1+1 ,`1,>7A,67o Xb,>,7s$0@7o+-. w *8 j * 0&2)T}=01 wc .47 N S( H  6Jw`1+ .7 `! GJ4Q(  ,>7B,67o,~-. wJ4Q(  7y1*`1?7U`1C7y1.`1E 7+ Z `1G7+1$,>7C,67o`%-. ǂ7 $ -  (1( +1* :XZ -+1+ XL -Z` - [ Y w[ w. w Lp2rp`2?8@@pX H7N+15 1JO@p."`1k871J`1q1-`2 +@<1:+2+1;`1  QH +1C7Np+1B GJQ*  ,>7D,67oXV`17Np`1 GJQ*  ,>7D,67o*782`1 15+2& 7XV YӀ Y`1 7E J @@ Z -  . Z -" [Z -$ XXJ -+2 7X+2ǂ7o 0H+1b7Lp+1^ GJ4Q(  ,>7D,67o(782`1 `1 l7F Y7Lp+1j(781 7E L @@  XS  (  +1jQV`10L+1nO@p`1@@p."`1@@p8 71L`11-+2&0H`17Lp`1 GJ4Q(  ,>7D,67o7w2+1},>15/7G+2W 7 Y7Lp`2 7w5H2 7E L @@  PS  (  `2 XT Y+2 P2,X+2  GJ4Q(  7,67o 7E H @@ Z -  , Z -$XCۀ [ P/XZ -8$ XJ -`2/ 7Xc8,>,/7H Hb,>,7s[ -8 QJ -.$$1] Y`2w G4`h+2'JQ*  7W L 7,6/7I+2W7, 7oXZ -7, 7o6 [ [ -\`2c/$C5L217, 7o$2Y h7;@ 7 G4aL+2: 7E N @@  (  * `2u  +2@ 7E H @@  [  , 6 [[w,>,>w,7s[ -8 QD < 7JXL 7 ǂ7oQ" - Bp*" p7o G7y`2Ҁ Y+2Vǂ7o N S( H 7 Zp p *j7< 7y7o+2VX7+ah`2JQ*  7+2iaj+2`KQ,   7, N `2al`2KQ.  7Y H `2.7K`2JQ*   7- L ,>7C,67o+2p 7c Y5L2n Y0 Y`2 Y Y@,~(7L:+2wKQ,  .7L0.7U 7+ Z ,>7C`3=,7L0L+2z :z7L+2{ h7L 1H`373L (`3 GJ4Q(  JQ* J ,>7M`3= +@43+3"+3"`3`3#+3`332@an`3JQ(  7[+3ah+3JQ*   7. L +2v7+3"an+3JQ(  7] J +2v,>7N,67o+3"7+3"an+3!73H (+3 KQ,  ,>7O,67o`3E 7  (7@,~-.ǂ7s w[w.w Hp2rp+4ǂ7o H P G 1J`3W7 N (Ө+3w +@,3.+4`3c+36+3@`3+3P2@ 7/ KQ. N 7_ ,>7P+3sal+3:KQ.   70`3an`3}JQ(  7a J +3D7+4al+3EKQ.   71 H ,>7C+3s 7 :z7L+4aL@+3L.7L+3L 7+47c JQ( H 7_ +35[ 4L3n  (1( +3n70, +3n[ X`h`3Z XXJXa, 7E L @@    ( 6*7Q< 403h  A8 7E N @@    * 8=03_+3nA, 7E J @@    . ah`373J (`3KQ.  ,>7O,67`4= 7  (7+4ǂ7s6* (`37 N (23`4%+4 P7HX, X Y Lp,>1K7o 5$4`4%+4 GQDh p Y6JX+4c  +4b ,> ,7s8b¸ \8 `4+7L@`4+ X,>7: ,7s25:47s/7H`4=QD.0`4b,7[ ,>,/7H93&[ w,>,>w,7s@7s`!e 4V4$ wR+4# `4OE+4 w N 7 H 7 `#-. ǂ7o w ah+4.JQ*  7`4}҄`4qaN@+47`h+47JQ* J ,7R+477U ,>7P`4}."Q$ `471N+4@72+4@KQ.   72 H 7,67s`4  X,>7: ,7s [ .  Jp2rp+4K HXVHZ`H,7S3`4(7S1H`494E,>,>7s 4@ȀQ$7N+4TQ$[ ,>,7s[ w,>w,7s 7o+O`#-. ǂ7s@@p w[w.w8\`5 H`59 0N+4b8`57 J  +4g X h7T+4n5L4n X 7an+4nKQ,  ,>7U,67o`5,`4 X[ X4 QH +4s@ 7  l786Np+4xXVpQVp+4yXV8XVp j7S,4(7o65:4~X,O+5y.78`5ǂ7ob Jp[(`L+5 `n+5 7E H @@ Z   , `57Z`57 `n`5! 7E H @@ Z   , `577 H 7 Z 2 7E L @@  .  (  7j7V ,0XVXZX+4mǂ7s@@p X+5.[ .   0 `5O71L`5M,>7W+5+B C W7`5U(7R2`5Y,>7X,6/7I`5[/(Q,>47o Zp5c7s+5y,`5.7H7 H  7XJ 7 ,l7Y pXBhXBp6  07 N  7XH 7 [ pXJQBp ,l7Y [8Z88XH8 QJ  Np, pQZ0QBhXDh[p HpXJ  Xc  ,7s P +5Q*784J5Q`5+5Y70J`5 pQVh +5W*784J5W`5+5Y71J`5K,Q,  `5 p56LP`5 `5 ,>7:,7sҀ `5,785+5e`571L`5JQ*  ,>7Z,67`5 pB Ҁ +5p C+5p pZ h,>7e,F/7HÀ C[ ,>,>,/7I6Hp+5u p Zp+5w[ pXL ZpXZp7s.2+4] p7s+ `6 71L+5~,>7[`6A :`67`6A  H  7\ J  > `6,>,4(7o 6`6Ec,>,7sS7`6!Ҁ ]`6 ]+6"KQ.   73 H `6-2J7]`6/6N .+6 D .+6"JQ*  7g L ,>7C`6AS7`6;Ҁ [+6 [+6"KQ.   74`6JQ*  7i L 7,67o`6E@,~ w hp6K+6H@+6(+61+6F`671J+6+,>7[`6} X;`6[7`6} X N  7\ H  [+6H4 6Jh@ .7^ 1N@G 3+6C71J`6u +6@aj`6w [+6HKQ.   75 H 7,67o`6JQ*  7k N +6>,5z6`6+6H [+6H [@`#-. ǂ7o w h, X`671L`6 76 7m`6 Y`6 P71L+6XJQ(   77 J 7,67s+6{,>,4(7o Y6`6+6{7LX`6 B -(7_4H6b7,>7:,T/7H Z -+6c+6c@@ -b ,> ,7s ]@@ . [ w`6 h POcÀ Np2rp`6d 8,>H,6#7o5:6q`6+6{[ H,>H,7s0V96l Pc,7s[w,>w,7s@7o+@ `STATEMENT FUNCTIONARGUMENTFUNCTIONARRAYSUBSCRIPTi4r[r_rghrA DUMMY ARRAYDUMMYEXTERNALFUNCTIONVARIABLECOMMONEXTERNALCOMMONVARIABLECOMMONEXTERNALCOMMONAN ARRAYPARAMETERPARAMETERPARAMETEREND OR ERR OR FORMATARRAY OR NAMELIST NAMEARRAY NAMEk:N@INTEGERINTEGER -7$7$7$7$77 7$7-7$7$77$7!7$7'$73 ,7$797$7?7"7%$7M$7O7)C,(FC(E4C4W(GE,,,*H, AE(0%  CE)A3AY$@XC,!E4@@K: KKM?X:F(ǂ< wQ(A` Hw ]8`7 w 7@`7,Jc1f`7u+7kO`797d< `# `H`71`7 ;x ,><,6< l 7J }+7u< ,6< +7x < N <XH 7,~ .<;7< 5:7~ ;y ,><,6< ,Jc1f+7~ F8 Np<,*< 5:8@+8% 0L@  @ G @ G3`8¸+88/p8 HpQH , <  L <XN 7 b81<,6< 8KQ.` Np p]`8=,Hp98 pQL+.l 6J t+8$XB tQB t+8%0XB t/<+;7< 5:8+ ;z ,><,6< ,>< < 5:8.O`8 W X<1L`8c,>< `8g P:+85<,6< `8 P H  < J  Z ,  ,4(<   Y8y`8 < < J <XL 7  , YQHPb  ,<[ u5L8HXT uQT u`8  uXThXT u`# ǂ< < H  w[ w. w Jp2vp+8X X,<1L+8R,>< +8T :`8<,6< `8  H  ZX98N@< +<< 5:8]O`9A W X`8,<1N+8b,>< +8d P:`8<,6< `9A P J  < L  < N <XH 7 R`Z`b8ǂ< c[84H8r+9`93< @`9A X`9 ,>P,4(< Z ,8`9A(+9 P Y,>,8J< 8`9A[ P,>,>P,<c Y83 Y`9 Y< H +9 P Y,8J< 5:9`9A P N ,b Y82 Y*<1J`9,><,T<# Z , < N b  ,<<XL 7 c97ǂ< b[ (4L9<%,6<`9A< ,c YQLC YXNA(<XB`#-. ǂ<<'< 5:9%O+9 W XbA*9g  | N (ah`9]; K(Q, L  ;{ ,><`9aJQ*  <),6< 0:@ @+9.<0N`9sJQ*  ; L +9B*<+9>KQ.   ;| H +9Ban+9CJ(Q(  ; J <+`9aj`9+9F :z<,<<-3`9J(Q(  ,><`9 T ,<,>X,< /;} N -Z` - -.,QL , ; 8X -. 8 *"+9z@ p  ,4XThd b  ,<<+,>;~7< 5::; ,><,6< ,l Z " E[ "2+:&e W:[ "  ;Z `:`: W < N <XH 7 W:1<5XT(<1H`:1<,T<#c(:=ǂ< b(8[ 4J:<%,6<`:=< `#;7< :G < ,><,6< ,l3Z<`:Sc  < H ,><,6< `:Y<7 L <XN 7,~-.ǂ< 8,Jc1f`:] : +:5;,Jc1f+:3`:q'`:q,c,Jc1f+:71`:uO+:;< `%,:- 54:?O+:I < J <XL 7 ,c4N:Iǂ< b[ (:<%,6<+:I< `#,><7< :< ,><,6< ,:- 54:QO+:[<9 L <XN 7 ,b,4H:[ǂ< c,8[0:<%,6<+:[< `# < ,><,6< 1;`:,Jc`:`#ǂ<; W w2H<+:e`: :  X+:k,6I< :`;3+;+:{ ]@@ .8l  ,6#< 5::p`;3+; w2J<+:v < N @@ J  * +:z < N @@ J  *  Y@@ -7H -`:  Zp+:~@@p Y8 [  . Hp ]7LX+; ,b,,>,<4<  ;`;3+;`;@ w H <XJ 7 83XN p[ QJ p3,.< 7(h<c ,> ,<<;`#ǂ<;<=< ;=O+; ,><,:a< <;`#ǂ<#<7< ;M < ,><,6< ,><< ;SO+;0,><,<,6< < ,<,6< < ,:a< <;`#@ `STATEMENT FUNCTIONARGUMENTFUNCTIONARRAYSUBSCRIPTSENDFORMATATASSIGNGNGOTOCALLA SUBROUTINE NAMEA SUBROUTINE NAMEA SUBROUTINE NAMERETURNRNLINENDCONTINUEINUELINENDSTOPPAUSEEINPUTREADACCEPTPTPUNCHHWRITEE$;;X$;$;;Y$;;P$;;`$;$ [ -$;;e$;$;;i$;;o;n;p$;;r$;$;$;$;U0##E((E}(E  CC(((/(FPC( 0I@-5 =  W 2+<&,4(A .An1N`Ap,>,A X2+<:,>,4(A A1N+<=A,6A8 .47JP`<( P3+,Ac  ,A w H  AoXJ 7 83( p,>Ap W,/Aq`#A A,6A1+P4A <+ ,A w N  AoXH 7 XJX[ QL,.AA`#,>A\7A5:AsA5:<{O`=A,Ap W,A XA1H+= A] A N A,6/Av+=58  ]@@ .K,Q, ,>,6#A5:=`=i+=5 [ Hp,4(A=A`=i+=5 . Lp ]  ,>X4A 54='`=i+=5 w L  AoXN 7 82 pXJ8[QN82 p,.Ac ,> ,A/Au`#,>A^7A5:=:A A,6AAA5:==O`=},>Aw,= A,~,>A_7A=A A,6AAA=O+=H,>Ax,= A,~,>A`7A=A A,6AAA=O+=W,>Ay,Aa7A=A A,6A,>A{A=O+=pA,Ab7A5:=uA A,6A,>A|A5:=xO`=A, (V+=6p+> :> +=~+>.6+>(VP`> ,Jc1f+>/4+={>+> :> +> +>,Jc1f+> `>  `#-. .Au@@p,l Z " W C  "3HA}`>-[ "  Ac H `>9,Jc1f`>-,=z Z "6N "`>;[ " A N ,>Ap`?;sA`?#  "@0r +>%Ak2V(`>IAk 88 `>K$>?O 54>*  " Ad A L +?5O@p,l Z " "3JA~`>g+>1B C 3 W`?#[ "  Ae+>Ak,l Z " E+@\>7`?+>9`>+>n`>[ "+>=C CZ " W E`>0H +>LZ " NnA1J+>CKQ,  ,>A`?;AA5:>F+?-`?[ C W Np,4(A p W>+?-`?[`> A J `>9 p2LB`? CB W Jpƀ C`?[ "0H `>C CZ " W E`?0H +>lZ " NnA 1J@A 1L @ "A 1L @ "A 1L@ "`>AA5:>f+?-`?[ C W 8,4(A W>+?-`?[`?  Af`>[ "0H `>F CZ "4 W`>0H `>  "B1N`>B2+>y  " Ad A`?9C C W`>[ "0H `?Z " Ln.B1N`?JQ*  +>BAA?+?-`?[ C W Lp,4(A p W5:? +?-`?[`?  Ag+> C2 W E+? E+?,l Z "[ "1H`>- "sA+?[ " A L `>9,lvB+?[ "  Ah+>6Jp+?A  Ai H A,6/Av`?[ C`?K8QN , A  C€ *"+?&@ w J  AoXL 7  C8QV p2 C/Au+,>B>A,~,>Aj7A?gA,6AB>A,~,>BA5:?9O+?R W, X+??A1N`?A  Ak+?C PB1N`?JQ*  A L A,6A+?R,>,4(A ?+?R B N  AoXH 7 5R` XZ`XXc ,> ,A`#-. w4 y h J=B 1L `?(B.Al } { y > Z= wB 1H+?`A } { y5+?bF y`? y`% ǂA@7H+?i 0L+?hO`?@8?A Zp@."7L`? 0H`?O+?p@8?A At H  p J 8  .  @A+ ǂB 88 w[w.w Hp2vp`@  Jp8 X+@27N`@ 0L+@8`@ 88+@87L+@.B1N`@B ,6A@@p+@7  Lp +@7H+@ 0J`@'8+@8 +@8aJ`@?`@=0H`@5[+@ ,?c * Jp`@AaN`@? :+@  Zp p$p۸8+@7*B5J@) At H @@  S  *  +@7 y  L=B. Am } At N  { H  > *B +@( X0N+@5,[ `@m,?c ,8 .QN , Zp8+@< p6`@{ pXJ  p24.6+?}fcƀB +-. .BBA5:@GO+@h W (c Lp2rp`@ Hc,A,>,?yA[,>,>,A  C,>X4A Zp[ p,>Ap,>Ap,F/Bc ,> ,A B N 7 [pQHPXJPc8(  |QNP9@J W  b,A,>Ap W,A/B+@ `STATEMENT FUNCTIONARGUMENTFUNCTIONARRAYSUBSCRIPTSOUTPUTPRINTTTYPEG?-mINTEGERENCODEDEDECODEDEREREADADBACKSPACEBACKFILEA$APACEILE$A $A REWINDNDENDFILEILEk:N@M&dPe|Rs )%ژc\[>$P2IcI'Xz)  \ :EV4i9:oY&m e-L`[?-m!ʝ9Iv:: AAAAAAAAAA A"A$A&A(A*A,A.A0A2A4OPENLPARENPARAMETER NAMEOPEN PARAMETER"="CONSTANT OR VARIABLEVARIABLE OR LITERALARRAYVARIABLERPARENLINENDk:N@DEFINEDEFINDk:N@INTEGERINTEGERDATA$@@u@t@w@x@{$@$@@|A$@$AA A$A$AAC$AEAGAH$AAMAN$AAQ$A$A$ WAUAWAX$A$%03E,7E( I@U ]0e 4@k@ s @ ; <@ E/C,E !@ >EE44E.  ,Jc1f`B0F+B,Jc1f+B : +B+BD,6/DG+B@,~-. (  W7Jw`B?  ( 0N @ 0J@ A2+B : Z (`B?1J`B?D,6/DG +B#,>h,0"+B$0/DGb W W,D`%,>D97/DG5:B,Ds ,>DH,6/DG * J (D/DG5:B0O`Bc,>DIB'/DG,~-..DG,>D:7/DGBoDu ,>DH,6/DG * J (B5:B;`B+B@D/DG5:B>O`BB'/DG/DG`%-..DG ( H (B5:BE`B+BJ,>DJ/DG5:BHO`BB'/DG/DG`%-..DG,>D;7/DG5:BPDw ,>DH,6/DG  J (BB+BX`BD/DGBO+BXB'/DG/DG`%-..DG,>D<7/DGBDy ,>DH,6/DG * J (B5:Bb`B+Bg,>DK/DG5:BeO`BB'/DG/DG`%-..DG,>D=7/DG5:BmD{ ,>DH,6/DG * J (BB+Bu`BD/DGBO+BuB'/DG/DG`%-..DG D> ,>DL,6D`%-}`BD,6/DG`CD}7/DG5:C D? ,>DH,6/DG,>DM/DG5:CO`C WO@ ( , ,>,0"/DG,>DI W,D,~-}`CD,6/DG+CD7/DG5:C D@ ,>DH,6/DGD/DG5:CO+C WO@ ( ,>,0"/DG,>DI W,D,~D7/DG5:C DA ,>DH,6/DG7J `CE,>DN,6/DG,>DM/DGCKO+C+ WO@ (  ,>,0"/DG,>DI W,D,~-.D7/DGCa DB ,>DH,6/DG,l Z "[ "0J +C7.DGZ " O,l Z "/DG[ "3`CsD J `%-.,>DC7/DG5:C?D ,>DH,6/DG-}`CD,6/DG`C,l Z "[ "0J `C.DGZ " O,l Z "/DG`CD Ol @[ "3`C DD J `%D7/DGC DE ,>DH,6/DG,>DL/DGCO`CO@ (  W,>,3#/DG,>DI W,D,~-. .DGD7/DGC DF ,>DH,6/DG,>DO/DGCO`D W X L ,,>DI ,D  ,[ ,. , Np2rp`D H6HX+CnD,4/DG +C|`CD+Cz b,>,D OR`CKQ.  ,>DP,6D+D D,4/DG 8O@ (  [P3 YZP Y,3#/DGb YQJPC YXLP[PQTXED9Ci  ,b,>,D/DG+@ `STATEMENT FUNCTIONARGUMENTFUNCTIONARRAYSUBSCRIPTSSUBSCRIPTINTEGERCRIPTINTEGERINTEGERGERREALLOGICALCALDOUBLEPRECISIONLEPRECISIONCOMPLEXLEXBYTEFUNCTIONTIONSUBROUTINEOUTINEENTRYYPROGRAMRAMLINENDBLOCKDATAKDATALINENDDIMENSIONNSIONCOMMONON$D+DD$D/$D9D$D?$D;D#$DCD$$DMD%D)$DO$DW$DUD.$DYD/D2$DaD3D6$Di$DqD7#)I.KM}['A-. ǂIy I= H 7 Zp p w ( I{an`D,>I>,6I} w4`E[ XD h[5HDo  0,>I?,>,Iy[w,>w,IyI4HDf,>I@`E p[X[ /  Lh h{I`DaJ`D p ,$lh pX4`E ,4(I} +DsO+E CD,>I@,6I} p ^2H "Z( ([I`D,>IA`E h P,>I?,>,Iy p IB2`E,al+E,>IB,6I`E.IC0.+E p@@h`E,>I>,6I} pIy `%-.ǂII[7I}5:E I. ,>ID,6I}II}5:EO`E W 0cÀ Np2rp+E<ǂI} H8,> ,DQI} ZpE;O/IE+EBI L  p V 7 pEan`EI hIF68 b 8 \8 +E;ǂIyZ h Jp,>@ Jp ,DQI}8 XZ0 pXZ8EcOI+EBZhEaj+E: hal+E8,>IG,6I}+E: IZh24Iy9E(I}9E W 0c,Iy,>I? W,IyI`!I]7I}5:EG I/ ,>ID,6I}II}5:EJO`EO@ ( ,  W,>,3#I},>I? W,Iy,~I_ ,>IH,6I},~-. Z qE,IZ hIIZXB< 42E\ Z0IZ nIIE@+ ,>I07I}5:EbIa ,>ID,6I}II}5:EeO`EZ qE.IJ3,ES+ I1 ,>IH,6I}1;`E,Jc`EO,~Ic7I}5:Er I2 ,>ID,6I}II}5:EuO`EO@ (   W,>,3#I},>I? W,Iy,~-.ǂI}Ie7I}F I3 ,>ID,6I},>IKI}FO+F3 W 0cÀ\`F[ǂI} Hb,* 1H@ [ X 1L@I @ G 2`F)KQ.  ,>IL,6I} Ib,>,Iy [ .  Lp2pp`FO @*IMI(ING I @(IOG 2`FMKQ,  ,>IL,6I}+F'Z`@$F5I L 7 Z[82QVI}$F  W (c,>,Iy,>I? W,IyI}`! ,Jc1f`Fi0F)+F8@`Fq I!7I}5:F=I ,>ID,6I},>IPI}5:F@O+FC5VFAI IQ ,<1I}+Ig7I}5:FH I4 ,>ID,6I}II}5:FKO`F,>IR,IT`F@`FaN@+Fl Or+FlJQ* J I1.+FhIk  I5`F I6 Im I,6I}`F,/`#ǂI},>I77I}5:FrIo ,>ID+G),>IUI}5:FuO`G W  QL ,  NQD V a,FB [  L I+G)bA*G  | N (ah+GIi K(Q, L  I5 I,6I}+G JQ*  ,>IT`G @`GaN@`G+J(Q( H *IV1*`G%Ik  I5+G I6 Im I+G)Z q8I J  IWXL 7 Ӹ+G[ q`G9QZ: ~XTC ZS+G$JQ*  I,6I}`GI eGO[ PGO,>IX+G)C,GUI,6Iy+GAb,4HG-,>IY,6I}[XZ X8 XLX QN ,QZXQDhXTh QV57H`Gs Xc  ,Iy`Gu c,>,Iy,> ~,?I}Z{I}I}`#-.ǂI1F+GF I8 ,>ID,6I}II}5:GIO`G W8,L` G,>IZ+GPpIq`G3BI9`GPIs`GI,6I+Gk8 W  [ ,>,>,IyZ q Np C  }8@@ },G+Gj`GZ q6Lp`G[ qXZ q+G_XL q(I[0H+GbI,6I}8 L }I N  IWXH 7 XB,I\XD(X@I`%,>I:7I}GIu ,>ID,6I}II}GO`H? W ,I]1L`GI+H X`H(II0H`G P`H`H  [,>,>,Iy*I^0J`G ;+HI,6I}`H? I H  IWXJ 7 c4LHǂI}b8[ H,>IX,6I}I} I_ H  X J XZ P L QZ  N  W  IXDX.I]0N`H9,>I`,DI}b,Iy@`#-. I H  IWXJ 7 W Q,QTX WI}[X.IaXVP[ ʀQJ , [ 8 .$[Hg . . J8=2H0/$XDX[ ,>,>,Iyb W,> W,Iy +-. ǂIy,l [1H +H?I+HP DpI1L+HZI2+HZal+HGKQ.   I; H `Han`HJQ(  Iw J `HcA.}HJQ*   I< L ,>Ib,6I`H IjIO ,IZ Q,>IcI}5:HX Q+H\,H  Q@+HmII}5:H]O+Hm W  [ . \`H HZ`HXVHI`HzId+HhI0H+Hh lId9H`,>p,>Iy H+H\+Hm,/Iy+@ `STATEMENT FUNCTIONARGUMENTFUNCTIONARRAYSUBSCRIPTSEQUIVALENCEVALENCEEXTERNALRNALINCLUDEUDEIMPLICITICITPROTECTGLOBALALNAMELISTLISTSKIPRECORDSKIPFILEI I ECORDILEI$IUNLOADADASSIGNMENTDO LOOPDOLOGICAL IFARITHMETIC IFIF(STATEMENT FUNCTIONARRAY ASSIGNMENT UNIQUE STATEMENT FUNCTION NAMEUNIQUE STATEMENT FUNCTION NAMEUNIQUE STATEMENT FUNCTION NAME$H$H$HH{$H$II$I$I II$I $I'I$HHr$HHuHv$I/I$I1$GFm$7III"I&I*,C5pgFhe C, Q FP[I(E(5G,w{,,Ay @w@C C(@C"}G E,E0,c(( wFH .P*  &![ & H &7J &+I|[(4 @)B." . B8I  & +Ir=6Ik /*"Jp36p`I . =It  &  &Z h L &PU,>,/P+`I  C@/P*+  FZ +JO+JC  ,~ 3( F`J O@ F: F,~ aH+J `J',C4FJ aL`J`J'0F`J!l`J aH+J`J'@,~-.ǂPW &w 4DJ,>w,JPW..PW`% &)$ &5DJ,~ &)5DJ,~-. ,> & O,J  k4DJ*,JR 64DJ* &,J  P,,JPY,J_@( ,>P-,JPW@)"4DJ3 & aJo &,>P-,JPW )`(Jw -,>P-,JPW `LP[ P.,J 2`JP],J  bˀ8 ,>P/,JPW &, P/,JPW 8P_ ,>P/,JPW &ÂP_ &,j0 ,>P/,JPW P0,J &a ,>P/,JPWA 4DJ^ -,>P/,JPWB 5 KS$hP,JPa,J,^ `% 2( E+JfF  9+J{ 2, F+JiF +J{ aH`J +J{,C +Js aL+Jr aN +JrI K`J `L `JGZ G1F`J: G3jP1+J{ `N IK,~.P+ w   L PG8 P$4FK `L`K0&`KO+@K +K`KU+K +K+KC8Zw 0@ 6&".$1K FpZ"pQ"A` 6 `HK%+KC8Zw 0Z"(Q"A` K= `L+K+KC8Zw 0Z"(Q"A@ .(  `NKE+K `L+K `L & `J@ `N`Kk`n`Kk &o`Kk@/P+`# `H`K i (3`K@`H 6$$.$,J=6K=,J M`KǂPW@ MaH+KM 4&" $)K aN `K  4 K  PW`# .P+,C4FKO0V`Kl aL`K0F`KJC,CK`K KJCZ )K[ 8 , Z$0Q$A`  )  N ) KJC,>,J|/P+PcB8,>,/P+`K /P++1F`K,J+Ke@+Kj,KN,K7O,~ @@ '6h G+Kp1F+Kp,J`K@+L=0F+Kr,J+Kp `n+L#,KN,K7@1F+L1 +L1C`L0F"`K aN`L &+L1F`L1F`L1/`L1!`L `L,J`K0F`L,Ke`K0F+L,J +L# 6 `L+L# `L!,J : `L,JJI J G `Ly1F & KI L G+L# : +L  '$"€/* B '+L1F+L | L 0&+L(H .P2+L  Pe,6PW+L#,J `LC8,J0F+L$ `LyL  1F+L01F`La1 `La,J7L '+L,,>P3,6PW+L= `L]":$ Z G`LyJI J G`Ly &"(% H G +L5GZ G: G,J`Lc1F`Lw1 `Lu1F`Lu1!`Lu G3lP1+L@@ G`K: G+L4+ `H`L,C0F+LDl `L I +LS `L aN+LR aH +LRI +LR `N +LNGZ G1F+LR: G3lP1`L `H IK,J,~L{1f`L>`L :> `L>`L,~-.,>$6.6hL{1f+L\ :> +L[,^`%.P+@@p8 aH`L6J |`L `L  Ҁ `LL{1f`L+Ll ,J0f`LL{1f+LmQPg+Lq7Jp`MC+M! : +Ly@,LZ0F$+Lw LL{L+Lq0F,+LyL{+Lq>L>L'+ML{1`MA'+L}L{1'+L}1[C1]8)+MҸ+ML{1f+M : +M PI+M"[+M P%+M"=+M7Np+M PK+M"7Np`MC1FC88`M/=`M' Zp`M/1[+M7Lp`MC0F`M/ P&+M"8`M5,>P4,6Pi`ME1`MA1;`MA  F0(`MAL{1f+M`L6HpPK,M#/P+`#-. @ ,Jc1f`MI>`MS+M+/&.6MI &,A TOV2V `M_ TOV`Me TOU2V0+M2 TOU@+ `H `j+M7H+M7,~-. `h+M; w &(+M; aJ+MA wKQ.` Nww 4FMA`M}`% ,M3 &,M3@,~ .P5@+MP w&( .  J0 HwM46MO .  (.( ,M3<`M+MP9MF@/P5+ ǂPi@@p8 6 X R Hp4HMf pc4MB4`M8+M[PMMoPW pB48,>MPW: p:+Ma@@pM+Mb ,M3:Cl `M pZh HpM+Mf=6MT@Pi+-.ǂPWl ,>P'MoPWZ 8[ POMoPW8[0[8,>MPWM: C[ 0 N NMk@PW`%-.Z".h ~Z p+NǂPW  h[88[  Pk,6/P++N[ h N +p+N7N `NǂPW[ 8[ (8Z0 PW+N  @`% (P *  [QP(c8 X*" : PQc8 ( c*" 4j P6 O `NJC Q H {  ll PU J @,~X . X: q*:CQ@@ &Q8X *:(,N @,~ `H`N,N O@ E O@ Fd @ aj+N*d `NW  L GKQ L HPm N  (    Z  `l+NR`L+NR M N |7H '+N@ P7 L  H  Z } aN{ | J C [ H Po,6PWZ NM`N`N@@ } C E,L` 5dNJ  | N ,>P/,6PW O@ F `H+NIK+NOl +NO,5:NO E@@ '[ "2+NO,l Z "+NLd  |S M`Na@@ '`Na  q*P82`N `n`NPq,DPW@@ } 7M6N Mh `j`N`j`NǂPWPU8,2,PUPWZ )4LNjǂPWZ )8N[ 4 Z$8Q$A` ) ( H ),>,J|/P++NbPW ah+Nml d +Nm Ҁ @ 7NC@G 3+Ny P)  .*,M3N ,M3,>CMPWPSMoPWZ HQ> + +N# aj+N~IPE+N~d d@ +,N",~ `-JAN--FEB--MAR--APR--MAY--JUN--JUL--AUG--SEP--OCT--NOV--DEC- ---->  gC;1jA@C()'jEh()$g$OOA$OOD$OOG$OOJ$OOM$OOP$OOS$O UNDEFINED LABELS  UNTERMINATED DO LOOPS LINE:  ERRORS DETECTED  ? HoO$G$HuFMFmPP$P=$ [$ c OP FORTRAN V. /KA /KI/OPTmn@ PAGE |^@i 0[Mc@ G4E