@CAT,P 1002-001-002.,///10000 @ASG,T TEMP.,///10000 @ELT,OI TEMP.1002-001-002,,,127666053241,000 )@@G@@**PF**@@@@=*@@@@@@@@@@@[@E@@@@]FE@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]F^A/,@@#@@[@@@@@@@@@@W@@@@@@@@@@@@@@@@@@@AB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@H@@@@@@AC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@@@AD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@AE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*@@@@@@@@@@@@@@@@@@@@M@@^@@@AF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@@@@@@@@@@@L@@@@@@@@@@@@@@@@@@@@@@@:@@A@@@AH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E@@@@@@AI )@@G@@@@@@@%@@D@@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AK )@@G@@@@@@@N@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C@@@@@@@@@@@@@@@@@@@@K@@@@@@@@@@@@@@@@@@AM )@@G@@@@@@@@@@@@@@@@@@@@@@I@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@$@@E@@2AN )@@G@@GASP @@@@@(@@[@@O @ @@@[^@@@@P@@@@W@I7HFS SET AO )@@G@@@@@@@G@@[@@P @ @@@[^@@@@6@@@@WPI7(FS FILEM @@@@@@@@[@@QAP )@@G@@ @ @@@[^@@@@B@@@@XFI70FS RMOVE @@@@@@@@[@@R AQ )@@G@@@ @@@[^@@@@A@@@@XMI75FS FIND @@@@@J@@[@@S @ @@@[^@@@@HAR )@@G@@@@@@XSI7.FS COLCT @@@@@@@@[@@T @ @@@[^@@@@A@@@@X>I8]FS AS )@@G@@TMST @@@@@@@@[@@U @ @@@[^@@@@A@@@@X:I8BFS HISTO AT )@@G@@@@@@@@@@[@@V @ @@@[^@@@@B@@@@X1I8GFS RANDU @@@@@@@@[@@WAU )@@G@@ @ @@@[^@@@@]@@@@X8I8=FS DRAND @@@@@@@@[@@X AV )@@G@@@ @@@[^@@@@[@@@@X'I8(FS UNFRM @@@@@@@@[@@Y @ @@@[^@@@@^AW )@@G@@@@@@X;I8!FS RNORM @@@@@@@@[@@Z @ @@@[^@@@@A@@@@X_I82FS AX )@@G@@RLOGN @@@@@@@@[@@) @ @@@[^@@@@]@@@@Y I86FS NPOSN AY )@@G@@@@@@@@@@[@@- @ @@@[^@@@@B@@@@YBI8_FS AMIN @@@@@@@@[@@+AZ )@@G@@ @ @@@[^@@@@]@@@@YII9^FS XMAX @@@@@@@@[@@< BA )@@G@@@ @@@[^@@@@]@@@@YKI9DFS AMAX @@@@@@@@[@@= @ @@@[^@@@@]BB )@@G@@@@@@YMI9HFS SUMQ @@@@@1@@[@@> @ @@@[^@@@@A@@@@YOI9LFS BC )@@G@@PRODQ @@@@@@@@[@@& @ @@@[^@@@@A@@@@YUI9QFS GASP BD )@@G@@@@@@@@@] @@@ @@@@Y!@@#@@H@@@@Y)J*:GHTSET @@@@@@@] @@@BE )@@G@@ @@@@ZJ@@]@@Z@@@@Y0J*6GHTFILEM @@@@@@@] @@@ BF )@@G@@@@@@ZT@@]@@C@@@@ZLJ*8GHTRMOVE @@@@@@@] @@@ @@@@Z-@@]@@ABG )@@G@@@@@@ZVJ*'GHTFIND @@@@@@@] @@@ @@@@Z?@@]@@D@@@@ZGHTBR )@@G@@SUMQ @@@@@@@] @@@ @@@@-D@@]@@A@@@@-#J($GHTPRODQ BS )@@G@@@@@@@@@] @@@ @@@@-L@@]@@A@@@@-FJ('GHTDATAN @@@@@@@@[@@?BT )@@G@@ @ @[@]^@@@@W@@@@-NJ,^GHTSUMRY @@@@@@@@[@@! BU )@@G@@@ @[@]^@@@@O@@@@-\J4^GHTMONTR @@@@@@@@[@@, @ @[@]^@@@@FBV )@@G@@@@@@+#J5$GHTERROR @@@@@@@@[@@\ @ @[@]^@@@@C@@@@+IJ6VGHTBW )@@G@@ERLNG @@@@@@@@[@@0 @ @[@]^@@@@B@@@@+QJ75GHTDATAN BX )@@G@@@@@@@@@] @@@ @@@@+_@@#@@+@@@@+XJ8HGHTSUMRY @@@@@@@] @@@BY )@@G@@ @@@@<-@@]@@Z@@@@<]J8.GHTMONTR @@@@@@@] @@@ BZ )@@G@@@@@@<1@@]@@I@@@@<BJ4^GHTMONTR @@@@@@@@[@@@ @ @[@]^@@@@F@@@@>VJ5$GHTCG )@@G@@ERROR @@@@@@@@[@@@ @ @[@]^@@@@C@@@@>&J6VGHTERLNG CH )@@G@@@@@@@@@@[@@@ @ @[@]^@@@@B@@@@>,J75GHTDATAN @@@@@@@] @@@CI )@@G@@ @@@@&R@@#@@+@@@@>5J8HGHTPRNTQ @[@@@@)] @@@ CJ )@@G@@@@@@&:@@]@@L@@@@&UJ8WGHTSUMRY @@@@@@@] @@@ @@@@$G@@]@@ZCK )@@G@@@@@@&!J8.GHTMONTR @@@@@@@] @@@ @@@@$W@@]@@I@@@@$IJ9KGHTCL )@@G@@ERROR @@@@@@@] @@@ @@@@$&@@]@@C@@@@$YJ9/,0@@@&"0@@@C@@@@@@@[@@@AF@@@@)@O@F#@S@@@@)@#@I@0@@@@@TL )@@G@@)@[@I@%&@0@@)@P@N#@O@@@@&"0@@@C@@@@[@@[@@][@@@@@A]0@@]AG@@@@)@R@F]@S@@@@TM )@@G@@)@K@,@++ @EK#)@@@@@@@@@@@@@@@@/,0@@@@@@@@@@@@@@[#[[@@@@@@@@T/,0@@@AH@@@@TN )@@G@@)@S@V#@K(@#*]#1!C@E^[@@@)@ @I@2&[K@@)@V@F#@K@@@@R]0@@F@@@@@@@]0@@@&"0@@@TO )@@G@@Q;@@@KAI@@@@)@W@F#@S@@@@)@B@I@0@@@@@)@^@I@2+@@@@)@]@I@%&@0@@@@@@@@@@#@@^TP )@@G@@@@@@]+[[[@@@A]0@@AAJ@@@@)@X[F#@OK)DKO [K0E@@@@@@H/)@]@"K)@@I"@)@@[C@)@@-TQ )@@G@@[[@@@PC[@@@)/,0@@@&"0@@@C@@@@]AK@@@@)@&[]KO^K^[[K0@@@@@@@@@@@@@@@@[[@@@@TR )@@G@@C[@@@#/D@@[S/[@@[YH9@@[=C[@@@#[@0@@#;)"@@DAL@@@@)@C@I@2&@@@@)@,@N#@L#@S@TS )@@G@@)@E@I@0@@@@@)@#@I@%&@0@@@@]@@C[[@@@@A]0@@DR]0@@F@@@@@@AM@@@@)@0[F#@OK)EKTT )@@G@@O[@KO @@@@@@/[@@@"C[@@@G @@@@A/D@@@;/[@@[$C[@@@A/,0@@@&"0@@@C@@@@#AN@@@@TU )@@G@@)@9@;@K^ [K^G[^G[))@G@I@0@@@@@[@@@@@A]0@@FR]0@@F/H@@[$" @@@RC[@@@P/K@@[NTV )@@G@@/D@@[CAO@@@@)@^@I@%&@0@@)[@@:#@OK)FK0^K0A@@@@@@@@@@@@@A]0@@HR]0@@F/,0@@@TW )@@G@@&"0@@@C@@@@^@@[@@FAP@@@@)@I@I@0@@@@@)@ @I@%&@0@@)[ @<#@OK)GKK@@@@@C[@@@KTX )@@G@@/,0@@@&"0@@@C@@@@ @@[@@H[@@@@@AQ@@@@)[D[MK^[[^ [^ @@@@/K@@@G[[@@@JG9@@@[TY )@@G@@C[@@@J[[@@@KH9@@@[C[@@@K/H@@[N/[@@[5H9@@@[AR@@@@)@J@I@2&[K@@)[N@N#@L#@S@TZ )@@G@@)@L@I@0@@@@@)@A@I@%&@0@@@@]@@J[[@@@@A]0@@KR]0@@F@@@@@]AS@@@@)[P@:#@OK)HKUA )@@G@@0^K0A@)@N@I@0@@@@@@@@@@@@@@@@@[@@@@@A]0@@MR]0@@F/,0@@@&"0@@@C@@@@AAT@@@@UB )@@G@@)@B@I@%&@0@@)[U@;#@OK)AK^ @K@@/H@@[N/[@@[+C[@@@^/K@@@V/,0@@@&"0@@@C@@@@BUC )@@G@@@@[@@MAU@@@@)[-[N@^ @KO[[K^@@@C.@@]V/H@@[N/[@@@VC[@@@^/K@@@V @@@@^/K@@@VUD )@@G@@[[@@@^C9@@@[/K@@[>AV@@@@)[:@3[KL[K0^K0A@@@)@P@I@0@@@@@@@@@@@[@@@@@A]0@@OUE )@@G@@R]0@@F[[@@@#C9@@[=[[K@@-"P@@@#AW@@@@)@C@I@%&@0@@)[1@:#@OK)AK^@@@@@@@@@@@UF )@@G@@@@@@@@/K@@@@/K@@@V/,0@@@&"0@@@C@@@@C@@[@@OAX@@@@)@@@Y[K@@@@@)@@@6@S@@@@@UG )@@G@@GASP S@@@@@ 11R2C FTN PK@@@O@@@@[XNS@@@@@@@@@[AY@@@@)@A@&@S@@@@@UH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@H*[ AZ@@@@UI )@@G@@@@^@@G@@K@@I@@?@@[@@0@@]@@E@@]^@@@[6@@@@ '@@@@@O@@@@@P@@@@@D@@@@@Q)@@@@@UJ )@@G@@)@@@@@)@@@@@@@@@@#)@@@@@IBJ$ BDICALL$ BDIREF$ GASP UK )@@G@@ARGC1$ DATAN MONTR FMTE$$ F2SE$$ RMOVE UL )@@G@@EVNTS SUMRY OTPUT ERROR GASP @@[@@@@@@@@]UM )@@G@@@@@@@@@@@@@@^@@^@@@]@@@@@@@@@@@@@@@@C@@@@@@#@@@@@@@@@@@@@@@@@@@@@@@@@@@@UN )@@G@@@@@@@@@@@@@@@CC@@=@CB@]T@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CB@[C@CA@]TUO )@@G@@@CB@[S@CD@@^@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CA@@!@@@@@@@@@@@@@@@@@@@@@@@@UP )@@G@@)@M@I@S@@@@@)@E[A@S@@()]]@@@@E@@@@^E@@A@@O@@@@B1@@@@@@@@@@@@^@)@@@ET E))UQ )@@G@@@@@@@@AA@@@@)@N@I@S@@@@@)@@@3#@L#@L#@L#@L#@L#@K@9,@@@G9!)@@ER@0@@DR@)@@CUR )@@G@@R@K@@BR]0@@A______AB@@@@)@A[##@L#@L#@KK0^K0^K0^K0^@@@@A@0@@DA@)@@CA@K@@BUS )@@G@@A]0@@A/KF@@@N[K@@LN[@@@K9,)@@IAC@@@@)@I@3#@L#@L#@L#@L#@K@@@@)@M@I@)@@@@@UT )@@G@@[[@@@@R@0@@G^[K@@L^[@@@K9%)@@I9%@@@G9()@@EAD@@@@)@N@Q@)*@@@@)@O@<#@K(@#*UU )@@G@@[#1!C@E^@)@@@@@@@@C[#K@@@]0@@@&'0@@@C@K@@O@@]@@MET E)-AE@@@@)@S[F#@K^G[^UV )@@G@@^K[#@@@@@@@@[[@@@]C9@[9-/A@@[:H'@@@[C]@@@][[)@@@H9)@@BC <@@[[[@@@[AF@@@@UW )@@G@@)@-[MK0@^G@^^KO^KK[])@@SG')@@]C])@@[[])@@BG')@@[C])@@[[]@@@@C'@]WJ[[)@@[UX )@@G@@C9)]E8AG@@@@)@:[EK0@KO@K0@KO[#@K@@@@C@)@@@/K@@@;N[K@@[A@)@@ R8)@@[/K@@[IUY )@@G@@N[@@@@A@K@@^R8K@@[AH@@@@)@4[F#@[#@@@K0@K^^@@@@@@C@)@@S8LK@@3A@)@@ O8)@@[UZ )@@G@@ @I@@@G@)@@KT9@@@AC[@@@^G@)@@ AI@@@@)@.[F#@L#@@^G@@KOG[@@@@@G@)@@@C@)@@BVA )@@G@@[[I@@@H9@@@[C[@@@^G@)@@KT9@@@AC[@@@^G@)@@@AJ@@@@)[A[F#@@^G@@^G@^@@@@@@@@VB )@@G@@8L@@@\A@K@@^O8K@@[[[I@@@G9@@@[C[@@@^G@)@@KT9@@@AC[@@@^AK@@@@)[J[F[K0^KKKVC )@@G@@0@[#@@@@@@@@A@K@@AR8K@@[[[I@@@C[@@@[G@)@@KT9@@@AC[@@@@G@)@@@C@)@@BAL@@@@VD )@@G@@)[S[F[K^ [KO [KO^@@@@@@@ @[@@V @[@@< @[@]( @[@]X @[@]- @[@]> @[@]2/K@@[>VE )@@G@@N[@@@FAM@@@@)[-[N[KL#@[@^ [KO@/K@@@@ @@@@M @@@@][[@@@ C9@@@[8L@@[UA@K@@AVF )@@G@@O8K@@[[[[@^AC[@@@PAN@@@@)[:[##@L[K0@^G@^ #@[[@@@@@@@@@C])@@M[]@@@IC]I@]TVG )@@G@@[[)@@#C9)@@][[@@@EC[I@]-C@)@@[AO@@@@)[3[F#@(@K^ #@L[@@@@@@@@C[I@@@G@)@@KVH )@@G@@T9@@@AC[@@@ G@)@@@C@)@@B/E)@B%/])@ *"A)@@@AP@@@@)[/[F#@[#@L[^[@K^G[^^@@@VI )@@G@@C[I@](C@)@@[/K@@^?/H)@B%/[)@]#H9)@@[C[,@@$C@)@@[[[@@@BAQ@@@@)] [F#@[@K^[VJ )@@G@@[K0^KK@@@@@@G@)@@KT9@@@AC[@@@ G@)@@@C@)@@S/K@@#J/H@@B%/[@@]D[[@@@HAR@@@@VK )@@G@@)]I[F#@@K0^KO [K0^KK@@@@T9@@@AC[@@@ G@)@@@C@)@@B[[I@]-C[@@@ C@)@@[[[I@@@VL )@@G@@C[@@@@AS@@@@)]R[EK0@^G[^ [K0@KO^@@@@C[)@@ [[@@@ C[@@@B[[I@](C[@@@ C@)@@[VM )@@G@@[[I@@@C[@@@]G@)@@KAT@@@@)])[F#@[@K^ #@L[[#@@@@@@C[@@@@G@)@@KT9@@@AC[@@@ VN )@@G@@G@)@@@C@)@@S/[)@]%/D)@]%H[)@@[AU@@@@)]([EK0^^ #@[[KL[@@@@@@@"[,@@<"D)@@LVO )@@G@@" ,@^AC[)@@P[[K@@D"PI@]2C.@@]VC@)@@[[[I@@@AV@@@@)]2[N[[[KL[KO [@@@[[I@^AVP )@@G@@C[@@@P[[I@@V"[I@@V"D@@@M" ,@^AC[)@@P"D@@@KC[@@@L[[,@@C[I@]-[@Y@]XC@)@@[VT )@@G@@;)W@@DH/@@]@"K@@@GAZ@@@@)#K[F#@[[[#@L#@[#@@@@@@@G[@@@MT9)@@AC[)@@HG[@@@IVU )@@G@@C[@@@@G@)@@KT9@@@AC[@@@ G@)@@IBA@@@@)#T[M[@K^ #@L#@@@@G@)@@KT9@@@AC[@@@HVV )@@G@@G@)@@@C@)@@B/H@@^C/[@@#YH[J@@@C[I@@@C@0@@KBB@@@@)#<[EK0@KOG[^G@@KK@@@@@@VW )@@G@@[[,@@@C[)@@ G@)@@MT9)@@AC[)@@HG@)@@@C@)@@B[[@@@CC[I@@@BC@@@@)#?[F[K0^KKKVX )@@G@@0@^G@@@@@@@@?8)@@#C@)@@#[[,@@@C[)@@HG@)@@MT9)@@AC[)@@ G@)@@@C@)@@SBD@@@@VY )@@G@@)#5[F@K^[@KOG[^^@@@@@@@@G@)@@KT9@@@AC[@@@ G@)@@@C@)@@B/K@@]N/K@@#9/K@@#9VZ )@@G@@/C,@#6BE@@@@)#"[F#@@KOG[^G@@KK@@@@@@[[I@@@C[@@@ G@)@@KT9@@@AC[@@@CG@)@@@WA )@@G@@C@)@@S[[I@@@C[@@@CBF@@@@)^B[F@^G@^ #@L#@@@@@@@@@C[,@@@G@)@@MT9)@@AC[)@@HWB )@@G@@G@)@@@C@)@@S[[@@@#C9@@@[/K@@]XBG@@@@)^K[F#@[#@[@KOG[^^^G@@@@C[@@@@G@)@@KWC )@@G@@T9@@@AC[@@@ G@)@@@C@)@@S/ )@#JH[)@@@[[)@@HBH@@@@)^T[EK0^KO [K0^KK@@@@@@@WD )@@G@@G@)@@KT9@@@AC[@@@ G@)@@@C@)@@B[[I@]-C[@@@ C@)@@[[[I@@@BI@@@@)^+[F#@@KOG[WE )@@G@@^G@@KK@@@@@@[[I@@@C[@@@ G@)@@KT9@@@AC[@@@EG@)@@@C@)@@S[[I@@@C[@@@EBJ@@@@WF )@@G@@)^:[F@K0@K^[#@L#@[[@@@@@G@)@@KT9@@@AC[@@@ G@)@@IC@)@@@/H@@B%/[@@]DC[@@@EWG )@@G@@/K@@]XBK@@@@)^4[F#@L#@[#@@@^@@@@@@@@/D@@ GH[J@@@C[I@@@C@0@@KG[@@@MT9)@@AWH )@@G@@C[)@@EG[@@@IC[@@@@BL@@@@)^.[F@^G@^G@^G@^ #@K@@@@G@)@@MT9)@@AG@)@@@C@)@@BWI )@@G@@[[)@@KC[)@@E[[@@@#C9@@@[/[@@ GBM@@@@) A[EK0@K0@K^[@K0@^@@@@@/C,@ J?8)@@#WJ )@@G@@C@)@@#/K@@^\/D)@^\/[)@ OH[)@@][[)@@EC[,@@@BN@@@@) J[F@K^@K0@KOG[^^@@@@@@WK )@@G@@T9@@@AC[@@@ G@)@@@C@)@@S[[@@@#C9@@@]/K@@^N/K@@ M/K@@ MBO@@@@) S[EK0@^ #@WL )@@G@@L#@@^^@@@@@@C[@@@ G@)@@KT9@@@AC[@@@KG@)@@@C@)@@B[[I@@@C[@@@KG@)@@KBP@@@@WM )@@G@@) -[EK0@^[@K^[[K0^@@@@@@C@)@@[ @@@@M/K@@^X/K@@]N/K@@ */C,@ >?8)@@#C@)@@#WN )@@G@@[[I@@@BQ@@@@) %[#[K0@^G@^ @K0^K0@@@@@@@@@@G@)@@^C@)@@@/K@@ 8N[@@@[A@K@@^WO )@@G@@R8K@@[[[@@@JC[I@]>BR@@@@) 2[F#@@@K0@K^ #@K@@@@@@G@)@@@C@)@@B8L@@ 0A@K@@^WP )@@G@@O8K@@[ @I@@@G@)@@KT9@@@AC[@@@JBS@@@@) ;[F#@@[#@[[K0^K0@@@@@@T9)@@AC[)@@JWQ )@@G@@G@)@@@C@)@@S[[@@@GC[I@@@G@)@@KT9@@@AC[@@@JBT@@@@)A^[E^G@^G@^[#@[#@[@KK@@WR )@@G@@C@)@@B/[@@BHH[@@@@C[@@@F/[@@BSH[@@@][[)@@FC[,@@@G@)@@MBU@@@@)AH[F#@L#@@^WS )@@G@@G@[[K0^K0@@@C[@@@GG@)@@@C@)@@S[[I@@@C[@@@GG@)@@KT9@@@AC[@@@FG@)@@@BV@@@@WT )@@G@@)AQ[E^G@[[K0^K0@@@@@@@@@G@)@@KT9@@@AC[@@@JG@)@@@C@)@@B[[I@@@C[@@@FG@)@@KWU )@@G@@T9@@@ABW@@@@)AZ[F[^ #@L#@@^G@@@@@@@@[[I@@@C[@@@@G@)@@KT9@@@AC[@@@JG@)@@@WV )@@G@@C@)@@S[[I@@@C[@@@ BX@@@@)A*[F[K0@K^[[K0^KK@@@@@@G@)@@KT9@@@AC[@@@ G@)@@@WW )@@G@@C@)@@S/[@@A3/D@@A3H[@@@[C[@@@ BY@@@@)A1[F#@@K0^KO [KL[@@@@@@"PI@]2C.@@]VWX )@@G@@[[I@]>C[I@]-[[@@@ C[I@]>C@)@@[[[I@@@C[@@@JBZ@@@@)A'[N#@[[KL[KKKO^@" ,@^AWY )@@G@@C[)@@P"D@@@KC[@@@L[[,@@<"[,@@<"D)@@L" ,@^AC[)@@P[[K@@DCA@@@@)B^[MKO [KO^WZ )@@G@@KO[[@@C@)@@S/K@@@@[[I@]2H9@@@[C[I@]2[[I@^AC[@@@P[[I@@V"[I@@V"D@@@MCB@@@@XA )@@G@@)BI[F#@L#@@^G@[#@L#@[[@@[[I@]-C[@@@GC@)@@[[[I@@@C[@@@@G@)@@KT9@@@AC[@@@GXB )@@G@@G@)@@@CC@@@@)BR[F@K0@K0@K^ #@L#@@@@@G@)@@KT9@@@AC[@@@FG@)@@@C@)@@B/[@@B&XC )@@G@@H[@@@@C[@@@F/K@@AUCD@@@@)B)[F#@@K0^K0@KO[#@L[KK@ @I@]( @I@]-C@)@@[/K@@AUXD )@@G@@[[I@](C[@@@FC@)@@[[[I@@@C[@@@]CE@@@@)B(@F@@@@@@@)@#@I@2&[K@@)B%@MK0A@@@@XE )@@G@@)@ @I@0@@@@@[[@@@@A]0@@^R]3@@[@@@@@]/K@@AUCF@@@@)@[@I@%&@0@@)B?@3#@OK)A^XF )@@G@@C[4@@@@@@@@@/K@@@@/,0@@@Q_@@@@/,0@@@&"0@@@C@@@@[@@]@@#CG@@@@)@@@Y[K@@@@@XG )@@G@@)@@@6@S@@@@@SET S@@@@@ 11R2C FTN PK@@@O@@@@[SNS@@@@KG@@@@CH@@@@XH )@@G@@)@A@&@S@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@H*[ XI )@@G@@ CI@@@@@@@@@@K0^KKK0@^G@@@@@@@@?8)@@#C@)@@#[[,@@@C[)@@HG@)@@MT9)@@AXJ )@@G@@C[)@@ G@)@@@C@)@@SBD@@@@@@^@@G@@K@@C@@)@@[@@=@@]@@E@@M^@@@B2@@@@ '@@@@@OXK )@@G@@@@@@@P@@@@@]@@@@@A)@@@@@)@@@@@)@@@@@@@@@@#)@@@@@IBJ$ BDICALL$ XL )@@G@@BDIREF$ SET ARGC1$ XMAX ERROR FSTOP$ XM )@@G@@SET @@[@@@@@@@@E@@@@@@@@@@@@^@@^@@@]@@@@@@@@@@@@@@@@C@@@@@@#@@@@XN )@@G@@@C @]'^G@@@@C[@@@@G@)@@KT9@@@AC[@@@ G@)@@@C@)@@S/ )@#JH[)@@@[[)@@HBH@@@@XO )@@G@@)@M@I@S@@@@@)@][A@)@@@@@E8M]S@CL D-JE1 D0)E))C9DE@)ET C(MD-[#@)D9Q@CM]KKXP )@@G@@@@@@@@AA@@@@)@E[A@S@@()])@N@I@S@@@@@______]@@@@A@@@@@)@@]@@S@@@@[^@@@@@@XQ )@@G@@@@@@@@D*)@@@C1DD- AB@@@@)@@[##@L#@L#@L#@L#@KK0^K0^@@@@A@K@@FA]0@@E/KF@@@XR )@@G@@N[@@@J9!)@@HR@)@@GR@K@@FR]0@@EAC@@@@)@C@<#@L#@L#@K@@@@)@K@&@)])@@@@@]@@KXS )@@G@@D*-^@)C1DD- [[@@@@R@)@@G^[@@@J9()@@HA@)@@GAD@@@@)@G[##@K(@#*[#1!C@E^@)CSXT )@@G@@]CE]@@H[)@@@C[)@@ [[@@@@H9@@@BC ]@@[@]0@@@&'0@@@C@K@@NAE@@@@)@O@N@K@@@@@XU )@@G@@)@O@,@++ @EK])@@@@@@@@@@/,0@@@@@@@@@@@@@@]#[[@@@@@@@@T/[)@@Y/H)@@YAF@@@@XV )@@G@@)@Q@V#@K(@#*[<1!C@E^@0@@)@@@I@2&[K@@)@T@E@@@@@@@R]2@@[@@@@@@@]0@@@&"0@@@XW )@@G@@Q;@@@OAG@@@@)@U@F#@S@@@@)@]@I@0@@@@@)@@@I@%&@0@@)@V@N#@O@@@@&"0@@@C@@@@@XX )@@G@@@@]@@@[[@@@@A]0@@[AH@@@@)@X[#]@WK0@KOG[^[#@L#@*@@@@@@@C[@@@[^[@@@[/K@@@;XY )@@G@@^[@@@[N[@@@[A@K@@@R8K@@[/,0@@@AI@@@@)@>[##@[[K^G]=G@^G[^G@^^@@@@@@C[@@@ XZ )@@G@@G@)@@@C@)@@@[[@@@[C[@@@]/D)@@%C[-@@Z[[@@@[AJ@@@@)@![E^G@^ #@[[^G])@@@@@@YA )@@G@@"K@@@G"@@@@#C@@@@K"D@@@N"[@@@[C[[@@ZR@K@@@G@)@@KT9@@@AAK@@@@)@6[M@K0@K0^YB )@@G@@K[#@S@R]2@@[A]0@@#R]2@@@8L@@@C[@@@[C@+K@[/,0@@@AG@@@@)@=[N#@[#@K@KO [KK[[[@@Z"H@@@NC[[@@ZYU )@@G@@[[L@@Z"PI@@@C.@@]VG@)@@KT9@@@AC[@@@[G@)@@@AH@@@@)@,[EK0@K^G]=^K0A^G[)@@@YV )@@G@@A]0@@^R]2@@]A]0@@#R]2@@[[[@@@MC[@@@[8L@@@@3[KOG]=^AM )@@G@@K0A@@@)@ @I@0@@@@@@@@@@@]]@@@@A]0@@^R]1@@@[[I@ K"[@@@[C[I@ K[[I@ AAH@@@@AN )@@G@@)@:@N[K0A@@@)@[@I@%&@0@@)@!@V#@OK)A@@@@@@@/,0@@@&"0@@@C@@@@[@@]@@#[[@@@#AO )@@G@@C9I@ UAI@@@@)@0@<#@L[^G[)@@@@@)@C@I@0@@@@@)@4@F[@@@@@@C9I@ =]]@@@@A]0@@BAP )@@G@@R]1@@@[@I@ UC@)@@[AJ@@@@)@5@F#@S@@@@)@]@I@%&@0@@)@6@<#@OK)BK0^@@@@C@)@@[AQ )@@G@@/,0@@@&"0@@@C@@@@]@@]@@A[[@@@AAK@@@@)@'@N[K@@@@@)@@@Q[K@@@@@)@@@Y@S@@@@@AR )@@G@@11R2C FTN PK@@@OKG@@@@@@@@[U/K@@@@[@I@ =AL@@@@)@#@"@S@@@@@@@@@@@@@@@@@AS )@@G@@@@@@@@@@@@@@@@@H*[ COLCT S@@@@@ AM@@@@@@@@@@ 051AT )@@G@@012000053 745700110230@P@[@@112410 060272000023 467260000000 060AU )@@G@@@@^@@G@@K@@C@@)@@[@@=@@]@@E@@[^@@@@/@@@@ '@@@@@O@@@@@G@@@@@#@@@@@D)@@@@@AV )@@G@@)@@@@@)@@@@@@@@@@])@@@@@IBJ$ BDICALL$ BDIREF$ COLCT AW )@@G@@ARGC1$ ERROR AMIN AMAX COLCT @@[@@@@@@@@ AX )@@G@@@@@@@@@@@@@@^@@^@@@]@@@@@@@@@@@@@@@@C@@@@@@#@@@@@C @##@@@@@@@@@@@@@@@@@@AY )@@G@@@CB@[C@@@@@@@CD@@X@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@)@M@I@S@@@@@)@E[A@S@@()]AZ )@@G@@]@@@@ @@@@@Q@@]@@F@@@@@_@@@@@@@@@@@@^@)@@@E-HETO@@@@@@AA@@@@)@N@I@S@@@@@BA )@@G@@)@@@3#@L#@L#@L#@KK0^@@@@A]0@@]/KF@@@9,@@@A9!)@@^R@K@@#R]0@@]______AB@@@@BB )@@G@@)@A@<#@L#@L#@K@@@@)@C@&@)])@@@@@^@@C^C)^@)E-HETO]][[@@R@K@@G9%@@@A9()@@^BC )@@G@@A@K@@#AC@@@@)@E[##@K(@#*[#1!C@E^@)-)C]A@)@[[)@@@H9)@@BC -@@#[[@@@[C[[K@]BD )@@G@@@]0@@@&'0@@@C@K@@FAD@@@@)@M@V#@L@K@@)@@@I@2&[K@@)@P@MK0A@@@@@@@@@@A]0@@[BE )@@G@@R]1@@#@@@@@@/E@@@U/]@@@PC]@@@[AE@@@@)@]@I@0@@@@@)@@@I@%&@0@@)@R@<#@OK) KBF )@@G@@0^@@@@C[@@@[/,0@@@&"0@@@C@@@@@@@]@@@[[@@@@AF@@@@)@V[F[K^[#@KKOG@^ [@@@@@BG )@@G@@[[I@^E"[I@^E[[@@@@" I@^EC[[K@[C@)@@[/D@@@P/[@@@YH[@@@LAG@@@@)@=[MK0@KO^^BH )@@G@@G@^ [@R]1@@@[[I@^Y"[I@^Y"D@@@@"D[K@@C[[K@@[[I@^O"[I@^O"D@@@@C[[K@@AH@@@@BI )@@G@@)@,@F#@S@@@@)@ @I@0@@@@@)@\@N[K0A@@@)@[@I@%&@0@@@@]@@#[[@@@#C9I@^*]]@@@@BJ )@@G@@A]0@@^AI@@@@)@1@;#@OK)AK0^KL#@S@@@@@@@@@@@@@@@@@A]0@@BR]1@@@[@I@^*C@)@@[BK )@@G@@/,0@@@&"0@@@C@@@@[AJ@@@@)@C@I@0@@@@@)@8@N[K0A@@@)@]@I@%&@0@@)@'@F#@O@@@@BL )@@G@@C@@@@]@@]@@A[[@@@AC9I@^2]]@@@@AK@@@@)@;@%K)BK0^KO@@@@@)@@@I[K@@@@@@@@@@@BM )@@G@@@@@@@@@@@@[V/K@@@@[@I@^2C@)@@[/,0@@@&"0@@@AL@@@@)@@[Q@S@@@@@@@@@@@@@@H*[BN )@@G@@ TMST S@@@@@ 11R2C FTN PK@@@OAM@@@@@@@@@@@@@@@@BO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BP )@@G@@@@^@@G@@K@@C@@)@@[@@=@@]@@E@@]^@@@[@@@@@ '@@@@@O@@@@@G@@@@@#@@@@@D)@@@@@BQ )@@G@@)@@@@@)@@@@@@@@@@[)@@@@@IBJ$ BDICALL$ BDIREF$ TMST BR )@@G@@ARGC1$ ERROR AMIN AMAX TMST @@[@@@@@@@@ BS )@@G@@@@@@@@@@@@@@^@@^@@@]@@@@@@@@@@@@@@@@C@@@@@@#@@@@@C @#G@@@@@@@@@@@@@@@@@@BT )@@G@@@CB@[L@@@@@@@CD@@$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@)@M@I@S@@@@@)@[@"@)@@@@@BU )@@G@@@@@@@@)@M]KNCDH[C^E-JC9M^[CDDNEK)DDIC(MELJ@CK]S)@@@@@@AA@@@@)@E[A@S@@()]BV )@@G@@)@N@I@S@@@@@______]@@@@^@@@@@)@@[@@Q@@@@@.@@@@@@@@@@@@D8)@@@D[DETOAB@@@@BW )@@G@@)@@[##@L#@L#@KK0^K0^K0^@@@@@@@R@K@@G9()@@EA@K@@DA]0@@C/KF@@@9!)@@ER@K@@DBX )@@G@@R]0@@CAC@@@@)@G@&@)])@@@)@C@V#@K(@#*[#1!C@E^@)@@@]0@@@&'0@@@C@K@@J@@^@@GBY )@@G@@D8-^@)D[DETO]]][@@AD@@@@)@F@2K0^K0^KO[@@@@)@K@Q@++@@@@#[[@@@@@@@@T/[)@@RBZ )@@G@@/H)@@RH[)@@EC[)@@@[[@@@@C[[K@#AE@@@@)@M@,@+) @EK])@@@@)@L@N#@K(@#*[)@@@@CA )@@G@@&"0@@@Q;@@@K/,0@@@[@^@@@@@@@@@@@@@@@@@@@@[AF@@@@)@N[E/VM@]-@G]^@'A@+@)@@CB )@@G@@" [K@[C[[K@@/[@@@L/H@@@LC[@@@@/,0@@@&"0@@@C8@@@@@]0@@@AG@@@@)@W[F#@[@^G@CC )@@G@@^[#@@K0E@@@@C@)@@K"[@@@@"H[K@]C[@@@@/K@@@3[[@@@[C9@@@[/D@@@-[[@@@@AH@@@@CD )@@G@@)@>[F#@*[#@[#@L[^@@@@@@@/G0@@3H80@@[H@"@]!C@)@@@[@0@@[;)"@@DH/)@]@"K)@@ICE )@@G@@"@)@@[AI@@@@)@,[F@K0^KL#@[#@@K0^K0@@C[@@@[G@)@@@T8)@@ C@)@@[[[@@@[G9@@@]CF )@@G@@C[I@]!C@)@@@/@0@@3AJ@@@@)@7@'K0^^^KO@@@@@@)@@@I[K@@@@@KO@@@@/K@@@@[[I@@&CG )@@G@@G9@@@[C[J@@&C@0@@KG[@@@@T9@@@ AK@@@@)@[@I[K@@@@@)@@[A@S@@@@@ CH )@@G@@HISTO S@@@@@ 11R2C FTN PK@@@ONS@@@@AL@@@@)@C@Q@S@@@@@@@@@@@@@@@@@CI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@H*[ AM@@@@@@@@@@@@@@@@CJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CK )@@G@@@@^@@G@@K@@C@@)@@[@@=@@]@@E@@#^@@@@"@@@@ '@@@@@O@@@@@R)@@@@@)@@@@@)@@@@@CL )@@G@@)@@@@@)@@@@@@@@@@])@@@@@IBJ$ BDICALL$ BDIREF$ HISTO CM )@@G@@ARGC1$ FMTE$$ F2SE$$ EXIT HISTO @@[@@@@@@@@^CN )@@G@@@@@@@@@@@@@@^@@^@@@]@@@@@@@@@@@@@@@@C@@@@@@#@@@@@C @#^@@@@@@@@@@@@@@@@@@CO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@)@M@I@S@@@@@)@E[A@S@@()]CP )@@G@@]@@@@^@@@@@G@@@@@B@@@@@W@@@@@@@@@@@@E*)@@@EL[D1^@@@@@@AA@@@@)@N@I@S@@@@@CQ )@@G@@)@@@3#@L#@L#@KK0^K0^@@@@A@K@@[A]0@@@/KF@@@9!)@@]R@K@@[R]0@@@______AB@@@@CR )@@G@@)@A@N#@K@@@@)@^@&@)])@@@)@C@F#@K@@@@C@K@@B@@]@@^E*-^@)EL[D1^[]@@@@R@K@@GCS )@@G@@9()@@]AC@@@@)@D[](@#*[#1!C@E^@)-)@CS ]@@@@/D)@@Q[[-K@@T[)@@@C[-K@@[[@@@@CT )@@G@@C9@@@[@]0@@@&'0@@@AD@@@@)@L[N@^G]=G@@@K0E@"H@@@]C[@@@L[[LK@["P[K@@C.@@]VCU )@@G@@[[[K@@G[@@@@G[@@@[C[[K@@/[)@@QAE@@@@)@V@MK@@@@@@)@@@Y[K@@@@@)@@@Q@S@@@@@CV )@@G@@FTN PK@@@OO=@@@@Z_____RY;IT!/K@@@@[[[K@[AF@@@@)@][A@S@@@@@@@@@@@@@@@@@CW )@@G@@@@@@@@@@@H*[ RANDU S@@@@@ 11R2C AG@@@@@@@@@@745720CX )@@G@@114543 100100000017 742000114313@P@[@@114340 100534000004 010534CY )@@G@@@@^@@G@@K@@ @@W@@[@@)@@[@@E@@]^@@@@X)@@@@@@@@@@O@@@@@C)@@@@@)@@@@@)@@@@@CZ )@@G@@)@@@@@)@@@@@@@@@@#)@@@@@IBJ$ BDICALL$ BDIREF$ RANDU DA )@@G@@ARGC1$ @@@@@@@C @]>RANDU @@[@@@@@@@@^@@@@@@@@@@@@C@@@@@@#@@@@DB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@C @],@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@)@M@I@S@@@@@)@E[A@S@@()]DD )@@G@@]@@@@#@@@@@B@@@@@ @@@@@K@@@@@@@@@@@@C))@@@C-MCDI@@@@@@AA@@@@)@N@I@S@@@@@DE )@@G@@)@@@3#@L#@KK0^K0^@@@@@@@R@K@@GA@K@@[A]0@@@/KF@@@R@K@@[R]0@@@______AB@@@@DF )@@G@@)@]@&@)])@@@)@A@V#@K(@#*[#1!C@E^@)@@@]0@@@&'0@@@C@K@@ @@]@@]C)-^@)C-MCDIDG )@@G@@[]@@@@AC@@@@)@D@+K0A^G[))@]@I@0@@@@@)@@@I@%&@0@@@@@@@@@@]@@@[]@@@@A]0@@[DH )@@G@@R]1@@[A]0@@@R]1@@@AD@@@@)@H@<#@OK) K@@@@@@)@@@&@S@@@@@ 11R2C FTN DI )@@G@@PK@@@O/K@@@@/,0@@@&"0@@@C@@@@@AE@@@@)@^@6@S@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DJ )@@G@@@@@@@@@@@H*[ DRAND S@@@@@AF@@@@@@^@@G@@K@@A@@W@@[@@)@@[DK )@@G@@@@E@@[^@@@@L)@@@@@@@@@@O@@@@@A@@@@@[@@@@@#)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@DL )@@G@@IBJ$ BDICALL$ BDIREF$ DRAND ARGC1$ RANDU DM )@@G@@DRAND @@[@@@@@@@@#@@@@@@@@@@@@C@@@@@@#@@@@@@@@@@114556 745720114DN )@@G@@572 100434000011 467320000001 742000114271 050000000015 500014DO )@@G@@000006@P@[@@114450 742)@M@I@S@@@@@)@E[A@S@@()]#@@@@^@@@@@I@@[@@A@@@@@MDP )@@G@@@@@@@@@@@@@@D*)@@@E(IC1M@@@@@@AA@@@@)@N@I@S@@@@@)@@@3#@L#@L#@KK0^K0^@@@@DQ )@@G@@A@K@@]A]0@@[/KF@@@C@@@@@R@K@@]R]0@@[______AB@@@@)@A@E@)@#@&@)])@@@)@B@N#DR )@@G@@@K(@#*[@@@@@&'0@@@C@K@@A@@]@@#D*-^@)E(IC1M]]@@@@R@K@@GAC@@@@)@D@E/VM@]-@DS )@@G@@C@@@@@)@@@Y@2+O0@@)@@@I@%&@0@@@@@@@@@@]@@@[]@@@@@@@@@@@@@@@O@]0@@@AD@@@@DT )@@G@@)@E[F#@OK) [#@@K0^K@@@@@/K@@@@[[@@@@"[[K@@"D@@@@" [K@@C[[K@[/,0@@@&"0@@@DU )@@G@@C@@@@@AE@@@@)@@[Q@S@@@@@@@@@@@@@@H*[ UNFRM S@@@@@ DV )@@G@@11R2C FTN PK@@@OAF@@@@@@^@@G@@K@@A@@W@@[@@)@@]@@E@@]^@@@@N@@@@ '@@@@@ODW )@@G@@@@@@@B@@@@@[@@@@@#)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@IBJ$ BDICALL$ DX )@@G@@BDIREF$ UNFRM ARGC1$ DRAND UNFRM @@[@@@@@@@@^DY )@@G@@@@@@@@@@@@@@^@@^@@@]@@@@@@@@@@@@@@@@C@@@@@@#@@@@@@@@@@@@@@@@@@@@@@@@@@@@DZ )@@G@@@C @]2@@@@@@@@@@@@@@@@@@@CB@@8@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EA )@@G@@)@M@I@S@@@@@)@E[A@S@@()]#@@@@^@@@@@P@@^@@F@@@@@9@@@@@@@@@@@@D*)@@@ELID9MEB )@@G@@@@@@@@AA@@@@)@N@I@S@@@@@)@@@3#@L#@L#@KK0^K0^@@@@9()@@ A]0@@^/KF@@@C@@@@@EC )@@G@@9!)@@ R]0@@^______AB@@@@)@A@MK0^@@@@)@C@&@)])@@@)@C@F#@K@@@@C@K@@F@@[@@CED )@@G@@D*-^@)ELID9M[@@@@@[@K@@BC@W@@@AC@@@@)@D@+(@#*[#1!C@E^@+A@+A@)@@@@@)@@@Q@EE )@@G@@2+O0@@@@@@@[@@@@@O[[@@@[C[@K@B@]0@@@&'0@@@AD@@@@)@]@I@0@@@@@)@@@I@%&@0@@EF )@@G@@)@H@V#@OK) @@@@@@@@@@@@@/,0@@@&"0@@@C@@@@@@@]@@@[]@@@@AE@@@@)@#@Y@2+O0@@EG )@@G@@)@[@I@%&@0@@)@K@V#@OK) @/,0@@@&"0@@@C@@@@[@@]@@#[]@@@@@@@@@]@@@@@OAF@@@@EH )@@G@@)@A@I@2&@@@@)@]@I@%&@0@@)@N@V#@O(@#*[<1!C@E^@0@@@]0@@@&"0@@@C@@@@]@@[@@AEI )@@G@@@@@@@[AG@@@@)@Q@<#@*^G[@)@B@Q@2&@-N@*@@@@@@@@@@@@@@@@@@@@@@[@@@@@][@@@@]EJ )@@G@@G8@@@@D@@@@G"C@@@@AH@@@@)@U@V#@S(@#*[31!C@E^@8@@)@D@I@2&@)@@)@X@F#@@@@@@EK )@@G@@C[@@@]@@@@@#@]0@@@&"0@@@Q;@@@BAI@@@@)@Y@V#@(#@K@)@#@I@%&@0@@)@-@N#@O(@#*EL )@@G@@]@@@@@&"0@@@C@@@@#@@[@@DC[)@@G[[@@@#"D@@@]AJ@@@@)@<[]/VM@]-@KCS@CS]CE]-)EM )@@G@@C))@@@" ,@#E[[)@@@"[,@]6"D,@#2C@)@@[[[)@@@"D)@@G@]0@@@AK@@@@)@:[F@K^G[^ EN )@@G@@#@L@K0^K0^KK" I@#YC[@@@@C@)@@[/K@@@@[[@@@@C[I@#EC@)@@[/D)@@1/[)@@0AL@@@@EO )@@G@@)@4@3@K^G[^ #@L@@@)@@@Q[K@@@@@K^@@@@KO@@@@/K@@@@[[@@@@C[I@#YC@)@@[/[@@@0EP )@@G@@/H@@@0AM@@@@)@]@I[K@@@@@)@@[A@S@@@@@ RNORM S@@@@@ 11R2C EQ )@@G@@FTN PK@@@OKYMBE0AN@@@@)@C@Q@S@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ER )@@G@@@@@@@@@@@@@@@@@@@@@@@H*[ AO@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ES )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@G@@K@@D@@=@@[@@*@@]ET )@@G@@@@E@@^^@@@@'@@@@ '@@@@@O@@@@@G@@@@@^@@@@@E)@@@@@)@@@@@)@@@@@@@@@@#)@@@@@EU )@@G@@IBJ$ BDICALL$ BDIREF$ RNORM ARGC1$ DRAND EV )@@G@@FTN$LOG FTN$FR1R1$ FTN$COS @@@@@@@@@@@@RNORM @@[@@@@@@@@^EW )@@G@@@@@@@@@@@@@@^@@^@@@]@@@@@@@@@@@@@@@@C@@@@@@#@@@@@CB@@1@@@@@@@@@@@@@@@@@@EX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@)@M@I@S@@@@@)@E[A@S@@()]#@@@@#@@@@@G@@[@@A@@@@@NEY )@@G@@@@@@@@@@@@@@D0)@@@ELGD9B@@@@@@AA@@@@)@N@I@S@@@@@)@@@3#@L#@KK0^^G[@@@@@@@EZ )@@G@@[@K@@]C@W@@@A]0@@[/KF@@@C@@@@@R]0@@[______AB@@@@)@#@&@)])@@@)@A@V#@K(@#*FA )@@G@@[#1!C@E^@)@@@]0@@@&'0@@@C@K@@A@@[@@#D0-^@)ELGD9B[@@@@@AC@@@@)@D@N#@L#@S@FB )@@G@@)@[@I@0@@@@@)@@@I@%&@0@@)@F@F#@O@@@@C@@@@@@@[@@@[@@@@@A]0@@@R]0@@]AD@@@@FC )@@G@@)@G@UK) K0@@)@]@I@2&@@@@)@[@I@%&@0@@@@@@@@@@@@@@@@[@@]@@@@@@[@@@@@/,0@@@FD )@@G@@&"0@@@AE@@@@)@J@:#@O(@#*[<1!C@E^@2A@+@@@@@)@@@I@S@@@@@PK@@@O/K@@@@[@@@@@FE )@@G@@@]0@@@&"0@@@C@@@@[AF@@@@)@[[I@S@@@@@@@@@@@@@@@@@@@@H*[ FF )@@G@@RLOGN S@@@@@ 11R2C FTN AG@@@@@@@@@@040 000110114735 100434000FG )@@G@@011 467320000001@P@[@@114750 100074000012 @@^@@G@@K@@B@@)@@[@@=@@[FH )@@G@@@@E@@]^@@@@O)@@@@@@@@@@O@@@@@B@@@@@]@@@@@#)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@FI )@@G@@IBJ$ BDICALL$ BDIREF$ RLOGN ARGC1$ RNORM FJ )@@G@@FTN$EXP @@@@@@@@@@@@RLOGN @@[@@@@@@@@#@@@@@@@@@@@@C@@@@@@#@@@@FK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@)@M@I@S@@@@@)@E[A@S@@()]]@@@@#@@@@@)@@[@@A@@@@[UFM )@@G@@@@@@@@@@@@@@D0)@@@D1KD9N@@@@@@AA@@@@)@N@I@S@@@@@)@@@3#@L#@KK0^K0^@@@@@@@FN )@@G@@R@K@@GA@K@@]A]0@@[/KF@@@R@K@@]R]0@@[______AB@@@@)@#@&@)])@@@)@A@V#@K(@#*FO )@@G@@[#1!C@E^@)@@@]0@@@&'0@@@C@K@@A@@]@@#D0-^@)D1KD9N[[@@@@AC@@@@)@D[]^ #@[#@FP )@@G@@[#@(@K@@@@@@@@@@@@/D@@@&/[@@@L" @@@@C[@@@[[[@@@[C[I@]6C@-K@@ @[K@[AD@@@@FQ )@@G@@)@@@I@2&@)@@)@L@V#@@K0^@)@@@I@%&@0@@@@@@@@@@@@@@@@[@@@[[@@@@G9@@@@D[@@@[FR )@@G@@@@@@@@AE@@@@)@O@3#@O(@#*[N1!C@E^@%A@]A[MA@@@@@@@@@@@@@[[@@@]C[@@@[[@@@@#FS )@@G@@@]0@@@&"0@@@C@@@@@AF@@@@)@[@Y@2+O0@@)@[@I@%&@0@@)@U@V#@OK)A@/,0@@@&"0@@@FT )@@G@@C@@@@[@@]@@[[]@@@@@@@@@ @@@@@OAG@@@@)@X[F#@[#@[#@[#@[@@K@@@@/K@@@U[[[K@[FU )@@G@@G9@@@[C[[K@[/H@@[@" @@@#[[@@@]"D@@@ C[@@@]AH@@@@)@&@%KOG@^ #@S@@@@)@ @I@FV )@@G@@2&[K@@@@@@@@@@@@@@@@@@@]A]0@@^R'"@]6[[@@@^C[I@#2C@-K@@AI@@@@)@:@;#@S(@#*FW )@@G@@[31!C@E^@8)+A@0@@@@@@@@@A]0@@AR]1@@@[@I@#2C@-K@@@]0@@@&"0@@@Q;@@@^AJ@@@@FX )@@G@@)@B@I@0@@@@@)@]@I@%&@0@@)@2@<#@OK)CK0E@@@@"@@@@]/,0@@@&"0@@@C@@@@]@@[@@AFY )@@G@@[@@@@@AK@@@@)@6[N#@*@^G@^ @K@@/GK@@&/@K@[@[[I@#2C[@@@^C@-K@@[@LK@[;)W@@DFZ )@@G@@H/@@]@"K@@@G"@@@@#AL@@@@)[@[EKOG])^G@^ #@*@@@@@@"@@@@#C@I@#Y[@K@@A;)W@@DGA )@@G@@H/@@]@"K@@@G"@@@@#C@I@#EC@-K@@AM@@@@)[D[M[#@@K0@[@K@@@/[@@[U/H@@[UH[@@@HGB )@@G@@[[[K@[G[@@@AC[[K@[[@K@@@;)W@@DH/@@]@"K@@@GAN@@@@)[N[]KOG])[@@@@@@@@@@@@@GC )@@G@@@@@@@@/K@@@@[@LK@[;)W@@DH/@@]@"K@@@G"@@@@#C@I@#YC@-K@@AO@@@@)@@@&[K@@@@@GD )@@G@@)@@@,@S@@@@@S@@@@@ 11R2C FTN PK@@@ONS@@@@K^@@@@KG@@@@KY@@@@AP@@@@GE )@@G@@)@ @,@S@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@H*[ GF )@@G@@NPOSN AQ@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@G@@K@@D@@=@@[@@*@@]@@E@@C^@@@[V@@@@ '@@@@@OGH )@@G@@@@@@@B@@@@@#@@@@@C)@@@@@)@@@@@)@@@@@@@@@@^)@@@@@IBJ$ BDICALL$ GI )@@G@@BDIREF$ NPOSN ARGC1$ FTN$EXP DRAND FTN$FR1R1$ GJ )@@G@@RNORM @@@@@@@@@@@@NPOSN @@[@@@@@@@@#@@@@@@@@@@@@^@@^@@@]@@@@GK )@@G@@@@@@@@@@@@@@C@@@@@@#@@@@@CB@@8@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GL )@@G@@)@M@I@S@@@@@)@E[A@S@@()]#@@@@^@@@@@E@@[@@A@@@@@N@@@@@@@@@@@@^@)@@@CDHDDIGM )@@G@@@@@@@@AA@@@@)@N@I@S@@@@@)@@@3#@L#@L#@KK0^K0^@@@@A@K@@]A]0@@[/KF@@@C@@@@@GN )@@G@@R@K@@]R]0@@[______AB@@@@)@A@E@)@#@&@)])@@@)@B@N#@K(@#*[@@@@@&'0@@@C@K@@AGO )@@G@@@@]@@#^C)^@)CDHDDI]]@@@@R@K@@GAC@@@@)@D[E/VM@]-@C]@)]A@+@@@@C[[K@[/K@@@@GP )@@G@@[[@@@@C[[K@@/D@@@L/[@@@I" [K@[C[[K@@@]0@@@AD@@@@)@M@N#@L@@@@)@@@"@S@@@@@GQ )@@G@@ AMIN S@@@@@ 11R2C FTN PK@@@O/K@@@@[[@@@@AE@@@@)@B@Y@S@@@@@GR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@H*[ AF@@@@GS )@@G@@@@^@@G@@K@@ @@W@@[@@)@@[@@E@@[^@@@@O)@@@@@@@@@@O@@@@@B)@@@@@)@@@@@)@@@@@GT )@@G@@)@@@@@)@@@@@)@@@@@)@@@@@IBJ$ BDICALL$ BDIREF$ AMIN GU )@@G@@ARGC1$ @@@@@@@@@@@@AMIN @@[@@@@@@@@^@@@@@@@@@@@@C@@@@@@#@@@@GV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@)@M@I@S@@@@@)@E[A@S@@()]GX )@@G@@#@@@@^@@@@@E@@[@@A@@@@@P@@@@@@@@@@@@^@)@@@F[HCDS@@@@@@AA@@@@)@N@I@S@@@@@GY )@@G@@)@@@3#@L#@L#@KK0^K0^@@@@A@K@@]A]0@@[/KF@@@C@@@@@R@K@@]R]0@@[______AB@@@@GZ )@@G@@)@A@E@)@#@&@)])@@@)@B@N#@K(@#*[@@@@@&'0@@@C@K@@A@@]@@#^C)^@)F[HCDS[[@@@@HA )@@G@@R@K@@GAC@@@@)@D[E/VM@]-@C]@)@-)C)@@@/K@@@@[[K@@@"P[K@@C.@@]V/[@@@M/H@@@MHB )@@G@@H[[K@[C[[K@@@]0@@@AD@@@@)@M@+^G[^@@@)@@@,@S@@@@@S@@@@@ 11R2C FTN HC )@@G@@PK@@@O/K@@@@[[K@@@"P[K@[C.@@]VAE@@@@)@ @,@S@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HD )@@G@@@@@@@@@@@@@@@@@H*[ XMAX AF@@@@@@^@@G@@K@@ @@W@@[@@)@@[HE )@@G@@@@E@@[^@@@@Q)@@@@@@@@@@O@@@@@B)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@HF )@@G@@IBJ$ BDICALL$ BDIREF$ XMAX ARGC1$ @@@@@@@@@@@@HG )@@G@@XMAX @@[@@@@@@@@^@@@@@@@@@@@@C@@@@@@#@@@@@@@@@@002 100101000005HH )@@G@@ 740100115510 140020000016 010021000026 054055000000 107060000HI )@@G@@014 010475000001@@@[@@)@M@I@S@@@@@)@E[A@S@@()]#@@@@^@@@@@E@@[@@A@@@@@MHJ )@@G@@@@@@@@@@@@@@^@)@@@CDHCDS@@@@@@AA@@@@)@N@I@S@@@@@)@@@3#@L#@L#@KK0^K0^@@@@HK )@@G@@A@K@@]A]0@@[/KF@@@C@@@@@R@K@@]R]0@@[______AB@@@@)@A@E@)@#@&@)])@@@)@B@N#HL )@@G@@@K(@#*[@@@@@&'0@@@C@K@@A@@]@@#^C)^@)CDHCDS]]@@@@R@K@@GAC@@@@)@D[E/VM@]-@HM )@@G@@C]@CS]C@-)C@[[@@@@C[[K@[/K@@@@[[@@@@C[[K@@/H@@@K" [K@[C[[K@@@]0@@@AD@@@@HN )@@G@@)@M@F@@@@@@@)@@[A@S@@@@@ AMAX S@@@@@ 11R2C FTN PK@@@OHO )@@G@@/K@@@@AE@@@@)@C@Q@S@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HP )@@G@@@@@@@@@@@H*[ AF@@@@@@^@@G@@K@@ @@W@@[@@)@@[@@E@@[^@@@@N)@@@@@@@@@@OHQ )@@G@@@@@@@B)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@)@@@@@IBJ$ BDICALL$ HR )@@G@@BDIREF$ AMAX ARGC1$ @@@@@@@@@@@@AMAX @@[@@@@@@@@^HS )@@G@@@@@@@@@@@@@@C@@@@@@#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HU )@@G@@)@M@I@S@@@@@)@E[A@S@@()]#@@@@ @@@@@S@@]@@D@@@@@.@@@@@@@@@@@@^@)@@@ETPD(LHV )@@G@@@@@@@@AA@@@@)@N@I@S@@@@@)@@@3#@L#@L#@L#@KK0^@@@@A]0@@]/KF@@@C@@@@[9!)@@^HW )@@G@@R@K@@#R]0@@]______AB@@@@)@A@V#@L#@K@)@A@&@)])@@@@@@@@@@@@@@@@@#@@A^C)^@)HX )@@G@@ETPD(L[[[@@@R@K@@G9()@@^A@K@@#AC@@@@)@D[##@K(@#*[#1!C@E^@)CS]CS]@@C[-K@[HY )@@G@@ @@@@[[[@@@@H9@@@BC [@@]@]0@@@&'0@@@C@K@@DAD@@@@)@L@V[K^@@@@)@@@I@2&[K@@HZ )@@G@@)@O@MK0A@@@@@@@@@@A]0@@[R]1@@]@@@@@@/[)@@T/H)@@TH[)@@FAE@@@@)@]@I@0@@@@@IA )@@G@@)@@@I@%&@0@@)@Q@<#@OK) @@@@@@@C@-K@[/,0@@@&"0@@@C@@@@@@@]@@@[[@@@@AF@@@@IB )@@G@@)@U[F[K^[@^ #@@K0^@@@@@@G@)@@@C@-K@@[[@@@]C[I@]-C@-K@[/K@@@@/D@@@Y/[@@@XIC )@@G@@C[I@]2AG@@@@)@<[F#@@@K0@^ #@K@@@@@@@"[@@@["H@@@NC[@@@L[[K@@@"PI@@@C.@@]VID )@@G@@G@)@@KT9@@@AC[@@@]AH@@@@)@?[F#@L[K0^K0@@^@@@@@@@/[)@@.H9)[9-C[,@@@G@)@@MIE )@@G@@T9)@@AC[)@@]G@)@@@C@)@@B[[@@@[AI@@@@)@5[F[K0^K0@@K0@K^@@@@@@/K@@@@/K@@@-IF )@@G@@[[@@@]C[I@@@G@)@@KT9@@@AC[@@@]G@)@@@C@)@@BAJ@@@@)@@@I[K@@@@@)@@[A@S@@@@@IG )@@G@@ SUMQ S@@@@@ 11R2C FTN PK@@@O@@@@[PAK@@@@)@C@Q@S@@@@@IH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@H*[ AL@@@@II )@@G@@@@^@@G@@K@@A@@W@@[@@)@@]@@E@@#^@@@@"@@@@ '@@@@@O@@@@@E@@@@@[@@@@@#)@@@@@IJ )@@G@@)@@@@@)@@@@@@@@@@[)@@@@@IBJ$ BDICALL$ BDIREF$ SUMQ IK )@@G@@ARGC1$ ERROR SUMQ @@[@@@@@@@@ @@@@@@@@@@@@^@@^@@@]@@@@IL )@@G@@@@@@@@@@@@@@C@@@@@@#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C @##@@@@@@@@@@@@@@@@@@IM )@@G@@@CB@[C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@)@M@I@S@@@@@)@E[A@S@@()]IN )@@G@@#@@@@A@@@@@W@@]@@F@@@@[[@@@@@@@@@@@@EC)@@@E[MD9^@@@@@@AA@@@@)@N@I@S@@@@@IO )@@G@@)@@@3#@L#@L#@L#@L#@K@@@@/KF@@@C@@@@[9,@@@A9!)@@^R@K@@#R]0@@]______AB@@@@IP )@@G@@)@A@:#@L#@L#@L#@K@)@C@Y@)@@@@@EC-^@)E[MD9^[[[@@@R@K@@G9%@@@A9()@@^A@K@@#IQ )@@G@@A]0@@]AC@@@@)@F@I@+)@@@@)@F@:#@K(@#*[#1!C@E^@)@@@@@@@@H9@@@BC [@@]@]0@@@IR )@@G@@&'0@@@C@K@@F@@#@@CAD@@@@)@K@;#@L#@(#@KKO[@@@@@@@@@@@@@@@@@@@/]@@@W/I@@@WIS )@@G@@H]@@@FC][K@[[[)@@[C[)@@@[[@@@@AE@@@@)@@@I@2&[K@@)@R@MK0A@@@@)@]@I@0@@@@@IT )@@G@@)@@@I@%&@0@@@@]@@@[[@@@@A]0@@[R]1@@]@@@@@[AF@@@@)@T[F#@OK) ^ @K^G[^@@@@@IU )@@G@@/K@@@@ @@@@[/D@@@+/[@@@)C[I@]2C@-K@[/,0@@@&"0@@@C@@@@@AG@@@@)@+[MKOG@[#@IV )@@G@@L#@@@@"PI@@@C.@@]VG@)@@KT9@@@AC[@@@]G@)@@@C@-K@@[[@@@]C[I@]-C@-K@[AH@@@@IW )@@G@@)@?[F#@@KOG[^G[^ #@L#@@@T9)@@AC[)@@]G@)@@@C@)@@B[[@@@["[@@@["H@@@NC[@@@LIX )@@G@@[[K@@@AI@@@@)@5[M[@KOG[^G@@@@@C[I@@@G@)@@KT9@@@AC[@@@]G@)@@@C@)@@B/[)@[[IY )@@G@@H9)[9-C[,@@@G@)@@MAJ@@@@)@_@V#@[@K@@)@@@Q[K@@@@@)@@@Q@S@@@@@FTN PK@@@OIZ )@@G@@@@@@[OKG@@@@/K@@@@/K@@@>[[@@@]AK@@@@)@][A@S@@@@@@@@@@@@@@@@@@@@@@@@@@H*[JA )@@G@@ PRODQ S@@@@@ 11R2C AL@@@@@@^@@G@@K@@A@@W@@[@@)@@]JB )@@G@@@@E@@#^@@@[]@@@@ '@@@@@O@@@@@G@@@@@[@@@@@#)@@@@@)@@@@@)@@@@@@@@@@])@@@@@JC )@@G@@IBJ$ BDICALL$ BDIREF$ PRODQ ARGC1$ ERROR JD )@@G@@PRODQ @@[@@@@@@@@A@@@@@@@@@@@@^@@^@@@]@@@@@@@@@@@@@@@@C@@@@@@#@@@@JE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@C @##@@@@@@@@@@@@@@@@@@@CB@[C@@@@@@@@@@@@@@@@@@JF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@*[S@@@*SDFF*@ @@@@ SUBROUTINE DATAN(NSET) JG )@@G@@@[@@@@C @[@@@@C @[@@@@C @ @@@@ DIMENSION NSET(6,1) JH )@@G@@@F@@@@ COMMON ID,IM,INIT,JEVNT,JMNIT,MFA,MSTOP,MX,MXC,NCLCT,NHIST, JI )@@G@@@F@@@@ 1NOQ,NORPT,NOT,NPRMS,NRUN,NRUNS,NSTAT,OUT,SCALE,ISEED,TNOW, JJ )@@G@@@B@@@@ 2TBEG,TFIN,MXX,NPRNT,NCRDR,NEP,VNQ(4)@G@@@@ COMMON ATRIJK )@@G@@B(4),ENQ(4),INN(4),JCELS(5,22),KRANK(4),MAXNQ(4),M @G@@@@ 1FE(4),JL )@@G@@MLC(4),MLE(4),NCELS(5),NQ(4),PARAM(20,4),QTIME(4),SSUMA @E@@@@ 2JM )@@G@@(10,5),SUMA(10,5),NAME(6),NPROJ,MON,NDAY,NYR,JCLR @^@@@@ IF (NOJN )@@G@@T) 23,1,2 @[@@@@C @F@@@@C*****NEP IS A CONTROL VARIABLE FOR DETERMJO )@@G@@ING THE STARTING CARD @G@@@@C*****TYPE FOR MULTIPLE RUN PROBLEMS. THEJP )@@G@@ VALUE OF NEP SPECIFIES THE @ @@@@C*****STARTING CARD TYPE. @[@@@@JQ )@@G@@C @]@@@@ 2 NT=NEP@C@@@@ GO TO (1,5,6,41,42,8,43,299,15,20),NJR )@@G@@T @ @@@@ 23 CALL ERROR (95,NSET) @#@@@@ 1 NOT = 1 @#@@@@JS )@@G@@ NRUN = 1 @[@@@@C @^@@@@C*****DATA CARD TYPE ONE@[@@@@C JT )@@G@@@D@@@@ READ (NCRDR,101) NAME,NPROJ,MON,NDAY,NYR,NRUNS @A@@@@ 101 JU )@@G@@FORMAT (6A2,I4,I2,I2,I4,I4) @^@@@@ IF (NRUNS) 30,30,5@]@@@@ 30 JV )@@G@@STOP @[@@@@C @^@@@@C*****DATA CARD TYPE TWO@[@@@@C @F@@@@ 5 JW )@@G@@READ (NCRDR,803) NPRMS,NHIST,NCLCT,NSTAT,ID,IM,NOQ,MXC,SCALE@^@@@@803 JX )@@G@@FORMAT (8I5,F10.2)@^@@@@ IF (NHIST) 41,41,6@[@@@@C @G@@@@C*****JY )@@G@@SPECIFY NUMBER OF CELLS IN HISTOGRAMS NOT INCLUDING END CELLS @[@@@@JZ )@@G@@C @C@@@@ 6 READ (NCRDR,103) (NCELS(I),I=1,NHIST) @^@@@@ 103 KA )@@G@@FORMAT (10I5) @[@@@@C @ @@@@C*****DATA CARD TYPE FOUR @A@@@@KB )@@G@@C*****SPECIFY KRANK=RANKING ROW @[@@@@C @B@@@@ 41 READ (NCRDR,KC )@@G@@103) (KRANK(I),I=1,NOQ) @[@@@@C @ @@@@C*****DATA CARD TYPE FIVE KD )@@G@@@B@@@@C*****SPECIFY INN=1 FOR LVF, INN=2 FOR HVF@[@@@@C @B@@@@ 42 KE )@@G@@READ (NCRDR,103) (INN(I),I=1,NOQ) @^@@@@ IF (NPRMS) 23,43,8@^@@@@KF )@@G@@ 8 DO 9 I=1,NPRMS @[@@@@C @G@@@@C*****DATA CARD TYPE SIX IS USKG )@@G@@ED ONLY IF NPRUS IS GREATER THAN ZERO @[@@@@C @B@@@@ READ (KH )@@G@@NCRDR,106) (PARAM(I,J),J=1,4) @^@@@@ 106 FORMAT (4F10.4) @#@@@@ 9 KI )@@G@@CONTINUE @[@@@@C @G@@@@C*****DATA CARD TYPE SEVEN. THE NEP VALUEKJ )@@G@@ IS FOR THE NEXT RUN. SET @E@@@@C*****JSEED GREATER THAN ZERO TO SETKK )@@G@@ TNOW EQUAL TO TBEG. @[@@@@C @E@@@@ 43 READ (NCRDR,104) MSTOP,JKL )@@G@@CLR,NORPT,NEP,TBEG,TFIN,JSEED @ @@@@104 FORMAT (4I5,2F10.3,I4) @ @@@@KM )@@G@@ IF (JSEED) 27,26,27 @#@@@@ 27 ISEED=JSEED @ @@@@ CALL DKN )@@G@@RAND (ISEED,RNUM) @#@@@@ TNOW=TBEG @^@@@@ DO 142 J=1,NOQ KO )@@G@@@^@@@@ 142 QTIME(J)=TNOW @#@@@@ 26 JMNIT=0 @[@@@@C @^@@@@KP )@@G@@C*****INITIALIZE NSET @A@@@@C*****SPECIFY INPUTS FOR NEXT RUN @ @@@@KQ )@@G@@C*****READ IN INITIAL EVENTS @[@@@@C @^@@@@ 299 DO 300 JS=1,ID KR )@@G@@@[@@@@C @^@@@@C*****DATA CARD TYPE 8 @G@@@@C*****INITIALIZE NSET BYKS )@@G@@ JQ EQUAL TO A NEGATIVE VALUE ON FIRST EVENT @]@@@@C*****CARD @G@@@@KT )@@G@@C*****READ IN INITIAL EVENTS. END INITIAL EVENTS AND ENTITIES WITH JQ KU )@@G@@@^@@@@C*****EQUAL TO ZERO @[@@@@C @C@@@@ READ (NCRDR,1110) KV )@@G@@JQ,(ATRIB(JK),JK=1,IM) @ @@@@ 1110 FORMAT (I10,(7F10.4)) @^@@@@ KW )@@G@@IF (JQ) 44,15,320 @]@@@@ 44 INIT=1@^@@@@ CALL SET(1,NSET) @#@@@@KX )@@G@@ GO TO 300 @ @@@@ 320 CALL FILEM (JQ,NSET) @#@@@@ 300 CONTINKY )@@G@@UE @[@@@@C @E@@@@C*****JCLR BE POSITIVE FOR INITIALIZATION OF STOKZ )@@G@@RAGE ARRAYS.@[@@@@C @^@@@@ 15 IF (JCLR) 20,20,10@ @@@@ 10 IF (NCLA )@@G@@LCT) 23,110,116 @^@@@@ 116 DO 18 I=1,NCLCT @#@@@@ DO 17 J=1,3 LB )@@G@@@#@@@@ 17 SUMA(I,J)=0.@^@@@@ SUMA(I,4)=1.0E20 @^@@@@ 18 SUMA(ILC )@@G@@,5)=-1.0E20 @ @@@@ 110 IF (NSTAT) 23,111,117 @^@@@@ 117 DO 360 I=1,NLD )@@G@@STAT @^@@@@ SSUMA(I,1)=TNOW @#@@@@ DO 370 J=2,3@^@@@@ 370 LE )@@G@@SSUMA(I,J)=0.0 @^@@@@ SSUMA(I,4)=1.0E20 @^@@@@ 360 SSUMA(I,5)=-LF )@@G@@1.0E20@ @@@@ 111 IF (NHIST) 23,20,118 @^@@@@ 118 DO 380 K=1,NHIST LG )@@G@@@^@@@@ DO 380 L=1,MXC @#@@@@ 380 JCELS(K,L)=0@[@@@@C @D@@@@LH )@@G@@C*****PRINT OUT PROGRAM IDENTIFICATION INFORMATION. @[@@@@C @D@@@@LI )@@G@@ 20 WRITE (NPRNT,102) NPROJ,NAME,MON,NDAY,NYR,NRUN @F@@@@ 102 FORMATLJ )@@G@@ (1H1,29X,22HSIMULATION PROJECT NO.,I4,2X,2HBY,2X, @F@@@@ 1 6A2//LK )@@G@@,30X,4HDATE,I3,1H/,I3,1H/,I5,12X,10HRUN NUMBER,I5//) @[@@@@C @B@@@@LL )@@G@@C*****PRINT PARAMETER VALUES AND SCALE @[@@@@C @ @@@@ IF (NPLM )@@G@@RMS) 60,60,62 @^@@@@ 62 DO 64 I=1,NPRMS @C@@@@ 64 WRITE (NPRNTLN )@@G@@,107) I,(PARAM(I,J),J=1,4) @C@@@@ 107 FORMAT (20X,14H PARAMETER NO.,LO )@@G@@I5,4F12.4) @ @@@@ 60 WRITE (NPRNT,1107) SCALE@A@[@@ 1107 FORMAT (//47LP )@@G@@X,8H SCALE =F10.4)@B@@@[ 1107 FORMAT (//47X,8H SCALE =,F10.4) @]@@@@LQ )@@G@@ RETURN@]@@@@ END _@@@@@@[@@@@CS)^@)@A@@@@^@)^@1A*)DDA^@*DL#LR )@@G@@D-M C)AK0 )2A@?AC0@B@@@@^@)^@1A@)DDA^@*D1#D-#E)(^@2AS?AC1A@?AC1A0)@A@@@@LS )@@G@@^@)AC1A0)C-J^@1B@)DC.AC?D1#D-#E))^@)@ @@@@^@)^@)*[S@@@*SDFF*@ @@@@ LT )@@G@@SUBROUTINE SUMRY(NSET) @[@@@@C @[@@@@C @[@@@@C @ @@@@ LU )@@G@@DIMENSION NSET(6,1) @F@@@@ COMMON ID,IM,INIT,JEVNT,JMNIT,MFA,MSLV )@@G@@TOP,MX,MXC,NCLCT,NHIST, @F@@@@ 1NOQ,NORPT,NOT,NPRMS,NRUN,NRUNS,NSTATLW )@@G@@,OUT,SCALE,ISEED,TNOW, @B@@@@ 2TBEG,TFIN,MXX,NPRNT,NCRDR,NEP,VNQ(4)LX )@@G@@@G@@@@ COMMON ATRIB(4),ENQ(4),INN(4),JCELS(5,22),KRANK(4),MAXNQ(4)LY )@@G@@,M @G@@@@ 1FE(4),MLC(4),MLE(4),NCELS(5),NQ(4),PARAM(20,4),QTIME(4LZ )@@G@@),SSUMA @E@@@@ 2(10,5),SUMA(10,5),NAME(6),NPROJ,MON,NDAY,NYR,JCLMA )@@G@@R @^@@@@ WRITE (NPRNT,21) @D@@@@ 21 FORMAT (1H1,39X,23H**GASMB )@@G@@P SUMMARY REPORT**/) @D@@@@ WRITE (NPRNT,102) NPROJ,NAME,MON,NDAMC )@@G@@Y,NYR,NRUN @E@@@@ 102 FORMAT (30X,22HSIMULATION PROJECT NO.,I4,2X,2HBYMD )@@G@@,2X, @F@@@@ 1 6A2//,30X,4HDATE,I3,1H/,I3,1H/,I5,12X,10HRUN NUMBER,IME )@@G@@5/) @ @@@@ IF (NPRMS) 147,147,146 @^@@@@ 146 DO 64 I=1,NPRMS MF )@@G@@@C@@@@ 64 WRITE (NPRNT,107) I,(PARAM(I,J),J=1,4) @C@@@@ 107 FORMATMG )@@G@@ (20X,14H PARAMETER NO.,I5,4F12.4) @^@@@@ 147 IF (NCLCT) 5,60,66@^@@@@MH )@@G@@ 5 WRITE (NPRNT,199) @D@[@@ 199 FORMAT (///36X26HERROR EXIT, TYPE 98MI )@@G@@ ERROR. ) @D@@@[ 199 FORMAT (///36X,26HERROR EXIT, TYPE 98 ERROR. ) MJ )@@G@@@]@@@@ STOP @^@@@@ 66 WRITE (NPRNT,23) @G@@@@ 23 FORMAT (//44MK )@@G@@X,18H**GENERATED DATA** /27X,4HCODE,4X,4HMEAN,6X,8HSTD@C@@@@ 1.DEV.,ML )@@G@@5X,4HMIN.,7X,4HMAX.,5X,4HOBS./) @[@@@@C @D@@@@C*****COMPUTE AND MM )@@G@@PRINT STATISTICS GATHERED BY CLCT @[@@@@C @^@@@@ DO 2 I=1,NCLMN )@@G@@CT @ @@@@ IF (SUMA(I,3)) 5,62,61 @^@@@@ 62 WRITE (NPRNT,63) IMO )@@G@@@C@[@@ 63 FORMAT (27X,I3,10X18HNO VALUES RECORDED ) @C@@@[ 63 FORMATMP )@@G@@ (27X,I3,10X,18HNO VALUES RECORDED )@#@@@@ GO TO 2 @#@@@@ 61 MQ )@@G@@XS=SUMA(I,1)@^@@@@ XSS=SUMA(I,2) @#@@@@ XN=SUMA(I,3)@#@@@@MR )@@G@@ AVG=XS/XN @D@@@@ STD=(((XN*XSS)-(XS*XS))/(XN*(XN-1.0)))**0.MS )@@G@@5 @]@@@@ N=XN @D@@@@ WRITE (NPRNT,24) I,AVG,STD,SUMA(I,4)MT )@@G@@,SUMA(I,5),N@A@@@@ 24 FORMAT (27X,I3,4F11.4,I7) @#@@@@ 2 CONTINMU )@@G@@UE @^@@@@ 60 IF (NSTAT) 5,67,4 @^@@@@ 4 WRITE (NPRNT,29) @G@@@@MV )@@G@@ 29 FORMAT ( /44X,23H**TIME GENERATED DATA** /27X,4HCODE,4X,4HMEAN,6X,MW )@@G@@@E@@@@ 18HSTD.DEV.,5X,4HMIN.,7X,4HMAX.,3X,10HTOTAL TIME/) @[@@@@MX )@@G@@C @D@@@@C*****COMPUTE AND PRINT STATISTICS GATHERED BY TMST @[@@@@MY )@@G@@C @^@@@@ DO 6 I=1,NSTAT @ @@@@ IF (SSUMA (I,1)) 5,71,72MZ )@@G@@@^@@@@ 71 WRITE (NPRNT,63) I@#@@@@ GO TO 6 @^@@@@ 72 XT=SSUNA )@@G@@MA(I,1) @^@@@@ XS=SSUMA(I,2) @^@@@@ XSS=SSUMA(I,3) NB )@@G@@@#@@@@ AVG=XS/XT @A@@@@ STD=(XSS/XT-AVG*AVG)**0.5 @E@@@@NC )@@G@@ WRITE (NPRNT,30) I,AVG,STD,SSUMA(I,4),SSUMA(I,5),XT @ @@@@ 30 ND )@@G@@FORMAT (27X,I3,5F11.4) @#@@@@ 6 CONTINUE @^@@@@ 67 IF (NHIST) 5NE )@@G@@,75,9 @^@@@@ 9 WRITE (NPRNT,25) @G@@@@ 25 FORMAT (/37X,37H**GENERANF )@@G@@TED FREQUENCY DISTRIBUTIONS** /27X,4HCODE @ @@@@ 1,20X,10HHISTOGRAMSNG )@@G@@) @[@@@@C @^@@@@C*****PRINT HISTOGRAMS @[@@@@C @^@@@@ NH )@@G@@DO 12 I=1,NHIST @^@@@@ NCL=NCELS(I)+2 @C@@@@ 12 WRITE (NPRNTNI )@@G@@,26) I,(JCELS(I,J),J=1,NCL) @B@@@@ 26 FORMAT (/27X,I3,5X,11I4/(35X,1NJ )@@G@@1I4)) @[@@@@C @B@@@@C*****PRINT FILES AND FILE STATISTICS @[@@@@NK )@@G@@C @^@@@@ 75 DO 15 I=1,NOQ @ @@@@ 15 CALL PRNTQ (I,NSET) NL )@@G@@@]@@@@ RETURN@]@@@@ END _@@@@@C @^@@@@C*****PRINT HISTOGNM )@@G@@RAMS @[@@@@C @^@@@@ DO 12 I=1,NHIST @^@@@@ NCL=NCELS(I)NN )@@G@@+2 @C@@@@ 12 WRITE *[S@@@*SDFF*@ @@@@ SUBROUTINE MONTR(NSET) NO )@@G@@@[@@@@C @[@@@@C @[@@@@C @ @@@@ DIMENSION NSET(6,1) NP )@@G@@@F@@@@ COMMON ID,IM,INIT,JEVNT,JMNIT,MFA,MSTOP,MX,MXC,NCLCT,NHIST, NQ )@@G@@@F@@@@ 1NOQ,NORPT,NOT,NPRMS,NRUN,NRUNS,NSTAT,OUT,SCALE,ISEED,TNOW, NR )@@G@@@B@@@@ 2TBEG,TFIN,MXX,NPRNT,NCRDR,NEP,VNQ(4)@G@@@@ COMMON ATRINS )@@G@@B(4),ENQ(4),INN(4),JCELS(5,22),KRANK(4),MAXNQ(4),M @G@@@@ 1FE(4),NT )@@G@@MLC(4),MLE(4),NCELS(5),NQ(4),PARAM(20,4),QTIME(4),SSUMA @E@@@@ 2NU )@@G@@(10,5),SUMA(10,5),NAME(6),NPROJ,MON,NDAY,NYR,JCLR @[@@@@C @A@@@@NV )@@G@@C*****IF JEVNT .GE. 101, PRINT NSET @[@@@@C @ @@@@ IF (JEVNT-10NW )@@G@@1) 9,7,9 @ @@@@ 7 WRITE (NPRNT,100) TNOW @^@@@@ DO 1000 I=1,NX )@@G@@ID @F@[@@ 100 FORMAT (1H1,10X31H**GASP JOB STORAGE AREA DUMP AT,F10.NY )@@G@@4, @F@@@[ 100 FORMAT (1H1,10X,31H**GASP JOB STORAGE AREA DUMP AT,F10NZ )@@G@@.4, @ @@@@ 1 2X,12HTIME UNITS**//) @C@@@@ 1000 WRITE (NPRNT,101) OA )@@G@@I,(NSET(J,I),J=1,MXX) @^@@@@ 101 FORMAT (I5,12I9) @]@@@@ RETURNOB )@@G@@@^@@@@ 9 IF (MFE(1)) 3,6,1 @[@@@@C @G@@@@C*****IF JMNIT =1, PRINTOC )@@G@@ TNOW, CURRENT EVENT CODE, AND ALL ATTRIBUTES OF@^@@@@C*****THE NEXT EVEOD )@@G@@NT @[@@@@C @ @@@@ 1 IF (JMNIT - 1) 5,4,3 @^@@@@ 3 WRITE OE )@@G@@(NPRNT,199) @D@[@@ 199 FORMAT (///36X26H ERROR EXIT,TYPE 99 ERROR.) OF )@@G@@@D@@@[ 199 FORMAT (///36X,26H ERROR EXIT,TYPE 99 ERROR.) @]@@@@ OG )@@G@@STOP @#@@@@ 4 MMFE=MFE(1) @E@@@@ WRITE (NPRNT,103) TNOW,ATRIB(2OH )@@G@@),(NSET(I,MMFE),I=1,MXX)@G@[@@ 103 FORMAT (/10X23HCURRENT EVENT....TIMEOI )@@G@@ =,F8.2,5X7HEVENT =,F7.2, @G@@@[ 103 FORMAT (/10X,23HCURRENT EVENT.OJ )@@G@@...TIME =,F8.2,5X,7HEVENT =,F7.2, @C@@@@ 1/10X,17HNEXT EVENT......OK )@@G@@./(10X,12I9)//) @]@@@@ 5 RETURN@ @@@@ 6 WRITE (NPRNT,104) TNOW OL )@@G@@@C@@@@ 104 FORMAT (10X,19H FILE 1 IS EMPTY AT,F10.2) @#@@@@ GO TO OM )@@G@@5 @]@@@@ END _@@@@@WRITE (NPRNT,104) TNOW @C@@@@ 104 FORMATON )@@G@@*[S@@@*SDFF*@A@@@@ SUBROUTINE ERROR (J,NSET) @[@@@@C @[@@@@OO )@@G@@C @[@@@@C @ @@@@ DIMENSION NSET(6,1) @F@@@@ COMMONOP )@@G@@ ID,IM,INIT,JEVNT,JMNIT,MFA,MSTOP,MX,MXC,NCLCT,NHIST, @F@@@@ 1NOQ,NOOQ )@@G@@RPT,NOT,NPRMS,NRUN,NRUNS,NSTAT,OUT,SCALE,ISEED,TNOW, @B@@@@ 2TBEG,TOR )@@G@@FIN,MXX,NPRNT,NCRDR,NEP,VNQ(4)@G@@@@ COMMON ATRIB(4),ENQ(4),INN(4)OS )@@G@@,JCELS(5,22),KRANK(4),MAXNQ(4),M @G@@@@ 1FE(4),MLC(4),MLE(4),NCELOT )@@G@@S(5),NQ(4),PARAM(20,4),QTIME(4),SSUMA @E@@@@ 2(10,5),SUMA(10,5),OU )@@G@@NAME(6),NPROJ,MON,NDAY,NYR,JCLR @ @@@@ WRITE (NPRNT,100) J OV )@@G@@@#@@@@ JEVNT=101 @[@@@@C @ @@@@C*****PRINT FILING ARRAY NSET OW )@@G@@@[@@@@C @^@@@@ CALL MONTR(NSET) @^@@@@ WRITE (NPRNT,101) OX )@@G@@@[@@@@C @ @@@@C*****PRINT NEXT EVENT FILE @[@@@@C @^@@@@ OY )@@G@@CALL PRNTQ(1,NSET)@[@@@@C @B@@@@C*****PRINT SUMMARY REPORT UP TO PREOZ )@@G@@SENT @[@@@@C @^@@@@ CALL SUMRY(NSET) @D@[@@ 100 FORMAT (///3PA )@@G@@6X16HERROR EXIT, TYPE,I3,7H ERROR.) @D@@@[ 100 FORMAT (///36X,16HERROR PB )@@G@@EXIT, TYPE,I3,7H ERROR.)@C@[@@ 101 FORMAT (1H1,41X16HSCHEDULED EVENTS//PC )@@G@@) @C@@@[ 101 FORMAT (1H1,41X,16HSCHEDULED EVENTS//) @ @@@@ PD )@@G@@IF (JEVNT-101) 5,6,5 @]@@@@ 5 RETURN@]@@@@ 6 STOP @]@@@@ PE )@@G@@ END _@@@@@SUBROUTINE RANDU (IY,YFL) @]@@@@ JKL=1 @^@@@@ PF )@@G@@IY=IY*25214903917 @^@@@@ IF (IY) 5,6,6 *[S@@@*SDFF*@^@@@@ PG )@@G@@FUNCTION ERLNG (J)@[@@@@C @[@@@@C @[@@@@C @F@@@@ COMMONPH )@@G@@ ID,IM,INIT,JEVNT,JMNIT,MFA,MSTOP,MX,MXC,NCLCT,NHIST, @F@@@@ 1NOQ,NOPI )@@G@@RPT,NOT,NPRMS,NRUN,NRUNS,NSTAT,OUT,SCALE,ISEED,TNOW, @B@@@@ 2TBEG,TPJ )@@G@@FIN,MXX,NPRNT,NCRDR,NEP,VNQ(4)@G@@@@ COMMON ATRIB(4),ENQ(4),INN(4)PK )@@G@@,JCELS(5,22),KRANK(4),MAXNQ(4),M @G@@@@ 1FE(4),MLC(4),MLE(4),NCELPL )@@G@@S(5),NQ(4),PARAM(20,4),QTIME(4),SSUMA @E@@@@ 2(10,5),SUMA(10,5),PM )@@G@@NAME(6),NPROJ,MON,NDAY,NYR,JCLR @^@@@@ K=PARAM (J,4) @^@@@@PN )@@G@@ IF (K-1) 8,10,10 @ @@@@ 8 WRITE (NPRNT,20) J @B@[@@ 20 PO )@@G@@FORMAT (/17H K = 0 FOR ERLNG,I7) @B@@@[ 20 FORMAT (/17H K = 0 FOR EPP )@@G@@RLNG ,I7) @#@@@@ CALL EXIT @]@@@@ 10 R=1 @#@@@@ DO 2 IPQ )@@G@@=1,K @ @@@@ CALL DRAND (ISEED,RNUM) @#@@@@ 2 R=R*RNUM @A@@@@PR )@@G@@ ERLNG=-PARAM(J,1)*ALOG(R) @A@@@@ IF (ERLNG-PARAM(J,2)) 7,PS )@@G@@5,6 @^@@@@ 7 ERLNG = PARAM(J,2)@]@@@@ 5 RETURN@A@@@@ 6 IF (ERPT )@@G@@LNG-PARAM(J,3)) 5,5,4 @ @@@@ 4 ERLNG = PARAM (J,3) @]@@@@ PU )@@G@@RETURN@]@@@@ END _@@@@@ISEED,RNUM) @#@@@@ 2 R=R*RNUM @A@@@@PV )@@G@@ ERLNG=-PARAM(J,1)*ALOG(R) @A@@@@ IF (ERLNG-PARAM(J,2)) 7,PW )@@G@@)@M@I@S@@@@@)@L[A@)@@@@@@?@@0E@C#[@D]SC@]")@D@=@@O@[C^[C])@D@KD@=@@C#@0FPX )@@G@@@@@@@@AA@@@@)@T[Y@)@@@@@@K[@SB@CD[O@@=@]S^@0E@SD@?@@S]@C#@)D[K^]SE@C#@)APY )@@G@@@?@]SE@C#[KD@KN)@DAB@@@@)@=[Y@)@@@@@)@I@KKD8,[C^CTO^[IELJDL D9I^[KD-[E-DPZ )@@G@@ETDD(P[0X]@Q@CK@C1]W@]S^@0E@)LAC@@@@)@\[Y@)@@@@@D0)D1P]@EELP@?@[0G]@[ 8DQA )@@G@@ 8D@W@@W@]@[CDOC*D#0K@-^@KM]KI@K#@0F@L]FCIAD@@@@)@'[Y@)@@@@@@CM]KI@0G@)NQB )@@G@@@?@@S^D1J 0DE- EK)EL[D( [0)E[[@CI])K]KN@@@[C )@MD(]C(MAE@@@@)[ @&@)@@@@@QC )@@G@@)@E@,@S@@@@@@@@@#$@@@@@@@@@@@@D0)@@@C-[E-[[K^]SDC*)B*AET#CDG 8K[@)AF@@@@QD )@@G@@)@J@Y@SES@)@)@N@I@S@@@@@)@@@N#@L#@K@@@@@@@R@K@[ER]0@[D______]@@@@B@@@@]]QE )@@G@@@@L@^-AG@@@@)@][##@L#@L#@L#@KK0^K0^K0^@@@@A@)@[FA@K@[EA]0@[D/KF@@@N[K@[JQF )@@G@@N[@@[I9!)@[GR@)@[FAH@@@@)@E@:#@L#@L#@KK0^@)[L@Y@)@@@@@D0-^@)C-[E-[[@@@@@QG )@@G@@[@K@[KC@W@@@^[K@[J^[@@[I9()@[GAI@@@@)[O@I@+)@@@@)@J@:#@K(@#*[#1!C@E^@+A@QH )@@G@@)@@@@@H9@@@BC @@[K@]0@@@&'0@@@C@K@[O@@[@[LAJ@@@@)@O[F#@L[K^[[K0@K0@^@@@@QI )@@G@@/C,@@X?8)@@FC@)@@D[[@@@DC[@@@V/H)@@*/[)@@!C[)@@H[[@@@@AK@@@@)@X[F@K^[@K^QJ )@@G@@[@K^@@@@@@@@/K@@[:/K@@[P/K@@[E/K@@[^/K@@[[/K@@@"/K@@@8/K@@@!/K@@@*AL@@@@QK )@@G@@)@&@N@K@@@@@)@@@I@2&[K@@)@*@N#@L#@S@@@@@@@@@@@@@A]0@@[R]0@[K@@@@@@/K@@#NQL )@@G@@/K@@]DAM@@@@)@]@I@0@@@@@)@@@I@%&@0@@)@%@<#@OK) @@@@@@@C9@@@[/,0@@@&"0@@@QM )@@G@@C@@@@@@@]@@@[[@@@@AN@@@@)@,@N[KK@@@@)[P@6@++ @EC@@@@@@[@^@@A@@@@ \@@@@@@QN )@@G@@@@@@@L][[@@@@@@@@U[[@@@J[[@@@HAO@@@@)[V[Q@++ ^ECOK*)@@[@^@@@@@@@@K[@^@@@QO )@@G@@@@@@ 8[@^@@@@@@@ 7[@^@@@@@@@ 6[@^@@@@@@@ 5AP@@@@)[>@I@+=@0@@)@0@:#@K(@#*QP )@@G@@[31!C@E^@'])@@@@@@/[@@@6C[@@@K@]0@@@&"0@@@Q;@@[P/,0@@@AQ@@@@)@5@V@^C]@@@QQ )@@G@@)[&@6@++ @EC[@^@@@@@@@@I@@@@@@@@@@@R][[@@@@@@@@U/,0@@@Q_@@@@/D@@@8AR@@@@QR )@@G@@)[?[Q@++ ^ECOK*)@@[@^@@@@@@@@[[@^@@@@@@@@@[@^@@@@@@@@L[@^@@@@@@@@D[@^@@@QS )@@G@@@@@@@EAS@@@@)[6@"@++ ^ECO)A@@@)@8@F#@K@@@@Q;@@[&/,0@@@]@^@@@@@@@@N[@^@@@QT )@@G@@@@@@@C[@^@@@@@@@@FAT@@@@)@9@%(@#*[31!C@E^@'])C@@)[.@Q@++@@@@][[@@@@@@@@UQU )@@G@@/[@@[[/H@@[[C[@@@E@]0@@@&"0@@@AU@@@@)[_[I@+)]A@]])CE@O)[4[C@&'0@@@A]0@]DQV )@@G@@R'1@]!/K@@]HN[@@@EA@K@@@R8K@@[@@@@@@@@@@@UAV@@@@)]C@I@<1!C@E^[C@@@)]E@,@QW )@@G@@)K0@K]=@I)A@@@@@@@&'0@@@8L@@] A@K@@@O8K@@[[@^@@@@]0@@@AW@@@@)]J@I@<1!C@EQX )@@G@@^@0@@@)@"@V#@K(@#*[31!C@E^@8@@@@@@@@@@@@@@@]0@@@&"0@@@Q;@@[.@]0@@@AX@@@@QY )@@G@@)]K[I@++ @^G@^ @KK@@@@@@R'1@]T/K@@])N[@@@FA@K@@@R8K@@[@@@@@@@@@@@U][[@@@QZ )@@G@@@@@@@UAY@@@@)]T@Y@=@(@#*]N1!C@E^[C@@)]X@&@)K0@K@8L@@]SA@K@@@O8K@@[[@^@@@RA )@@G@@@]0@@@&'0@@@A]0@]WAZ@@@@)]-@Q@+=@I)AJA4)@*K#@@@@)[[@V#@K(@#*[31!C@E^@8@@RB )@@G@@@]0@@@&"0@@@Q;@@]K@]0@@@&'0@@@BA@@@@)]<[I@++ @^G@^ @KK@@@@@@R'1@@$/K@@]3RC )@@G@@N[@@@FA@K@@@R8K@@[@@@@@@@@@@@U][[@@@@@@@@UBB@@@@)]?@Y@=@(@#*]N1!C@E^[C@@RD )@@G@@)]0@&@)K0@K@8L@@]:A@K@@@O8K@@[[@^@@@@]0@@@&'0@@@A]0@]\BC@@@@)]4@Q@+=@I)ARE )@@G@@JA4)@*K#@@@@)[^@V#@K(@#*[31!C@E^@8@@@]0@@@&"0@@@Q;@@]<@]0@@@&'0@@@BD@@@@RF )@@G@@)[B@;[K^@K0@KO@@@@)]6@I@++@@@@@@@@@U/K@@[ON[@@@IA@K@@@R8K@@[/H@@@*/[@@[PRG )@@G@@C[@@@IBE@@@@)]7[I@)*@-)@CS@]A@@@@@@@G@)@@@T8)@@OC@)@@[N9K@@#A@)@@[R8)@@[RH )@@G@@@@@@@@@@@@@W][[@@@BF@@@@)#@@&@= @EK@'@=/VM@]-@M@)# @Y@)K0@@@A@)@@[O8)@@[RI )@@G@@]@^@@@@]0@@@&'0@@@A]0@#^R'"@]+BG@@@@)#C@Y@=@(@#*[<1!C@E^@0@@)[I@N#@K(@#*RJ )@@G@@[0@@@@@@@@@@&"0@@@Q;@@]6@]0@@@&'0@@@8LK@].BH@@@@)[K@%/VM@]-@I-)@CS@C@@@@RK )@@G@@)#F@Q@++@@@@][[@@@@@@@@U8L@@[IA@K@@@O8K@@[R@K@@@@]0@@@BI@@@@)#H[Q@+) ^ECRL )@@G@@OK*)@@[@^@@@@@@@@V[@^@@@@@@@@G[@^@@@@@@@ 9[@^@@@@@@@@A@@@@@@@@@@@YBJ@@@@RM )@@G@@)#R@"@++ ^ES@[M@S@)[P@F#@K@@@@Q;@@#F/,0@@@[@^@@@@@@@@^]@^@@@@@@@@R]@^@@@RN )@@G@@@@@@@QBK@@@@)[Q@2(@#*[31!C@E^@'A@]@-)@))@@@@@@@@@@@@@@[[@@@OC[@@@^/[@@[%RO )@@G@@C[@@@^@]0@@@&"0@@@BL@@@@)@#@Y@2+O0@@)@[@I@%&@0@@)[W@V#@OK)E@/,0@@@&"0@@@RP )@@G@@C@@@@[@@]@@#[]@@@@@@@@@ @@@@@OBM@@@@)[Z[F[KL#@[[K^ [@@@@@@@@O8K@@[[[[@^ARQ )@@G@@C[@@@P/K@@[(N[@@@FA@K@@[R8K@@[[[@@@PC[@@@QBN@@@@)[*[F#@[@KL#@[[K0^K^G[@@RR )@@G@@^[@@@B/K@@]B^[@@@BN[@@@@A@K@@CR8K@@[ @@@@^8L@@[>A@K@@[BO@@@@)#Y[I@++ @ESRS )@@G@@@@-)@))@@@@@N[K@@[A@)@@AR8)@@[[@^@@@@@@@@B@@@@@@@@@@@+][[@@@@@@@@UBP@@@@RT )@@G@@)#$@,@=[[K]=@I)DJA4)@*K^)@@@@@)#!@I@)@@@@@]@^@@@@]0@@@&'0@@@A]0@#?R'2@@ZRU )@@G@@/K@@#0BQ@@@@)#,@,@-#@[@EK@'@S/VM@]-@G@@@@@)[1@F#@K@@@@Q;@@#Y@]0@@@&'0@@@RV )@@G@@8LK@#*A@)@@AO8)@@[BR@@@@)[2@'(@#*[31!C@E^@'A@]@)]]@@@@@@@@@@[[@@@]C9@@@[RW )@@G@@/D@@[_/[@@]DC[@@@B@]0@@@&"0@@@BS@@@@)@A@I@2&[K@@)[9@N#@L#@S@)@C@I@0@@@@@RX )@@G@@)@]@I@%&@0@@@@]@@A[[@@@@A]0@@BR]0@[K@@@@@[BT@@@@)[;@<#@OK)FK@@@@@@)@D@I@RY )@@G@@2&@@@@)[_@F#@K@@@@R]0@[K@@@@@B/K@@]^/,0@@@&"0@@@C@@@@]BU@@@@)]@@F#@S@@@@RZ )@@G@@)@F@I@0@@@@@)@#@I@%&@0@@)][@N#@O@@@@&"0@@@C@@@@#@@]@@D[[@@@@A]0@@EBV@@@@SA )@@G@@)]#[F]@1#@@K0@K0^K^ @K@@/[@@#N/H@@#NC[@@ 98L@@[0N[@@@BA@K@@CO8K@@[R@K@@CSB )@@G@@/,0@@@BW@@@@)]G[F[K^@K0@KO@K0@@@@@@@A@)@@[R8)@@[/K@@]#+-SXU/XY@@@@@[SW )@@G@@@@@@[ZCO@@@@)@ @,@S@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@H*[ SX )@@G@@ DATAN CP@@@@@@^@@G@@K@@H@@?@@[@@0@@]@@E@@F^@@@#*@@@@ '@@@@@OSY )@@G@@@@@@^+@@@@@^@@@@@G)@@@@@)@@@@@)@@@@@@@@@@^)@@@@@IBJ$ BDICALL$ SZ )@@G@@BDIREF$ DATAN ARGC1$ ERROR FMTE$$ F2SE$$ TA )@@G@@FSTOP$ FMTC$$ DRAND SET FILEM @@@@@@@@@@@@TB )@@G@@DATAN @@[@@@@@@@@B@@@@@@@@@@@@^@@^@@@]@@@@@@@@@@@@@@@@C@@@@@@#@@@@TC )@@G@@@@@@@@@@@@@@@@@@@@@CD@[7@@@@@@@@@@@@@CC@@=@CB@]T@@@@@@@@@@@@@@@@@@@@@@@@TD )@@G@@@@@@@@@@@@@@@CB@[C@CA@]T@CB@[S@CD@@U@CD@[F@CE@[2@CE@]#@@@@@@@@@@@@@CA@@!TE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@)@M@I@S@@@@@)@C[A@)@@@@@E)% KMC(KD9MELT^[ME(HD([TF )@@G@@ETK^[N K%C9[[0$]@R@CK@C1@@@@@@AA@@@@)@K[Y@)@@@@@[0]@SA]@]CLT@=@[0]D1J 0DTG )@@G@@C(#E))E[MD9EDDJD0)E(GCDO]1NDDH@CI#0K]S@@@@AB@@@@)@V[Y@)@@@@@EKD@?@E(HCL TH )@@G@@E(I^[I[)K[LM[C )@I)@K@C\@C\[C#[C#)@KC-[E- [0Y]@^[S]]KMAC@@@@)@&[Y@)@@@@@TI )@@G@@C(MELJ[0=]@U@CM]KM@0G@)N@?@@S^D1J 0DE- EK)EL[D( [0)E[[@CI])K]KN@@@AD@@@@TJ )@@G@@)@1[Y@)@@@@@C(^^[^C(MCDO LBC(I )K]K%@CM]KIEK,]TTC(MELJ^@9B@)E-TE[ DDO ))TK )@@G@@EK)C(SAE@@@@)@/[Y@)@@@@@D0,[0B]@^D(DE0,[0 C),C- ]@CETOCDI[0A]@^D( C- [0^TL )@@G@@]@^CTJ KM[0VCDOCC%AF@@@@)[B[Y@)@@@@@EL^C(^EL CTJE( ES)^[QCDG]@MD1J@W@[0ETM )@@G@@@CI#SDES,]KN]@^D9]F@,[0 ]@^D([AG@@@@)[M[Y@)@@@@@C(^^[^C(MCDO^[BC(IE-DD( TN )@@G@@]@R K%@CM[0?@/@]TG@0F@)D@W@@S^@CI#SD]S^CTJAH@@@@)[X[Y@)@@@@@D0,[0B]@^D(DTO )@@G@@E0,[0 C),C- ]@CETOCDI[0A]@^D( C- [0^]@^CTJ KM[0VCDOCC%AI@@@@)[*[Y@)@@@@@TP )@@G@@]@> K%@CM[0>@0F@)N@W@@S @CI#SD]KN@@@E-DD( E-[D))]@EE-JF@,[0#]@^D([AJ@@@@TQ )@@G@@)[3[Y@)@@@@@CTJC- [0V]@^ES% KME-DD9IELDCLPC-DETOD1#FC)C(LE( C))C1MEL[E- TR )@@G@@C9 D1 AK@@@@)["[Y@)@@@@@]CNFC)[SD@=@@CI^S#@=@]K]@*#[SD[C#)@I@CM[0VD(N]SBTS )@@G@@D9BEL[D[DETO[0O]@EAL@@@@)@E[A@S@@()])@N@I@S@@@@@______]@@@@D@@@@[L@@C@^3TT )@@G@@@@@@]7@@@@@@@@@@@@FC)@@@ETPD(MAM@@@@)@@[##@L#@L#@L#@L#@L#@L#@L#@K@N[K@]NTU )@@G@@N[@@]M9,)@]K9,@@]I9!)@]GR@)@]FR@K@]ER]0@]DAN@@@@)@C[]K0^K0^K0^K0^K0^K0^KTV )@@G@@0^@@@@^[@@]M9%)@]K9%@@]I9()@]GA@)@]FA@K@]EA]0@]D/KF@@@AO@@@@)@K@V#@KK0^@TW )@@G@@)]P@&@)])@@@@@@@@@@@@@@@@@[@]PFC-^@)ETPD(M[@@@@@[@K@]OC@W@@@^[K@]NAP@@@@TX )@@G@@)@N@3#@K(@#*[#1!C@E^@+A@)-)C@@@@@@@@@@@@@@[[@@@@H9@@@BC @@]O@]0@@@&'0@@@TY )@@G@@C@K@]SAQ@@@@)]T@,@++ @EK])@@@@)@T@N#@K(@#*[)@@@@&"0@@@Q;@@]T/,0@@@@@@@@@TZ )@@G@@@@@@@C#[[@@@@@@@@TAR@@@@)@V@E/VM@]-@G@@@@@)]Y@6@++ @EC@@@@@@[@^@@@@@@@ 5UA )@@G@@@@@@@@@@@@@L#[[@@@@@@@@T@]0@@@AS@@@@)]=[Q@++ ^ECOK*)@@[@^@@@@@@@@J[@^@@@UB )@@G@@@@@@ 8[@^@@@@@@@ 7[@^@@@@@@@ 6[@^@@A@@@@ \AT@@@@)],@I@+=@*@@)@W@:#@K(@#*UC )@@G@@[<1!C@E^@2])@@@@@@/H@@@!C[@@@I@]0@@@&"0@@@Q;@@]Y/,0@@@AU@@@@)@-@:@^G@^ @UD )@@G@@@@@@@@)]\@Y@++ @@@@@@@@$#[[@@@@@@@@T/K@@@?N[@@@IA@K@@[R8K@@[/[@@@!AV@@@@UE )@@G@@)]2[I@)()@]A@@-)@CS@@@@@G@)@@[T8)@@OC@)@@]N9K@@#A@)@@]R8)@@[[@^@@@@@@@@[UF )@@G@@@@@@@@AW@@@@)];@&@= @EK@'@W/VM@]-@I@)#@@Y@)K0@@@A@)@@]O8)@@[]@^@@@@]0@@@UG )@@G@@&'0@@@A]0@]_R'"@]+AX@@@@)##@Y@=@(@#*[N1!C@E^@*@@)@&@N#@K(@#*[)@@@@@@@@@@UH )@@G@@&"0@@@Q;@@]\@]0@@@&'0@@@8LK@]8AY@@@@)@*[]/VM@]-@G-)@CS@C]])C@@@@@@/D@@@5UI )@@G@@/[@@[(C[@@@D8L@@@&A@K@@[O8K@@[R@K@@[@]0@@@AZ@@@@)#A@,@++ @EK])@@@@)@0@N#UJ )@@G@@@K(@#*[)@@@@&"0@@@Q;@@#A/,0@@@@@@@@@@@@@@,#[[@@@@@@@@TBA@@@@)@2@U/VM@]-@UK )@@G@@GCK^@@)#F@&@++ @@@@@@@@@@@@@@@@@@@@7#[[@@@@@@@@T/,0@@@Q_@@@@@]0@@@BB@@@@UL )@@G@@)#J@I@+=@*@@)@5@:#@K(@#*[<1!C@E^@0-)@@@@@@A@K@@[R8K@@[@]0@@@&"0@@@Q;@@#FUM )@@G@@/,0@@@BC@@@@)@'[#[K0^K^G[^ @K^@@@@@@@@@@@@/K@@[A/H@@@0/[@@[]C[[@ K^[@@@#UN )@@G@@/K@@[$^[@@@#N[@@@DBD@@@@)#K@"@++ @ES@[M@O@)[]@F#@K@@@@Q;@@#K/,0@@@[@^@@@UO )@@G@@@@@@@[@@@@@@@@@@[F#[[@@@@@@@@TBE@@@@)[#@'(@#*[<1!C@E^@2@-)@)*S@CC@@@@@@@UP )@@G@@C[-@ A[[@@@CC[[@^/R@K@@[/K@@[=@]0@@@&"0@@@BF@@@@)[E[F#@[[K0@^G@[#@[#@@@@UQ )@@G@@" )@@Q"E)@@CC])@@C"D)@@O[[@@@B"H@@@O[]@@@AC][@ K[[)@@ BG@@@@)[N@<#@(#@@KUR )@@G@@0^@@@@)@@@Q@2&@-N@*@@@@@@@@@@@@@@@@[@@@@@[[[)@@["H)@@O"E@@@A"A@@@@BH@@@@US )@@G@@)[R@;#@S(@#*]N1!C@E^[EA@]A@]A[K@@@@@"K)@@I"@)@@]C@)@@A[@@@@^@]0@@@&"0@@@UT )@@G@@Q;@@@@BI@@@@)[Y@U^G@@@@@)#R@,@++ @ES@@@@@@@@@@@[@@@@@@@@@@[N#[[@@@@@@@@TUU )@@G@@[@0@@#;)"@@DH/)@]@BJ@@@@)#W[A@)()@ G@[#@[[K@@@@@@@@@@@A]0@#&R'1@ UR@K@@[UV )@@G@@]@^@@@@@@@@^]@^@@@@@@@@B[@^@@@BK@@@@)#=@Q@+=@I)BJA4)@*K#)@@@)#$@&@-[K]=@UW )@@G@@I)B@@@&'0@@@A]0@#?R'1@ =]@^@@@@]0@@@&'0@@@BL@@@@)#:@I@<1!C@E^@8@@@)#!@&@UX )@@G@@)()@ C[K@@@@@@@@@@@@@@@@/,0@@@[@^@@@@@@@@#]@^@@@@]0@@@BM@@@@)[-@;#@K(@#*UY )@@G@@[<1!C@E^@2A@@-)@-)C@@@@@N[@@@#A@K@@[O8K@@[R@K@@[@]0@@@&"0@@@Q;@@#RBN@@@@UZ )@@G@@)[*@<@KO[@@@)#1@&@++ @@@@@@@@@@@@@@@@@@@[R#[[@@@@@@@@T/H@@@0/[@@]QC[@@@LVA )@@G@@8L@@@.BO@@@@)#5@I@+=@*@@)[?@:#@K(@#*[<1!C@E^@0-)@@@@@@A@K@@[R8K@@[@]0@@@VB )@@G@@&"0@@@Q;@@#1/,0@@@BP@@@@)[1[#[K0^K^G[^ @K^@@@@@@@@@@@@/K@@[./H@@@0/[@@[9VC )@@G@@C[[@^E^[@@@^/K@@]O^[@@@^N[@@@LBQ@@@@)#6@"@++ @ES@[M@O@)[9@F#@K@@@@Q;@@#6VD )@@G@@/,0@@@[@^@@@@@@@@[@@@@@@@@@@[F#[[@@@@@@@@TBR@@@@)['@'(@#*[<1!C@E^@2@-)@)VE )@@G@@*S@CC@@@@@@@C[-@^O[[@@@DC[[@^ER@K@@[/K@@]L@]0@@@&"0@@@BS@@@@)][[F#@[[K0@VF )@@G@@^G@@^G[@@@@@[]@@@["A@@@M"D)@@M"I@@@K[[)@@B"H)@@K[]@@@ C][@^Y[[)@@CBT@@@@VG )@@G@@)@]@Q@2&@-N@*@@@@@)]E@V#@S(@#*]N1!C@E^[C@@@@@@@@@]0@@@&"0@@@Q;@@@]@@@@@[VH )@@G@@@@@@@[BU@@@@)]H@F#@@@@@@)#.@"@++ @ES@[N@@@@@@@@B[@^@@@@@@@@[@@@@@@@@@@[,VI )@@G@@#[[@@@@@@@@T[@@@@^BV@@@@)^^[A@)()@CS@CE@O)[4@986=@ ]@W@]0@@@&'0@@@A]0@^GVJ )@@G@@R'1@^*R@K@@[]@^@@@@@@@@^]@^@@@BW@@@@)^H@,@-[K]=@I)BJA4)@*K#))^N@Q@)()@@@VK )@@G@@@@@@@D]@^@@@@]0@@@&'0@@@A]0@^MR'1@^2]@^@@@BX@@@@)^P@Q@)(@E@@)]I@<#@K(@#*VL )@@G@@[<1!C@E^@2A@@@@@@@R@K@@[@]0@@@&"0@@@Q;@@#./,0@@@]@^@@@BY@@@@)]M@'K0@K0^KVM )@@G@@^ @K@@)^R@I@++@@@@@@@@@T/H@@@0/[@@]%C[@@@E8L@@[4N[@@@^A@K@@[O8K@@[BZ@@@@VN )@@G@@)^S@&@)*[M@O)]T@V#@K(@#*[<1!C@E^@0@@@]0@@@&"0@@@Q;@@^R/,0@@@@@@@@@@@@@[1VO )@@G@@#[[@@@CA@@@@)]W@'K0@KO[[^G@@@@)^W@I@++@@@@@@@@@T[[@@@@G9@@@]C[[@]!/K@@](VP )@@G@@N[@@@EA@K@@[R8K@@[CB@@@@)^X[I@)*[N@@^G@^G@^@@@@@/K@@^1N[K@@@A@)@@]R8)@@[VQ )@@G@@[@^@@@@@@@@[@@@@@@@@@@]]#[[@@@CC@@@@)^&@"@=G@[#@[[K]=@I)BJA4)@*K#)@@@@@@VR )@@G@@@]0@@@&'0@@@A]0@^!R'"@@&G@)@@[T8)@@ C@)@@]CD@@@@)^,@6@)K0@K]=@I) JA4)@*KVS )@@G@@])@@@@@@@@@@@@@@@@@]0@@@&'0@@@8LK@^&A@)@@]O8)@@[[@^@@@CE@@@@)]<[##@K(@#*VT )@@G@@[<1!C@E^@2A@@-)@)@R8K@@[8L@@])A@K@@[O8K@@[R@K@@[@]0@@@&"0@@@Q;@@^WCF@@@@VU )@@G@@)]:@V#@[[K@@)@^@I@2&@@@@)],@N#@L#@S@@@@@@@A]0@@ R]0@]O@@@@@[/K@@]6N[@@@FVV )@@G@@A@K@@[CG@@@@)@A@I@0@@@@@)@@@I@%&@0@@)]0@<#@OK)EK0@@@@@R@K@@[/,0@@@&"0@@@VW )@@G@@C@@@@@@@]@@^[[@@@@CH@@@@)]4@+K0@K^@@)@@@Y[K@@@@@@@@@@@@@@@@@NS@@@@K^@@@@VX )@@G@@KG@@@@/K@@@@8L@@],A@K@@[O8K@@[CI@@@@)@@[Q@S@@@@@@@@@@@@@@H*[ VY )@@G@@ SUMRY C@@@@@ 11R2C FTN PK@@@OCJ@@@@@@^@@G@@K@@F@@*@@[@@?@@]VZ )@@G@@@@E@@F^@@@]8@@@@ '@@@@@O@@@@^4@@@@@[@@@@@B)@@@@@)@@@@@)@@@@@@@@@@#)@@@@@WA )@@G@@IBJ$ BDICALL$ BDIREF$ SUMRY ARGC1$ FMTE$$ WB )@@G@@F2SE$$ FMTC$$ FSTOP$ FTN$FR1R1$ PRNTQ @CE@]'@@@@@@WC )@@G@@SUMRY @@[@@@@@@@@D@@@@@@@@@@@@^@@^@@@]@@@@@@@@@@@@@@@@C@@@@@@#@@@@WD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@)@M@I@S@@@@@)@^[A@)@@@@@EL CC)C9 ^[[E-JEL[D9]^[NWE )@@G@@ETK^[E K%C9[[0E]@Z@CK@C1@@@@@@AA@@@@)@G[Y@)@@@@@)@NC9[@SG[CD@CD@?@]S@@@@WF )@@G@@ K%]KMD1DE-ND( ^[P]@GE-D[K^[0]^[[E)AC-PD(KAB@@@@)@R[Y@)@@@@@]@RCTP@CM[0EWG )@@G@@EK,]TKC(MELJ^@9BC)E-TE[ F[DE)?D9M^[ ^[ ELM[0=]@U@CM]KMAC@@@@)@+[Y@)@@@@@WH )@@G@@[KK]DI@8]]KIE))B*AC(QC(I[0 ]@BB*A[@]DDHC*) 0, 1OC(IE),E))C(QELMC(IAD@@@@WI )@@G@@)@![Y@)@@@@@D- ^@1]S)C1D@CI[KK]KN@@@[G@]CM[K#[)D]K]@CI 0, 0,E), 0,C(QC(IWJ )@@G@@C(SE))AE@@@@)@8@&@)@@@@@)@E@,@S@@@@@@@@@@.@@@@@@@@@@@@EK)@@@D(JD1O@0E@KNWK )@@G@@FC)CDOC(HE[O^[DES)AF@@@@)@J@Y@SES@)@)@N@I@S@@@@@)@@@N#@L#@K@@@@@@@R@K@@.WL )@@G@@R]0@@/______]@@@@B@@@@@*@@^@]IAG@@@@)@][##@L#@L#@L#@KK0^K0^K0^@@@@A@)@@"WM )@@G@@A@K@@.A]0@@//KF@@@N[K@[]N[@@[[9!)@@_R@)@@"AH@@@@)@E@:#@L#@L#@KK0^@)[^@Y@WN )@@G@@)@@@@@EK-^@)D(JD1O[@@@@@[@K@[#C@W@@@^[K@[]^[@@[[9()@@_AI@@@@)[B@I@+)@@@@WO )@@G@@)@J@:#@K(@#*[#1!C@E^@+A@)@@@@@H9@@@BC @@[#@]0@@@&'0@@@C@K@[B@@[@[^AJ@@@@WP )@@G@@)@O@<#@L[^@@)[C@,@++ @EC@@@@@P@@@@@@@@@@@^#[[@@@@@@@@T/ )@@$H9)@[>C[)@@#WQ )@@G@@[[@@@@AK@@@@)[H@Q@)(@E@@)@S@<#@K(@#*[<1!C@E^@0@@@@@@@@R8K@@[@]0@@@&"0@@@WR )@@G@@Q;@@[C/,0@@@]@^@@@AL@@@@)@W@V#@[[K@@)[J@,@++ @ES@@@@@@@@@@@@@@@@@@@@@@@OWS )@@G@@#[[@@@@@@@@T/K@@@>N[@@@@A@K@@@AM@@@@)[O[I@)K0@KO[@K0@K0@@@@@T9@@@AC[@@@@WT )@@G@@G@)@@[C@)@@@/K@@[>N[K@@SA@)@@[R8)@@[[@^@@@AN@@@@)[X@I@)@@@@@)[-@I@)@@@@@WU )@@G@@)[Y@Y@=@(@#*[31!C@E^@8@@@]0@@@&'0@@@AB)@[-@@@@@@G@)@@KAO@@@@)[+@6@)K0@K]WV )@@G@@=@I) JA4)@*K])@@@@@@@@@@@@@@@@@]0@@@&'0@@@8LK@[TA@)@@[O8)@@[[@^@@@AP@@@@WW )@@G@@)@Z@;#@K(@#*[<1!C@E^@2A@@-)@)@@@@@@@8L@@@ZA@K@@@O8K@@[R@K@@@@]0@@@&"0@@@WX )@@G@@Q;@@[JAQ@@@@)@&[#@KO[@KL@K@@@@@@@@@@@@@@@@/H@@@8/[@@@3H9@@@[C[@@@^/H@@@,WY )@@G@@/[@@@9C[@@]+/K@@@@AR@@@@)[*@,@++ @EK])@@@@)@,@N#@K(@#*[)@@@@&"0@@@Q;@@[*WZ )@@G@@/,0@@@@@@@@@@@@@@R#[[@@@@@@@@TAS@@@@)@0@%/VM@]-@GCK^CEA@@@@@)[!@Q@++@@@@XA )@@G@@#[[@@@@@@@@T[[@@@]C[@@]+/,0@@@Q_@@@@@]0@@@AT@@@@)[\[Q@+) ^ECCS@CE@/K@@] XB )@@G@@N[@@@SA@K@@@R8K@@[]@^@@@@@@@@-]@^@@@@@@@@P@@@@@@@@@@@)AU@@@@)[9@,@=[#@[#XC )@@G@@@@@@@@)][@I@)@@@@@@@@@@@@@@@@@@@@@@@G@)@@KT9@@@AC[@@@]G@)@@@C@)@@@AV@@@@XD )@@G@@)["@Y@=@(@#*[31!C@E^@8@@)]]@&@)K0@K@8L@@[9A@K@@@O8K@@[[@^@@@@]0@@@&'0@@@XE )@@G@@AB)@][AW@@@@)]A@Q@+=@I) JA4)@*K])@@@)@5@V#@K(@#*[<1!C@E^@0@@@]0@@@&"0@@@XF )@@G@@Q;@@[!@]0@@@&'0@@@AX@@@@)@8@F@@@@@@@)]C@"@++ @ECO) @@@/,0@@@]@^@@@@@@@@PXG )@@G@@@@@@@@@@@@@5#[[@@@@@@@@T/K@@@@AY@@@@)@9@:#@K(@#*[<1!C@E^@2@)@@@@@@)@@@I@XH )@@G@@S@@@@@PK@@@O/K@@@@/K@@@8@]0@@@&"0@@@Q;@@]CAZ@@@@)@[[I@S@@@@@@@@@@@@@@@@@XI )@@G@@@@@H*[ MONTR C@@@@@ 11R2C FTN BA@@@@@@@@@@@@@@@@XJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XK )@@G@@@@^@@G@@K@@D@@=@@[@@*@@]@@E@@^^@@@@"@@@@ '@@@@@O@@@@]J)@@@@@)@@@@@)@@@@@XL )@@G@@)@@@@@)@@@@@)@@@@@)@@@@@IBJ$ BDICALL$ BDIREF$ MONTR XM )@@G@@ARGC1$ FMTE$$ F2SE$$ FMTC$$ FSTOP$ @@@@@@@@@@@@XN )@@G@@MONTR @@[@@@@@@@@B@@@@@@@@@@@@^@@^@@@]@@@@@@@@@@@@@@@@C@@@@@@#@@@@XO )@@G@@@CB@@8@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@)@M@I@S@@@@@)@[[A@)@@@@@XP )@@G@@@8)C(M[C#)@KE-TE[ DDO ))EK)C(SC(MELJ[0=]@K@CM]KM@@@@@@AA@@@@)@D[I@)@@@@@XQ )@@G@@@@@@@@@@@@@@]KM]SKC(IE-NC))C(QC-PD- ET#D[ [0(]@K@CK@C1]S@@@@ELJEK,AB@@@@XR )@@G@@)@E[A@S@@()])@N@I@S@@@@@______]@@@@#@@@@@)@@[@@$@@@@@(@@@@@@@@@@@@EK)@@@XS )@@G@@C(MELJAC@@@@)@@@3#@L#@KK0^K0^@)@O@Q@)@@@@@C(MELJ[[@@@@R@K@@GA@K@@NA]0@@MXT )@@G@@/KF@@@R@K@@NR]0@@MAD@@@@)@Q@Q@)*@@@@)@A@:#@K(@#*[#1!C@E^@)@@H9@@@BC [@@[XU )@@G@@@]0@@@&'0@@@C@K@@R@@]@@OEK-^@)AE@@@@)@F@F#@K@@@@)@S@"@++ @^@(@#*[K&'0@@@XV )@@G@@A]0@@)R]1@@@@@@@@@@@@@@[#[[@@@@@@@@T[[@@@@AF@@@@)@Z@I@<1!C@E^@*@@@)@-@Q@XW )@@G@@)(@G@@)@G@N#@K(@#*[0@@@@&"0@@@Q;@@@S/,0@@@[@^@@@@]0@@@AG@@@@)@I@%/VM@]-@XX )@@G@@ICC-)G)@[@I@0@@@@@@@@@@@@@@@@@[@@@@@A]0@@@R]1@@[[[@@@#C9@@[>@]0@@@AH@@@@XY )@@G@@)@@@I@%&@0@@)@N@V#@OK)C@)@<@Y@++ @@@@@@@@F#[[@@@@@@@@T/,0@@@&"0@@@C@@@@@XZ )@@G@@@@[@@@AI@@@@)@&@Q@)(@G@@)@Q@V#@K(@#*[31!C@E^@8@@@@@@@@@@@@@@@]0@@@&"0@@@YA )@@G@@Q;@@@C[@@@#/,0@@@&"0@@@C@@@@]@@[@@ AM@@@@)@$@UK)FK@@@YE )@@G@@)@@@I[K@@@@@)@@@Y@S@@@@@11R2C FTN PK@@@O@@@@@[/K@@@@/,0@@@Q_@@@@AN@@@@YF )@@G@@)@#@"@S@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@H*[ ERROR C@@@@@YG )@@G@@ AO@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@G@@K@@G@@*@@[@@?@@]@@E@@[^@@@@%@@@@ '@@@@@OYI )@@G@@@@@@@*@@@@@#@@@@@B)@@@@@)@@@@@)@@@@@@@@@@[)@@@@@IBJ$ BDICALL$ YJ )@@G@@BDIREF$ ERROR ARGC1$ FMTC$$ FMTE$$ F2SE$$ YK )@@G@@MONTR PRNTQ SUMRY FSTOP$ ERROR @@[@@@@@@@@#YL )@@G@@@@@@@@@@@@@@^@@^@@@]@@@@@@@@@@@@@@@@C@@@@@@#@@@@@@@@@@@@@@@@@@@@@@@@@@@@YM )@@G@@)@M@I@S@@@@@)@#@"@)@@@@@@@@@@@]S@@@@^@D@/@ELGD1BD9M^[ ^@0^[A^[F^@.@CM]@LYN )@@G@@@@@@@@AA@@@@)@E[A@S@@()])@N@I@S@@@@@______#@@@@ @@@@@V@@#@@S@@@@[A@@@@@@YO )@@G@@@@@@@@C8)@@@C(MD-IAB@@@@)@@[##@L#@L#@L#@KK0^K0^K0^@@@@^[@@@GA@K@@FA]0@@EYP )@@G@@/KF@@@C@@@@@N[@@@GR@K@@FR]0@@EAC@@@@)@C@MK0^@@@@)@I@&@)])@@@)@E@F#@K@@@@YQ )@@G@@C@K@@L@@[@@IC8-^@)C(MD-I[@@@@@[@K@@HC@W@@@AD@@@@)@F@'(@#*[#1!C@E^@+A@+A@YR )@@G@@+A@+]-)O@@@@"@@@@@C@I@#2C@)@@[[[@@@[C[@K@H@]0@@@&'0@@@AE@@@@)@M@'[#@@K^@YS )@@G@@)@M@Q@++@@@@#[[@@@@@@@@T/@K@@Z/CK@@ZH8K@@[[@K@@[;)W@@DH/@@]@"K@@@GAF@@@@YT )@@G@@)@O@,@+) @EK])@@@@)@T@N#@K(@#*[)@@@@&"0@@@Q;@@@M/,0@@@[@^@@@@@@@@[@@@@@@YU )@@G@@@@@@@#AG@@@@)@V[]/VM@]-@G]^@'A[MA@@-)@@@@@A@K@@@R8K@@[[[@@@]C[@@@[/,0@@@YV )@@G@@&"0@@@C8@@@@@]0@@@AH@@@@)@<@N#@[@@@@)@@@Y@2+O0@@)@@@I@%&@0@@@@@@@@@@]@@@YW )@@G@@[]@@@@@@@@@#@@@@@O/K@@@,N[@@@[AI@@@@)@>[##@OK)CK0@K0@K0@K0@@@@@@@@O8K@@[YX )@@G@@R@K@@@[[@@@]"D@@@#C[@@@]/,0@@@&"0@@@C@@@@@AJ@@@@)@!@N#@[@@@@)@#@I@2&@@@@YY )@@G@@)@[@I@%&@0@@)@\@F#@O@@@@C@@@@[@@[@@#@@@@@]8L@@@>A@K@@@AK@@@@)@0[](@#*]N1YZ )@@G@@!C@E^[EA@+]]A@+]@@"^I@#E[@@@@@G8@@@@D@@@@G"CI@]6C@)@@[@]0@@@&"0@@@AL@@@@ZA )@@G@@)@8[F@K^G[^ #@L@K0^K0^KK" I@#YC[@@@@C@)@@[/K@@@@[[@@@@C[I@#EC@)@@[/C@@@"ZB )@@G@@/@@@@.AM@@@@)[[@3@K^G[^ #@L@@@)@@@Q[K@@@@@KG@@@@NS@@@@/K@@@@[[@@@@C[I@#YZC )@@G@@C@)@@[/[@@@./H@@@.AN@@@@)@@[Q@S@@@@@@@@@@@@@@H*[ ERLNG ZD )@@G@@C@@@@@ 11R2C FTN PK@@@OAO@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@G@@K@@E@@=@@[@@*@@]ZF )@@G@@@@E@@ ^@@@[B@@@@ '@@@@@O@@@@@T@@@@@]@@@@@^)@@@@@)@@@@@)@@@@@@@@@@])@@@@@ZG )@@G@@IBJ$ BDICALL$ BDIREF$ ERLNG ARGC1$ FMTE$$ ZH )@@G@@F2SE$$ EXIT DRAND FTN$LOG ERLNG @@[@@@@@@@@ ZI )@@G@@@@@@@@@@@@@@^@@^@@@]@@@@@@@@@@@@@@@@C@@@@@@#@@@@@CB@@1@@@@@@@@@@@@@@@@@@ZJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@*[S@@@*SDFF*@A@@@@ SUBROUTINE PRNTQ (JQ,NSEZK )@@G@@T) @[@@@@C @[@@@@C @[@@@@C @ @@@@ DIMENSION NSET(6,1ZL )@@G@@) @F@@@@ COMMON ID,IM,INIT,JEVNT,JMNIT,MFA,MSTOP,MX,MXC,NCLCT,NZM )@@G@@HIST, @F@@@@ 1NOQ,NORPT,NOT,NPRMS,NRUN,NRUNS,NSTAT,OUT,SCALE,ISEED,TZN )@@G@@NOW, @B@@@@ 2TBEG,TFIN,MXX,NPRNT,NCRDR,NEP,VNQ(4)@G@@@@ COMMONZO )@@G@@ ATRIB(4),ENQ(4),INN(4),JCELS(5,22),KRANK(4),MAXNQ(4),M @G@@@@ 1ZP )@@G@@FE(4),MLC(4),MLE(4),NCELS(5),NQ(4),PARAM(20,4),QTIME(4),SSUMA @E@@@@ZQ )@@G@@ 2(10,5),SUMA(10,5),NAME(6),NPROJ,MON,NDAY,NYR,JCLR @ @@@@ ZR )@@G@@WRITE (NPRNT,100) JQ @ @@@@ IF (TNOW-TBEG) 12,12,13 @^@@@@ 12 ZS )@@G@@WRITE (NPRNT,105) @D@@@@ 105 FORMAT (/35X,25H NO PRINTOUT TNOW = TBEG /ZT )@@G@@/) @#@@@@ GO TO 2 @[@@@@C @G@@@@C*****COMPUTE EXPECT NO.ZU )@@G@@ IN FILE JQ UP TO PRESENT THIS MAY BE USEFUL @A@@@@C*****IN SETTING TZV )@@G@@HE VALUE OF ID @[@@@@C @#@@@@ 13 XNQ=NQ(JQ) @D@@@@ X=(ENQZW )@@G@@(JQ)+XNQ*(TNOW-QTIME(JQ)))/(TNOW-TBEG) @G@@@@ STD=((VNQ(JQ)+XNQ*ZX )@@G@@XNQ*(TNOW-QTIME(JQ)))/(TNOW-TBEG)-X*X)**0.5 @B@@@@ WRITE (NPRNTZY )@@G@@,104) X,STD,MAXNQ(JQ) @[@@@@C @G@@@@C*****PRINT FILE IN PROPER ORDZZ )@@G@@ER REQUIRES TRACING TRHOUGH THE POINTERS @#@@@@C(****OF THE FILE @[@@@@AA )@@G@@C @#@@@@ LINE=MFE(JQ)@^@@@@ IF (LINE-1) 4,1,1 @^@@@@ 4 AB )@@G@@WRITE (NPRNT,102) @]@@@@ 2 RETURN@^@@@@ 1 WRITE (NPRNT,101) @#@@@@AC )@@G@@ 6 DO 77 I=1,IM@ @@@@ ATRIB(I)=NSET(I,LINE) @ @@@@ 77 ATRIB(AD )@@G@@I)=ATRIB(I)/SCALE @B@@@@ WRITE (NPRNT,103) (ATRIB(I),I=1,IM) @^@@@@AE )@@G@@ LINE=NSET(MX,LINE)@ @@@@ IF (LINE-7777) 6,2,5 @^@@@@ 5 AF )@@G@@WRITE (NPRNT,199) @D@[@@ 199 FORMAT (///36X27HERROR EXIT, TYPE 94 ERROAG )@@G@@R.) @D@@@[ 199 FORMAT (///36X,27HERROR EXIT, TYPE 94 ERROR.) @D@[@@AH )@@G@@ 100 FORMAT (//39X25H FILE PRINTOUT, FILE NO.,I3) @D@]@[ 100 FORMATAI )@@G@@ (//39X,25H FILE PRINTOUT, FILE NO.,I3) @D@@@] 100 FORMAT (//39X,25H AJ )@@G@@FILE PRINTOUT, FILE NO. ,I3) @A@[@@ 101 FORMAT (45X14H FILE CONTENTS/)AK )@@G@@@B@@@[ 101 FORMAT (45X,14H FILE CONTENTS/) @B@[@@ 102 FORMAT(/43X1AL )@@G@@8HTHE FILE IS EMPTY ) @B@@@[ 102 FORMAT(/43X,18HTHE FILE IS EMPTY ) AM )@@G@@@ @@@@ 103 FORMAT (20X,10F10.4) @G@[@@ 104 FORMAT(/35X,26HAVERAGE NAN )@@G@@UMBER IN FILE WAS,F10.4,/35X,9HSTD.DEV., @G@@@[ 104 FORMAT(/35X,26HAVEAO )@@G@@RAGE NUMBER IN FILE WAS,F10.4,/35X,8HSTD.DEV., @B@@@@ 1 18X,F10.4,/AP )@@G@@35X,7HMAXIMUM,24X,I4) @]@@@@ STOP @]@@@@ END _@@@@@/35X,8AQ )@@G@@)@M@I@S@@@@@)@ [A@)@@@@@C(B^@MB*)E-]D1JE8)E(O^[ODDIE-JD8)E[M]@T^[I@CM[0