O+,>Z+8,>Z,>+8,>Z,>,>+8,>Z,>,>,>+8,>Z,>,>,>,>+8,^,^,^,^,^,~Z8aQ>~ Z<`X@ `C C~0C&l`C&v@C2|pC2|t(C6C6 C6MdC6Md C6|@CNM`CR `CR d@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,#'(()$$!%+&.-1)/2*3*"5+#>z( 7*(.(*(:(::(<()xz)}P?()xz)}`A*(*(:(D:(F.(.8.8.8*8.8:(I*(*(.8.8,0,0,0j0P,0,0h0@j(0,0,0,1x,1x,0,0,0,0:(Kh( @h ( l `j Pz PNh  h!|P*!xh!|`*!xx @Pn( pz( S:(U*(*(l( `:(X*(?_ow{}~?_ow{}~?_ow{}~?_ow{}~?_ow{}~-. (QH , Z=6J }+G = V } V  .XNX  qn/A:XZX+_Z [X4NJ[X+HZ X2Jw+Q =QNX  wXHX1H V   q ,l/R`X+^[X4NS[X+QZ X5J\.0ZX Np@h0 =XJX   q ,l/ wXNX/0+^ZXZX3.w+Q+HZ qXJX +-..1Z Z $* Jp0h+yZ 1n+g,d +q+z,{ Zp p.p L o5Lo, p. p  o H(R` d  +z,zaZ+rl   o+z  oZ h4JuZ h L o+o,  o p. pZ0XNhXZ0+f@/1+  +@$|+++@+@ &*'+  F  &* + 1*+&*7 #  ,~-. (H.(  * J= ,6 L> X2Nw+Z+3V=+3V/+ X2,w+ V= >+ V> =/(. = 2jw+ > 82(w+ O+, Z o  +@$+y+&++@+1+7+>@+[+_+a+g+i@+p+u@  o j1  Lh .n2 (h2+y  o  Jh  Lh .n2  h1@ j2+y6J +3,>3,6/0  o  XNh (h2 * Jh+yZ o5J:  oQZ oXZ o+<  o  oXNhXN o  o   Nh+y7J q+A  oXZ(+G  oXN qQN q (h3Z`8 *j4, Z o  q oXLh  oXN q  |QH8 |j3 ,l4A* (1*@ .0j@A ,1J@ AaH+W[ A5NU  oXZ AQZ A+W  A oQLhXL A  o  }QNh4NZQZ8+y+y  o QJh XLh@@h  n1+y  o |j4+y[ p5Jd  oXZ pQZ p+y  p  oXNhXN p+y,> ,/0+y6J s+l  oXZ sQZ s+m  oXN(XN s  o  XNhQNh+y6J A+s  oXZ AQZ A+y  oXN(XN A+y6J t+x  oXZ tQZ t+y  oXN(XN t  o,~  +@$|+ +~+@+ @  o 2Jh+ O+  o*12J + .54N 2Jh+  2Nh+ + 2Jh+ +  oZ h2J + :h+@,~-.:w~1(+ w  zXN0 L z+ wZ vXN0XL v+-.,>[ 0h+Z v4Z hXN v+# ([ .l(/ "L {3l5+# .:0z,S z,S / ( J {[ / ("[ < .@@ 5X'+(+$+$,^+@ ` p  * R m n n e d>FhF8hh h 88hh-..$l : C *QJ , ZpZ )5L[ )XZQZ ) p wQJ | L   N   J O/$+-..$ `h+I Jp,>w,6/$ p@/$+-..$ w*%1J^+O@+P  Z8 Zp p<".Z(?Q(` Hp 6 p< $* Jp2vp+[ p 5FZ+[+[,G9V@/$+ ( ,~-.6Hw+` &g+a 'w+-..% w~ $Z,/Q,` LpZ.pQ.A` Np 6$, Lp 2vp +,p  Fp O@p @ 2Jp +m:p +, .2Np +s:p Lpp 0F+o .Np ,2Lp +z:p w $tZ"(Q"A` 4Fz Hp+w *2Jp + :p w<$.Z"8 +Q"A@ $<$ 4F ..Np++ .Np $<$  4F ..Np++ .2Np +:p w< $,Z"0 -Q"@` (-Hp $<$..Np+ ,Lp $<$ .*Jp+ ..Np ,2Lp +":p w<$(Z" )Q"A@ $<$! 5F+!+ .(Hp+ (Hp *2Jp +):p w <mZ"0Q"A` 4F) Np+&:@p ++ Lp9h@HpZ*pQ* ,>,^/$,>&,^/$Z(+8/%+ FaB +9l & x8 Hx+BaB+;,>&+@aB+=,>'+@aB+?,>'+@aB@+B,>(,>(,a/)@,~?` 5 F1,4 4 :O1z /&,~?h 0+J L /+V@ d :`Z+H DaB@+O,>(+TaB+Q,>'+TaB+S,>'+TaB+V,>&,>),a/),~?h ++Y L *+e@ b :`Z+W BaB@+^,>(+caB+`,>'+caB+b,>'+caB+e,>&,>*,a/),~@ ` BINARY OUTPUTASCII OUTPUTASCII INPUThjlOBJECTLISTINGSOURCEpqsI/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 2I/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 THIRTEENI/O#12 1 FILE STRUCTURE 4 HAS NO ROOM OR HAS EXCEEDED ITS QUOTAI/O#13 1 DEVICE 4 IS WRITE LOCKEDI/O#14 NOT ENOUGH TABLE SPACE IN MONITOR FREE CORE FOR 1 DEVICE 4I/O#15 1 FILE 2 ONLY PARTIALLY ALLOCATEDI/O#16 1 FILE 2 BLOCK NOT FREE ON ALLOCATED POSITIONI/O#17 1 DEVICE 4 NOT AVAILABLEI/O#18 1 DEVICE 4 WRITE LOCKEDI/O#19 HARDWARE DEVICE ERROR ON 1 DEVICE 4I/O#20 CHECKSUM OR PARITY ERROR IN 1 FILE 2I/O#21 BLOCK TOO LARGE OR QUOTA EXCEEDED FOR 1 FILE 2I/O#22 NOT ENOUGH ROOM IN CORE FOR COMMAND STRINGI/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 SUPPORTEDI/O#28 ONLY TWO OUTPUT FILES ARE SUPPORTEDI/O#29 1 DEVICE 4 ALREADY IN USE OR DOESN'T EXISTI/O#30 WILD EXTENSIONS IN OUTPUT SPECIFICATION ARE NOT SUPPORTEDCOR#31 NOT ENOUGH CORE FOR EXPANSION, COMPILATION TERMINATEDvz~ #&*15<AGKNSX^dkosv| 6$ H @ `0 - LINE: FOUND  WHEN EXPECTING A  IN A 2 - LINE: FOUND  WHEN EXPECTING EITHER A  LINE: OR A 4 - LINE:   USED INCORRECTLY5 - LINE: COMMON BLOCK  USED INCORRECTLY6 - LINE: NAMELIST  USED INCORRECTLY7 - LINE: ILLEGAL CHARACTER  IN LABEL FIELD8 - LINE: ILLEGAL ASCII CHARACTER  IN SOURCE9 - LINE: UNMATCHED PARENTHESES OR BRACKETS10 - LINE: STATEMENT NOT RECOGNIZED11 - LINE: A STATEMENT FUNCTION MUST BEGIN WITH AN IDENTIFIER12 - LINE: STATEMENT NAME MISSPELLED13 - 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 VARIABLE17 - LINE: LABEL OF TERMINAL STATEMENT MISSING IN DO18 - LINE: CONTROL VARIABLE MISSING IN DO19 - LINE: LABEL TOO LARGE OR TOO SMALL20 - LINE: LABEL  ALREADY DEFINED AT LINE 21 - LINE: DO INDEX VARIABLE  IS ALREADY ACTIVE22 - LINE:  IS NOT A UNIQUE STATEMENT FUNCTION NAME23 - LINE: ILLEGAL STATEMENT AFTER LOGICAL IF24 - LINE: LABEL INCORRECT, COMMA MISTYPED AS PERIOD25 - LINE: LABELS MAY BE REPRESENTED AS INTEGER CONSTANTS ONLY26 - LINE: ILLEGAL SUBSCRIPT EXPRESSION IN DATA STATEMENT27 - LINE: ARRAY REFERENCE  HAS WRONG NUMBER OF SUBSCRIPTS28 - LINE: A FUNCTION MUST CONTAIN AN ARGUMENT LIST29 - LINE: DO LOOP AT LINE:  IS ILLEGALLY NESTED30 - LINE: USE OF  IS ILLEGAL31 - LINE: THE DIMENSIONS OF  MUST BE OF THE TYPE INTEGER32 - 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 PARAMETER37 - LINE: PROGRAM IS DISCONNECTED - OPTIMIZATION DISCONTINUED38 - LINE: IMPLIED DO INDEX IS NOT A VARIABLE39 - LINE: FIELD SPECIFICATION NOT YET IMPLEMENTED40 - LINE: ENTRY NAME  ALREADY IN USE41 - LINE: ARRAY'S  AND  MUST BE OF THE SAME TYPE42 - LINE: ATTEMPT TO ENTER  INTO COMMON TWICE43 - 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 CALL48 - LINE: MORE THAN 1 COMMON VARIABLE IN EQUIVALENCE GROUP49 - INCONSISTENT EQUIVALENCE DECLARATION50 - LINE: SIZE MODIFIER MUST BE A DIGIT (4 OR 8) IN DECLARATION51 - LINE: STATEMENT TOO LONG TO RECOGNIZE52 - LINE: CANNOT USE DUMMY VARIABLE IN EQUIVALENCE53 - 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 STATEMENT58 - LINE: NAMELIST NAME OR ITEM  ALREADY IN USE59 - LINE: IMPLICIT DOES NOT PRECEDE OTHER SPECIFICATION STATEMENTS60 - 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 OPTIMIZE64 - LINE: WARNING - CONSTANT UNDERFLOW OR OVERFLOW65 - LINE: ILLEGAL USE OF COMMON BLOCK NAME 66 - LINE: CANNOT INITIALIZE A DUMMY PARAMETER IN DATA67 - LINE: ILLEGAL STATEMENT USED AS OBJECT OF DO68 - LINE: TERMINAL STATEMENT OF DO HAS ALREADY APPEARED69 - LINE: WARNING - NO END STATEMENT IN PROGRAM70 - LINE: NO STATEMENT NUMBER ON FORMAT71 - LINE: ARGUMENT  IS SAME AS FUNCTION NAME72 - LINE: NO CLOSING QUOTE IN LITERAL73 - 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 CHARACTERS77 - LINE: WARNING - DO INDEX MODIFIED INSIDE LOOP78 - LINE: OPT - WARNINGS GIVEN IN PHASE 1 OPTIMIZED CODE MAY NOT BE CORRECT79 - 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 REFERENCE84 - LINE: OPTIONAL DATA VALUE LIST NOT SUPPORTED85 - LINE: LABEL ILLEGAL ON END STATEMENT86 - LINE: MULTIPLE ASSIGNMENT NOT SUPPORTED87 - LINE:  IS DUPLICATE DUMMY ARGUMENT88 - LINE: WARNING - ATTEMPT TO REDECLARE IMPLICIT TYPE89 - 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 SUBPROGRAM93 - LINE: SUBSCRIPTED VARIABLE IN EQUIVALENCE BUT NOT AN ARRAY94 - LINE: OPEN PARAMETER  IS OF WRONG TYPE95 - LINE: NO EXPONENT AFTER D OR E IN CONSTANT96 - 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 NE99 - LINE: WARNING - COMPLEX EXPRESSION USED IN ARITHMETIC IF100 - LINE: WARNING INFINITE LOOP. OPTIMIZATION DISCONTINUED101 - LINE: EXTERNAL VARIBLE ILLEGAL IN EQUIVALENCE102 - LINE: SUBSCRIPT ILLEGAL IN EXTERNAL103 - LINE: SUBSCRIPT OUT OF RANGE104 - LINE: NON-INTEGER IMPLIED DO INDEX IN DATA STATEMENT5,0279=BGLRW[bgmux  %+29@FLPV\cglt{ "(-29>EJPW\agms{       ' - 3 9 > C H M S X _ e m s z       $ + 1 7 = C J O U Z ^ g n u {  -.@  v w~(.w V H t w~(  w.  T( I@+-.. {6HI+ O J/ K< 46 N 4 "=6 LO+ T I& J Np LI:K, H p.*  " / {+-.6(w~+ X 6 "+ X w~ LJ w NJ6Hw~+ `/. 46 ^ 4 "=6 ] 6 "+ b+ c@@K# w~ LI, H@+-. . {,> |,> |, @/ } & ^ & _ & ` & e & f & m@@p@@p@0v+  \ Z & 4 " (,>h H,> },> ~, U/ ~ 4 2 "=4 r (,>h I,> },> ~, U/ ~ 4 2 "=4 w ( 6L( I+ |@+ ~ ( I/( H Hp.hp p,>,> },> |, U/ ~ 4 2 "=4  (6L J+ @+   J/ I Np.np p,>,> },> |, U/ ~ 4 2 "=4  $&p,>,> },> |, U/ ~ 0 4 "=0  $& p,>,> },> |, U/ ~ & n9 k & o 6 " 6 " 6 4 "=6 ,>p,> },> |, U/ ~ 6 4 "=6 ,>p,> },> |, U/ ~ 6 4 "=6 #  $&p,>,> },> |, U/ ~ 6 4 "=6 (  $&p,>,> },> |, U/ ~ & t & u & v 6 ",> H,> },> ~, U/ ~ 6 4 "=6 3,> W,> },> ~, U/ ~@ 4 "=6 7  W/ H,>,> },> |, U/ ~ 6 4 "=6 =  X/ I,>,> },> |, U/ ~ 6 4 "=6 B  W/ H $& ,>,> },> |, U/ ~ 6 4 "=6 I  X/ I $& ,>,> },> |, U/ ~ & y & z@/ {+@ `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:   ,> & + ,> & +  & ,>,>,  &  & &  "S~@)Dl "=b  & Z Fx,^,^,^7@x ` & +x  |&"QDx6@, _x#`." ",~SKERRCGERR? ? Internal compiler error processing statement ? Call to FROM DDT EXECUTION: -..B6H + F A Lp@@p,Jc1Z+ C1F+ ' Jp: p+ #,Jc0Z+ + Lp:p+ #,\ p&,4N 0/."46 0 *Jp=6 .+ 0 p< &*.* Jp0j+ 5 :+ 6.* QZ  (XH , Zp p pQLh1l+ A 6< Lp2vp+ _ p. X[D. Nh9 <+ _ [D. Nh@@h+ _ | J ,>B,6/C+ d<&(.( Hp0h+ J :+ K.( QZ  .XN , Zp p pQJhZ(hQ( Z,'Q,` Lp  < 46 Z,Jc1Z+ W Hp+ Y4V Y ,Lp<+ W=6 T  &(4J _/*"46 ^ .Np=6 ]+ _ p .XNh p.p@@h p (hC p/B+-..D@@@p0F+ jO@p,Jc1f+ h+ m0F+ m,Jc1f+ k :h1z+ p,>D,6/E+ x :h0z+ uA&$6.,Jc1f+ s+ p6Hp"l,\.V   /D+ K AE5H .l  L) BK DL).bK.Ldd:K DL /$.Ldd:K DL,Jc1f+ :h1z+ yO,~-.@@ @@L@@ @@K@@L F H  * J :h1z, y0F$+ L H , .F+@0F+. * J ,Jc1f+1F+7 :h0z+O@ , y0F"+,Jc1f+ . N +60F"+&,Jc1f+ :_0z +6.D `J+$ , L Fp &,\ &"+, :_0z +7.D  `H++ * J Fp &,\ p,\/D+80F"+1,Jc1f+/+0F"+7,Jc1f+2 :_1z +7 * J O@L+8,\7*L, e  1N+=,G K J  L L +? L J @@ ,`.G+@ `[($0Dh/|(0(,>.m 4c K L(lL*  4Q(lL+f*) G/4G# 0b2+h4B`@@x1b+S/" Bx "(B7 "`%   % .% dr.,.dn.,`l+\) /4 (&00L=./4@6Bx+Pa@..@dn.,5,d) .4d,`T+i) |tn LK NL/m,^,~  7 g U, LK LL,>n,D/m+g6$ 68}g5'G2"NPQ(\:]/*DB$esI4[5RmP;ar!Cd_4b%-)Dt]w!znX=3vu5 9J.L 9k1C~=(H%]<~ 42Z/?T+OA?0{/Je1'NM ^#`?1B 1,XNvR=rh=;'nbT'&Wa&5uTX0-YP+E n<95w,*%cZA)Z={Z/PC$ :Q;dSv-0i%$r.t:$.Ag.zQH-$Z!9RY%{MpVi$Wg\50V6!-MaT\lj8%a 4e#L`%PD2+}?x/$U?^6|ov:;mjoV".z-4Ref*yG8Fag?5Wy&W z!/!F{hl4m4)xZb6GBa46q:c2Jz b&t^OoNl(zpQu!#kBG3Lf3Lf3 (2>@'0j=@&h/WB;M2@% /H.H;::J(@$0N9(-\-9y*2>,N4g'7T? wb %I'8Zm pZg=1&qHH,LqA,=PMz[` qW&B0\X4lW0|so lh<\j6HmH%NiJB* D=$$DD$DD$DD6$DD$$DD$DD$DD ` AP:b8T # nD $dy$*%a>1FIZ8g9t> ("E#I (L&irDR* b^Y-KJx`0l3f4 #.m7N Hs:nsbz>[~-..= w[h HMZ h JM,>0L+k*> JN M,? LN(J.  , NO2N?+U | L + w O(Ll@ O3JN+],>M,>,> Zp,T/@ pQZ  w M,A :0L@*A .0J@A`Z+* O3LN+* w,>M(L,>*w,> Zp,T/@ pXZ8+*(>5H,B4Ln+v+w M M*@ ,0J@ .B *0N@ A aL+v w (+w w (h@ M haH+} w,>,>M Zp,/C pQZ( M haJ+* w,>,>M Zp,/C pXZ0+*,>0L+& M(? HN M*? JN(H. $ LO2L?+ | J ,>C+( w*D (1J@,D :1L@A O *0N@ AaZ+,>D,D/E w ,l@ O3HN+,>M(H,>,> Zp,T/@ pQZ( O3JN+* w,>M(J,>,> Zp,T/@ pXZ +*  | H  < J ,>E,6/F++@/=+-. w(F5H0Z h LOZh NP+8,F0L+4[h HOZ h JP+8  | H  < J ,>E,6/E+S P,? LP O.? NQ3L+S P *0N@ ,0N@ G (GD `J+S,>O P(Z,>,>w,T/@ ZO w.F5NI OXHh+J OQHh O(A1H+S7NP+R Q *0H@ ,0N @ A aJ+S (hG@+-. w~(@ *0H@ w~ .0L @ (0L@GA aJ+h[ h0l+c H N  h J  H L  ( H ,`+ H N  h J  h L  ( H ,`+ w~ w~ (0L @.@ *0N@ AaH+o w~+ w~ w~ .0L @*@ (0J@AaN+v , Lw~ w~,A0L+ h H < h N =,?(L w~(J. . = L >,z H H   = N  > J  w~ L ,`+,>w,>I(?,>,>w~,>I,>,/=+-. w(A0H+ H L @@  h N  ( H ,`+,>w~,>I w,?,>,>J,>I,>,/= Zw w .nG7w@+@ ` Kc-aCN=ma9;0h  hh h h  h18h hh( -. w~[ JR[ w.8 3N+S w~Z.(Q. N ,>,6/+E@@T@@T RZ.(Q. NSZ w LQ[w46 Q JR SZ 8 LS(4H_,>,>,>,T/ ZR S 0aj+m,>,>,>,>,>S,>R,/ ZR TaH+k,>,>,>,>,>U,>R,/+O@T R NU+ R(0H+[ h LVZ h JW(0H+| haL+w S h$(/T"+z S h$(.T  ZT V JR+*0J+ S h$0.nT R haJ+,>,>,>,>,>,>W,/+ W ZR R,0L+ S R  $h.nT+ S h1H+,>,>,>,>,>,>R,/ ZR T`L+gO@T R ZU:Q ..nS=6X R 0aj+" TaH+ ,>,>,>,>,>U[0,>,/ ZU+$[0 NUO@T+$[0 HW  .nT w~ R, * D aL+0 TaH+/,>,>,>,>,>UZ 8,>,/ ZU+0Z 8 JUO@T,> ,> w~( ,>,> T`N7U@,>,/ ZV V TA* Jh[ w,>,>w,/ VZh HR. *0N@ ,0H@ G aJ+D .n +DXZ 7V@+-. w~1H+] w LX w~ NX w~ HY7JY+\. 0N+Q, 0L+ZZ( HY[  LY+ZZ (0L+Z[( HZ, 0L+ZZ ,>,^/`Z+Z,>,6/+] YZ h LY+KO+^@+-.7Hw+aZ 0L+bO+v*0J+g,>,>X,>X,v/+v. *0N@ , .1L@A aJ+q[ ,>,^/aZ+u wZh,>+t,0L +uZ ,>,^/+v@+-..@ w~< Hp2vp+~ . wZ (2Lw~+~O+9y@/+@ `$@( ( 0 h ( 0 h  F8h( .h((  q H  9 J : q,`,~-. (QH , @@XZ`X w}j: w}l: w~n;@@X w~QHX wXJX +-. (QH , @@XZ`X w}j: w}l: w~n;@@X w~QHX wXJX w|XLX4H/*; ,0J@ .; *0N@ G aL+. :z<+/XV 7Jw+7(< .0H@,< (0L@GaN+7 :z=+7XV( +@ `0X XX 8X(.X-..Z wZh H\[ h JZ[ h L[Zh N[[h H\ *j[ Z,[0L +^Zh N^(\0H+^*\ (0J @,\ *0L @ GaH+X 8 L < 8 J =(].S H >,z ] L   = N  > J  ^(^ H ,`+] ] N  ^ h"L  h"J (^ H ,` ZZ [.[0N +wZ h L^*^0J+w(_ *0H @ ._ (0N @G aJ+q 0 N < 0 H =*]. T J >,z ] N  = L   > H  ^*^ J ,`+v ] L  ^ h"N  h"H *^ J ,` Z[ [,[0L +Zh N^(\0H+*\ (0J @,\ *0L @ GaH+ 8 L < 8 J =(].T H >,z ] L   = N  > J  ^(^ H ,`+ ] N  ^ h"L  h"J (^ H ,` Z[ Z \(_,`3H+,>(\,>,>`,T/a ZZ [ \(_,`3H+,>(\,>,>`,T/a Z[ [ \(_,`3H+#,>(\,>,>`,T/a Z[ \.a4N& w ,lb@@] [ Z*[ .0J@(^ *0H@ AaN+= Lp `h7U U p.b..: Z > [ h H < h L = ( N = ( H >,z ] L   = N  > J  Z(^ H ,` Z]+b(c1H+U w .nc ,QL , Z] \ ]XHh wXJ .nd ,ld@ je Z.^,> Hp, /e pXZ0 ZXJ0XL( wQLhZ0 NZ L\[h4HU.e[hQN0Z`h[0 HpQL /e,>w,>f,>f [.^,>,>,>Z,/g Z] ][ h L](c *0H@ jgZh N],h (0L@hh@@^ [,[0L+z*^0J +l h L < h H = V J >,z  =3Ni+y2Ni+z+r,a5Ls h0J+q w ,lj+z h2Lj+zO@^+z [ h ,2Ni@ .6H(@A aL+z w (hj [*k1J+ ,QL , Z] \ ]XHh wXJ .nd ,ld@ je [.^,> Hp,/e pXZ0 [XLhXZ0 wQLhZ 0 J[ .ng[h4H.e[ hQJ0Z`h[0 HpQL /e w [XLh,>k Zp,/e pQZ  `j+M ] N] [,[ (0L@*\ ,0J@ A*\ ,1J@ AaH+1 Np `j7U U p(l..: Z > 0 J < 0 N = [ h H = h J >,z ] L   = N   > H  ]*^ J ,` Z]+M ^aN+=,>w,>l,>` ]*^,>,>`,>,/g Z] ],[0L+< ] .nh+M ]XNh+M,>w,>f,>m ]*^,>,>,>[,/g Z] ],k1L+F ]XNh ][h N]*h ,0J@ lgZh H].d *0N@ jh ].^1N+R,>,>k,>`,T/a Z] ]([0H+Y ] N @@  h8 L  ( H ,`+b ] N @@  , L  ( H ,` Z],>w,>f,>`,>k,>],>],/g Z] ] w Z [*[ 60J@*mD*nA 0 *0n@ A *7.0@ A   ,0n@ A .7* @AaV+|# h L_ ] J @@  ZS_/h"H  . N ,` Z] w@ ln *jo+,[0L+ .7(h@ h *0l@ AaN+ w (ho w (hp+(k0H+ w ,lp+,>w,>l,>`,>k,>`,>,/g Z] w ]XLh ZQJh@/Z+-..eS( H *V.*S .W..(N. (W.((H. *X. . p J : !,` Zp p wh^ p/e+-..eS( H *X.*S .Y..(N. (Y.((H. *Z. . q J : !,` Zp p wh^ p/e+-. w[h H_5H1+G+G _Z h0L+9 q H , Z` ` *XJh _XLh w `QNh7H_+GZ 0L+? `QJ ,>,=/e+DZ 0J+D[ N`4ND,h1L+D _XZ8 _ J`Z( H_+9@+-..r (QH , Za a ;Z (XLhXZ( a .nk (hr,>w~,/e Za w~,s1l+W.: Zc c 8ah@@a aaN+Z s Z +[ t H S( H ,` Zb a bXLh aj+a@+b .nt w~.s Nb"a.($..QN  a Zp, pXZ0 Zd d[ /(XH( . Nc w~., Lc w haJ+t ] H @@  . N  , L ,` Zb+u   Hb 6 b Hp2vp+ d c.  cZ(XH0 *ju a`H+:c d. c[(XH8 *ju3Vb+ ,.lc: c d. Z0XN( ,lv:c9w ] H @@  b J  , L ,` dXZ8 (hv w~Z hXJ8hw wXL8hw[ hXJ8hx bXL8hx@/r+-..e w(s Hd.: Ze 6 Hp2vp+ e[ (3L +@+ (.he9 :/e+-..e@@   7J %+0Z % Ne*y Jf.. Nf 6 Jp2vp+/ f[02Hw+, :+1Z 03Jw++ ..nf9(: +#@/e+-..e@@ I[ q H ;7J ;+Q.y0N+OZ (4LOZ( Hg 6Z Lp2vp+O g.Z 8 Ji(z0H+G[( Ng 8ah+N,>,>,H/r I iQH0 %: I gXJ8 %+N  ;[h4NN,>i,!/eaZ+N  Zh %,>[ h %,>,H/r9:  ;Z h L ;+4@/e+@ `3330 ! ! ! ! ! ! ! !(4h h 88.(h 00 h 8h<h(0:h8   08h8.h 0_PBhh0<8B86 hDh&h(hL$ h$@hCR@CTs@ 0F0F8F(F8F8F8F8F8$@8( (+[  < =Z >+@0-.}`n@0,B H = J >,~. >,4,4,U/ >,6,6,W$ >,8,8,X& >,:,:,Y. >,<,<,U/ >,@,@,W$ >,E,E,X& >,I,I,Y+ , ,,+ ,,,+ + ,,+ ,,,,,+ + ,+ + + ,,+ + ,+ + + + + , , + ,&,&,",!,!, , ,.+ + ,4,!,!, , ,.+ + ,4,!,!, , ,* * *+ ,4,?A >G >I >F >(,Y`@,N =,~`@,N( =,~`@,NH =,~`@,Nh =,~ \*. B`@,N < =,a \*.,~ \*. B`@,N < =,_ \*.,~ \*. B`@,N < =,# \*.,~ \*. B`@,N < =,> \*.,~,? H < J =  = >7 ,Y,;7 =,Y H = J >  < =,~ = >,~ = >,~, , L"`d*7@:,~,h,j,j,k,m,q,q,s,u,y,y,}$ ,, , ,,, , ,,, ,   >( 8,~  >H8,~  >H8J8,~5*p .( >/.. " >( 8,~" >H8,~" >H8J8,~  >( 8. =,~  >H8 <,~  >H8 \*. B < <,a \*.,~  >H8 <J8 =,~ H = J >,E,~$ $ =,~ H = J >,E,E,~$ $ ,~,,,~# , ,,,,,#, ,,, ,,#7 ="h,~3h =g =,~ & >,~3* > >,~2j > >,~3( =  =,~2h =  =,~# 7 >"j,~  *,~  (,~  (,~ &(6@h(Fh*6 *,~ &(6@h(Fh*6((J,~#%(( '.7 <"j (,~7 ,Y`@,;[({d(~)?27 <"`  (,~4HT7 ,Yaj+9:l(5(9U(+]7 <"` *,~4HTl*.*@d ej.(l(,~7 ,Y,;7 <,Y,~,>,>,>  | N ,>],D,^x,^,^,^Z >0,1+K/,A,+R0,\+M ,+R0, +O/,\A,+R0, +Q ,+R ,4LT`n@+T@h,~4(WU(0LU*,~1L+Z ^1L ^,~S( *,~{@ ?WpH9 @7 6Q<+c7 6Q<+g7 6,>"pLpcX9i+i7 6,> p p!`7Pp+5Vl  p+:27`B:7`B2 /6`: pd<56ul<L"`cX:50xl<L"`cR:d6~d0~4t"`)Pa|+`|+!L"`cX:a|+L"`cR:d6~d0~+$.+$V.`vh6ev+dv`v,lav?)ld6~5VcX+W7)av= `Z+WdZ,z+YddZ,z+Y@v,^ Vpd8 Xp,~ddZ,z+Z6$6$?,>+ )P9{B:l"`L@cX:,~l+7 67 6Q<+%,>7Tp+W448  p!`7Vp+WFP46: p:4.:W@A:`|lQd6~d0~))%% %+$3.+$Z.+$[`X.8)[+ L"pcR9(+(L"pcX9+++7 67 6Q<+@,> p44Q  p!` pF46T pPbV[+G+WcP[+\:4/:W?A:`|lQd6~)'%JcT:.'[58=L"pcR9B+BL"pcX9E+E9aZ@++HH 9495H   E3( E+_O@ EO@ E: E Fh  ,~: E h  ,~@@ , Q: ,~-.,\,Jc1f+f0F+j,\,Jc1f+i,\ :h0z+m,+n,a7w@+-..%@,Jc1f+p FpO@p *2Jp+v:p %A+~ ,2Lp+y:p %A+~ .2Np+|:p %B+~:@p+~,\S:/%@+-..%B,Jc1f+ :h0z+,\ &,+ FpO@p ,'2Lp+:p,Jc1f+ FpO@p ('2Hp+:p,Jc1f+ :0F*@ Zp,Jc1f+ :0F@ApaZ+S:+ %0 N  ."2Np+:p,Jc1f+0F+ %C+ %1 L :@p+ %1 Z  , 2Lp+/:p,Jc1f+! :0F'@ Zp,Jc1f+$ :0F"@ Zp,Jc1f+( :0F@ pA pAaZ+.S:+ %2 N  .'2Np+;:p,Jc1f+1 :0F)@ Zp,Jc1f+5 :0F@ApaZ+:S: + %2 L  ,,2Lp+L:p,Jc1f+= :0F'@ Zp,Jc1f+A :0F)@ Zp,Jc1f+D :0F@ pA pAaZ+K %C+ %3 N  ."2Np+^:p,Jc1f+N0F(+^,Jc1f+P FpO@p .+2Np+Y:p,Jc1f+U0F+X %D+" %3 ,2Lp+\:p %A+:@p+^ %4 Z  ,#2Lp+q:p,Jc1f+` FpO@p (*2Hp+i:p,Jc1f+d0F+h %D+ %4 N  ."2Np+o:p,Jc1f+k0F+n %A+ %5 L :@p+q %5 Z  ,&2Lp+:p,Jc1f+s FpO@p ("2Hp+|:p,Jc1f+x0F+{ %B+ %6 N  .*2Np+:p,Jc1f+~0F+ %E+ %6 L :@p+ %7 Z  ,*2Lp+:p,>%7,7_/%E5: %8 Z +O@  %F H @@ @@ ,`.%F+ (#2Hp+:p,>%8,7_/%E5: %9 Z +@@  %F L + :@p+ %9 Z  | L  (N..  N ,>%G,6/%E/%B+-..%G@@p@@p,Jc1f+0F+$,Jc1f+"O+'0F+',Jc1f+%@ Zp :h0z+7 p p1&+1  | H  (J.*  J  %: L ,>%G,6/%H+A)B ./(  Bp Dp,Jc1f+5+(,\ %F J 7Lp+:"hp"zp7Hp+< :+=@ Z p L  p N ,`Q: /%G+-.@@j 414+N(V :_0z +G.6p+L :h1z+F :O0z +K.6`+L(VP+N,Jc1f+L/4+C :_1z +S :h1z+S :O0z +X6Nj+V,>%H,D/%EO@j,Jc1f+V+N,\ +Z H ,A Z S* J ,`Q: aL +f Z  .QN ,6H &+cXZ &QZ &+dXZ XZ &Z QLh  ,~  | H  .*/(J .*  J ,>%I,6/%E,~,JcA:?+@ln+QO,f,f,f,f,f,f,f,fO+K,fO+K,f,f,f,f,f,f,f,f,f,f,f,f,f+K,f,f,f,fO+K, %CS:+.S:,cS:S:+0S:S:S:,S:,,,,,,,,,,S:S:+5,o+:+?+A,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,YS:+CS:S:S:+E,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y,Y+G+I+K+MS:@  | H  %:+O,Jc1f+00F+4S:+Q,\S:+Q,Jc1f+50F+9 %B+Q,\ %E+Q,Jc1f+:0F+> %A+Q,\ %D+Q  | H  %;+O  | H  %;+O  | H  %<+O  | H  %<+O  | H  %=+O  | H  %=+O,Kj,\O+Q  | H  %> J ,>%I,6/%E4:l,~-.,>6H "+cO@ " w 4"x (nWO/0"1t +b/4 T L,(5:^S.(NPF5V^@@ $+b+U T $S.(NP @@ "@@ "@+e,l Z " $[ "(D0,^+-.  !/w QD 5Dj+q+r,XZ  wZ.0 ,Q .< *:8 L ! . %I J0 +@+-..%G  !1(}+v,>%J+ w.%> Np(%?+@$y+R+}+ +++++<+E+O7J "+@@ "+,l Z "[ "3Lp+  "3Z%J+,l+[ " < L  p $ J  .QN ",>%G,6+$ p1*+R: ! " Lh ++R,>,r/%E5:O+R+R.%@ ! Jp (%?. Np2vp+,>,r/%E5:/%@+R9,>p,f/%E+,>,R/%E p w.%@.p Np2vp+" A\"x4H" +#9O5:%,>w,S/%H+S: ! /p8 H8 +,>,r/%E5:++R+S+;,>,R/%E p w.%@.p Np2vp+3 A\"x4H3 +49/O5:6: !@@8 ++R: ! /p8 H8 +,>,r/%E5:;++R@@ $+R.%E ! Jp,>p,r/%E5:A/%E+R,>w,R/%E[ "0L+M@@ "+>.%E ! Jp,>p,r/%E5:I+@+R,>w,R/%E w 4"xA5HF,>p,f/%E+@ 3B $+R L,0+R@/%G+-..%@@@p w $"x Jp p`L+Z(L Lp:p+V[ " < H  p , L ,>%K,6/%E:p p(Z Zp4Zg p`J+d(J Jp:p+a p 4 N ,>%K+]O/%@+@ `UNKNOWNLINEND"=""("")""[""]"":"",""$""**""*""/""+""-" RELATIONALOP".NOT."".AND."".OR."".EQV. OR .XOR."IDENTIFIERCONSTANTLITSTRING jkmnopqrstuvwxyz|}EXPRESSIONVARIABLESPECIDENTIFIERLPARENRPARENFIELDSPECLBRKTCONSTANTCOLONRBRKTDATADATAITEMVALUELISTLINENDSUBSCRIPTINTEGERDECLARESPECINTEGERSPECREALSPECLOGICALSPECDOUBLEPRECISIONCOMPLEXSPECBYTESPECFUNCTIONSPECTYPELISTSUBPROGRAMIDSUBROUTINEENTRYSPECPROGRAMBLOCKDATADIMENSIONONEARRAYCOMMONCOMMONGROUPEQUIVALENCECOMMAEXTERNSPECINCLUDESPECUNITSPECLITSTRINGIMPLICITIMPLICITSPECPROTECTGLOBALSPECNAMELISTSLASHDASHLOOPPARTEQUALDOLLARASTERISKPLUSMINUSCONSTANT TIMESCMPLEXCONASSIGNGOTOGOTOSPECCALLRETURNSPECSTOPPAUSEINPUTREADSPECIOSPECFORMATIDACCEPTPUNCHWRITESPECOUTPUTOUTPUTITEMPRINTTYPESPECENCODEENCODECODESPECDECODEREREADBACKSPECREPEATEXPRREWINDUTILSPECUNLOADENDFILESPECSKIPSPECFINDACTUALARGSTATEFUNCSPECARRAYASSIGNSPECLOGICALIFSPECARITHIFSPECASSIGNSPECDOSPEC. !"$%')+-/13568:<=?@BCEFHJKMOPRSUWXZ[\]^`abcefgijklnopqrtuwxy{|}                  &2-1->-@..3.u.:4X.^-EXPRESSFUNCTIONSCANFIRSTSTATEMENTTYPEIDLETTERTOQUOTEEXPRLISTRECORDMARKOUTPUTEXPRLOCALARGLISTDOLABEL R T V X Y [ \ ^ _ a c00@@@@pP@P@P Pp p`0 p `  @ p   P   0P 0 ` @ 0@ P@ @0`@0P 0p  p@ `  0  @ 0  Pp @ P7@ ` 0 0@@@0 0@ @Pp@p @@@@@P`PPPp  000@@ Pp@ `P@0 P0@@@p@ P`P@P`P@@  @@ `p000@@@p@P`PP`P`@P``0 0 PP`` @@@PP`P`0P0P@0@@P@`p `P` PP2P 0 @0p@ @ 0!!!``P!@"0`P"#`P 0 "`@# #0#@#P% 0P 6 ! $P$`$p $0%&  %`%p6 !&'  &`&p6 !'(P0P 6 ! ((( '`(@*P 0 )@)08@#)`)p*+  *`*p6 !+,  +`+p6 !,,`5%-5%. -@-P6 !-p.@9P';P(;P(;P(/ 9P'/pP@0 /P@2P   0`16 !1 101P1`07@2@ 4`P2`02p@3 3@P03p@43P45  06 ! @5 60P@`0 7 P78 P@7p 7P8 908@#008P8`@8p;@0P @P 0 : @:@9` 9p::p;<00P  ;p@;`<< =0 @ >@@ >0=p@>>0?0@@P?`@PP@AP@ A @AA@BPB 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 ^%% % % % %%%%%%%%%%%%%% %#%%%&%'%(%)%+%-%/04 j004 j04 j0, jxxxxxx(( &x)-..&, w~/( Hk wZ h JkZ ( Ll.&- (0N@*&- .0J@GaH+%W@+%h k( lZal+%b l k( Z,[(&-. 8 Ll2L&.+%` w~ H +%gZ(0/( Hk+%h l k( .&.(&+3N+%h w~ J ,>&/,D/&/S, L  k ,& N  w Zp,` pQZ [  Lj k(*&+j&-.&-n&0 lZ J0 (h&0.&, *1N@ kZ0.&, ,3H@ A aJ+%} w~ H ,>&1,D/&/+& 6 kZ Np2vp+& k. Z 0 Jm l(&1.&.3H+& w~ J ,>&/,D/&/9% w (h&2@/&,+@ `C `C~3@C&lgC&vC@C2|s@C2:C6C6'C6MdC6Md'C6|C@CNMc@CR c@CR dGG3@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@[>!`e C@g&=c@g&q`g&tC@g&u@g:=C@gGC@iu@8,Z.lZ$lZ0hh( 0(( h-..)|  ! Hp6J "+&7O@ ",l Z "[ "0N+&< < J  )u L ,>)},6/)}+&?,&@ p8 J ! Z( +/)|+-..)~Z1( !+&D,>)~,6/)+'O@p[ "1L+',(:p. Z 5:&JO+'[ "7.4)[+&N6jp+&R.  (+'7jp+'[ " p.[  ,)[3.4)[+'.)} p.  ( Np ) L ,  p . PXT> p[p Hp 0N+&e *j* .n*,*0L+&a :z*+&dXBP Pah+&d *j*(*h*+'> p.  (QN[ p /,+@4&i+'+&n+&o+&q+&r+&t+&u+&w+&y+&{+&| (+&z (h*+& (h*+' (h*@+' (+&x (h*Zp +' (h* :+'@h*h*+'@+&x@h*Z p 0J+' :+' :z* ,>,I/)| Z[(*0H+' :z*+' XBP Pan+' ,l*.*0N+' :z*+'XB ah+' *j* /)} p. Z +&J:p. " J ,l Z "+&E/)~+-..)|[ "1H +' $ L  )u N ,>)}+(Z " Lp,l Z "[ "0N+( .* ! Jp,l Z " p,*1L+'&l +',7H (+', hal@+', )v N Z(hQ( H ,>*+'C[ " *1H@ ,1H@ A aJ+'5,&@: ! Z8 +5:'5O/*+(+'6,>*+'C[ "1N+'"[ "1L+'< 4 N  )v H ,>)}+'Cd p h`N@+'I[hA(}4H'EZ*hQ* J  )w N ,>*,6/*+( Zp haj+'H :+'H : pz*,>p,f/)|  !  +[ +. + Lp2vp+'U.)| X Jp.*0N+'S :z* +'T@ l* /)|9'M,l Z " p,*0L+(.)}d .2Z (@  ' ,2Hh@ GaN+'aZ*hQ* J ,>* ,6/* +( ![( +.(QH ,  ) L  p N  V , Zp p p(* h* ,l*  ![ 8 +8 XJX 8 + .$[8 +44'y . . 0 Jp J `j+'u pXL( p,* 0L+'y** 4J'y ,l* =4'o p h`j+(.)|,>h,/)| Zp3Z* +(,>,>p,%L/)}+( p@ l* /)|  ![h +,>,>h +,/)} p Lp/)}+( ,>  !,>h +,J/)} Zp p N !/*+( p haJ@+( .6L (@(* DaN+( '3Jh+( `h+(Z.hQ. N **0J+( )w Z +( )x H ,>*,6/)}+( p/)|+-..*@@p[ "0H+(+6Lp+(*.)| ) H , Zp p *j* @ l* p/)| Zp+(,@@p+(,0H+(-,l Z "+( [ "0L+),l Z ",&@ Zp5:(2O+)Q[ "0J+) .)|@@p p.* 1N+(=Z h Jp,*4L(<[ " $ J  )x L +(fO@p+(A** 4J(A[ " < H  )y J +(f p** 0J+(K@@ < h N = )y H >,z * J  = L   > N  ( H ,` Zp7Np+(U p h J < h L =.*.)z N >,z * H  = J  > L  . N ,` Zp p** 4J(\ h N < h H = )z J >,z = Lp+(] h Np@@p,l Z "[ "1N+(a0N+(bO@p,l Z "[ "1J +(h , N  ){ H ,>)},6/*+)QZ " Np(*0H+(r@@ < 8 L = ){ H >,z * J   = N  > L  ( H ,` Zp7Lp+(} p h H < h J =,*. )z L >,z * N   = H  > J  , L ,` Zp p(* 4H) h L < h N = )z H >,z = Jp+) h Lp * L  p N  p H  * J ,` Zp,l Z "/)|+) p.* 1N+) *j*[ "1N+) < J  )| L ,>)},6+)' (0L @ *0L @ GaH+)Z " Np,l Z "+),' Zp5:)+(1+)Q[ "0H+)<.)| ) L , Zp p .n* n* pQHh,l Z ",( Zp5:)(O/*+)Q p pXLh,>,I/)| p[h Np(*0H+)/ ,l*+)3XZ8 8al+)3 p (h* pZ h Lp.*0N+)7 *j*+);XZ0 0aj+); p .n* p Jp/)|7Lp+)P p(* 0H+)B,>,>)},>,T/* Zp p pXLh.*0N+)G *j*+)JXZ0 0aj+)J p .n* p p,* Zp0L+)N :+)O:* pz*7 p/*+@ `STATEMENT FUNCTIONARGUMENTFUNCTIONARRAYSUBSCRIPT ~~~}}||IDENTIFIERIDENTIFIERDUMMYRPARENAN ARRAYRPARENRPARENCONSTANTRPAREN)g)i)k)l)n)W)Y)o)q"30)r")tx-  P.<P8 h )( 8(FX8(hh h>h2h ((.08Fh88h<h0.h -. .- w4-(-+@$*+*k+*b+*+*(+*,+*3+*E+*W+*`7J "+*@@ "+*,+ Z "3T "+*k  "1Z +*",++* | J  " 4, N  T, H  * J "O@ ",>-,6+*A,>,*/-5:*++*b+*k+*k *-.  Jp2rp+*k,>,*/-5:*2+*b+*k9*.+*k6J "+*7O@ ",+ Z "5:*7+*b+*k .  "(N  *-.  Jp2rp+*? A L,n4L*> +*?9*;O5:*B,>,+T/-+*k,>,*/-5:*E+*b+*k+*k6J "+*IO@ ",+ Z "5:*I+*b+*k .  "(N  *-.  Jp2rp+*Q A L,n4L*Q +*R9*MO5:*S@+*k,>,*/-5:*V+*b+*k+*k,>,*/-5:*Z+*b+*k6L "+*^O@ ",+ Z "5:*^+*b+*k  "0H+*k@@ "+*W,>,*/-5:*cO+*k6L "+*gO@ ",+ Z "5:*g+*b+*k ( "(H(  \,nA5Z*`/-+-.0f+*n,Jc+*l1F+*s1F+*s.- Fp &,\ p/-,\@+@ :h0z+*| $*.  ,Jc1F+*y0F+*uO+*0F$+*~,++*,\ :,~.B F,Jc,*l :,~,Jc1Z++0F++,Jc0Z++O++ 1F++,*l :,~,Jc1F++ ,*l :,~,Jc,*l : ,~,JcA:?+@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/-++S4:+,~-..-@@p w $,n Jp p`L++Z(L Lp:p++W  " <, H  p ,, L ,>-,6/-:p p(Z Zp4Z+g p`J++e(J Jp:p++a p 4, N ,>-++^O/-+@ `ILLEGAL CHARACTER"$"LITSTRING"("")""*""+"",""-"".""/"CONSTANT"A""B""D""E""F""G""I""L""O""P""T""X" +j+m+n+o+p+q+r+s+t+u+v+w+y+z+{+|+}+~+,,,,,FORMATSPECLPARENFDGROUPRPARENLINENDFIELDDESCRIPTORSLASHPLUSMINUSCONSTANTPCHARNUMBEROFTWODESCRIPTORONEDESCRIPTORXCHARTCHARDOLLARLITSTRINGGCHARPERIODFCHARECHARDCHARBCHARICHARLCHAROCHARACHARASTERISK,,,,,,,,,,,, ,",$,&,',(,),+,,,-,.,/,0,1,2,3,4,5( 0p0 @0 @ ` `P0Pp `PP0p@ ``p  `@` `0p@  ` 0  P@  `   `@ P p p ` P  `  ` `    @ 0 @ @ `p 0 p0P(?}7?}7?}7?}7?}7?}7  @`@`?}7@`8p?}7 `8`@ ``8 80\,E00\,E0\,E -.@,Jc1f+- :h1z+-",>0+-) :h0z+-'$6Z.h.,Jc1f+-%+-",\1vO5v-*,>0,6/0+-. 0 L  V ,`: ! Z8 +@+,Jc1f+-.8 FP ,~-. ,->aZ+-= 0  E2H E+-7O@ EO@ EO+-8  E  2,-. 3Z+-< T E+-==2-9@+->O+Oe@@,~-..0,Jc1f+-A FpO@p *$2Jp+-G:p 6 0+-d ,)2Lp+-K:p 6 0+-d ."2Np+-Q:p,>0,7_/05:-P+-f+. * J +. *!2Jp+-U:p 6 0+-d ,&2Lp+-X:p 6 0+-d .!2Np+-\:p 6x 0+-d ()2Hp+-b:p,>0,7_/05:-a+-f+. , L (+.:@p+-d,\+-f,>,7_/05:-gO+. V ,Jc1f+-h0F+. .0,Jc1f+-k :h1z5z-p,>0,6/0+.  VpO@p (2Hp+-v:p1T+. 0T+. 7+. , 2Lp+-|:p0T+-z +-|0T+. : (2Hp+.:p0T+. 7+. ,2Lp+.:p1T+. 0T+. : .2Np+. :p0t+. (Z.:+. O/0+.7 pO Z /0+.,\@/0+-..0,Jc1f+. :_0z +.Z,_ Lp+. :O0z +.!Z.O Np,Jc1f+.0F+.#,Jc1f+. :_0z +.Z,_ Lp+.* :O0z +.!Z.O Np+.*,>0,6/0+.2,\ p[ -0J+.(,>0,D/0+.(\` - p  XH8 -+.1 p XJ -[ -0L+./,>0,D/0+.0\` -: p3jp+.*@/0+,>0,7_/0,~,Jc1f+.51F+.9,\O+.9@,~-.[ "0H +.R.0 !< Lp,Jc1f+.>0F+.N.0: ! , L( + Jp@@ ",&25:.FO/0+.X[ "1H+.C[ "1J+.L 0 H ,>0,6/0+.X,>p,f/0+.O: !@@( +,\: !@@( +,>p,f/0,Jc1f+.R1F+.W1F+.W,\O+.X@h +-. w H =@@ >@@ =@@ < * J >,z  =+-..0  ! Hp7J "+.b@@ "+.c,l Z "[ "1N +.g < J  0 L +.qZ " *j0: ! D0 +,Jc1f+.j :0F@`Z+.`1F+.s[ " , L  . N ,>0,6+.t,\,>p,f/0+-..0  !  +Z*Q* J ,04L.{,>0+. `H@+/[ A*}4J/ 0 N ,>0,6/0+/ aN+/ :z0+/ (h0*01*+/ .[ Np+/@@p  ! NpO@ ",l Z "7Hp+/ l +/ [ " .1L@ (1L@AaN+/: ! , L( +,&25:/+/+/+/: ! , L( +,l: ! Z +,l Z "[ "1J+/ O@ ",>p,f/0@/0+-. .0  +7H+/' [ ,>,>,/0  | N ,>0,6/08 D -  L , ab+/+,>0+/D[. S* J | J  0XL  X P D ,[,>,>,/0  < Hp2rp+/] H X,>0,>,/0Z Z ~2J+/=,>0,D/0(01H+/F,01L+/A  | H +/D(01h+/F | L ,>0 ,6/0+/tS, L | L  0XN , XTX@@ }  ,XHX,>,+/0S* J | J  0XL ZX.00N+/S :z0 +/VXVP Paj+/V ,l0!ZX*00J+/Y :z0!+/\XVP Pan+/\ :z0!9/5,   -XTX  ,XNXZZ ~2H+/c,>0,D/0,>,+/0ZX.00N+/h :z0 +/iXVPZX*00J+/l :z0!+/oXVP Pan+/o :z0![ ,,>,> ,,/0[ +,>,> +,/0+@ `STATEMENT FUNCTIONARGUMENTFUNCTIONARRAYSUBSCRIPTNTEGEREALOUBLEPRECISIONOMPLEXOGICALITUBSCRIPTINTEGERTORPARENIDENTIFIERSCALARH/z/~0000000 0 0 0  0( .,2F + &P P8X<X.X-. .77 w h[XA(}4H0'Z,XQ, L +0*,781L+0+Z(XQ( H ,>78+0/ w6Lh+01  0H+00,>79,6/79+0{@+0h h ,>7:,>,/79 $ - [. Hp2rp+0^8 H0J+0\XH H N(7:0H+0> ,l7;[ P5L0@ :z7;+0N.77 (h7;[ P JpZ (5L0M (`h+0M.77 P L S. N , Zp p *j7< (h7< p pXLh/77/77  1H+0T Pal+0TZ.PQ. N ,>7=,6/77O l7=  0N+0\Z Z 2J+0\Z(PQ( H ,>7>,6/77+0\@@ H0N8907[ ,>,>,/79@@ ,/7* D -.$QD , X . < Q" ,*" 7> H | H  7?XJ , 6, (l7?  1H+0o X L ' 0L+0r :z78+0s1L\`7H +0u :z7@+0v ,l7@XVXT[ w,>,>w,/79@/77+-. .77 w[w.w Hp2rp+1 H,>X,3#/775:1+1 +1 7LX+1,>7A,6/77 X[,>,>,/7990~@/77+-. w *8 j *  0&2)T}=01 w[.47 N S( H ,` 6Jw+1 .n7A +  #Z(hQ( H ,>7B,6/77,~-. wZ(hQ( H *7<1*+1 7*+1!.7<1.+1" 7+ Z +1#,>7B+1$,>7C,6/77+-. .7C $ -  (1( +1* :XZ -+1+ ,XL -Z` -@@ -@@ , w[ w. w Lp2rp+2@@p@@pZ` H7N+15 1JO@p."+158 *7?1J+18,1+2V +@<1:+2+1;+1W  QH 0J+1C7Np+1B  #Z*hQ* J ,>7D,6/77XV+1L7Np+1G  #Z*hQ* J ,>7D,6/77*781J+1J,>,1+2& .n7DXVO@ ,6N ,+1U 7E J @@ Z - L  . N ,`XZZ -".h -Z -$ XXJ -+2 *j7ER`+2.77 0H+1b7Lp+1^  #Z(hQ( H ,>7D,6/77(781H+1`,>+1{ ,l7FO@ ,  Bp7Lp+1j(785H1i 7E L @@  X"N  ( H ,`7+1jQV7H+1o 0L+1nO@p+1n@@p."+1p@@p8 ,7F1L+1s,1+2& 0H+1~7Lp+1y  #Z(hQ( H ,>7D,6/77(7;1H+1},>,1/7G+2W ,l7DO@ ,7Lp+2(7;5H2 7E L @@  P"N  ( H ,`7+2XT6H ,+2 P2,X+2  #Z(hQ( H ,>7G,6/77 7E H @@ Z - J  , L ,`XZZ -$X".n - P/XZ -8$ XJ -+2 ,l7ER`[ p,>,>p,/7H H[,>,>,/79[ -8 QJ -.$91.7L ,+2;  # h`h+2'Z*hQ* J  7+ L ,>7H,6/7I+2W,>7I, /77XZ -,>7I, /77QZ - 2[ - Jp2rp+21/$Z 5L21,>7I, /77XZ92, (h7;@ j7E  # haL+2: 7E N @@  ( H  * J ,`+2:  XZ+2@ 7E H @@  - J  , L ,`QZ -[w,>,>w,/79[ -8 ( QD < 7JXL , ..77Q" - Bp*" p/77  #.7<0N+2U6J ,+2V.77 h N S( H , Zp p *j7< ,l77J+2i aj+2`Z,Q, L  7, N +2h al+2dZ.Q. N  7, H +2h.7K0N+2jZ*Q* J  7- L ,>7C,6/77+2p *j7K[ ,5L2nXB ,QB ,+2o  ,XBhXB ,@,~(7L1h+2wZ,Q, L .7L0.77* 7+ Z ,>7C+3,7L0L+2z :z7L+2{ (h7L  1H+3,7L3L (+3  #Z(hQ( H Z*Q* J ,>7M+3 +@43+3"+3"+3+3+3+3,2W@ an+3 Z(Q( H  7-+3 ah+3Z*Q* J  7. L +2v :z7M+3" an+3Z(Q( H  7. J +2v,>7N,6/77+3" :z7N+3" an+3!(7L3H (+3 Z,Q, L ,>7O,6/77+3" ,l7O  (z7L@,~-. .79 w[w.w Hp2rp+4.77 H P B # 1J+3+.7L N (6NP+3w +@,3.+4+31+36+3@+3G+3P,2W@ 7/ L Z.Q. N  7/ H ,>7P+3s al+3:Z.Q. N  70+3C an+3>Z(Q( H  70 J +3D :z7M+4 al+3EZ.Q. N  71 H ,>7C+3s .n7P :z7L+4 aL@+3L.7L0n+3L *j7N+4 71 N Z(Q( H  7/ J +35[ 4L3n  (1( +3n,7L0, +3n[ X`h+3hZ X( XJX[X 7E L @@  ( N  ( H ,`QZX*7Q< 403h ( . Z0 Lp 7E N @@  ( H  * J ,` pXZ0=03_+3nZX 7E J @@  ( L  . N ,`XZX ah+3t*7L3J (+3tZ.Q. N ,>7O,6/7C+4 *j7O  (z7L+4.796* (+3y.7L N (,2p5:3{+4+4 P7HX7X X , Lp,>,1%/77 5$4+4+4  #QDh p H ,6JX+4[,>,>+4 X Np[,>,>,/79 p[ p. p Jp2pp+47L@+4 @ X,>7:,>,/79,2p5:4/79/7H+4QD.0+4 [ p,>,>p,/7C[ ,>,>,/7H93&[ w,>,>w,/79@/79+-.[ o4V4$ w2JX+4# +4'ZX+4 w N  7C H ,  +-. .77 w  ah+4.Z*Q* J ,>7Q+4>6J+48 aN@+47 `h+47Z*Q* J ,7R0L+47 7* H ,>7P+4>."Q$ +4O.7R1N+4@*7R1J+4@Z.Q. N  72 H ,>7H,6/79+4W  X,>7:,>,/79 [ .  Jp2rp+4K HXVHZ`H,7S1L+4J(7S1H+4J94E,>,>,J/79 5$4N@."Q$7N+4TQ$ [ ,>,>,/79[ w,>,>w,/79 /77+-.O+-. .79@@p w[w.w Hp2rp+5x H0J+5  0N+4b8+5w 7S J  H 0L+4g X (h7T+4n5L4n X *j7T an+4nZ,Q, L ,>7U,6/77+5w6HX+4r X[ X4L4r (QH  :+4s@ Z |,  |l786Np+4xXVpQVp+4yXV8XVp *j7S,>H,4(/77QZX5:4~Z`XO+5y.780N+5w.77[ X Jp[( (`L+5 `n+5 7E H @@ Z  J  , L ,`+5Z+5 `n+5 7E H @@ Z (  J  , L ,`+5 7U H , Z QJ 7E L @@  . N  ( H ,`XZ *j7Pj7V ,0XLXV XZX+4m.79@@p H X7NX+5.[ .    0 Np 6H +5',7V1L+5&,>7W+5+: ! D +,7W0L+5*(7R1H+5,,>7X,6/7I+5y[/(Q,>,4Y/77 Zp5:51/79+5y7LX+5r.7H 7X H  H | 7SXJ ,  ,l7Y pXBhXBp,QZ Zp pQBh 7Y N  N | 7SXH , [ pXJQBp ,l7Y pXN[8Z88XH8 *QJ  Np, pQZ0QBhXDh[p Hp pXJ  X[,>,>,/79 P6L +5Q*784J5Q+5X+5Y*7?0J+5X pQVh P6L +5W*784J5W+5X+5Y*7?1J+5ZZ,XQ, L +5f pQVh6LP+5] +5i P ,>7:,>,/796J +5c,784L5c+5e+5e,7?1L+5hZ*XQ* J ,>7Z,6/7Z+5y pZ XJh6J +5p7l !+5p pZ h,>,>,>72,F/7H> ![ ,>,>,/7I6Hp+5u p Zp+5w[ pXL ZpXZp/79.2+4] p/79+ 0H+6,7V1L+5~,>7[+6 1hO+6,>7[+6  H  7\ J ,` > +6,>,4(/77 5$6+6"[ ,>,>,/79 P2N7\+66J .+6 D .+6"Z.PQ. N  73 H +6 P2J7]+66N .+6 D .+6"Z*PQ* J  73 L ,>7C+6 P2N7]+66J -+6 D -+6"Z.PQ. N  74+6Z*PQ* J  74 L ,>7H,6/77+6"@,~-. w h+@$6%+6H@+6(+61+6F+6G h*7?1J+6+,>7[+6> X1nO+6-,>7[+6> X N  7\ H ,` Z -+6H h ,6Jh@ .7^ (1N@G aL+6C*7^1J+6:7H +6@ Paj+6; T -+6HZ.PQ. N  75 H ,>7H,6/77+6HZ*PQ* J  75 N +6> h ,5z5:6E+6H+6H h J -+6HO@ -@+-. .77 w h X X0H+6Q,7F1L+6P 76 H  76+6U T ,+6[ P,7V1L+6XZ(Q( H  77 J ,>7H,6/79+6{,>,4(/77 Z ,5:6[+6z+6{7LX+6b X B -(7_4H6b,>,>7I,>7:,T/7H Z -+6c+6c@@ -[,>,>,/79@@ .@@ .@@ - w7Jh+6w h PO [. Np2rp+6td 8,>H,6#/775:6q+6z+6{[ H,>,>H,/790V96l P[,>,>,/79[w,>,>w,/79@/77+@ `STATEMENT FUNCTIONARGUMENTFUNCTIONARRAYSUBSCRIPTi4r[r_rghrA DUMMY ARRAYDUMMYEXTERNALFUNCTIONVARIABLECOMMONEXTERNALCOMMONVARIABLECOMMONEXTERNALCOMMONAN ARRAYPARAMETERPARAMETERPARAMETEREND OR ERR OR FORMATARRAY OR NAMELIST NAMEARRAY NAMEk:N@INTEGERINTEGER -7777 7 7 7777 777777 ,77777"7%7&7'7) XPF Ph h+,P#0 X8X(X* X B(FDP0%(  4 23*,&.$@X  X>0! 84 @@ 0K: KKM?X:F P-..< wQ(A` Hw 4 '$* Jp2tp+7k w 5V7g@+7k,Jc1f+7g3V+7kO+7k97d/<+ `H+7q1F+7q ;x L ,><,6/<l 7J }+7u,><,6/<+7x < N | N  <XH ,,~-..<,>;x,7_/<5:7~ ;y J ,><,6/<,Jc1f+7~,\ F Lp  F Np,><,*/<5:8@+8% p ([ .0L@ ([ ,0H@ G ([ ,0H@ GaN+8> p+8 p/p&(8 HpQH , Zp < L | L  <XN , [ 5J8,>< ,6/< pZ.7Q.` Np p p Jp2vp+8 X[Hp98 pQLA,.l  pXN6J t+8$XB tQB t+8%QB(XB t/<+-.,>;y,7_/<5:8+ ;z J ,><,6/<,>< ,r/<5:8.O+8I  + X,< 1L+81,>< +83 P1hO+85,>< ,6/<+8I P H  < J ,` Z , , L ,>X,4(/<  T ,548<+8I (h< < J | J  <XL ,   ,XNP  ,QHP[ ,>,>,/< [ u5L8HXT uQT u+8I  uXThXT u+-..< < H  w[ w. w Jp2vp+8X X,<1L+8R,>< +8T 1hO+8U,>< ,6/<+8X  H ,` ZX98N@/<+-.,><,r/<5:8]O+9  + X0J+8s X.< 1N+8b,>< +8d P1jO+8e,>< ,6/<+9 P J  < L ,`  < N | N  <XH , XTR`Z`[ 4J8r.<[ Np[84H8r+9+9/<@+9 X X0N+9,>P,4(/< Z ,5:8x+9 7LP+9 P  H ,,>,8J/<5:8}+9 [ P,>,>P,/< [ ,8QN ,+9@@ , < H | H +9 P J ,,>,8J/<5:9+9 P N , [ ,8QH ,*<1J+9,>,><,><,T/< Z , < N | N [ ,>,>,/< <XL , [4N9.<[  Jp[ (4L9,><,6/< +9 /< ,XJ[ ,QLZ ,XNZ(<0HXB+-. .< ,><,r/<5:9%O+9  + X[ PA*4J93  | N  Pah+9. ;z J Z,PQ, L  ;{ N ,><+90Z*PQ* J ,><,6/< *0:@ 7@`Z+9.<0N+99Z*PQ* J  ;{ L +9B*<0J+9>Z.PQ. N  ;| H +9B Pan+9CZ(PQ( H  ;| J ,><+9c Paj+9E :+9F :z<,<.<G aL+9KZ(PQ( H ,><+9c T , < H | H  <XJ , Zp7NX+9y 4 - X  [ . Jp2rp+9j HZ`PXDP H0N+9_(<0H+9] .n<,<4L9] :z<+9i+9i pXN+9i(<1H+9a,><+9c 1nO+9e,>< ,6/<+9 < H   J ,`XZP .n<8.2+9T X  [ ,>,>,/< ,><,>X,/< /;} N -Z` - -.,QL , Q;} 8X -. 8 *"+9z@ p  ,XHhXThd [ ,>,>,/< /< +-.,>;~,7_/<5:: ;~ J ,><,6/<,l Z "O@ "[ "1J+: ,&2 Z +5:: [ " $ J  ; Z +: +: @@ + < N | N  <XH ,   +XBP4B:,<0LXT(<1H+:,>,><,><,T/<XZP[ P4L:.<[P Hp[ 4J:,><,6/< +:/<+,>;,7_/<5::# < J ,><,6/<,l3Z<+:)[  4 N  < H ,><,6/<+:, < L | L  <XN ,,~-..<@@p,Jc1f+:. :h0z+:5,\, Zp,Jc1f+:3+:80F+:8,c Zp,Jc1f+:71F+::O+:; p/<+-.,:- 54:?O+:I < J | J  <XL , XTX[X4N:I.<[ X Jp[ (4L:H,><,6/< +:I/<+-.,><,7_/<5::N < J ,><,6/<,:- 54:QO+:[ < L | L  <XN , XTX[X4H:[.<[ X Lp[04N:Z,><,6/< +:[/<+-. < H ,><,6/<1F+:`,Jc+:^+-..<  + w2H<+:e :+:e : Z  X0L+:k,>X,6I/<5::j+;+;+:{@@ .@@ .8l ,>,6#/<5::p+;+; w2J<+:v < N @@ "( H  * J ,`+:z < N @@ "( H  * J ,` Z ,@@ -7H -+:}  Zp+:~@@p , Lp  - Np  . Hp . Jp7LX+; X[X,>,>X,/< ,>P,4Y/< 54; +;+;+; @ w H | H  <XJ ,  pQL pXN pXH[ QJ pQL pXN,>,./< p7(h<[ ,>,>,/< /<+-..<,><,r/<5:;O+; ,><,:a/</<+-..<,><,7_/<5:;& < J ,><,6/<,><,r/<5:;)O+;0,><,<,7_/<5:;6 < J ,><,6/<,><,r/<5:;9O+;@,>< ,<,7_/<5:;F < J ,><,6/<,>< ,r/<5:;IO+;K,>< ,:a/</<+@ `STATEMENT FUNCTIONARGUMENTFUNCTIONARRAYSUBSCRIPTSENDFORMATATASSIGNGNGOTOCALLA SUBROUTINE NAMEA SUBROUTINE NAMEA SUBROUTINE NAMERETURNRNLINENDCONTINUEINUELINENDSTOPPAUSEEINPUTREADACCEPTPTPUNCHHWRITEE;U;X;V;Z;Y;M;P;];`;b - -;f;e;g;j;i;k;o;n;p;s;r;u;t;w;v*  00#zP 0<P(}(((! P8P(P(FP > ( 00$(@@-.  +  1J+<&,>,4(/Am7 .An1N+<),>An,6/Am w J | J  AoXL , QV[ +,>,> +,/Ao@+-..Ao@@p  +  P,>Ap,>,/Ao X X1J+<:,>,4(/Am .Ap1N+<=,>An,6/Am Tp .47JP+P,4(/Am Zp+,>,/Ao[,>,>,/Ao w H | H  AoXJ ,  pQLP pXNP,>Ap,> +,/Aq+-. A[ H ,>Aq,6/Am1F+,6#/Am5:<`+P,4Y/Am 54,>,/Ao w N | N  AoXH ,  pXJR`[ QL,>,./Am /Am+-.,>A\,7_/Am5:Ar,6/Am,>As,r/Am5:<{O+=,>As,At,r/Am5:=O+= ,>As,Ap,> +,/Ao X(Ap1H+= A] L  A] N ,>Au,6/Av+=5 Tp@@ @@ .@@ .Z,XQ, ,>,6#/Am5:=+=4+=5  - Hp,>X,4(/Am Zp5:= +=4+=5 . Lp  . Np ( H ,>X,4Y/Am 54='+=4+=5 w L | L  AoXN ,  pQH pXJ pXL[QN pQH pXJ,>,./Am[ ,>,>,/Ao/Au+,>A^,7_/Am5:=: A^ J ,>Ar,6/Am,>Av,r/Am5:==O+=>,>Aw,= /Am,~,>A_,7_/Am5:=C A_ J ,>Ar,6/Am,>Aw,r/Am5:=FO+=H,>Ax,= /Am,~-.,>A`,7_/Am5:=M A` J ,>Ar,6/Am,>Ax,r/Am5:=PO+=W,>Ay,\A,7_/Am5:=` \A N ,>Ar,6+=f,>Ay,r/Am5:=cO+=f5V=d7Az Az,>,<1/Am+,>Aa,7_/Am5:=k Aa J ,>Ar,6/Am,>A{,r/Am5:=nO+=p,>A{,Ab,7_/Am5:=u Ab J ,>Ar,6/Am,>A|,r/Am5:=xO+=y,>A|,(V :_0z +=.6p+> :h1z+=~ :O0z +>.6`+>(VP+>,Jc1f+>/4+={ :_1z +> :h1z+> :O0z +> ,Jc1f+> +>,\ +-. .Au@@p,l Z "@@ +O@ !  "3HA}+>[ " 4 N  Ac H +>,Jc1f+>,=z Z "6N "+>[ " , L  Ac N ,>Ap+?3NA}+?  "@0r +>% LA52V(+>$ LA5 8 Hp +>%9>O 54>*  " Hm Ad J  Ad L +?1TO@p,l Z " "3JA~+>3 p0N+>1: ! ,QL( ++?[ " , L  Ae+> TA5 8,l Z "O@ "+@\>7+? +>9+>R+>n+>z[ "0H +>=: !Z " N0 +@@ "+>N0H +>LZ " Nn*A~1J+>CZ,8Q, L ,>A+?,>A,r/Am5:>F+?-+?-  ! 8 +,> Np,4(/Am p Z( +5:>K+?-+?-+>N $ N  Ae J +> p2LB+?  !Z + Jp> !+? [ "0H +>V: !Z " N0 +@@ "+? 0H +>lZ " Nn*A~ (1J@,A~ *1L @ A,A~ *1L @ A,A~ *1L@ A`H+>@,>A,r/Am5:>f+?-+?- ! 0 +,> Lp,4(/Am p Z( +5:>k+?-+?-+? $ N  Af+>M[ "0H +>q: !Z " Lh ++>U0H +>U  ".B1N+>U(B1H+>y  " Nm Ad J  Af+?: ! V8 ++>U[ "0H +? Z " Ln.B1N+?Z*0Q* J +>B,>A,r/Am5:?+?-+?- ! 0 +,> Lp,4(/Am p Z8 +5:? +?-+?-+? $ L  Ag+>  ! pQJ +7L "+?@@ "+?,l Z "[ "1H+> "3LA}+?[ " $ J  Ag L +>,l3ZB+?[ " , L  Ah+>6Jp+? Ah N  Ai H ,>Au,6/Av+?-7. !+?%8QN , QAiX !.  *"+?&@ w J | J  AoXL ,   !8XNQV pQHO@ !/Au+,>B,>/Am,~,>Aj,7_/Am5:?3,>Ar,6/Am,>B,>/Am,~-.,>B,r/Am5:?9O+?R  + X X0J+??.Ap1N+?H Aj J  Ak+?C P.B1N+?EZ*Q* J  Ak L ,>Au,6/Am+?R,>,4(/Am 54?H+?R B N | N  AoXH , QTR` XXJZ`R`Z`[ ,>,>,/Ao+-. w h H < h J =,B1L +?[(B(H.Al H >,z = J <  > Z = w(B1H+?` Al L >,z  = Z ,?R/Am Zp@."7L+?p 0H+?oO+?p@8,>,?R/Am Zp At H  p J  p L  . N ,` @/Ao+-..B@@p@@p w[w.w Hp2vp+@@ * Jp@@p X0L+@2 X7N+@ 0L+@O@p+@@@p8+@@@p 7L+@.B1N+@ ,>B,6/Am@@p+@7  Lp   0J+@7H+@ 0J+@O@p+@@@p +@ @@p aJ+@+@ 0H+@[+@ ,?c * Jp+@ aN+@ :+@ : Zp p$p.np7Hp+@7*B5J@) At H @@  "L  * J ,` +@7  H <  L =*B. Am J >,z At N   = H  > L *B J ,`+@( X0N+@5 X[ +@6 X,?c ,.lp .QN , Zp6Hp+@< pXZpQZp+@= pXJ XJp p pQJhXDh.6+?}Sp[p./B+-. .B,>B,r/Am5:@GO+@h + ( [ . Lp2rp+@b H X [,>,>,/Ao,>,?y/Am Zp[,>,>,/Ao@@ @@ !,>X,4Y/Am Zp[ p,>,>Ap,>Ap,F/B[ ,>,>,/Ao B N , [pQHP pXJP[ p LP  |QNP9@J  +  [ ,>,>,/Ao,>Ap,> +,/Ao/B+@ `STATEMENT FUNCTIONARGUMENTFUNCTIONARRAYSUBSCRIPTSOUTPUTPRINTTTYPEG?-mINTEGERENCODEDEDECODEDEREREADADBACKSPACEBACKFILEAAPACEILEAAREWINDNDENDFILEILEk:N@M&dPe|RCOxt I& KsI5rC\y[>$PaJ~I1I'XzI' yM&d\tE2|:yEV4i9m:7Y&me-L`[?-ma Iv:: AAAAAAAAAA A"A$A&A(A*A,A.A0A2A4OPENLPARENPARAMETER NAMEOPEN PARAMETER"="CONSTANT OR VARIABLEVARIABLE OR LITERALARRAYVARIABLERPARENLINENDk:N@DEFINEDEFINDk:N@INTEGERINTEGERDATA@r@u@t@w@x@{@y@}@|A@~A A A A AAACmAEAGAHAJAMANAOAQARAS +AUAWAXAY03X P $@*@(.(02@4@5@ 9@ @ ;@ <@ 8/ X0@@ >8 h h8. ,Jc1f+B 0F+B,Jc1f+B :h0z+B +B,>DF,6/DG+B,\@,~-. ( H   +7Jw+B  ( (0N @ ,0J@ AaH+B : Z (+B1J+B,>DF,6/DG 0N+B# ,>h,0"+B$,>,0{/DG[ +,>,> +,/DG+,>D9,7_/DG5:B, D9 J ,>DH,6/DG * J (,>DH,r/DG5:B0O+B1,>DI,B/DG,~-..DG,>D:,7_/DG5:B7 D: J ,>DH,6/DG * J (,B Zp5:B;+B?+B@,>DI,r/DG5:B>O+B?,>p,B/DG/DG+-..DG ( H (,B Zp5:BE+BI+BJ,>DJ,r/DG5:BHO+BI,>p,B/DG/DG+-..DG,>D;,7_/DG5:BP D; J ,>DH,6/DG * J (,B Zp5:BS+BX+BX,>DJ,r/DG5:BVO+BX,>p,B/DG/DG+-..DG,>D<,7_/DG5:B^ D< J ,>DH,6/DG * J (,B Zp5:Bb+Bf+Bg,>DK,r/DG5:BeO+Bf,>p,B/DG/DG+-..DG,>D=,7_/DG5:Bm D= J ,>DH,6/DG * J (,B Zp5:Bp+Bu+Bu,>DK,r/DG5:BsO+Bu,>p,B/DG/DG+-..DG D> H ,>DL,6/DG+,->`Z+B},>DL,6/DG+C ,>D>,7_/DG5:C D? J ,>DH,6/DG,>DM,r/DG5:CO+C  +O@ ( , L ,>,0"/DG,>DI,> +,/DG,~,->`Z+C,>DL,6/DG+C,>D?,7_/DG5:C D@ J ,>DH,6/DG,>DM,r/DG5:CO+C  +O@ (@@ ,>,0"/DG,>DI,> +,/DG,~,>D@,7_/DG5:C DA J ,>DH,6/DG7J +C",>DN,6/DG,>DM,r/DG5:C%O+C+  +O@ ( ( H ,>,0"/DG,>DI,> +,/DG,~-.,>DA,7_/DG5:C0 DB J ,>DH,6/DG,l Z "[ "0J +C7.DGZ " Np 8 H ',l Z "/DG[ "1N+C9 DB J +-.,>DC,7_/DG5:C? DC J ,>DH,6/DG,->`Z+CB,>DL,6/DG+CM,l Z "[ "0J +CI.DGZ " Np 8 H ',l Z "/DG+CJ DN N 'l @[ "1N+CM DD J +,>DD,7_/DG5:CR DE J ,>DH,6/DG,>DL,r/DG5:CUO+CZO@ (@@   +,>,3#/DG,>DI,> +,/DG,~-. .DG,>DE,7_/DG5:C` DF J ,>DH,6/DG,>DO,r/DG5:CcO+D  + X L ,,>DI,>,/DG  ,[ ,. , Np2rp+D H6HX+Cn,>DO,4/DG +C| X6L+Cp,>DO+Cz [,>,>,/DG '2J+CxZ.Q. N ,>DP,6/DG+D .nDP,>,4/DG 8O@ ( , L [PQN ,ZPXH ,,>X,3#/DG[ ,QJPZ ,XLP[PQTXZX5VD9Ci  ,[,>,>,/DG/DG+@ `STATEMENT FUNCTIONARGUMENTFUNCTIONARRAYSUBSCRIPTSSUBSCRIPTINTEGERCRIPTINTEGERINTEGERGERREALLOGICALCALDOUBLEPRECISIONLEPRECISIONCOMPLEXLEXBYTEFUNCTIONTIONSUBROUTINEOUTINEENTRYYPROGRAMRAMLINENDBLOCKDATAKDATALINENDDIMENSIONNSIONCOMMONONDDDDDDDDD#D!D$D&D%D)D'D+D*D.D,D/D2D0D3D6D4D8D7$.% exu&}[' D-.,>.I< I= H , Zp p w (XVh ,lI= Xan+DZ,>I>,6/I> w7Hh+E[ X4LD{ h[5HDo  0,>I?,>,/I<[w,>,>w,/I<(I?4HDf,>I@+E p[X[ /  Lh h3nI@+Dz XaJ+Dm p ,$lh pZ`h+E ,>,4(/I> `B+DsO+E Z4NDu,>I@,6/I> p Zp ^2H  p"Z( (2lI@+Dm,>IA+E h P,>I?,>,/I< p (hIAZ QJh+E Xal+E,>IB,6/IB+E .IC0.+E p@@h+E ,>I>,6/I> p/I<,^+-. .IC,>I-,7_/I>5:E I. J ,>ID,6/I>,>ID,r/I>5:EO+EA + 0 [. Np2rp+E<.I> H Hp,> ,DQ/I> Zp5:EO/IE+EB IE L  p V ,  pZh Xan+E$ (hIFQZP Tp p h [. Hp2pp+E;.I< pZ h Jp,>@ Jp Zp,DQ/I> pXZ0 pXZ85:E1O/IF+EB pZhZX Xaj+E: hal+E8,>IG,6/I>+E: .nIAZhQHh/I<9E(/I>9E + 0[,>,>,/I<,>I?,> +,/II.,7_/I>5:EG I/ J ,>ID,6/I>,>IG,r/I>5:EJO+EOO@ ( , L   +,>,3#/I>,>I?,> +,/I<,~ I/ H ,>IH,6/I>,~-. Z qZX$IHZ hIIZXZ < 42E\ . Z0$IHZ nII=2EX@+-.,>I0,7_/I>5:Eb I0 J ,>ID,6/I>,>II,r/I>5:EeO+EgZ q4VEg.IJ1N,ES+ I1 H ,>IH,6/I>1F+El,Jc+EjO,~,>I1,7_/I>5:Er I2 J ,>ID,6/I>,>IJ,r/I>5:EuO+EzO@ ( , L   +,>,3#/I>,>I?,> +,/I<,~-. .I>,>I2,7_/I>5:F I3 J ,>ID,6/I>,>IK,r/I>5:FO+F3 + 0 [. Np2rp+F-.I> H [XA( *1H@ [ X .1L@G (IK ,0H@ G aJ+FZ.XQ. N ,>IL,6/I> .nIL [,>,>,/I< [ .  Lp2pp+F' @*IM.IMG (ING ,IN .0L@G (IOG aJ+F&Z,Q, L ,>IL,6/I>+F'Z`@9F IO L , ZXN[8QHQV/I>9F + ([ ,>,>,/I<,>I?,> +,/I+-.,Jc1f+F40F)+F8@+F8 6,>\I,7_/I>5:F= \I N ,>ID,6/I>,>IP,r/I>5:F@O+FC5VFA7IP IQ,>,<1/I>+,>I3,7_/I>5:FH I4 J ,>ID,6/I>,>IQ,r/I>5:FKO+FL,>IR,,~-.,>IR,r/I>5:FPO+Fl  +  *jIS[ A,4LF^  | N  ah+F\ I4 L Z*Q* J  I5 N ,>IS,6/I>+F_Z,Q, L ,>IT+FZ@`Z+Fl aN@+Fl  '3H+FlZ*Q* J .IT1.+Fh I5 L  I5+Fi I6 L  I6 Z ,>IS,6/I>+Fl,/+-..I>,>I7,7_/I>5:Fr I7 J ,>ID+G),>IU,r/I>5:FuO+G@  +   ,QL ,    NQD XV [X4DF~Z X J [  L ,>IU+G)[ PA*4JG  | N  Pah+G I4 J Z,PQ, L  I5 N ,>IS,6/I>+G Z*PQ* J ,>IT+G@`Z+G@ PaN@+GZ(PQ( H *IV1*+G I5 N  I5+G I6 N  I6 Z ,>IS+G)Z q Hp IV J | J  IWXL , 6Np+G[ q+G QZ: ~XTXVZ ~Z2L+G$Z*PQ* J ,>IW,6/I>+G$ T ~[4TG'[ P4LG',>IX+G)Z X5LG*,>IX,6/I<+GA[X4HG-,>IY,6/I>[XZ X8 XLX .QN ,QZXQDhXTh  QVQT7H+G9  XXL[,>,>,/I<+G: XL[ ,>,>,/I<,> ~,?/I>Z,>,=/I>/I>+-..IB1F+GF I8 J ,>ID,6/I>,>IY,r/I>5:GIO+Gj + Lp,L` 5BGL,>IZ+GP3BI8+GO3BI9+GO2BI9+GQ,>IZ,6/IC+Gk p H +   Jp[ ,>,>,/IIZ,6/I> p L } I[ N | N  IWXH ,  pXJXB,I\0LXD(Z`@/IB+-.,>I:,7_/I>5:Gp I: J ,>ID,6/I>,>I\,r/I>5:GsO+H  +  ,I]1L+Gw,>I]+H X0hO+H(II0H+Gv P0lO+H7L+H  [,>,>,/I<*I^0J+Gv 1nO+H,>IX,6/I>+H  I^ H | H  IWXJ , [ 4LH.I>[ Hp[ 4JH,>IX,6/I>/I> I_ H  X J ,`XZ P L ,`QZ  N ,`XZ  + XH *I_0JXDX.I]0N+H,>I`,D/I>[ ,>,>,/I<@+-. I` H | H  IWXJ ,   + (XLX QTX,>,+/I>[X.Ia0NXVP[ .*QJ ,  [ 8 L.$[42H3 . . J8=2H0/$XDX[ ,>,>,/I<[ +,>,> +,/I< +-. .I<,l [1H +H?,>Ia+HP Dp,IT1L+HZ(IT1H+HZ al+HGZ.Q. N  I; H +HO an+HKZ(Q( H  I; J +HO[A.}4NHQZ*Q* J  I< L ,>Ib,6/IB+Hm *jIbjIO ,lITZ N (,>Ic,r/I>5:HX@@ (+H\,H @@ (@+Hm,>Ic,r/I>5:H]O+Hm  +  [ .  Jp2rp+Hh HZ`HXVH,I_0L+He :zId+Hh(I_0H+Hh ,lId9H`,>p,>,J/I< 5$Hl+H\+Hm,//I<+@ `STATEMENT FUNCTIONARGUMENTFUNCTIONARRAYSUBSCRIPTSEQUIVALENCEVALENCEEXTERNALRNALINCLUDEUDEIMPLICITICITPROTECTGLOBALALNAMELISTLISTSKIPRECORDSKIPFILEI I ECORDILEIIUNLOADADASSIGNMENTDO LOOPDOLOGICAL IFARITHMETIC IFIF(STATEMENT FUNCTIONARRAY ASSIGNMENT UNIQUE STATEMENT FUNCTION NAMEUNIQUE STATEMENT FUNCTION NAMEUNIQUE STATEMENT FUNCTION NAMEHyHwH|H{H}IIIIIIIIIHoHrHsHuHvIIIGAFm7xIII"I&I*6X p3Fh2 X (( FP8-$<PP5X;= XFX,FD B<@ @ ;@>  P@  ! "} 0(~X 00X1(P8swFH-..P* &?,G &!,G[ & H &7J &+I|[( h 6@)B." . B85DIq &,G &/,G+Ir=6Ik 6 /*"Jp36p+Iw . ,G=It  &  &Z h L &,>P*,>,/P++Ih &?,G &!,G@/P*+  F2h F+JO+J: F 0[ ,~  F3( F+JO@ FO@ F: F F0[,~ aH+J & +J,C4FJ aL+J :+J0F +Jl+J aH+J,G+J@,~-..P+ &w Jp 4DJ,>w,J/P+ p.. ,G/P++ &)$ &,G5DJ,~ &)$,G5DJ,~-.,>,> &,G  ',J &,G  54DJ*,JR 64DJ* &,G,J &,G P,,J P,,J /@(")",>P-,J/P+@)"4DJ3 & ,G[4DJ7 &,G,>P-,J/P+ &,GS)"4DJ; &,G,>P-,J/P+ `L7P- P.,J aJ+J@ P.,J &,G b &.8 ,>P/,J/P+ &(  &, P/,J/P+ &,G b &P/ ,>P/,J/P+ &,G &P/  &,j0 ,>P/,J/P+ P0,J &,G[ G,>P/,J/P+Z G4DJ^ &,G,>P/,J/P+: G . N %S$hP,J P0,J,^,^+  E2( E+Jf: E h +J{ F2, F+Ji: F h[+J{ aH+Jk &+J{,C0F+Js aL+Jr,G aN +Jr,Id &,G,Kj+J{ `L,G0F+Jv :GZ G1F+Jz: G3jP1+J{ `N ,Id,Kj ,~-..P+ w  J   L  P# Nn@@p P$ 4FK `L,G Nn+K w~ 0&+K'+@K +K+K*+K +K+K: pZw.  0@  6&".$)D|=6K FpZ"pQ"A` 6  `H,G Nn=6K+K: pZw.  0Z"(Q"A` 4FK `L,G Jn+K+K: pZw.  0Z"(Q"A@ 6.(  `N,G Ln=6K"+K `L,G Nn+K & `L,G Nn & `J,G Hn@ Ln `N+K5`n+K5 &o+K5@/P++-. `H+KM 4 (aL+K@@`H,G 6$$.$h,J=6K=,J D &+KM.P+: &aH+KM  4&" $)$|=4KC Fp aN +KH &,G p 4(&,G=4KI &,G ,G/P++-..P+,C 4FKO0V +KRl 6 aL+KX0F+KW,J!,C 4VKU+KX?H %,J!Z ) Np4NKc[ 8 , Z$0Q$A`  )  N )?J %,J!,>,>p,J|/P+,>P1Zp,>,/P++KX /P++1F+Kh,J0F+Ke@+Kj,KN,K7O,~-.@@ '6h G+Kp1F+Kp,J0F+Kl@+L=0F+Kr,J+Kp `n+L#,KN,K7@1F+L1F+L1F!+L0F"+K{ aN+L &+L1F+L1F+L1F+L1F+L0F+L,J+Kt0F+L,Ke+Kt0F+L,J F D+L# 6 `L+L#0F+L,J :h0z+L ,J"*$ J G@@ D+L<1F & F D",$ L G+L# :h0z+L  '$" . /*  B '+L1F+L | L 0&+L (H .P2+L (H.(  H ,>P2,6/P++L#,J0F+L!8,J0F+L$@@ D &+L<=6L@@ D1F+L01F+L01F+L0,J7L '+L,,>P3,6/P+ :+L=0F+L.":$ Z G+L<"*$ J G+L< &"(% H G0F+L5 :GZ G: G,J+L11F+L;1F+L:1F+L:1F+L: G3lP1+L@@ G+Kk: G+L4 + `H+LB,C0F +LDl `L ,Id & +LS0F+LJ aN+LR,G aH +LR,Id &,G+LR `N,G0F+LN :GZ G1F+LR: G3lP1+LR `H ,Id,Kj,J,~,L=1f+LS :_1z +LS :h1z+LS :O1z +LS,~-.,>$6.6h,L=1f+L\ :h1z+L[,^+-..P+@@p@@p aH+Lg6J |+Lg7N D+Lg &,G  D,G6J D+Lj,L=1f+Lh+Ll @@ D,J0f+Ln,L=1f+Lm2FP3+Lq7Jp+M!+M! :h0z+Ly@,LZ0F$+Lw 44Lv,L==4Lu+Lq0F,+Ly,L=+Lq :_1z ,LS :O1z ,LS0F+M,L=1F+M 0F+L},L=1F+L}1F-:p1F.>p0F+M>Jp+M,L=1f+M :h0z+M P$+M"0F-+M P%+M"0F+M7Np+M P%+M"7Np+M!1F: p6Lp+M0F+M : Zp+M1F-+M 7Lp+M!0F+M P&+M"6(p+M,>P4,6/P4+M"1F+M 1F+M  F0(+M ,L=1f+M0F+Ln6Hp7P%,M#/P++-. @ 2,Jc1f+M$ :_1z +M) :O0z +M+/&(V.6=2M$ &,A  TOV2V +M/ TOV h+M2 TOU2V0+M2 TOU7h@+ `H,G `j+M7 "+M7,~-. `h+M; w &(+M; aJ+MA wZ.7Q.` Nww 4FMA,G+M>+ &,M3 &,M3@,~-..P5@0v+MP w&( .  J0 Hw5HMO46MO .  (.( ,M3<+MJ+MP9MF@/P5+-..P4@@p@@p 6 X R Hp4HMf p[ h5LMcZh0hO+Mc6Lp+M[,>P&,M7/P+ pZh Hp,>,MD/P+: p1j+Ma@@p,MA+Mb &,M3: Cl +Mc pZh Hp5HMU+Mf=6MT@/P4+-..P+l ,>P',M7/P+Z  Hp[  Jp,>P',M7/P+ p[0 Np[8,>,MD/P+,MA: C[  0 N 5NMk@/P++-.Z".h ~Z 3B+N.P+  [h Np[8 Hp[ J ,>P5,6/P++N[  h N A.3B+N7N +N.P+[ 8 Jp[ ( LpZ0 H ~/P++N @@ ~@+ (P H q * J -QP([ 8 X*" :QP([8X ( H 1*" 4S* J G P6 L ' `N,J! /( H { * J ll jP* J @,~R` pQ: pX: q*: C (@@ Q(8X *:(,N @,~-.,> `H+N{,NO@ EO@ EO@ FO@ Fd @ aj+N*d +N+ , L G,Kj ( L H P6 N  ( H * J ,` Z  `l+NR`L+NR  & N |7H '+N@ P7 L  H ,` Z } [4DN= | J Z  L [ H ,>P7,6/P+Z 4JN?,Mv+N@+N@@@ }O@ !@@ ",L` 5dNJ  | N ,>P/,6/P+O@ FO@ F `H+NI,Kj+NOl +NO,5:NO@@ "@@ '[ "1H+NO,l Z "+NLd  |2N &+N0@@ '+N0  q*P81J+NX `n+NX,>P8,D/P+@@ } &,7l,MQ6N ,Mh `j+N``j+N`.P+,P* Lp,2, pnP*/P+Z )4LNj.P+Z ) Hp4HNi[ 4 Z$8Q$A` ) ( H ),>,>p,J|/P++Nb/P+ ah+Nml d +Nm ,6J C@ (7N C@G aL+Ny P) 6 .* ,M3=6Nr &,M3,> C,MD/P+,>P),M7/P+Z H Z( z+ +N# aj+N~ &P"+N~d d@,^+,N",~  `-JAN--FEB--MAR--APR--MAY--JUN--JUL--AUG--SEP--OCT--NOV--DEC- ----> (*g!;1" j @C()'jEh()$gO?OAOBODOEOGOHOJOKOMONOPOQOSOT UNDEFINED LABELS  UNTERMINATED DO LOOPS LINE:  ERRORS DETECTED  ? HoHO GkH:FMFmPPP - 1H 'P 8FORTRAN V. /KA /KI/OPTmn@ PAGE |^@40[Mc@(0 h"