@CAT,P 1076-004-004.,///10000 @ASG,T TEMP.,///10000 @ELT,OI TEMP.1076-004-004,,,141170053441,000 )@@G@@**PF**@@@@WR@@@@@@@@@@@[@]"@@@]FE@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@W@@@@@@@@@@@@@@@@@@@AB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@#@@@@@@@@@@@@@@@@@@AD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AM )@@G@@@@@@@@@@^@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@@E@@ AN )@@G@@MAKE @@@@@@@K[@@@SCHEDULE @ @@@[[@@@@[@@@@W@BEUB[SOVRIDE AO )@@G@@@@@@@@@K[@@@ @ @@@[[@@@@A@@@@W[C\A ]USCHDLR @@@@@@@K[@@@AP )@@G@@ @ @@@[[@@@@ @@@@WBC0' ]UTODAY @@@@@@@K[@@@ AQ )@@G@@@ @@@[[@@@@A@@@@WGC1T ]URUN @@@@@@@K[@@@ @ @@@[[@@@@ AR )@@G@@@@@@WMC3F ]UOTEMP @@@@@@)K[@@@ @ @@@[[@@@@A@@@@WPC?- ]UAS )@@G@@OVRIDE @@@@@@@K[@@@ @ @@@[[@@@@A@@@@WVC\A ]USCHDLR AT )@@G@@@@D@@@)K[@@@ @ @@@[[@@@@ @@@@W-C01 ]USCHDLR @@@@@@@K[@@@AU )@@G@@ @ @@@[[@@@@ @@@@W&C0' ]UTODAY @@@@@@@K[@@@ AV )@@G@@@ @@@[[@@@@A@@@@W:C1T ]URUN @@G@@@)K[@@@ @ @@@[[@@@@^AW )@@G@@@@@@W1C1/ ]URUN @@@@@@@K[@@@ @ @@@[[@@@@ @@@@W5C3F ]UAX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@_@)4=@BB )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@BC )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@BD )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@BE )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@BF )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@BG )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@BH )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@BI )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@BJ )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@BK )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@BL )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@BM )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@BN )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@BO )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@BP )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@BQ )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@BR )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@BS )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@BT )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@BU )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@BV )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@BW )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@BX )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@BY )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@BZ )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@CA )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@CB )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@CC )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@CD )@@G@@@D@@@@C@) 0) K%^[[C-^ ([D-PD*!ET#D@)^@)^@)^@)^@*A87A8?AK)^@(:[@@@@@@@@B4CE )@@G@@@D@@@@C@) 0) K%^[[C-^ (NE@!CDGE(H (NCTC^@)^@)^@*A87BC?AK)^@(:[@@@@@@@@B"CF )@@G@@@D@@@@C@) 0) K%^[[C-^ (AE(IC))^@)^@)^@)^@)^@)^@*A88AC?AK)^@(:[@@@@@@@@CCCG )@@G@@@D@@@@C@) 0) K%^[[C-^ (^C(BEL C*!FD CDM^@)^@)^@*A88AS?AK)^@(:[@@@@@@@@CMCH )@@G@@@D@@@@C@) 0) K%^[[C-^ (#D9IE))^@)^@)^@)^@)^@)^@*A88A*?AK)^@(:[@@@@@@@@CWCI )@@G@@@D@@@@C@) 0) K%^[[C-^ (#D9HCLJ (ICDHC*)^@)^@)^@*A88A8?A)0^@(:[@@@@@@@@C&CJ )@@G@@@D@@@@C@) 0) K%^[[C-^ (TC([ELN (BDDQC*)^@)^@)^@*B@2A8?AK)^@(:[@@@@@@@@C0CK )@@G@@@D@@@@C@) 0) K%^[[C-^ (NE@!CLPES!E[CD9IC*)^@)^@*B@2BC?AC4^@(:[@@@@@@@@C'CL )@@G@@@D@@@@C@) 0) K%^[[C-^ (KD-^C8!C-[E- ^@)^@)^@)^@*B@4AS?A))^@(:[@@@@@@@@D^CM )@@G@@@D@@@@C@) 0) K%^[[C-^ (KD-^C8!CDHE))^@)^@)^@)^@*B@4A8?AC0^@(:[@@@@@@@@DICN )@@G@@@D@@@@C@) 0) K%^[[C-^ (KD-^C8!C1PD1^^@)^@)^@)^@*B@5A8?A))^@(:[@@@@@@@@DSCO )@@G@@@D@@@@C@) 0) K%^[[C-^ (KD-^C8!E[[DD^^@)^@)^@)^@*B@6AC?AC0^@(:[@@@@@@@@D+CP )@@G@@@D@@@@C@) 0) K%^[[C-^ (KD-^C8!D1 F[O (^E( ^@)^@*B@7AC?A))^@(:[@@@@@@@@D?CQ )@@G@@@D@@@@C@) 0) K%^[[C-^ (KD-^C8!D- D1BE-C^@)^@)^@*B@7A*?AK)^@(:[@@@@@@@@D6CR )@@G@@@D@@@@C@) 0) K%^[[C-^ (KD-^C8!ETOCDOE(N^@)^@)^@*B@7A8?AC)^@(:[@@@@@@@@E@CS )@@G@@@D@@@@C@) 0) K%^[[C-^ (KELDD9M (NE-MC( E)1^@)^@*B@7B@?A)0^@(:[@@@@@@@@EECT )@@G@@@D@@@@C@) 0) K%^[[C-^ (KELDD9M (NE-MC( E)2^@)^@*BC1B@?A)0^@(:[@@@@@@@@EOCU )@@G@@@D@@@@C@) 0) K%^[[C-^ (KELDD9M (#DDOFC)^@)^@)^@*BC5B@?AS0^@(:[@@@@@@@@EYCV )@@G@@@D@@@@C@) 0) K%^[[C-^ (KELDD9M (NE-[E- ^@)^@)^@*BC8B@?AK)^@(:[@@@@@@@@E*CW )@@G@@@D@@@@C@) 0) K%^[[C-^ (KELDD9M (UDDK^@)^@)^@)^@*BC9A@?BC)^@(:[@@@@@@@@E2CX )@@G@@@D@@@@C@) 0) K%^[[C-^ (KELDD9M (#D9PD1OELT^@)^@*BC9BC?AK)^@(:[@@@@@@@@E/CY )@@G@@@D@@@@C@) 0) K%^[[C-^ (KELDD9M (KD[JD1 ^@)^@) @1A@0AC?AC4^@(:[@@@@@@@@E.CZ )@@G@@@[@@@@C@) 0):[@@@@@@@@E"@#@@@@C[NC(GC(#E)'^@) 0):[@@@@@@@@FA@A@@@@C[[ETBDA )@@G@@ -[^@)^@)E[CD1[E-CD0!CD^C-M 0):[@@@@@@@@FK@A@@@@C[[ETB -O^@)^@)F[[ 0?C0\DB )@@G@@ 8\A*0A@0^@):[@@@@@@@@FU@A@@@@C[[ETB -O^@)^@)F[] 0?C0\ 8\A*0A@0^@):[@@@@DC )@@G@@@@@@FV@B@@@@C[[ETB -O^@)^@)CD^C)!C1DD- 0?C0\ 8\AS0A@0:[@@@@@@@@F=@]@@@@DD )@@G@@C[ND9ME))^@):[@@@@@@@@F,@[@@@@ETJELO:[@@@@@@@@F8@]@@@@ELNFK.AC0AC4:[@@@@DE )@@G@@@@@@G]@]@@@@CLGD9#DS.AC0:[@@@@@@@@GG@]@@@@D(JC- B(NC-A:[@@@@@@@@GH@A@@@@DF )@@G@@CD#CT E[OB*6BC2 )4 -[ET# - -OF@0AC):[@@@@@@@@GQ@B@@@@DT FC.A09AK?A)?CTCDG )@@G@@ -[BK6AK2 )7A@?CTC -[^@):[@@@@@@@@G)@ @@@@C1DD- DDIB(KD[ICDOD[I ([C-^EK)DH )@@G@@:[@@@@@@@@G%@^@@@@C1DD- D9PE).CD^C)!C1DD- :[@@@@@@@@G4@[@@@@C[ D9A:[@@@@DI )@@G@@@@@@G5@[@@@@C@) 0):[@@@@@@@@HM@D@@@@C[[ETB -PE@)^@)A@1A@1 L^C(QEK6A)* S1DJ )@@G@@ C, -A 8\ 85A@0A@):[@@@@@@@@HW@D@@@@C[[ETB -PE@)^@)AS4AC0 L^C(QEK6A)* S1DK )@@G@@ C, -A 8\ 85A@0A@):[@@@@@@@@H&@D@@@@C[PET ^@)^@)^@)ETKD-AELH )3A)1A@%C- DL )@@G@@E1MA04 @:AC( 0)^@):[@@@@@@@@H0@D@@@@C[PET ^@)^@)^@)ETKD-AELHAK?A@1A@1 L^DM )@@G@@C(QEK6A)* S1 C,^@):[@@@@@@@@H'@C@@@@C[#D9KFC?CC)^@)C- E1GDD]^),C- E1MA04DN )@@G@@ 9NE[MC88BC):[@@@@@@@@I^@ @@@@C[SEDO^[^C(QEK6A)\ETKELBB@9^@):[@@@@@@@@IIDO )@@G@@@[@@@@A@2A*0:[@@@@@@@@IS@ @@@@C[AEL C*)^@)^@)ETKD-AELH 0)^@):[@@@@@@@@I+DP )@@G@@@ @@@@C[AEL C*)^@)^@)ETKD-AELHAK,^@):[@@@@@@@@I?@C@@@@C[NFDH^@)^@)^@)A@1DQ )@@G@@A@1 L^C(QEK6A), )?EC0AC0AC)^@):[@@@@@@@@I6@B@@@@C[NFDH^@)^@)^@)AS4AC0 L^DR )@@G@@C(QEK6A), )?C-PD*):[@@@@@@@@I7@[@@@@C[ADDI:[@@@@@@@@I8@[@@@@C@) 0):[@@@@DS )@@G@@@@@@I9@E@@@@C[[C1OELFBK)^@,^@) K%^[NC(OE(K^[OEL[CTFDDIC8)EL CTJEL^ES) K%DT )@@G@@:[@@@@@@@@J@@^@@@@C[ ELN^@)^@)^@)E-KC0= 0):[@@@@@@@@J[@A@@@@C[[ETB -[^@)DU )@@G@@^@)C-QCDAB@9 (KD[H (]A),:[@@@@@@@@JE@ @@@@C[^C(GC(OC*?CS)D- D1BE-CC(I 0)DV )@@G@@:[@@@@@@@@JO@B@@@@C[[ETB -PE@)^@)D- D1BE-CC(I 0?C0\ 8\AC5A@0:[@@@@@@@@JYDW )@@G@@@B@@@@C[PET ^@)^@)^@)C- E1JE(O 0?D- D1BE-CC(I 0):[@@@@@@@@J*@C@@@@C[PET DX )@@G@@^@)^@)^@)C- E1DD0, -^E1[C08BC!E[CD*!CK4 0):[@@@@@@@@J2@^@@@@C[ME[B -D^@)DY )@@G@@^[GC(IC9OD@):[@@@@@@@@J/@ @@@@^@)^@)^[C K)^@)^@)^@)D- D1BE-C:[@@@@@@@@KADZ )@@G@@@I@@@@^@)^@)^[ADDIE[PE))^@)DDKC*)C0)^@)^@)AC3AK)^@)^[N^@)^@)^@)^[^DDNCS)EA )@@G@@^@)C- E1DD0)ES)^@):[@@@@@@@@KK@I@@@@^@)^@)^[AD9PE-KE(O^@)D8)^@)C0)AC8A@)EB )@@G@@^@1B@)^@)^[N^@)^@)^@)^[^DDNCS)^@)C- E1JE(OES)^@):[@@@@@@@@KU@ @@@@^@)^@)EC )@@G@@^[DDDIE[PE))^@)D1N^@)A@1:[@@@@@@@@K=@I@@@@^@)^@)^[D^@)^@)^@)^@)^@)^@)^@)ED )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)AK)^@1A@)EL CT[:[@@@@@@@@K,@I@@@@EE )@@G@@^@)^@)^[D^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@1AK)EF )@@G@@^@2A@)EL CT]:[@@@@@@@@K8@I@@@@^@)^@)^[D^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)EG )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@2AK)^@2AK)EL CT#:[@@@@@@@@L]@J@@@@^@)^@)^[#^@)EH )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^[NC(OD9A^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@0AK0EI )@@G@@AS0A)):[@@@@@@@@LG@J@@@@^@)^@)^[#^@)^@0AC)^@)^@)^[MC(#CS)^@)^@)^[#D9HE@)EJ )@@G@@^81^8)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@0AK):[@@@@@@@@LQ@J@@@@^@)^@)^[#^@)EK )@@G@@^@0ADIA@2^@)^[MC(#CS)^@)^@)^[#D9HE@)^82^8)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)EL )@@G@@^@0AS):[@@@@@@@@L)@J@@@@^@)^@)^[#^@)^@0ADIA@2D00ATMC(#CS)^@)^@)^[#D9HE@)EM )@@G@@^83^8)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@0A)):[@@@@@@@@L%@B@@@@^@)^@)^[JD9PEN )@@G@@E-KE(O^@)C))^@)^@)^@)^@0AK)^@):[@@@@@@@@L4@F@@@@^@)^@)^[J^@)^@)^@)^@)^@)EO )@@G@@^@)^@)^@)^@)^@)^@)^@)^[MC(#CC)^@)^@)^@)BC):[@@@@@@@@L"@B@@@@^@)^@)^[JD9PEP )@@G@@E-KE(O^@)C))^@)^@)^@)^@0AS)^@):[@@@@@@@@MC@F@@@@^@)^@)^[J^@)^@)^@)^@)^@)EQ )@@G@@^@)^@)^@)^@)^@)^@)^@)^[MC(#CK)^@)^@)^@)BC):[@@@@@@@@MM@B@@@@^@)^@)^[JD9PER )@@G@@E-KE(O^@)C))^@)^@)^@)^@0A))^@):[@@@@@@@@MW@F@@@@^@)^@)^[J^@)^@)^@)^@)^@)ES )@@G@@^@)^@)^@)^@)^@)^@)^@)^[MC(#CC)^@)^@)^@)BC):[@@@@@@@@M&@F@@@@^@)^@)^[J^@)ET )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[MC(#CK)^@)^@)^@1B@):[@@@@@@@@M0@^@@@@EU )@@G@@C[HCDK^@, -GC(IC9OD@)^@):[@@@@@@@@M'@#@@@@C[SEDO^@)D- D1BE-C:[@@@@@@@@N^EV )@@G@@@C@@@@C[#D9KFC?CC)^@)^[^C(QD-DCK= 1^C(QCK8B@\ETKELBB@9:[@@@@@@@@NI@C@@@@EW )@@G@@C[PET ^@)^@)^@)^[DD1KE(O (ADDGC*, -GC(IC9OD[ D0,:[@@@@@@@@NS@K@@@@C[SEDOEX )@@G@@^@)^@)^@)^[^C(QCK8B@\ETKELBB@9^@) 0)CTMC([E- ES)CDID1PCDG^[AE(IC))E-MCD#EY )@@G@@DTDD1B^[MC(#ES)^@):[@@@@@@@@N+@[@@@@A@2AK0:[@@@@@@@@N?@A@@@@C[AEL C*?C))EZ )@@G@@^@)^[DD1KE(O (ADDGC*,^@):[@@@@@@@@N6@[@@@@C[ADDI_@@@@@@@@@@@@@@@@@@@@@@@FA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@) ![F#@C@-)K0C]A[#@@@@@@R@K@ FR[@@^9/K@@B *@@@@%FT )@@G@@G@@@@-C/@__"/K@@X:*@@@@GH@@@@:BU@@@A) 6[F#@-)K0]A@[#@@@@@@@@"^)@ GC@-)@@FU )@@G@@[@[@@@"G])@@C@@@ G[@@@[^Q@)@ XR@)@ FQ@K@ -BV@@@A) _@;#A)CL^G]A@K0@)[S@K@FV )@@G@@Q U A S S @@@@ H@@@@@@@@@@ E@@@@@-/,0@@@8L@@ ']@=)@C/@@@[/K@@D)/K@@E-/K@@D)/K@@C+/K@@X+@^$@ U'^@@@@CU@@@A)C=[EK0]A@K0GY )@@G@@]A[#@@@@@@@@Q@)@ -R@)@ FC_)@@[G@@@ *H@@@@@[@@@ (G@@@@@G@)@@-C/)__"CV@@@AGZ )@@G@@)C![N#@@CS[#@CS@@@G@@@ *H@@@@@G@@@@=C@@@@@[#)@@=[@)@[^[[@@@^'L@@@G;[@@@MHA )@@G@@C[@@ (CW@@@A)C7[EK0@-)K0CS[#@@@@@@@@H@@@@=C/@@@[[@)@ :[@@@ (G@)@ *H@)@@@HB )@@G@@G/)@@[T@)@@=C@)@@@CX@@@A)D@[F#@-)K[#@-)[#@@@@@@@'K)@ (;@)@@MC@)@@@Q@0@ :HC )@@G@@R@0@ FH/@__"/K@@DP(@@@@&]@@@@&CY@@@A)DD[M^G]A@@^G@@@@@G@@@@>C/@@@[[@<)@@HD )@@G@@C@>@@@[@[)@@C@ @@@O[K@ >R[K@@>]@@@[ [@)@@[CZ@@@A)DN[F#@)CS^G@@-)@@@@@@@@HE )@@G@@G@)@@>C/)@@[]@^)@@"^ @@@C@])@@O[K@ >R[K@@>8LK@DF[@@@@>DA@@@A)DW[F#@C]@CSHF )@@G@@^D]A@@@@@@@@C/@__"@^;@ U/,0@@@[@@@@>C/@@@[/K@@F08L@@C2G_)@@[[@)@@>DB@@@AHG )@@G@@)D>[F#@CS^G]A@K0]A@@@@@@G@@@@=C/@__"[#)@@=[@@@[^R[K@ ZR@0@ ZR@K@ -C_)@@[HH )@@G@@G@@@@-DC@@@A)D,[MK0]A@K0@-)K0@[@@@ (G[@@ *H[@@@@G.@@@[T[@@@=C[@@@@G@)@ *HI )@@G@@H@)@@@G@)@@=C@)@@@DD@@@A)D8[F#@-)^[]%)CS^G@@@@@@"G)@@GC@)@ G@^_@ U@@@@D.HJ )@@G@@/,0@@@^^K@D.N8L@@@[[@@ ?[@)@ :DE@@@A)E[[E[#@CS^G]A[#@@@@@@@@Q[)@ ZR[)@ FHK )@@G@@Q[@@ ?R[@@ F[@@@@]'K@@ :;@@@@MC@@@@@[@>@@@DF@@@A)EE[N#@-)K0@@@@@@@C/@@@[HL )@@G@@[@=)@@C@+)@@[@]@@@"CB@@@"CA)@@C@#@@@O[0@ >R[0@@>N[K@ (DG@@@A)EO@;#@-)K@@HM )@@G@@)]S@K@@@@@@@______ANAL 2G_)@@[O.K@@[O/0@@[O/K@@[8LK@EF[@@@@>G@@@@>DH@@@AHN )@@G@@)EV[F@K=*S^[#@)]A[]K@@@@/,0@@@[@@@@>C/@@@[/K@@F0@ C@ U/K@@X:@@@@]S/,0@@@HO )@@G@@8L@@D:DI@@@A)E=[N#@CS@K0]A[#@@R/)@@[R[0@ ZG@)@ *H@)@@@[@)@ (G@)@@@C/)@@[HP )@@G@@G@@@@-C/@__"@ F@ UDJ@@@A)E,[N#@-)@^G@-)@@@H@@@@@G@@@@=C@@@@@A@)@@=[@@@[^HQ )@@G@@[[@@@A'L@@@I;[@@@MC[@@ (R[@@ ZDK@@@A)E8[F#@CS@K0CS^G]AG@@@@@N8M@@<[@)@ :HR )@@G@@[@@@ (G@)@ *H@)@@@G/)@@[T@)@@=C@)@@@G@@@ *DL@@@A)F[[F@K%*]A[#@@-)@@@@@@@HS )@@G@@H@@@@=C/@@@[[@$@@@"G)@@GC@)@ G@ J@ U@@@@F#/,0@@@^^K@F#DM@@@A)FE[F#@-)K[#HT )@@G@@@-)[#@@@@@@@'L@@ (;[@@@MC[@@@@Q@K@ :R@K@ FH/@__"/K@@F<(@@@@&]@@@@&DN@@@AHU )@@G@@)FN[MK0CS[#@-)@@@@[@#@@@"CC@@@"C )@@C@^@@@O]@@ >R]@@@>]@@@[ Q[K@ ZR[K@ FHV )@@G@@[[@@@#DO@@@A)FX[M[#@-)K^G@CS@@G@)@@>C/)@@[[@A)@@C@@@ G8LK@FR[@@@@>G@@@@>HW )@@G@@C/@@@[[@-)@@C@<)@@DP@@@A)F$@<#@@@@@@)]U@K@)F:@N@K=)@@@/,0@@@8L@@E4______HX )@@G@@ANAL 3O.@@@[O/)@@[O.0@@[[@)@@>DQ@@@A)F![F#@)CS^G]AGK1*S@@@@@*@@@@IH@)@@-HY )@@G@@C@)@@MC/@@@[[@@@@[C@@@@-@ X@ U/K@@X:@@@@]UDR@@@A)F6[M[#A@C]AG@@@@@C@@@@MHZ )@@G@@/)K@G[+@@@@I @@@@I1@@@@K*@@@@KD[@@@MC/)@@[ @@@@G1@@@@IDS@@@A)G@[F#A-)^GSIA )@@G@@)CS1@@@@@@@@8];@GE$'0@@ARA0@@T/K@@GO(@@@@GH@@@#?C/@@@[ @@@@?[@@@@[DT@@@AIB )@@G@@)GD[F]+-)K^[@K^[#A)@@@@@/K@@GO*@@@@M/K@@GK/K@@GK/K@@GM/K@@GO/K@@GK@ =@ UIC )@@G@@'^@@@@DU@@@A)GM[F#@-)K0JEA[]O@@@@@@@@@@@@@@@@@@@@@@@@@/,0@@@[@@@@:C@CJ_"ID )@@G@@R]@@@Z[@@@@?C@@@ GDV@@@A)GV[N#@CS^GUA@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IE )@@G@@@@@@@?@@@@@[@@@@ N@@@@@@@@@@@-DW@@@A)G>[M^G@-*@@@@G/C@@I1@@@@GFI@@@A)L:[##@-FK0CJX )@@G@@T^G]A[#@-)@@@@@@@@@B>@ U@@@@ N@@@@@\@@@@@\@@@@@E@@@@@KG )@@G@@$'0@@AFQ@@@A)M:[F#@-K@R[)[@@@M @@@@M*@@@@2C.)@@[ @@@@K*@@@@3LQ )@@G@@C.@@@[[@0@@3+@)@@)GV@@@A)Q%[N#ACS[#A-J@@@@@@@@@@@@@@@@@@@@@@@@@@@@/,0@@@LR )@@G@@[[@@@);[@@@+[[@@@4;L@@@]C[@@@)GW@@@A)Q4[M@K0@CSB=@@@@@C@[J_"@DN@ U@@@@@@LS )@@G@@@@@@@@@@@@@@@@@@ D@@@@@@@@@@@@@@@@@@@@@@@@GX@@@A)Q"@V#@C@@@@)#W@)@@@@@@@LT )@@G@@@@@@)@@@@@@@______S SCOREFACTOR/K@@X:*@@@@GH@@@@:GY@@@A)R[@V]I-)K0@LU )@@G@@)#)@K@)R^@V#@-HK0@@@@@#)/,0@@@@DQ@ U______READ @@@@#W@@@@ H/,0@@@GZ@@@ALV )@@G@@)RB[F#@CS^[#@-)B?]AK@@@@[@B)@AC@BJ_"N.@@@AR[0@^9@DR@ U/K@@X+@@@@@1@@@@@@LW )@@G@@@@@@@XHA@@@A)RK[N@^G0CS0K@@@@@C/@__"/=K@V8+@@@@I @@@@I*@@@@ C/)@@[ @@@@GLX )@@G@@*@@@@[C/@@@[8L@@RIHB@@@A)RU[N#ACS^GSCS0@@@C"@@@[H.)@@[T[)@@@C[)@@OH.@@@[LY )@@G@@T[@@@@C[@@@OG@)@@-C/)__"G@@@@OHC@@@A)R=[M^G@]A@@@@@@@@'N@@@O;#@@@MC#@@@@LZ )@@G@@G])@ $H])@@@G])@@@C")@@[G]@@ *H]@@@@G]@@@@HD@@@A)R,[M@[#@-)K0CS@@@][)@ ,MA )@@G@@][@@ :[@)@ ![@@@ ?[@)@[^[]@@@^'M@@@Q;]@@@MC]@@@@[#@@@#HE@@@A)R8[N#@-)[@KMB )@@G@@0@-)@@'K)@@^C^)@ :[@)@@#'K)@@#C^)@ ,8LK@R'[@^)@@C@#)@@N[K@ ?[])@ \HF@@@AMC )@@G@@)S][EK[#@-CK0CS0@@@@@@@@C/)__"T@@@@@C@@@@O@D%@ U/,0@@@[@)@@>C/)@@[8L@@R9MD )@@G@@[@)@@^HG@@@A)SF[F#A-)[#@-)K0CS@@@@@@C/@__"[#)@@5[@)@ :]@@@ !N[@@ !C_)@@[ME )@@G@@H/@@@[[@@@ ?G@)@@OHH@@@A)SO[F#@CS[#@-)K0@@@@@@@@;@@@@MC@@@@@[@)@ 0[@@@ ,MF )@@G@@G@)@ $H@)@@@G@)@@5C@)@@@G@@@@5HI@@@A)SX[F#@@-)^G]A[#@@@@@@@@G@@@@>C@@@ *MG )@@G@@N[K@ ,[@@@@A'K@@ 0;@@@@MC@@@@@[@@@@]'K@@ \HJ@@@A)S&[F#@-)K0@-)K0C]A@@@@@MH )@@G@@R]@@ 18L)@S([@@@@?"@@@@?"C])@@C@A)@@N[)@ : @@@@?[@@@ 1HK@@@A)S\[M^G]A[#@MI )@@G@@]A@@@@][@@@A'P@@@AC @@ ?[[@@@]'L@@@]C @@ ![@)@@>G@)@@>C/)@@[[@C@@@HL@@@AMJ )@@G@@)S9@N@@@@@@@)#+@K@)S;@<@K=*S^@/K@@X:@@@@#+/,0@@@8L@@SM______ANAL 7G_)@@[MK )@@G@@8LK@S=HM@@@A)S_[F#@-&K[#AC]^D#@@@@@@@@@@@-/,0@@@/K@@TT(@@@@GH@@@#?C/@@@]ML )@@G@@/K@@T:(@@@@[@D;@ UHN@@@A)TC@N#@-)@@@)#=@8@@@@@@@IX FORE MATRARIANCD COVMM )@@G@@U C E R O D R E P @@@@ D@@@@ CHO@@@A)#:@C@)TE[##@-#@K0CT^G)@@@@@@@@@@@@BMN )@@G@@@@@@#=@@@@@@@@@@@@@@@@@@/,0@@@@E@@ U______HP@@@A)TM[F#E->K2*S^G]A[@K-CS@MO )@@G@@@@@@@-/,0@@@/K@@T:@E[@ U@@@@@-@@@@ C@@@@@F@@@@@ @@@@@@HQ@@@A)TV@N#@-)@@@MP )@@G@@)#?@8@@@@@@@IX FORN MATRELATIOD CORRU C E R O D R E P @@@@ D@@@@ EHR@@@AMQ )@@G@@)#3@C@)TX[##@-#@K0CT^G)@@@@@@@@@@@@B@@@@#?@@@@@@@@@@@@@@@@@@/,0@@@@E^@ UMR )@@G@@______HS@@@A)T>[F#C-=K2CS^G]A[#A)@@@C/@@@[/K@@VJ(@@@@ @E @ U@@@@@-@@@@ EMS )@@G@@@@@@@4@@@@@"@@@@@IHT@@@A)T,[F#@-)^G]A[#@-)@@@@@@C@[@@@]@@@[^Q@K@ H@@@@>HU@@@A)T7[M^@K1+@-]K0CS@@@@@ C@@@@@-/,0@@@MU )@@G@@/K@@UL(@@@@IH@)@#?C/)@@]8L@@T6]@[)@@"^ )@@HV@@@A)U[@F#@@@@@@)#4[@@@@@@@@MV )@@G@@______FOR ATRIX ANCE MCOVARIA L I D U R E S @@@@ MHW@@@A)U][F#@-#@K0MW )@@G@@CT^G+AO@@@@@@@@@@@@@@@@@@@@@@B@@@@#4@@@@@@@@@@@@@@@@@@/,0@@@@EK@ UHX@@@AMX )@@G@@)UF[F#E->K0CS^G]@-]K0CS@@@@@ E@@@@@-/,0@@@/K@@U<@EL@ U@@@@@-@@@@ C@@@@@FMY )@@G@@@@@@@ HY@@@A)UO@F#@@@@@@)#/[@@@@@@@@______FOR ATRIX ANCE MCOVARIA L MZ )@@G@@I D U R E S @@@@ MHZ@@@A)UP[F#@-#@K0CT^G+AK@@@@@@@@@@I@@@@@@@@@@@B@@@@#/NA )@@G@@@@@@@@@@@@@@@@@@@@/,0@@@@EO@ UIA@@@A)UY[F#C-=K0CS^G]A@K0CM@@/,0@@@[@@@@>NB )@@G@@C/@@@] @@@@?@EP@ U@@@@@-@@@@ E@@@@@4@@@@@"IB@@@A)U$[N#@CS@K0]A[#@@H/@__"NC )@@G@@]@@@@&H@@@@=C/@@@[[#)@@=[@@@[^C_)@@]G@@@@-C/@__.@ET@ UIC@@@A)U1[EK0CS@K0ND )@@G@@CS[#@@@@@@@@G@)@@>C/)@@[[@@@@?"@@@@?"CB@@@C@B@@@O[0@ *R[0@@>]@@@[ ID@@@ANE )@@G@@)U'@:#@)]A@@)^^@K@)U_@F@@@@@@@8L@@U?______ANAL 8G_)@@[[@)@@>G/)@@[8LK@U2NF )@@G@@[@)@@>IE@@@A)V@[F]M-)K^G@-)K0]A@@@@@]@@@@>;K@@@[T@@@@-H@@@@-C/@@@[@E&@ UNG )@@G@@/K@@X:@@@@^^/,0@@@IF@@@A)VD@3]=-)K0CS^G] G)^A@S@SQUAREUM OF (19H0S'^@@@@NH )@@G@@@@)@@?@@K@@>@E*@ U@@[@^A/,0@@@IG@@@A)^D[S@@@@@@@E MATRARIANCAL COVRESIDUNI )@@G@@F THE ENTS OL ELEMIAGONA OFF-DI5,58HS OF ,IH@@@A)^O@K@)VJ@'K0]AH#A@@@@@@NJ )@@G@@H.@@@[T[@@@@C[@@@OG@)@@OC/)__"G@@@@-C/@__"11.5) IX ,GII@@@A)VQ[N#A@]A@@NK )@@G@@@@@@@@H])@@@G])@@@C")@@[G]@@ $H]@@@@G]@@@@C"@@@[H.)@@[T[)@@@C[)@@OIJ@@@ANL )@@G@@)V)[N#@@@@@@@@@@@@[@@@[^[]@@@^'M@@@Q;]@@@MC]@@@@[#@@@#'N@@@O;#@@@MC#@@@@NM )@@G@@G])@ *IK@@@A)V%[F#@-)K0CS@K^G@@@@@@@'K)@@#C^)@ !8LK@V,[@^)@@C@#)@@N[K@ \NN )@@G@@][)@ !][@@ ?[@)@ \IL@@@A)V3[MK0@)]A@K1*S0@C[@@@OG@)@@OC/)__"G@@@@-C/@__"NO )@@G@@8L@@V![@)@@^'K)@@^C^)@ ?[@)@@#IM@@@A)V.[M@^G@-&@@@@@@@C")@@[ @@@@O*@@@@#NP )@@G@@C"@@@[G[)@ *H[)@@@G[)@@@C.)@@[H.@@@[T[@@@@IN@@@A)WB[MK1)C]A@@@@@@@'M@@@MNQ )@@G@@;]@@@MC]@@@@R]@@ +/&K@W>)]@@@Q @@@@Q*@@@@SH#@@#?C_@@@]IO@@@A)WL[E^G]A@K0NR )@@G@@CS^G@@@@@@@@C@&@@@O[)@ &R[)@@&[@@@@&C@C@@@][@@ ?[@)@ \[@@@[^[]@@@]IP@@@ANS )@@G@@)WU[N#@-)^G@)CS@@@O"@@@[[@)@@]'K)@@]C^)@ ?8LK@WW[@])@@"G@@@0C@]@@@N[K@ \NT )@@G@@[@)@@0IQ@@@A)W=[N@K0CT1#G@-<@@*@@@@MH[)@#?C.)@@]C.@@@[ @@@@I(@@@@#C/)@@[NU )@@G@@[@@@@BC@@@ R8L@@WPIR@@@A)W,[M^[#ICS[#A-<@@T[@@@@C[@@@OG@)@@OC/)__"G@@@@-NV )@@G@@C/@__" @@@@B/=0@XN)@)@@K @@@@KIS@@@A)W8[M@K0@@@@@@@@@@[@@@[^[]@@@['M@@@MNW )@@G@@;]@@@MC]@@@@G[)@ *H[)@@@G[)@@@C.)@@[H.@@@[IT@@@A)X][F#@-)K0]AX#I)CS@@@@@NX )@@G@@'K)@@[C^)@ ?8LK@X [@@@@B"@@@@BE@[)@@N[K@ \][@@ ?[@)@ \IU@@@A)XF[MK^G]AG[NY )@@G@@#I-K@@@@@@@@/,0@@@[@@@@B"G@@@L"P@@@IC.@@]VT@)@@OC@)@@-8L@@X^[@)@@[IV@@@ANZ )@@G@@)XP[MK0CS0@K2CS@@@@FP@ U@@@@@B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O@@@@@-OA )@@G@@@@@@@@IW@@@A)XZ@V@K^G@@@)^Q@*@@@@@@@@@@@@@LTANT) CONSU SEE A1H 99.(4A6,2OB )@@G@@@FR@ U/K@@X7N@0@X-IX@@@A)X+[F]=-)K0CS[#A-OK^ES@@'^@@@@8L@@X$'^)@@@C8 )#?OC )@@G@@N.@@@#R[K@^9@FT@ U@@[@^Q/,0@@@IY@@@A)X:[F]=-)K0CS[#A-OK^ES@@'^@@@@8L@@X0OD )@@G@@'^)@@@C8B)#0N.@@@#R[0@^9@FZ@ U@@[@^V/,0@@@IZ@@@A)X4[F@K^G]A[#@-)K0CS^G@@OE )@@G@@9\)@ '9\@@ 89,)@ 69,@@ 49!)@ 2R]0@ V@F>@ U/K@@X7N@0@X6JA@@@A)X.[##@-)K0COF )@@G@@S^G]A[#@-)@@@@@@@@R]@@A#R[0@A]R[)@A[R[K@A@R[@@ _R@0@ "R@)@ .R@K@ /JB@@@AOG )@@G@@)Y @<#@-)K0CS@@@@@) S@C@)YD@N#@-Q@@@/K@@@@/K@K S@@F@@T*4@K SN[)@AAN[K@A OH )@@G@@N[@@A^JC@@@A) U@K@)YF@3#@-)K0CS^G]A@@@@@@@9:)@ '9:@@ 89%)@ 69%@@ 49()@ 2OI )@@G@@AA0@ V@F>@@]S63AMDJD@@@A)YL[##@-)K0CS^G]A[#@-)@@@@@@@@A]@@A#A[0@A]A[)@A[OJ )@@G@@A[K@A@A[@@ _A@0@ "A@)@ .A@K@ /JE@@@A)YT[F#@-)K0]@)C]@)@@@@@@[^@@VZ[^@@Q7OK )@@G@@[^@@C*[^@@C3[^@@C5C8FK@@^[)@AA^[K@A ^[@@A^JF@@@A)Y+[F@K^[@K^[@K^@@@@@@@@OL )@@G@@[^@@W@[^@@W[[^@@WI[^@@W7[^@@W'[^@@W;[^@@W.[^@@]'[^@@VYJG@@@A)Y:[F@K^[@K^OM )@@G@@[@K^@@@@@@@@[^@@VO[^@@^,[^@@R-[^@@R=[^@@]/[^@@]_[^@@#@[^@@V>[^@@V.JH@@@AON )@@G@@)Y4[F@K^[@K^[@K^@@@@@@@@[^@@R>[^@@D2[^@@D5[^@@#E[^@@#G[^@@#I[^@@#L[^@@P'OO )@@G@@[^@@O0JI@@@A)Y.[F@K^[@K^[@K^@@@@@@@@[^@@E*[^@@OX[^@@E5[^@@O![^@@E%[^@@O1OP )@@G@@[^@@O"[^@@E9[^@@BAJJ@@@A)ZA[F@K^[@K^[@K^@@@@@@@@[^@@@N[^@@C7[^@@C'[^@@#XOQ )@@G@@[^@@^J[^@@BE[^@@DA[^@@D,[^@@R:JK@@@A)ZJ[N@K^[@K^[@^[@@[^@@V-[^@@VUC8FK@[OR )@@G@@[^@@FK[^@@E/[^@@D0[^@@E7[^@@C&[^@@E][^@@QMJL@@@A)ZT[F@K^[@K^[@K^@@@@@@@@OS )@@G@@[^@@H@[^@@J=[^@@I][^@@IB[^@@KX[^@@I'[^@@I;[^@@I[[^@@P;JM@@@A)Z+[F@K^[@K^OT )@@G@@[@K^@@@@@@@@[^@@RY[^@@SV[^@@SP[^@@GW[^@@SD[^@@K+[^@@VR[^@@G0[^@@G.JN@@@AOU )@@G@@)Z:[F@K^[@K^[@K^@@@@@@@@[^@@IG[^@@R\[^@@OY[^@@SR[^@@KR[^@@KS[^@@R*[^@@R(OV )@@G@@[^@@VVJO@@@A)Z4[N@K^[@^[#@)C@@C8FK@#[^@@P4[^@@GU[@@@ )[^@@OOC8FK@][^@@G\OW )@@G@@[^@@SZ[^@@G:[^@@JZJP@@@A)Z"[F#@)C]@)C]@)C@@@@@@@[^@@QF[^@@Q0[^@@U^[^@@P*OX )@@G@@[^@@OL[^@@UR[^@@ =[^@@GS[@@@ [@@@ XC8FK@C[^@@G)JT@@@APB )@@G@@))>[MK[@K[@K^G]@@@[^@@Q3[@@@ Y[^@@XV[^@@OTC8FK@G[^@@G<[^@@XUC8FK@F[^@@G+PC )@@G@@C8FK@EJU@@@A))\[N@K^[@^[@K^[@@[^@@Q4[^@@G>[^@@OU[^@@XW[^@@QJC8FK@H[^@@BXPD )@@G@@[^@@G=[^@@P6[^@@QIJV@@@A))9[MK^[@K^[@K^[@@[^@@AE[^@@BZ[^@@XS[^@@^;[^@@QKPE )@@G@@[^@@]?[^@@UA[^@@OV[^@@UTC8FK@IJW@@@A)-#[N@K^[@K^[#@)]@[^@@P/C8FK@J[^@@TIPF )@@G@@[@@@ +[^@@L/[^@@Q5[^@@ E[^@@]T[^@@T-[^@@P7JX@@@A)-H[N@K[@K^[@^[@@@[^@@Q6PG )@@G@@[^@@^DC8FK@L[^@@QH[^@@Q2[^@@OW[^@@P8C8FK@K[^@@QG[^@@Q1JY@@@A)-R[F@K^[@K^PH )@@G@@[@K^@@@@@@@@[^@@L;[^@@A^[^@@L6[^@@]:[^@@^'[^@@US[^@@U [^@@BT[^@@ADJZ@@@API )@@G@@)-)[N@K^[@K^[@K^@@C8FK@M[^@@XT[^@@TH[^@@BY[^@@T)[^@@QL[^@@ D[^@@OP[^@@P9PJ )@@G@@[^@@]SKA@@@A)-%[N@K[@K[@K[@@@@[^@@ *C8FK@P[^@@QQ[^@@Q;C8FK@O[^@@Q'[^@@QPPK )@@G@@C8FK@N[^@@Q9[^@@QOKB@@@A)-4@+K[@@@@@)^V@*@@@@@@@RMINATSIS TE ANALY1H 27.PL )@@G@@(4A6,5[^@@G&C8FK@R[^@@[3C8FK@QKC@@@A)^)@*@@@@@@@)-8@F@@@@@@@)^>@K@PRINCIPM )@@G@@@@@@[=/K@@@@RRORS)IOUS EF PREVAUSE OED BECKD@@@A)^$[S@@@@@@@ESCALINESS RPN )@@G@@UNIQUERE ROCEDUCTOR PPAL FACEDURETS PROMPONENPAL COKE@@@A)^2[S@@@@@@@PO )@@G@@ARIANCON COVBASED @@[@@[IMAGE E OCEDURING PRFACTORALPHA NG PROKF@@@APP )@@G@@)^.[S@@@@@@@IMATESED ESTUNBIASATES ESTIMLIHOODM LIKEMAXIMU@@[@@^IX PQ )@@G@@E MATRKG@@@A) C[S@@@@@@@@@@@@]@@@@@^@@@@@EI4ADH5KB_\$V@@@@@#KG@@@@@@[@@@PR )@@G@@@@@@@G@@@@@@@@@@@DKH@@@A) N@*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PS )@@G@@J/3G3HMBER ION NUITERAT@@@@@[KI@@@A@@@@@@)YF@3#@-)K0CS^G]A@@@@@@@9:)@ 'PT )@@G@@9:@@ 89%)@ 69%@@ 49()@ 2AA0@ V@F>@@]S63AMDJD@@@A@@^@@D@@H@@R@@;@@[@@_@@BPU )@@G@@@@ @AB@C@@-9@@@@@]@@@@#5@@@@[J@@@@@L@@@@@A@@@@@C@@@@@ S1GTAG S1HEDCPV )@@G@@ S1HED2 S1PLTM S1HED4 S1PRVC S1INV S1TIMTPW )@@G@@ S1VFWC S1VFWT S1EIG S1ENCI S6OUT S1VCSRPX )@@G@@ S6COEF S63SCR S6RANK NERR2$ NPRT$ NIO2$ PY )@@G@@ NIO1$ SQRT NERR3$ S63AMD @@[@@@@@@@YFBLANK$PZ )@@G@@ ^@@@C@@]@@@@S6BLK ]@@@C@@#@@@@S6FMTS ]@@@C@@^@@@@S63FMTQA )@@G@@ ]@@@C@@ @@@@S63NBK ]@@@C@@A@@@@S63SBH ]@@@C@@B@@@@S63BSVQB )@@G@@ ]@@@C@@C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QD )@@G@@)@ @K@)@@@;]]A^GCSK0)CS@@[ @@*/K@@@B@@@@@]@@@@@[@@@@@@@@@@@ /,0@@@______QE )@@G@@SYSERRAA@@@A)@B[N##2JC-)K0C@@@/@@@@OC@[@@@[#)@@#N.@@@IR@K@@:C_)@@[[@[J_"QF )@@G@@G/@@@[C@[J_"R@K@@@AB@@@A)@L[M^@K0--]MA^G@@C.)__"@[L@@*@@[@@B/,0@@@]@@@@#QG )@@G@@H@@@@#C/@@@[8L@@@IG_)@@[O/K@@[AC@@@A)@V@;#]A^G@-H@@@@@)@B@K@*****S(030H QH )@@G@@8L@@@Z'^K@@@C8[)@@[[)@[^Q@K@@:R@K@@@F#@@@@@@QJ )@@G@@)@I[@@@@@@@@UTPUT WITH OLTANT CONSU SEE APLEASE***** (052H @[S@@*AF@@@AQK )@@G@@)@Q[S@@@@@@@GES MA MESSAONEOUSG: ERRWARNIN *****./045HT DECK1HINPUUR ,01QL )@@G@@AND YOAG@@@A)@-@K@)@&@;]+^OGCS^GC@@@N@0@@,@[V@@*@@@@@@@@@@@>@@@@@=/,0@@@QM )@@G@@'^@@@@OW.) Y FOLLAH@@@A)@![#@K0--#]A^GCSK0@@@@@@@@@@@*4@K@&N[@@@1R@K@@0QN )@@G@@9\)@@,9!)@@?R]0@@(@[W@@*/K@@@\AI@@@A)@&@C@)@5@N#] K@@@)@*@K@)@7@N#]A@@@@QO )@@G@@9()@@?AA0@@(@[W@@#S1SERR/K@@@@/K@K@&@@F@@]AJ@@@A)@9@;#]A^G]@--@@@@)@<@K@QP )@@G@@@@@@@]@@[@@@/K@@@@[@@@@:[^@@@%C8FK@@^[@@@1A@K@@09:)@@,AK@@@A)@>@C@@@@@@@QQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@_AL@@@AQR )@@G@@@@^@@#@@B@@A@@N@@[@@R@@[@@#@@2@C@@[@@@@@@[S1GTAG S1LOGP NPRT$ QS )@@G@@ NIO1$ NIO2$ NERR3$ S1SERR @@[@@@@@@@@7BLANK$QT )@@G@@ ^@@@C@@]@@@@@@@@@@*[@@@@*SDFF*@ @@@@ SUBROUTINE S1AUSP( SIG) QU )@@G@@@]@@@@C SJM @D@@@@C TITLE -PRINT OUTPUT MEDIUM MESSAGES(S1QV )@@G@@AUSP) @B@@@@C AUTHOR -ROGER VOYTECKI,NOV.1970 @B@@@@C PROGRAQW )@@G@@MMER-ROGER VOYTECKI,NOV.1970 @[@@@@C @#@@@@C 1.0 PURPOSE @G@@@@QX )@@G@@C S1AUSP PRINTS MESSAGES DESCRIBING MEDIUM-DEPENDENT ASPECTS OF QY )@@G@@@A@@@@C OUTPUT PERFORMED BY S1AUS. @[@@@@C @^@@@@C 2.0 CALLINQZ )@@G@@G SEQUENCE @G@@@@C S1AUSP IS CALLED WITH ONE PARAMETER WITH ONE OF RA )@@G@@TWO VALUES--- @^@@@@C A) CALLS1AUSP(K) @#@@@@C WHERE RB )@@G@@@C@@@@C K HAS THE INTEGER VALUE 1 OR 'BEGIN' @B@@@@C THIRC )@@G@@S CALL PRODUCES TWO LINES. @^@@@@C 1) (BLANK) @G@@@@C RD )@@G@@ 2)-----------------BEGIN CONTROL WORD OUTPUT TO MEDIUM---------@F@@@@RE )@@G@@C B) CALL S1AUSP(K) WHERE K HAS THE INTEGER VALUE 2 OR 'END' @A@@@@RF )@@G@@C THIS CALL PRODUCES 5 LINES @^@@@@C 1) (BLANK) @G@@@@RG )@@G@@C 2)--------------------END CONTROL WORD OUTPUT------------------RH )@@G@@@G@@@@C 3)TOTAL OF N CARDS(OR CARD IMAGES) HAVE BEEN PUNCHED(OR WRI )@@G@@RITTEN@^@@@@C SOMEWHERE) @ @@@@C 4)MEDIUM DEPENDENT RJ )@@G@@@#@@@@C 5)MESSAGE@[@@@@C @ @@@@C 3.0 NOTES/RELATIONSHIPS RK )@@G@@@B@@@@C REFERENCES TO TAGGED STORAGE-NONE. @ @@@@C ROUTINES CALRL )@@G@@LED-NONE. @G@@@@C THE CALL S1AUSP('BEGIN') MAY BE MADE ANYTIME AFTRM )@@G@@ER THE CALL TO @C@@@@C S1AUSI,AN ENTRY POINT IN ELEMENT S1AUS. RN )@@G@@@F@@@@C THE CALL S1AUSP('END') MAY BE MADE ANYTIME AFTER THE CALL TORO )@@G@@@C@@@@C S1AUST,AN ENTRY POINT IN ELEMENT S1AUS. @[@@@@C @]@@@@RP )@@G@@C ENDSJM@ @@@@ IMPLICIT INTEGER( A-Z) @G@@@@ COMMON / AUSRQ )@@G@@PBK / FNAM(2), CW(2), MODEL, DEVICE, ERRFLG, STATUS, @G@@@@ 2 RR )@@G@@ NCARDS @^@@@@ RS )@@G@@DATA MODEL/'USER'/@[@@@@C @B@@@@C S1AUSP--PRINT MESSAGES FOR RT )@@G@@S1AUS @F@@@@C SIG=1 OR 'BEGIN', PRINTS ----BEGIN OUTPUT---- MESRU )@@G@@SAGE. @E@@@@C MAY BE CALLED ANY TIME AFTER S1AUSI IS CALLED RV )@@G@@@E@@@@C SIG=2 OR 'END', PRINTS ----END OUTPUT--- MESSAGE @G@@@@RW )@@G@@C MAY BE CALLED ANY TIME AFTER CALL TO S1AUST (AND AFTER RX )@@G@@@B@@@@C CALL TO S1AUSP('BEGIN') ) @[@@@@C @[@@@@C RY )@@G@@@A@@@@ DATA PUNCH/1/ TAPE/2/ DRUM/3/@ @@@@ DATA DASH/'------RZ )@@G@@'/ @D@@@@ DIMENSION DNAME(3)/'CARDS', 'TAPE', 'DRUM'/ @[@@@@SA )@@G@@C @A@@@@ IF( MODEL .EQ. 'USER') RETURN @D@@@@ IF( SIG .NE.SB )@@G@@ 1 .AND. SIG .NE. 'BEGIN') GO TO 40@ @@@@C PRINT BEGIN MESSAGE SC )@@G@@@A@@@@ IF( MODEL .LE. 0) GO TO 30 @G@@@@ PRINT 2000, (DASH,SD )@@G@@I=1,7), CW, MODEL, DNAME(DEVICE), (DASH ,J=1,5) @G@@@@2000 FORMAT('0', SE )@@G@@7A6, 'BEGIN ', 2A6, ' MODEL', I6,' OUTPUT TO ',A5,5A6)@]@@@@ RETURNSF )@@G@@@F@@@@30 PRINT 3000, (DASH,I=1,7), CW, DNAME(DEVICE),(DASH,J=1,7) SG )@@G@@@E@@@@3000 FORMAT('0', 7A6, 'BEGIN ', 2A6, ' OUTPUT TO ', A5,7A6)@]@@@@SH )@@G@@ RETURN@[@@@@C @ @@@@C PRINT END MESSAGE @A@@@@40 SI )@@G@@IF( ERRFLG .NE. 0) GO TO 80 @C@@@@ PRINT 4000, (DASH,I=1,7), CW, SJ )@@G@@(DASH,J=1,9)@E@@@@4000 FORMAT('0', 7A6, 'END ', 2A6, ' OUTPUT', 8A6, A5SK )@@G@@) @B@@@@ IF( DEVICE .NE. PUNCH) GO TO 50 @ @@@@ PRINT SL )@@G@@4001, NCARDS, CW @G@@@@4001 FORMAT( 30X,'TOTAL OF', I7, ' CARDS HAVE BSM )@@G@@EEN PUNCHED FOR ', 2A6, @^@@@@ 2 ' OUTPUT',//) @]@@@@ RETURNSN )@@G@@@C@@@@50 PRINT 5000,NCARDS, DNAME(DEVICE), FNAM, CW@F@@[@5000 FORMATSO )@@G@@( 30X, I7, ' CARD IMAGES HAVE BEEN WRITTEN TO ', @D[@@@ 2 A4, 'SP )@@G@@ FILE ', 2A6, ' FOR ', 2A6, ' OUTPUT') @A@@@@ IF( DEVICE .EQ. TASQ )@@G@@PE) GO TO 70@^@@@@C -- DRUM -- @^@@@@ PRINT 6000, FNAM SR )@@G@@@E@@@@6000 FORMAT( 30X, 'DRUM FILE ', 2A6, ' HAS BEEN REWOUND'/) @]@@@@SS )@@G@@ RETURN@^@@@@C -- TAPE -- @^@@@@70 PRINT 7000, FNAM ST )@@G@@@G@@@@7000 FORMAT( 30X, 'TAPE FILE ', 2A6, ' HAS BEEN DOUBLY HARDWARE ESU )@@G@@NDFILE@F@@@@ 2D AND BACKSPACED OVER', /, 53X, 'SECOND END-OF-FILE MASV )@@G@@RK') @]@@@@ RETURN@^@@@@C -- ERRORS -- @ @@@@80 IF( STSW )@@G@@ATUS) 81, 82, 83 @^@@@@81 PRINT 8100, FNAM @G@@@@8100 FORMAT('0***SX )@@G@@**UNRECOVERABLE OUTPUT ERROR--OUTPUT OPERATIONS ON FIL@A@@@@ 2E ', 2SY )@@G@@A6, ' DISCONTINUED') @]@@@@ RETURN@#@@@@82 PRINT 8200 @F@@@@SZ )@@G@@8200 FORMAT('0STATJOB SYSTEM ERROR IN S1AUS--SEE CONSULTANT') @]@@@@TA )@@G@@ RETURN@A@@@@83 GO TO( 81, 84, 85, 81), STATUS@#@@@@84 PRINT TB )@@G@@8400 @G@@@@8400 FORMAT('0*****FILE OUTPUT ERROR--OUTPUT DISCONTINUED DTC )@@G@@UE TO') @C@@@@ PRINT 8401, DNAME(DEVICE),NCARDS, FNAM @G@@@@TD )@@G@@8401 FORMAT( 11X, 'END-OF-', A4, ' ENCOUNTERED AT CARD ', I7, ' OF FILETE )@@G@@@#@@@@ 2 ', 2A6) @]@@@@ RETURN@#@@@@85 PRINT 8400 @ @@@@TF )@@G@@ PRINT 8500, NCARDS, FNAM@G@@@@8500 FORMAT( 11X, 'HARDWARE, PARITYTG )@@G@@, OR CHARACTER COUNT ERRORS ENCOUNTE@B@@@@ 2RED AT CARD ', I7, ' OF TH )@@G@@FILE ', 2A6)@]@@@@ RETURN@]@@@@ END ___ANY TIME AFTER CALL TTI )@@G@@O S1AUST (AND AFTER @B@@@@C CALL TO S1AUSP('BEGIN') ) TJ )@@G@@)@^@G@)@@@8@@@@@@@@@@@8@@@@@@@DRUM TAPE CARDS ------@@@@@#@@@@@]@@@@@[TK )@@G@@USER AA@@@A)@@[N[K0)*S^[@K^G@C/@@@[@[J@]-/K@@#XN@0@@C/K@@@D*@@@@GH@@@]WTL )@@G@@C@@@@^A@K@]=R@K@@ AB@@@A)@E[UK0@@]@@/=K@[D+@@@@I @@@@I(@@@@KH[@@@@C.@@@[TM )@@G@@C/)@@[ @@@@G(@@@@IH@)@]XC@)@@@AC@@@A)@P[N[[@K)--#@--]C'^K@@@C8@@@#N.@@@ATN )@@G@@@[O@]-@@[@@D/,0@@@/K@@@21@@@@G*@@@@GD@@@@^AD@@@A)@Z[F@K0CE^O[[K+-)@@@@@@TO )@@G@@R@K@]='^K@@@C8@@@^8L@@@+'^K@@@C8[)@[N.@@@[R@K@]Y8L@@@XAE@@@A)@*@3#]^L#]^TP )@@G@@O@@@@@)@D@S@06HBEG,7A6,0(001H08L@@@:'^K@@@C8@@@#N.@@@^'^K@@@C8[@@#AF@@@ATQ )@@G@@)@G[@@@@@@@@)@,@F]K@@@@@'^@@@@A6) ,A5,5PUT TO1H OUT,I6,01 MODEL6,006HTR )@@G@@IN ,2AAG@@@A)@\[F@K^GCKK0--[^G@@@@@@C8@@@#N.@@@AR@K@@ @[&@]-@@[@@O/,0@@@TS )@@G@@@[>@]-/K@@#XN@0@@1AH@@@A)@8[F]E@-)KOC*]A^C)@@@@@'^K@@@C8[@@#8L@@@/'^K@@@TT )@@G@@C8])@[N.@@@[R@)@]Y8L@@@7'^K@@@AI@@@A)[[@+K0- @@@)@O@*@@@@@@@6,011HIN ,2ATU )@@G@@06HBEG,7A6,0(001H08L@@[]'^K@@@C8@@@#N.@@@AAJ@@@A)@T@)@@@@@@@)[ @<]M@)CS@TV )@@G@@@@@@@@@[6@]-/K@@#XN@0@[C'^@@@@) A5,7A6T TO , OUTPUAK@@@A)[D[F[K^CCSKTW )@@G@@0CSK+)@@@@@@8L@@[J'^K@@@C8@@@#N.@@@A@[9@]-@@[@@X/,0@@@/K@@]U*@@@@AAL@@@ATX )@@G@@)[M[F#@)*LK[#]^O@@@@@@@@8L@@[S'^K@@@C8@@@#N.@@@C8L@@[O'^K@@@C8])@[N.@@@[TY )@@G@@R@)@]YAM@@@A)@X[@@@@@@@@)[V@F]K@@@@@'^@@@@) 8A6,A5UTPUT,007H O ,2A6,TZ )@@G@@04HEND,7A6,0(001H0AN@@@A)[W[F#]]C]^^GCSKOG@@@@@@R@K@]Y@@K@@C@]E@]-@@[@@>UA )@@G@@/,0@@@/K@@[!*@@@@GH@@@@ C@@@@@AO@@@A)[>@+KOC*@@@)@>@*@@@@@@@H CARDI7,029UB )@@G@@AL OF,08HTOT(30X,08L@@[&'^K@@@C8[)@[N.@@@[AP@@@A)@%[@@@@@@@@)[(@F]K@@@@@UC )@@G@@'^@@@@/) TPUT,/07H OU,2A6,0D FOR PUNCHE BEEN S HAVEAQ@@@A)[%[F@K^GCE^UD )@@G@@^GCSKOG@@@@@@@M@@#@@K@@C@]N@]-@@[@@2/,0@@@R@)@@ @]M@]-/K@@#XN@0@[?AR@@@AUE )@@G@@)[3[F#@/*LK^G]]-^@@@@@@@'^K@@@C8])@[N.@@@[R@)@]Y8L@@[5'^K@@@C8[\_"N.@@@[UF )@@G@@R@K@]YAS@@@A)[/@F@@@@@@@)@2[@@@@@@@@ TO ,ARITTENBEEN W HAVE IMAGES CARD UG )@@G@@7,034H(30X,I8L@@['AT@@@A)@'[@@@@@@@@)[.@F]K@@@@@'^@@@@) OUTPUT,007H UH )@@G@@R ,2A605H FO,2A6,0 FILE 4,006HAU@@@A)["[F#]]C]^^GCSK0@@@@@@@N.@@@[R@K@]YUI )@@G@@@]+@]-@@[@[]/,0@@@/K@@]I(@@@@GH@@@@ C@@@@[AV@@@A)]B@V9K+)@@@)[]@0@@@@@@@UJ )@@G@@AS BEE017H H ,2A6,M FILE10HDRU(30X,08L@@]B'^K@@@C8[\_"AW@@@A)[C@K@)]E@;]UK )@@G@@M@)CSK)--#@@@]%@]-@@[@[E/,0@@@@](@]-/K@@#XN@0@]H'^@@@@UND/) N REWOAX@@@AUL )@@G@@)]L@:#@/*LK@)[E@)@@@@@@@ ,2A6,E FILE10HTAP(30X,08L@@]N'^K@@@C8]\_"N.@@@[UM )@@G@@R@)@]YAY@@@A)[I[S@@@@@@@,53X,0OVER,/PACED BACKSED ANDENDFILDWARE LY HARUN )@@G@@N DOUBAS BEE054H HAZ@@@A)[T@*@@@@@@@)]Q@<]M@)CS@@]1@]-/K@@#XN@0@]T'^@@@@UO )@@G@@RK) ILE MAD-OF-FOND EN23HSECBA@@@A)]U[F[K^[]]A^GCSB=@@@@@@C8[\_"N.@@@[UP )@@G@@R@K@]Y@]5@]-@@[@[Y/,0@@@/C@@]0/@@@](C@@@@BBB@@@A)]<@N]E@@@@@)[Y@8@@@@@@@UQ )@@G@@R--OUTT ERRO OUTPUERABLENRECOV*****U(060H08L@@]+'^K@@@BC@@@A)[>[@@@@@@@@UR )@@G@@)]>@F]K@@@@@'^@@@@UED) CONTIN3H DIS2A6,01FILE ,NS ON ERATIOPUT OPBD@@@AUS )@@G@@)]&@3@K^GCKK0-)@@@)[!@S@B SYSTSTATJO(046H0@].@]-@@[@[!/,0@@@@]/@]-/K@@#XUT )@@G@@N@0@]*BE@@@A)[0@0@@@@@@@)]?@V]M@)@@@/K@@#XN@0@]\'^@@@@ANT) ONSULT-SEE CUU )@@G@@S1AUS-OR IN EM ERRBF@@@A)]\[F#]]C]^4GC]@)@@@@@@@/K@@#G/K@@]9/K@@]X@#[@]-UV )@@G@@'^@@@@8];@]4$'0@@ RA0@@B@#@@]-BG@@@A)]8@<@K)--#@)[6@*@@@@@@@RROR--TPUT EUW )@@G@@ILE OU*****F(051H0@#]@]-@@[@[6/,0@@@/K@@]XBH@@@A)[;@*@@@@@@@)]/@<]M]-[#@UX )@@G@@@@[@]@/,0@@@R@)@@ '^@@@@TO) D DUE NTINUE DISCOOUTPUTBI@@@A)#@[##]A^ #@UY )@@G@@/*LK@@)]@@C@(11X,08L@@# '^K@@@C8[\_"N.@@@[R@K@]Y@@K@@C@@M@@#@# @]-BJ@@@AUZ )@@G@@)][[S@@@@@@@) E ,2A6OF FIL,009H RD ,I7 AT CANTERED ENCOU4,021H-OF-,AVA )@@G@@07HENDBK@@@A)#C[F]M@)CSK)--#]^=C@@@@/,0@@@'^@@@@@#J@]-@@[@[6/,0@@@@#I@]-VB )@@G@@/K@@#XN@0@#F'^@@@@BL@@@A)#L[##]A^ #@/*LK@@)]G@C@(11X,08L@@#Q'^K@@@C8]\_"VC )@@G@@N.@@@[R@)@]Y@@K@@C@#L@]-@@[@]GBM@@@A)]H[S@@@@@@@T CARDERED ANCOUNTRORS EVD )@@G@@UNT ERTER COCHARACY, OR PARITDWARE,64HHARBN@@@A)]S@)@@@@@@@)#T@<]M@)CS@VE )@@G@@@@@@@@@#T@]-/K@@#XN@0@#W'^@@@@,2A6) FILE 09H OF ,I7,0BO@@@A)#X@:#]A^GCSVF )@@G@@K0@@@@)]Z@C@)#+@F#@@@@@@/K@K]Z@@F@@]*4@K]ZN[@@]$R@)@]&R@K@]>R]0@]+BP@@@AVG )@@G@@)#<@F])@@@@@)]-@K@)#=@<#]A^GCS@@@@@@^[@@]$A@)@]&A@K@]>AA0@]+@#T@@]S1AUSPVH )@@G@@/K@@@@BQ@@@A)#*@+K^[@@@@)]W@S@@@@@@@@@@@@@@@@@@@@@[@@[BEGIN USER /K@@@@VI )@@G@@[^@@@E[^@@@KC8FK@@BR@@@A@@^@@#@@B@@ @@L@@[@@P@@[@@#@]*@C@@#?@@@@@DNPRT$ VJ )@@G@@ NIO1$ NIO2$ NERR2$ NERR3$ S1AUSP @@[@@@VK )@@G@@@@@@#=AUSPBK ]@@@C@@]@@@@@@@@@@@@@@@@@@@@@@*[@@@@*SDFF*@G@@@@ VL )@@G@@SUBROUTINE S1RCOP( SUM, XMIN, XMAX, PROD, DF, NV, PREC, IERR) @]@@@@VM )@@G@@C SJM @D@@@@C TITLE - READ CARRY-OVER PACKAGE(S1RCOP) VN )@@G@@@C@@@@C AUTHOR - JANA VRABEC, JANUARY, 1971 @B@@@@C PROGRAVO )@@G@@MMER - ROGER VOYTECKI, 1969 @[@@@@C @#@@@@C 1.0 PURPOSE @G@@@@VP )@@G@@C S1RCOP READS A SINGLE- OR DOUBLE-PRECISION STATJOB CARRY-OVER VQ )@@G@@@G@@@@C PACKAGE AND STORES RESULTS IN EITHER PRECISION, CONNECTING IVR )@@G@@F @G@@@@C NECESSARY. HAS BUILT IN THE CAPABILITY TO ACCUMULATE VS )@@G@@TWO OR MORE @G@@@@C CARRY-OVER PACKAGES INTO ONE CARRY-OVER PACKAGE,VT )@@G@@ WHEN THE COP'S @B@@@@C ARE SEPARATED BY COPCOMBIN CARDS @[@@@@VU )@@G@@C @^@@@@C 2.0 CALLING SEQUENCE @D@@@@C 2.1 S1RCOP IS CALLED BY A STVV )@@G@@ATEMENT OF THE FORM @E@@@@C CALL S1RCOP(SUM,XMIN,XMAX,PROD,DFVW )@@G@@,NV,PREC,IERR) @]@@@@C WHERE @E@@@@C SUM IS VECTOR WHERE THVX )@@G@@E NV SUMS ARE TO BE STORED @F@@@@C XMIN VECTOR WHERE THE NV MINIVY )@@G@@MUM VALUES ARE TO BE STORED @F@@@@C XMAX VECTOR WHERE THE NV MAXIVZ )@@G@@MUM VALUES ARE TO BE STORED @F@@@@C PROD VECTOR WHERE THE NV(NV+1WA )@@G@@)/2 PRODUCTS ARE TO BE STORED @G@@@@C DF VARIABLE WHERE NUMBER OFWB )@@G@@ OBSERVATIONS IS STORED AS A REAL @#@@@@C VALUE @A@@@@C WC )@@G@@NV NUMBER OF VARIABLES @G@@@@C PREC HAS TWO POSSIBLE VALUES.WD )@@G@@ 'SINGLE' DENOTES OUTPUT SHOULD BE @G@@@@C OF TYPE SINGLE, 'DWE )@@G@@OUBLE' DENOTES OUTPUT OF TYPE DOUBLE. @B@@@@C IERR NUMBER OF ERWF )@@G@@RORS ENCOUNTERED @G@@@@C 2.2 INITIALIZATION ENTRY POINT S1RCPI IS CALLEWG )@@G@@D BY A STATEMENT OF THE @#@@@@C FORM @A@@@@C CALL SWH )@@G@@1RCPI(GO,IERR) @]@@@@C WHERE @F@@@@C GO IS A FLAG, RETURNED AWI )@@G@@S 1 IF NO ERRORS OCCURRED DURING @C@@@@C INITIALIZATION ANDWJ )@@G@@ AS 0 OTHERWISE. @G@@@@C IERR IS A FLAG RETURNED AS 0 IF NO ERRORS WK )@@G@@DURING INITIALIZATION @A@@@@C AND READING, 1 OTHERWISE @F@@@@WL )@@G@@C 2.3 INITIALIZATION ENTRY POINT S1RCPJ, CALLED WHEN SEVERAL@G@@@@WM )@@G@@C CARRY-OVER PACKAGES ARE TO BE READ BEFORE END OF ANALYSIS, BUT AREWN )@@G@@@G@@@@C NOT TO BE COMBINED (SOME MAY BE COMBINED). THIS ENTRY IS CALWO )@@G@@LED BY@G@@@@C THE PROGRAM BEFORE ALL BUT THE FIRST CALL TO S1RCOP. SWP )@@G@@1RCPI IS @G@@@@C CALLED BY S1GDST AS PART OF STANDARD INITIALIZATWQ )@@G@@ION DONE ONCE PER @F@@@@C DATA SET. S1RCPJ HAS THE SAME CALLING SEQUWR )@@G@@ENCE AS S1RCPI. @[@@@@C @ @@@@C 3.0 NOTES/RELATIONSHIPS @G@@@@WS )@@G@@C REFERENCES TO TAGGED STORAGE - TAG 'ERVEC' IS USED TO GET LOCATIONWT )@@G@@@G@@@@C OF VECTOR WHERE ERROR CODES FROM S1INDC WU )@@G@@ARE TO@A@@@@C BE STORED,@G@@@@C WV )@@G@@ UNDER TAG 'INROUT' A FLAG IS STORED WHICH @D@@@@C WW )@@G@@ TELLS THE TYPE OF INPUT @G@@@@C ROUTINES CALLED - WX )@@G@@S1COPI AND S1COPS, FIRST ONE TO INITIALIZE, @G@@@@C WY )@@G@@ SECOND ONE TO STORE 5 DOUBLE OR 10 SINGLE @D@@@@C WZ )@@G@@ PRECISION VALUES EACH CALL. @G@@@@C XA )@@G@@S1GTAG AND S1GVAL TO RETRIEVE INFORMATION FROM @B@@@@C XB )@@G@@ TAGGED STORAGE @C@@@@C S1GTFN TO GET FILEXC )@@G@@ NAME @F@@@@C S1INDC TO DECODE VALUES OF INPUT VARXD )@@G@@IABLES@G@@@@C S1INHC AND S1INHS TO PROVIDE HEADINGXE )@@G@@ OR SKIPPING@D@@@@C LINES WHEN PRINTING MESSAGESXF )@@G@@@F@@@@C S1INEP TO PRINT STANDARD MESSAGE HEADINGS XG )@@G@@@E@@@@C WHEN ERRORS FOUND IN INPUT RECORD @F@@@@XH )@@G@@C S1INR1 TO GET NEXT RECORD FROM INPUT FILE @F@@@@XI )@@G@@C S1INP1 TO PRINT ONE CARD FROM INPUT RECORD@G@@@@XJ )@@G@@C S1PRFT AND S1PRST TO CORRECT DATA SET LABEL IF XK )@@G@@@A@@@@C NECESSARY @F@@@@C XL )@@G@@S1RED TO GET ONE CARD FROM INPUT FILE @G@@@@C XM )@@G@@ERPROC INTERNAL SUBROUTINE TO PROCESS ERRORS @B@@@@C XN )@@G@@ FROM S1INDC @[@@@@C @G@@@@C THE STATJOB CARRY-OVER PXO )@@G@@ACKAGE CONSISTS OF CARD-IMAGE RECORDS AS @#@@@@C FOLLOWS: @[@@@@XP )@@G@@C @G@@@@C A) BEGINDATA CARD CONTAINING DATA SET LABEL OF INPUXQ )@@G@@T DATA SET @B@@@@C FROM WHICH COP WAS GENERATED. @B@@@@C XR )@@G@@ B) COP HEADER CARD CONTAINING ---@A@@@@C 1 - 4 4HCXS )@@G@@OP @F@@@@C 5 - 10 FIRST FIVE CHARACTERS OF DATA SETXT )@@G@@ LABEL@C@@@@C FOLLOWED BY BLANK. @E@@@@C XU )@@G@@ 11 - 14 FOUR ZEROES (SEQUENCE NUMBER) @C@@@@C XV )@@G@@ 15 - 18 NUMBER OF VARIABLES @B@@@@C 19 - 28 10HXW )@@G@@ VARIABLES @D@@@@C 29 - 35 NUMBER OF OBSERVATIONS XX )@@G@@@C@@@@C 36 - 54 19H OBSERVATIONS RUN@A@@@@C XY )@@G@@ 55 - 56 RUN I.D. @A@@@@C 57 - 58 BLANK @C@@@@XZ )@@G@@C 59 - 66 MM/DD/YY (DATE) @A@@@@C YA )@@G@@67 - 68 BLANK @D@@@@C 69 - 74 6HSINGLE OR 6HDOUBLYB )@@G@@E @A@@@@C 75 - 80 6H PREC. @[@@@@C @B@@@@C YC )@@G@@ C) DATA CARDS CONTAINING --- @A@@@@C 1 - 4 4HCYD )@@G@@OP @F@@@@C 5 - 9 FIRST FIVE CHARACTERS OF DATA SETYE )@@G@@ LABEL@A@@@@C 10 BLANK @E@@@@C YF )@@G@@11 - 14 CARD SEQUENCE NUMBER (ZERO FILE) @A@@@@C 15 - 2YG )@@G@@0 BLANK @G@@@@C 21 - 80 TEN A6 FIELDS CONTAINING DAYH )@@G@@TA, 10 SINGLE @F@@@@C PRECISION OR 5 DOUBLEYI )@@G@@ PRECISION VALUES.@G@@@@C DATA CARDS CONTAIN SUMS, MINIMUMS, MAYJ )@@G@@XIMUMS, AND THE LOWER @G@@@@C TRIANGULAR PORTION (BY ROW) OF YK )@@G@@THE RAW PRODUCTS MATRIX, IN @G@@@@C THAT ORDER. EACH OF THESYL )@@G@@E FOUR TYPES OF OUTPUT BEGINS ON A @ @@@@C NEW CARD IMAGE. YM )@@G@@@[@@@@C @ @@@@C D) AN ENDOFDATA CARD @[@@@@C @]@@@@C YN )@@G@@ENDSJM@ @@@@ IMPLICIT INTEGER (A - Z)@^@@@@ INCLUDE INBK, LISTYO )@@G@@@#@@@@ COMMON C(1) @#@@@@ LOGICAL RERR@#@@@@ REAL DF YP )@@G@@@[@@@@C @E@@@@ DIMENSION HEDFMT(18), DATFMT(26), DATA(13), BUF(YQ )@@G@@10) @ @@@@ DIMENSION COPCOM(14) @D@@[@ DIMENSION SAVDSL(1YR )@@G@@4)/'BEGINDATA*******',11*1H / @[@@@@C @A@@@@ DATA MSK1 / O7777YS )@@G@@77777700 / @#@@@@ DATA CL/0/ @[@@@@C @A@@@@ DATA (HEDFMTYT )@@G@@(I), I=1,18) / @ @@@@ 1 O1000001,O004 06 00 00,@ @@@@ 2 O1000YU )@@G@@005,O011 06 00 00,@ @@@@ 3 O1000013,O016 05 00 00,@ @@@@ 4 O1000YV )@@G@@020,O022 05 00 00,@ @@@@ 5 O1000035,O043 05 00 00,@ @@@@ 6 O1000YW )@@G@@067,O070 06 00 00,@ @@@@ 7 O1000073,O100 06 00 00,@ @@@@ 8 O1000YX )@@G@@101,O102 06 00 00,@ @@@@ 9 O1000105,O112 06 00 00/@[@@@@C @A@@@@YY )@@G@@ DATA ( DATFMT(I), I=1,26) / @ @@@@ 1 O1000001,O003 06 00 00,YZ )@@G@@@ @@@@ 2 O1000005,O011 06 00 00,@ @@@@ 3 O1000013,O016 05 00 00,ZA )@@G@@@ @@@@ 4 O1000025,O032 06 00 00,@ @@@@ 5 O1000033,O040 06 00 00,ZB )@@G@@@ @@@@ 6 O1000041,O046 06 00 00,@ @@@@ 7 O1000047,O054 06 00 00,ZC )@@G@@@ @@@@ 8 O1000055,O062 06 00 00,@ @@@@ 9 O1000063,O070 06 00 00,ZD )@@G@@@ @@@@ * O1000071,O076 06 00 00,@ @@@@ 1 O1000077,O104 06 00 00,ZE )@@G@@@ @@@@ 2 O1000105,O112 06 00 00,@ @@@@ 3 O1000113,O120 06 00 00/ZF )@@G@@@[@@@@C @#@@@@ GO TO 20 @[@@@@C @G@@@@C*****************ZG )@@G@@******************************************************@G@@@@C***********ZH )@@G@@ *************@G@@@@C*****ZI )@@G@@***** INITIALIZATION ENTRIES *****************@G@@@@ZJ )@@G@@C********** *******************ZK )@@G@@@[@@@@C @ @@@@ ENTRY S1RCPI(GO,IERR) @B@@@@ CALL S1GTAG(ZL )@@G@@'DSL',CL,DUM,DUM,$999) @#@@@@ CH=CL+10 @C@@@@ CALL S1GTAG(ZM )@@G@@'BEGDAT',FWBEG,DUM,DUM,$999) @B@@[@ CALL S1TCHS(C(FWBEG),1,SAVDSL,ZN )@@G@@17,64)@][@@@ INIT=1@#@@@@ GO TO 910 @[@@[@C @ @@@@ ZO )@@G@@ENTRY S1RCPJ(GO,IERR) @ @@@@ IF(CL.EQ.0) GO TO 999 @]@@@@ ZP )@@G@@INIT=2@A@@@@ IF(TYPE.EQ.3) GO TO 905 @#@@@@ PRINT 9013 ZQ )@@G@@@#@@@@ GO TO 123 @C@@[@ 905 CALL S1TCHS(C(LCARDS),17,C(FWBEG),1,ZR )@@G@@64) @#[@@@ 910 CONTINUE @[@@@@C @C@@@@ CALL S1GTAG( 'ERVEZS )@@G@@C', ERVEC, X, X, $999) @C@@@@ CALL S1GVAL('INROUT', INROUT, $999, ZT )@@G@@$999) @#@@@@ IERR =0 @]@@@@ GO = 1@#@@@@ BEGIND = 1 ZU )@@G@@@#@@@@ IFIRST = 1 @#@@@@ COUNT = 0 @A@@@@ IF(INIT.EQ.1ZV )@@G@@) CALL S1INHC(0)@^@@@@ CALL S1INEP(1) @B@@[@1000 CALL S1TCHS(ZW )@@G@@C(FWBEG),1,C(CL),1,66) @ @@[@ IF(INROUT.EQ.1) GO TO 10@^@@[@ ZX )@@G@@FWBEG2=FWBEG+10 @^@@[@ CALL S1INHC(1) @B@@[@ PRINT 1001,(ZY )@@G@@C(I),I=FWBEG,FWBEG2) @B@@[@1001 FORMAT(' BEGINDATA*******',11A6) ZZ )@@G@@@ @@[@ CALL S1GTFN(FILENM,$123)@[[@@@C @[@@@@C @C@@@@C AA )@@G@@ READ FIRST CARD--HEADER CARD FOR COP @G@@@@C OR POSSIBLY BAB )@@G@@EGINDATA CARD IN WHICH CASE OLD DSL REPLACED @[@@@@C @B@@@@10 AC )@@G@@CALL S1RED( C(LCARDS), TYPE, RERR) @ @@@@ IF( .NOT. RERR) GO TO 11AD )@@G@@@^@@@@101 CALL S1INEP( 3) @#@@@@ GO TO 123 @^@@@@11 JUMP =AE )@@G@@ TYPE + 1 @E@@@@ IF( INROUT .NE. 1 .AND. BEGIND .EQ. 1) GO TO 1AF )@@G@@11 @G@@@@ GO TO ( 120, 121, 120, 129, 124, 125, 125, 120, 120, 1AG )@@G@@4, 120),JUMP@G@@@@111 GO TO ( 120, 126, 127, 128, 127, 127, 127, 127, AH )@@G@@127, 127,127),JUMP@^@@@@120 CALL S1INEP(3) @#@@@@ PRINT 9000 AI )@@G@@@#@@@@ GO TO 123 @#@@@@121 PRINT 9001 @#@@@@122 PRINT 9002 AJ )@@G@@@D@@[@C READ AHEAD ONE CARD TO GET IN SINC WITH S1GDST @B@@[@123 AK )@@G@@CALL S1REDC(C(LCARDS),TYPE,RERR) @#@@[@ PRINT 9003 @][@@@ AL )@@G@@GO = 0@#@@@@ IERR = 1 @]@@@@ RETURN@^@@@@124 CALL S1INHS(AM )@@G@@3) @#@@@@ CALL S1INP1 @#@@@@ GO TO 122 @^@@@@125 CALL SAN )@@G@@1INHS(3) @#@@@@ CALL S1INP1 @#@@@@ GO TO 121 @#@@@@126 AO )@@G@@PRINT 9013 @#@@@@ GO TO 121 @#@@@@127 PRINT 9013 @#@@@@ AP )@@G@@GO TO 123 @A@@@@128 IF( BEGIND .GT. 1) GO TO 120 @ @@@@C CHECK IF AQ )@@G@@NEW DSL IS BLANK @E@@@@ IF(FLD(24,12,C(LCARDS+2)).NE.'@@@@ ') GO AR )@@G@@TO 1283 @#@@@@ JJ=LCARDS+3 @#@@@@ JK=LCARDS+12@^@@@@ AS )@@G@@DO 1282 J=JJ,JK @A@@@@ 1282 IF(C(J).NE.1H ) GO TO 1283 @E@@@@ AT )@@G@@IF(FLD(0,12,C(LCARDS+13)).NE.'@@@@ ') GO TO 1283 @#@@@@ GO TAU )@@G@@O 1284@#@@@@1283 CONTINUE @[@@@@C @[@@@@C @G@@@@C NOW CHECKAV )@@G@@ IF D.S.L. AFTER FILE NAME ON CTL STREAM WAS BLANK. IF SO,@G@@@@C REPAW )@@G@@LACE TAG 'DSL' STORAGE WITH NO-BLANK D.S.L. FOUN ON INPUT FILE. @[@@@@AX )@@G@@C @G@@@@C S1GTFN MAY HAVE ALTERED 'DSL' TAGGED STORAGE, SO CHECK 'BAY )@@G@@EGDAT' AREA.@[@@@@C @#@@[@ NNBLK=0 @^@@[@ DO 12832 J=1AZ )@@G@@,63 @A@@[@ CALL S1PRFT(C(FWBEG),J,CHAR) @A@@[@ IF(CHAR.NE.1BA )@@G@@H ) GO TO 12831 @A@@[@ IF(NNBLK.EQ.0) GO TO 12832 @#@@[@ BB )@@G@@GO TO 12833 @^@@[@12831 NNBLK=NNBLK+1 @#[@@@12832 CONTINUE @#@@@@BC )@@G@@ GO TO 1284 @ @@[@12833 IF(J.EQ.1) GO TO 999 @^@@[@ DO 128BD )@@G@@34 JJ=J,64 @A@@[@ CALL S1PRFT(C(FWBEG),JJ,CHAR) @A#@@@ IF(CHABE )@@G@@R.NE.1H ) GO TO 1284 @#@@@@12834 CONTINUE @G@@@@C 'BEGDAT' WAS BLBF )@@G@@ANK EXCEPT FOR FILE NAME --- TRANSFER C(LCARDS) TO @ @@@@C 'DSL' TAGBG )@@G@@GED STORAGE AREA. @#@@@@ 1281 C(CL+10)=6H @B@@@@ CALL S1TCHS(C(LCARBH )@@G@@DS),17,C(CL),1,64)@#@@@@1284 CONTINUE @^@@[@ DO 1286 I=1,14 BI )@@G@@@ @@[@ 1286 SAVDSL(I)=C(LCARDS+I-1) @#@@@@ BEGIND = 2 @#@@@@ BJ )@@G@@GO TO 10 @[@@@@C @^@@@@ 129 CALL S1INHS(2) @#@@@@ PRINT BK )@@G@@1291 @G@@[@ 1291 FORMAT('0***** EXTRA BEGINDATA CARD FOUND IN COP. BL )@@G@@ LAST ONE U@][@@@ *SED.')@#@@@@ GO TO 1281 @#@@@@132 GO TO BM )@@G@@123 @#@@@@14 CONTINUE @GG@@@ CALL S1INDC( C(LCARDS), WORDS,BN )@@G@@ HEDFMT,9, DATA, ERFLAG, C(ERVEC)) @A@@@@ IF( ERFLAG .EQ. 0) GO TOBO )@@G@@ 15 @B@@@@ CALL ERPROC( C(ERVEC), HEDFMT, 9) @#@@@@ GO TO BP )@@G@@132 @[@@@@C @[@@@@C @[@@@@C @^@@[@ 15 F5DSL=DATA(2) BQ )@@G@@@^@@[@ PRINT 5,SAVDSL @ @@[@ 5 FORMAT('0 ',13A6,A2) @AF@@@BR )@@G@@151 IF( DATA(3) .EQ. 0) GO TO 152 @]@@@@ GO = 0@^@@@@ CALL SBS )@@G@@1INEP(3) @#@@@@ PRINT 9005 @#@@@@152 SGLDBL = 0 @C@@@@ BT )@@G@@IF( DATA(9) .EQ. 'SINGLE') SGLDBL = 1 @C@@@@ IF( DATA(9) .EQ. 'BU )@@G@@DOUBLE') SGLDBL = 2 @A@@@@ IF( SGLDBL .NE. 0) GO TO 153 @]@@@@BV )@@G@@ GO = 0@^@@@@ CALL S1INEP(3) @#@@@@ PRINT 9006 @ @@@@BW )@@G@@153 IF( GO .EQ. 0) GO TO 132@G@@@@ PRINT 160, DATA(9), DATA(5), DBX )@@G@@ATA(4), DATA(6), DATA(7), DATA(8) @C@@@@160 FORMAT('0CARRY-OVER PACKBY )@@G@@AGE INPUT',/, @G@@@@ 2 ' OF ', A6, ' PRECISION DATA FOR BZ )@@G@@', I7, ' OBSERVATIONS OF@F@@@@ 2 ',I3,' VARIABLES, PRODUCED DURING RCA )@@G@@UN ',A2,' ON ',A6,A2) @A@@@@ IF( IFIRST .EQ. 0) GO TO 20 @]@@@@CB )@@G@@ RETURN@G@@@@C************************END OF INITIALIZATION *******CC )@@G@@******************@G@@@@C***********************************************CD )@@G@@************************@[@@@@C @[@@@@C @A@@@@20 IF( NV .EQ. CE )@@G@@DATA(4) ) GO TO 21@^@@@@ CALL S1INHC(1) @ @@@@ PRINT 9007, CF )@@G@@DATA(4), NV @#@@@@ GO TO 132 @#@@@@21 CONTINUE @[@@@@C CG )@@G@@@ @@@@ KDIV = 5*(3-SGLDBL) @A@@@@ IF(IFIRST.EQ.1) DF=DATA(CH )@@G@@5) @A@@@@ IF (IFIRST.EQ.0) DF=DF+DATA(5)@[@@@@C @C@@@@C CI )@@G@@INITIALIZATION CALL TO STORE ROUTINE... @G@@@@C IF IFIRST = 1, ICJ )@@G@@T WILL RESET VALUES OF VECTORS TO BE ACCUMULATED@G@@@@C OTHERWISE NOCK )@@G@@T, AND NEXT COP WILL BE STORED ATOP PREVIOUS COP... @[@@@@C @D@@@@CL )@@G@@ CALL S1COPI( NV, SUM, XMIN, XMAX, PROD, BUF, @G@@@@ 2 CM )@@G@@ SUM, XMIN, XMAX, PROD, BUF, PREC,DATA(9),IFIRST)@[@@@@C CN )@@G@@@F@@@@ NREC = 3*(1+(NV-1)/KDIV) + 1 + ((NV*(NV+1))/2 - 1)/KDIV CO )@@G@@@]@@@@C BEGINLOOP @D@@@@C LOOP ON NO. OF DATA RECORDS IN THE COCP )@@G@@P @^@@@@ DO 40 I = 1, NREC @#@@@@ COUNT = I @B@@@@ CQ )@@G@@CALL S1INR1( C(LCARDS), TYPE, RERR) @ @@@@ IF( RERR) GO TO 101 CR )@@G@@@C@@@@ GO TO( 310, 311, 311, 32, 310, 311),TYPE @^@@@@310 CALL SCS )@@G@@1INEP(3) @#@@@@ PRINT 9008 @#@@@@ GO TO 132 @^@@@@311 CT )@@G@@CALL S1INHS(3) @#@@@@ CALL S1INP1 @^@@@@ M = NREC - I + 1 CU )@@G@@@^@@@@ PRINT 9010, M @A@@@@ IF( TYPE .EQ. 2) GO TO 132 CV )@@G@@@#@@@@ PRINT 9001 @#@@@@ GO TO 132 @[@@@@C @G@@@@32 CW )@@G@@CALL S1INDC( C(LCARDS), WORDS, DATFMT, 13, DATA, ERFLAG, C(ERVEC))@A@@@@CX )@@G@@ IF( ERFLAG .EQ. 0) GO TO 33 @B@@@@ CALL ERPROC( C(ERVEC), DCY )@@G@@ATFMT, 13) @#@@@@ GO TO 132 @[@@@@C @B@@@@33 IF( DATA(2) CZ )@@G@@.EQ. F5DSL) GO TO 335 @^@@@@ CALL S1INEP(3) @#@@@@ PRINT DA )@@G@@9012 @#@@@@ GO TO 132 @A@@@@335 IF( DATA(3) .EQ. I) GO TO 34 DB )@@G@@@^@@@@ CALL S1INEP(3) @#@@@@ PRINT 9009 @#@@@@ GO TO DC )@@G@@132 @^@@@@34 DO 341 J = 1, 10 @^@@@@341 BUF(J) = DATA(J+3)@[@@@@DD )@@G@@C @E@@@@C S1COPS WILL PROCESS ONE RECORD DE )@@G@@@[@@@@C @^@@@@ CALL S1COPS( IERR)@A@@@@ IF( IERR .NE. 0) GDF )@@G@@O TO 132 @#@@@@40 CONTINUE @[@@@@C @D@@@@C***** ENDOFLOOP -DG )@@G@@-- ALL DATA FOR THIS COP NOW STORED.@[@@@@C @ @@@@C***** GET ENDOFDADH )@@G@@TA CARD @#@@@@ EXTRA=0 @B@@@@41 CALL S1INR1( C(LCARDS), DI )@@G@@TYPE, RERR) @ @@@@ IF( RERR) GO TO 101 @A@@@@ GO TO (42,50DJ )@@G@@,42,43,42,44),TYPE@B@@@@42 IF( EXTRA .NE. 0) PRINT 9011, EXTRA @^@@@@DK )@@G@@ CALL S1INHS(3) @#@@@@ CALL S1INP1 @#@@@@ PRINT 9001 DL )@@G@@@#@@@@ GO TO 132 @^@@@@43 EXTRA = EXTRA + 1 @#@@@@ GO TO DM )@@G@@41 @B@@@@ 44 IF(EXTRA.NE.0) PRINT 9011,EXTRA @^@@@@ CALL SDN )@@G@@1INHS(2) @#@@@@ PRINT 9001 @#@@@@ GO TO 132 @[@@@@C DO )@@G@@@^@@@@C***** ENDOFDATA FOUND. @B@@@@50 IF( EXTRA .NE. 0) PRINT 9011, DP )@@G@@EXTRA @^@@@@ CALL S1INHS(1) @#@@@@ CALL S1INP1 @#@@@@C*****DQ )@@G@@ CLOSE FILE @ @@@@ IF(INROUT.EQ.1) GO TO 52@B@@@@ CALL S1INR1(DR )@@G@@C(LCARDS),TYPE,RERR) @^@@@@ IF(RERR) GO TO 101@ @@@@ IF(TYPDS )@@G@@E.EQ.6) GO TO 52 @#@@@@ PRINT 51 @G@@@@ 51 FORMAT('0***** ENDDT )@@G@@-OF-FILE NOT FOUND AFTER ENDOFDATA CARD OF THE C@ @@@@ *ARRY-OVER PADU )@@G@@CKAGE.') @#@@@@ GO TO 132 @#@@@@ 52 CONTINUE @A@@@@ DV )@@G@@IF( EXTRA .NE. 0) GO TO 132 @[@@@@C @A@@@@C***** CHECK FOR COPCOMBDW )@@G@@IN CARD. @B@@@@ CALL S1REDC(C(LCARDS),TYPE,RERR) @F@@[@C DONDX )@@G@@'T HANDLE ERROR NOW...S1GDST WILL GET SAME ERROR ON REREAD. @^@@[@ DY )@@G@@IF(RERR) GO TO 500@A[@@@ IF (TYPE .NE.11) GO TO 500 @^@@@@ DZ )@@G@@CALL S1INHS(2) @#@@@@ CALL S1INP1 @[@@@@C @C@@@@C***** INITIEA )@@G@@ALIZE FOR ACCUMULATION OF NEXT COP. @[@@@@C @F@@@@C***** SAVE COPCOMEB )@@G@@BIN CARD FOR DATA SET LABEL, REPLACED LATER. @#@@@@ DO 55 J=1,14EC )@@G@@@ @@@@ 55 COPCOM(J)=C(LCARDS+J-1) @[@@@@C @G@@@@C***** GET BEGINDAED )@@G@@TA CARD OF CARD COP OR BEGINDATA POINTER CARD FOR @#@@@@C FILE EE )@@G@@COP. @B@@@@ CALL S1REDC(C(LCARDS),TYPE,RERR) @#@@[@ COUNT=EF )@@G@@0 @ @@@@ IF( RERR) GO TO 101 @A@@@@ IF( TYPE .NE. 3) GEG )@@G@@O TO 127 @[@@@@C @ @@@@C***** REPLACE DATA SET LABEL.@^@@[@ EH )@@G@@C(FWBEG+10)=6H @C@@[@ CALL S1TCHS(C(LCARDS),17,C(FWBEG),1,64) EI )@@G@@@# @@@ BEGIND = 1 @#[@@@ PRINT 7 @#@@@@ IFIRST=0 EJ )@@G@@@#@@@@ GO TO 1000 @[@@@@C @D@@@@C***** ALL DONE READING COP(S)EK )@@G@@ FOR THIS DATA SET. @[@@@@C @A@@@@ 500 IF (IFIRST.EQ.1) GO TO 5EL )@@G@@50 @[@@@@C @F@@@@C***** REPLACE DATA SET LABEL WITH 17-80 OF LASTEM )@@G@@ COPCOMBIN CARD. @^@@@@ DO 510 J=1,64 @A@@@@ CALL S1PRFT(EN )@@G@@COPCOM,J+16,CHAR) @A@@@@ 510 CALL S1PRST(C(CL),J,CHAR) @A@@@@ EO )@@G@@CALL S1PRST(C(CL),65,1H ) @A@@@@ CALL S1PRST(C(CL),66,1H ) EP )@@G@@@]@@@@ 550 RETURN@G@@@@7 FORMAT( 1H0,/,'0THE FOLLOWING ACCUMULATED EQ )@@G@@WITH THE ABOVE CARRY-OVE@A@@[@ 2R PACKAGE(S) FOR THIS RUN:'/) @G[@@@ER )@@G@@9000 FORMAT(' ***** FIRST CARD OF CARRY-OVER PACKAGE INPUT IS NOT A COPES )@@G@@@^@@@@ 2 HEADER CARD') @F@@@@9001 FORMAT(' ***** ENDOFDATA CARD ET )@@G@@IS MISSING OR OUT OF ORDER') @D@@@@9002 FORMAT(' ***** NO INPUT RECORDEU )@@G@@S IN DATA SET') @G@@@@9003 FORMAT('0***** ANALYSIS ABANDONED BECAUSE EV )@@G@@OF ERRORS IN INPUT') @G@@@@9004 FORMAT(' ***** CARRY-OVER PACKAGE HEEW )@@G@@ADER ERROR. COLUMNS 5 - 9 ON @F@@@@ 2COP HEADER DO NOT MATCH COLUMNEX )@@G@@S 17-21 OF BEGINDATA CARD') @G@@@@9005 FORMAT(' ***** CARRY-OVER PACKEY )@@G@@AGE HEADER ERROR. SEQUENCE NUMBER (@E@@@@ 2COLS 11-14) FOR COP HEADEZ )@@G@@ER MUST BE ZERO (0000) ') @G@@@@9006 FORMAT(' ***** CARRY-OVER PACKFA )@@G@@AGE HEADER ERROR. PRECISION TYPE (S@F@@@@ 2INGLE OR DOUBLE) NOT PROFB )@@G@@PERLY SPECIFIED IN COLUMNS 69-74') @G@@@@9007 FORMAT(' ***** CARRY-OVEFC )@@G@@R PACKAGE HEADER ERROR. NO. OF VARIABLES @G@@@@ 2(', I3, ') DOES NFD )@@G@@OT EQUAL NVARS(', I3, ') AS PUNCHED ON THE INPU@#@@@@ 3T CARD') FE )@@G@@@F@@@@9008 FORMAT(' ***** ABOVE CARD IS NOT A CARRY-OVER PACKAGE CARD')FF )@@G@@@G@@@@9009 FORMAT(' ***** ABOVE CARD HAS IMPROPER SEQUENCE NUMBER IN COFG )@@G@@LUMNS @#@@@@ 211-14') @F@@@@9010 FORMAT(' ***** CARRY-OVER PACKFH )@@G@@AGE MISSING', I4, ' CARDS') @F@@@@9011 FORMAT(' ***** CARRY-OVER PACKFI )@@G@@AGE HAS', I4, ' EXTRA CARDS') @G@@@@9012 FORMAT(' ***** ABOVE CARD HAS FJ )@@G@@DATA SET ID (COLS 5 - 9) DIFFERENT F@ @@@@ 2ROM THAT ON COP HEADER')FK )@@G@@@G@@@@9013 FORMAT(' ***** BEGINDATA CARD IS MISSING OR OUT OF SEQUENCE'FL )@@G@@) @#@@@@999 PRINT 998 @A@@@@998 FORMAT('0ERROR IN S1RCOP') FM )@@G@@@]@@[@ STOP @[#@@@C @[@@@@C @[@@@@C @[@@@@C @B@@@@FN )@@G@@ SUBROUTINE ERPROC( ERRVEC, FMT, N) @C@@@@ DIMENSION ERRVEC(1FO )@@G@@), FMT(6,N), MSG(5) @[@@@@C @G@@@@C INTERNAL SUFP )@@G@@BROUTINE TO PROCESS ERRORS FROM S1INDC @[@@@@C @^@@@@ CALL SFQ )@@G@@1INEP(3) @^@@@@ DO 2 I = 1, N @A@@@@ IF( ERRVEC(I) .EQ.FR )@@G@@ 0) GO TO 2 @C@@@@ CALL S1INER( MSG, FLD(24,6,ERRVEC(I))) @^@@@@FS )@@G@@ CALL S1INHC(1) @A@@@@ ICOLM1=FLD(18,18,FMT(1,I)) @A@@@@FT )@@G@@ ICOLM2=FLD(0,18,FMT(2,I)) @A@@@@ PRINT 1,ICOLM1,ICOLM2,MSFU )@@G@@G @F@@@@1 FORMAT(' ***** ERROR IN COLUMNS', I4, 1H-, I3, 3H --, FV )@@G@@5A6) @#@@@@2 CONTINUE @]@@@@ RETURN@]@@@@ END ___00 FW )@@G@@IF (IFIRST.EQ.1) GO TO 550 @[@@@@C @F@@@@C***** REPLACE DATA SET FX )@@G@@LABEL WITH 17-80 OF LAST COPCOMBIN CARD. @^@@@@)[M[S@@@@@@@ FY )@@G@@ **** ATA***BEGINDAA@@@A)[X@*@@@@@@@FZ )@@G@@)@[@)@@@@@@@@@DA@@@@[@@ @@^A@@@@[@@[@@@@@@_____@ AB@@@AGA )@@G@@)@ [S@@@@@@@@@[@[[@[@A@@@@[@@;@@8A@@@@[@@7@@< @@@@[@@X@@M @@@@[@@K@@I @@GB )@@G@@@@[@@FAC@@@A)@K[S@@@@@@@@@UA@@@@[@@P@@I @@@@[@@F@@DA@@@@[@@ @@#A@@@@[@@[GC )@@G@@@[EA@@@@[@[ @[]A@@AD@@@A)@V[S@@@@@@@@@[@@9@@8A@@@@[@@3@@2A@@@@[@@!@@?A@@GD )@@G@@@@[@@$@@&A@@@@[@@-@@)A@@@@[@@VAE@@@A)@&@8@@@@@@@)]]@K@@@@@@@______DSL GE )@@G@@@[KA@@@@[@[F@[EA@@@@[@[ @[^A@@@@[@@_@@"A@@AF@@@A)@@[F@K)CS^G]A[#@)CS@@@@GF )@@G@@C/@@@E@[S@A3/K@@HC@@@@[<@@@@[<@@@@[-@@@@]]/,0@@@/K@@B[AG@@@A)@D@F#@@@@@@GG )@@G@@)]^@K@)@E@<#@-@K0CS@@@@@@@@@[>@@@@]^/,0@@@[@@@[=______BEGDATG@@@[-AH@@@AGH )@@G@@)@I[F#@-)K^G]A[9K^CE@@@@@@@@@Q/,0@@@^^K@@QN8LJ_"R@K@[>@[U@A3/K@@HC@@@@[@@@@@^^K@@3N8LJ_"GL )@@G@@^^K@@5N8MJ_"R@)@[>R@K@@G/K@@#E'^@@@@@[>@A3AL@@@A)@2@;]])CS^[#@-)K0@@@@@@GM )@@G@@)]A@C@ERVEC @[*@A3@@@@A=@@@@A+@@@@@5@@@@A<@@@@@3/,0@@@AM@@@A)]B@C@)@9@3]GN )@@G@@@-)K0CS^G]@@)]C@C@INROUT/K@@HC@@@@[(@@@@[(@@@@[*@@@@]A/,0@@@______AN@@@AGO )@@G@@)]D@C@)@_@;#@-]K0CS4[@K0@@@@@@@[:@A3/K@@HC/K@@HC@@@@@^@@@@]C/,0@@@@[%@A3GP )@@G@@______AO@@@A)[A[M[#@-)K1+A@K@@/K@@[N*@@@@GH@@@[&C/@@@[ @@@@S[@@@[:[@@@[%GQ )@@G@@[@@@@@C/@@@[ @@@@@AP@@@A)[K[F]A-)K0CL^G]A[#@-)YKN8LJ_"R@K@[-R@)@[>@[3@A3GR )@@G@@@@@@A+/,0@@@@[2@A3@@@@A>/,0@@@AQ@@@A)[T[F@YO[]])CS^[#@-)@@@@@@@@A&@@@@A+GS )@@G@@@@@@[Z@@@@A+@@@@[X/,0@@@^^K@[XN8MJ_"^^K@[ZAR@@@A)[+[F#@CS1@^G]A[]A@@@@@@GT )@@G@@/,0@@@[@@@[?G@@@[>C/@@@E/K@@[.(@@@@GH@@@@^C/@@@[@[4@A3AS@@@A)[:[##@-)K**GU )@@G@@S^G]A[#@-)@@@@@@@@R@K@A$H[)@[>C[)@[?@[9@A3@@[@]E/,0@@@@[8@A3@@@@A+AT@@@AGV )@@G@@)[3@:#@JE H@@@@@@@)]E@S@@@@@@@ATA***BEGIND(017H 8L@@[5'^K@@@C8[\_"[[)@[^GW )@@G@@Q@K@[>AU@@@A)]H@K@)[8@3]=- K0C]A[#A@@@@@@@R@)@@G@]@@A3/K@@#E@@@@[!/,0@@@GX )@@G@@'^@@@@1A6) ****,1AV@@@A)["[F9K^C2@-)K0CS^G]@@@@/=@@]FD@@@@@@][@A3@@@@@@GY )@@G@@@@@@[$@@@@][/,0@@@^^K@][N8MJ_"AW@@@A)]B[F]C-)K0C@-)K0@@@@@@@C.@@@[C/)@@[GZ )@@G@@[@@@[,G@@@[$C/@@@[/K@@#E@]^@A3@@@@A*/,0@@@AX@@@A)]K[N#A@CS@^@@@@@@/=0@]%HA )@@G@@+@)@@K @@@@K*@@@@MH[)@[%C.)@@[C.@@@[ @@@@I(@@@@KH[@@@^AY@@@A)]U[F#@C] L#HB )@@G@@@)C]@)@@@@@@/K@@ -/K@@]'/K@@#]/K@@]'@]D@A3'^@@@@8];@]Y$'0@@GRA0@[,AZ@@@AHC )@@G@@)]<[N@K^[@K^[@K0]@8];@],$'0@@GRA0@[,/K@@]'/K@@ %/K@@]'/K@@]'/K@@#+/K@@#+HD )@@G@@/K@@#WBA@@@A)]![F]*-)K^[@K^[@K@@@@@@/K@@#!/K@@#!/K@@#!/K@@#2/K@@#!/K@@#*HE )@@G@@/K@@]'@]E@A3'^@@@@BB@@@A)]6[F@K^[@K+CS^G] #@@@@@@[@#U/,0@@@@]F@A3@@@@A*HF )@@G@@/,0@@@/K@@#!/K@@#!/K@@#!/K@@#!BC@@@A)]_[F#@-MK^EEA[#@-MK**S@@@[@#0/,0@@@HG )@@G@@'^@@@@@]J@A3@@[@#$/,0@@@/K@@#E'^@@@@@]G@A3BD@@@A)#C[F#@-MK1\E@-BK^G]A@@@HH )@@G@@@@@@@@@@@@[$@@@@#I/,0@@@^^K@#IN8LJ_"R@K@@G'^@@@@@]L@A3BE@@@A)#L[F#@-LK0CHI )@@G@@S^EK]@@@@@@@N@0@#V[@@@@@C/@@@[ @@@@@'^@@@@@]O@A3@@[@#7/,0@@@@]N@A3BF@@@AHJ )@@G@@)#U[F@K0CM^G]A[]M-)K^D@@/,0@@@/K@@#A@]U@A3/,0@@@@]T@A3@@@@A*/,0@@@@]S@A3HK )@@G@@/K@@HMBG@@@A)#<[F#@-)K=*S^[]+-)K0CO)'^@@@@@]Z@A3@@[@AF/,0@@@/K@@#]@]X@A3HL )@@G@@/,0@@@@]W@A3@@@@A*BH@@@A)#?[F@K**S^G] D@^G]@@@@@/C@@#7H@@@[%C/@@@[/K@@#EHM )@@G@@'^@@@@@]+@A3@@[@AF/,0@@@/K@@#]BI@@@A)#5[MK^GU]@C@@@@@@C/@@@#/K@@^O*@@@@GHN )@@G@@G/@_'';C@@@S;)@@@SC@]@@[R@)@@G/K@@]'*@@@@GBJ@@@A)#_[F#A-)^GUA[#@-)^G@@@@HO )@@G@@A@K@[1]@@@[^R@K@[\H@@@[0[@)@[0G@)@@GC/)@@G[@@@[\G@@@@GBK@@@A)^C[N9K0]@C]HP )@@G@@]@@@@@*@@@@GG/@_'';C@@@SC@]@@G8L@@^BO/K@@[/K@@^O*@@@@GH@@@A(C@[J_"BL@@@AHQ )@@G@@)^M[F@K^G@CS^G]A[#@@@@@@R@)@A'A@K@A'R@K@[>[#)@[1N.@@@"C_)@@[ @@@[2/K@@ PHR )@@G@@/K@@^OBM@@@A)^V[F9K^DM@-)K0CS^G]A@@@H@@@A(C@@@[3@]9@A3@@@@[3@@@@[1@@@@^YHS )@@G@@/,0@@@^^K@^YN8MJ_"BN@@@A)^=[MK^G]@)]A[#@C@8L@@^RG_)@@[[@@@[2G@@@[2C/@@@[HT )@@G@@/K@@^\/K@@^?(@@@[2/K@@^(*@@@@GBO@@@A)^,[N@^G@)]A[#@CS@[#)@[\[@@@[^C#)@[1HU )@@G@@H@@@[1C/@@[@/K@@HC(@@@@GH@@@[1C/@@@[/K@@ PBP@@@A)^8[F#@/*]^(@K0CS^G]A@@@HV )@@G@@C@@@[3@#C@A3@@@@[3@@@@[\@@@@^//,0@@@^^K@^/N8LJ_"R@K@[>BQ@@@A) [[F#@C@)CSHW )@@G@@^G]]-<@@@@@@R@K@@G[@]@@DC@@@A(R@)@[-8L@@^7G_)@@[/K@@ P*@@@@GH@@@A(BR@@@AHX )@@G@@) E[F9KB>@K)*]A[@K0@@@@@@@@@A+@@@@ L@@@@A<@@@@ J/,0@@@^^K@ JN8LJ_"^^K@ LHY )@@G@@N8MJ_"BS@@@A) N[F#@-)^GUA[#@#2@@@@@@C@[\_.N.@@@HQ@K@@GR@K@A$R@)@A%G@@@@GHZ )@@G@@C/@@@[@#I@A3@@@@A=BT@@@A) W[F#@)]A[@K=CS^G] ^@@@/,0@@@@#R@A3@@@@A:/,0@@@IA )@@G@@/K@@[.[@)@[%C/)@@]8L@@ V[@])[LBU@@@A) >@N#@-)@@@)]J@8@@@@@@@ND IN RD FOUIB )@@G@@ATA CABEGINDEXTRA ***** (062H0@#S@A3@@[@]JBV@@@A)]Q@*@@@@@@@) $@<]=)C]A@IC )@@G@@R@K@[*/K@@#E/K@@ A'^@@@@.) E USEDAST ON LCOP. BW@@@A) :[F#A/*#2)ID )@@G@@CM4[#A-)@@@@@@@@@[@@@@@J@@@@ 1/,0@@@^^K@ 1N8MJ_"^^K@ 7N8LJ_"R@)@@GBX@@@AIE )@@G@@) 4[F#@-)K0C]A[#@-)KB=@@N8LJ_"/K@@A^(@@@[4R@K@[*@#Y@A3@@@@ 7@@@@[4@@@@@!IF )@@G@@@@@@A?BY@@@A) .[F@K^[#@-)K0C]A[#@@@@[@@@[5C@@@@,/K@@ (@#-@A3@@@@A?@@@@@[IG )@@G@@@@@@ _/,0@I<^^K@ _BZ@@@A)AA[#]+-)K0CS[#@-NK@@@@@@@@@@@8L@@AF'^K@@@C8])[LIH )@@G@@N.@@@HR@)@A%@#=@A3@@[@]V/,0@@@CA@@@A)]V@)@@@@@@@)AI@<]=-)K@@@@@@@@ @@@@@II )@@G@@/K@@AT(@@@@\'^@@@@) 3A6,A2 ,1(005H0CB@@@A)AM[#]C-)K0COOG]A[]=-)@@IJ )@@G@@@@@@@@ @@@[6'^@@@@@#\@A3@@[@^P/,0@@@@#,@A3@@@@A*/,0@@@CC@@@A)AU[F#@-)^@KIK )@@G@@0CS^G@@@@@@@*@@@@GH@@@A,C@@@@5[@@@[6C/@@@[/K@@A)*@@@@GH@@@A!C@@@@5CD@@@AIL )@@G@@)A<[F@^G]A[@^C+A[#@@@@@@@#9@A3@@@@A*/,0@@@ @@@@@/K@@A0*@@@[6[@@@[6C/@@@]IM )@@G@@/K@@A&CE@@@A)A?[F]+-)K0CO-@K**S^G@@@@#"@A3@@[@]Z/,0@@@/K@@ ((@@@@@'^@@@@IN )@@G@@@#'@A3@@[@^*/,0@@@CF@@@A)A5@3#@-)K0CS^G]A@)]Z@S@OVER PCARRY-(025H0@@K@@4IO )@@G@@@@K@@3@@K@@2@@K@@0@@K@@1@@K@@5CG@@@A)]+[S@@@@@@@H OBSEI7,017 FOR ,N DATAIP )@@G@@ECISIO20H PR ,A6,0H OF,/,006 INPUTACKAGECH@@@A)]![S@@@@@@@ ON ,A2,004HIQ )@@G@@RUN ,AURING UCED D, PRODIABLES2H VAR,I3,03NS OF RVATIOCI@@@A)]8@C@)A;[#]IR )@@G@@=-)K^[@K0CS@H@@@@@C@@@@0@^D@A3/K@@HMN@0@B@/K@@B[(@@@[:'^@@@@6,A2) CJ@@@AIS )@@G@@)B#[EK^CUA[#@-LK0CS^G@@@@@K@@0@^H@A3@@[@^//,0@@@@^G@A3@@@@A+/,0@@@/K@@BJIT )@@G@@(@@@@GCK@@@A)BG[MK(C@-)^G@-)@@*@@@@GH@@@[:C/@@@[[@@@[7T/@@@ H@@@[6C/@@@#IU )@@G@@/K@@ ('^@@@@@@K@@@CL@@@A)BQ[N@^G@-)K[#@@@@"@@@@@C@@@@H"O@@@1C/@@]V/K@@B-IV )@@G@@*@@@[:[@K@@@"O@@@1C/@@]V/K@@BUCM@@@A)B)[MK&@@-)@@@@@@@@@@@@@@@@@@@@@@@@'IW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/,0@@@[@@@@@CN@@@A)B%[M^G@-)K0CS@@@@T@@@@@IX )@@G@@G@@@@@C/@@@[@^S@A3@@@@[:@@@@@5@@@@@@@@@@@'@@@@@@@@@@@@CO@@@A)B4[M[#@@-)@IY )@@G@@@@@@@@T/)@@#G/)__"W@)@[7;O)@@=H@)@@@C/)@@[W@@@[7;O@@@=G/@__";K@@@[CP@@@AIZ )@@G@@)B"[M^G@]A[#A-)K0@C@@@[+A@K@A'R@K@@G[#)@[+[@@@[^C_)@@[G/@__"[@@@[8H@@@@IJA )@@G@@G/)__"CQ@@@A)CC[F#A-)YO[]U)CS^G]A@@@@^Y@A3@@@@@@@@@@[$@@@@CH/,0@@@^^K@CHJB )@@G@@N8MJ_"R@)@A'[@@@@SCR@@@A)CL[F#@)CS[@K%CS^[@@@@@@/K@@C&/K@@CY@^-@A3'^@@@@JC )@@G@@8];@CR$'0@@BRA0@[$/=@@]BC@@@@@CS@@@A)CU[F@K^[@K+CS^G] #@@@@@@[@ N/,0@@@JD )@@G@@@^+@A3@@@@A*/,0@@@/K@@C&/K@@CY/K@@C./K@@C&CT@@@A)C<[F#@-MK^D]A[#@-DK0CS@JE )@@G@@C@@@[8@^$@A3/,0@@@@^&@A3@@@@A*/,0@@@/K@@ ('^@@@@@^<@A3CU@@@A)C?[F#@CS^EEJF )@@G@@A[#@-)K(@@@@C/@@@]'^@@@@@@K@[9@^(@A3@@[@ (/,0@@@[@@@[9G/@@@[H@@@[+CV@@@AJG )@@G@@)C5[F#@C] #@-)K(C]AG@@@R@K@@G/K@@ ('^@@@@@^,@A3@@[@#$/,0@@@/K@@ ((@@@@GJH )@@G@@H@@@[$CW@@@A)C"[F#@/*#2)CM4[#A-)@@@@@@@@@N@@@@@J@@@@D^/,0@@@^^K@D^N8LJ_"JI )@@G@@^^K@DEN8MJ_"R@)@[*CX@@@A)DB[F#@-)K0C]A[#@-)KB=@@N8MJ_"/K@@DR(@@@[4R@)@[*JJ )@@G@@@^1@A3@@@@DE@@@@[4@@@@@!@@@@A\CY@@@A)DK[F@K^[#@-)K0C]A[#@@@@H@@@[5C@@@@,JK )@@G@@/K@@ (@^4@A3@@@@A\@@@@@N@@@@DM/,0@I<^^K@DMCZ@@@A)DT[EK^C+A[#@-LK0CS^EK@@JL )@@G@@'^@@@@@^9@A3@@[@ //,0@@@@^8@A3@@@@A*/,0@@@/K@@D<(@@@@GDA@@@A)D+[F@K0CS[@JM )@@G@@K+CS^G] ^@@@/,0@@@@^"@A3@@@@A*/,0@@@/K@@D\(@@@@GH@@@[+C@@@@\/K@@ (DB@@@AJN )@@G@@)D:[F#@-)K(C]A@K0CS^@@@@8LK@D1[@[)@9C@[@@\N.K@@DR@K@A%/K@@ ('^@@@@@^_@A3JO )@@G@@@@[@ XDC@@@A)D4[F]WCS[@^[#@-<@@@@@@@R@)@@G @@@['8L@@C^G_)@@[/K@@ (*@@@@@JP )@@G@@@ B@A3@@@@@@/,0@@@DD@@@A)D.[F9K^D%@-)K0CS^G]@@@@/=@@]BC@@@@@@ H@A3@@@@@@JQ )@@G@@@@@@[$@@@@E@/,0@@@^^K@E@N8MJ_"DE@@@A)EA[F#@C] L#@)C]@)@@@@@@/K@@E+/K@@ELJR )@@G@@/K@@E5/K@@EL@ K@A3'^@@@@8];@EE$'0@@BRA0@[$DF@@@A)EJ[F@K^G]@-LK0CS^G] C@@JS )@@G@@'^@@@@@@K@['@ M@A3@@[@ 2/,0@@@/K@@ES(@@@['/K@@E&/K@@ELDG@@@A)ES[#]K-)K0CJT )@@G@@MOG] #@-)@@@@@@@@@ R@A3@@[@#$/,0@@@@ Q@A3/,0@@@@ P@A3@@@@A*/,0@@@DH@@@AJU )@@G@@)E)[F]=)]A[#@)CS^[]+@@@@/,0@@@/K@@E!(@@@['/K@@D/[@@@['G@@@['C/@@@[/K@@ (JV )@@G@@'^@@@@DI@@@A)E([##@-)K0CO=D]A[#@-L@@@@@@@@/,0@@@@ )@A3@@@@A:/,0@@@'^@@@@JW )@@G@@@@K@['@ X@A3@@[@ 2DJ@@@A)E1[F#@-)K(C]A[@K**S^G@@@ >@A3@@[@ 2/,0@@@/K@@E/JX )@@G@@(@@@['/K@@ ('^@@@@@ -@A3@@[@#$DK@@@A)E'[F#@-MK=CS^G]^>#@-<@@C/@@@[R@K@@GJY )@@G@@@ (@A3/,0@@@@ *@A3@@@@A+/,0@@@'^@@@@@@K@['DL@@@A)F#[F#AC#2)CNO[#@-)@@@@@JZ )@@G@@@@@@@@@@@@[$@@@@FD/,0@@@^^K@FDN8LJ_"/K@@FS(@@@@GH@@@@^DM@@@A)FG[F#@-)K[#KA )@@G@@@C] #@@@@@@@@[@]9/,0@@@/K@@FS(@@@@IH@)@[$C/)@@A/=@@]BC@@@@@@ ?@A3DN@@@AKB )@@G@@)FP@F#@@@@@@)]9[@@@@@@@@DOFDATTER ENUND AFNOT FO-FILE END-OF***** (076H0KC )@@G@@@ 1@A3DO@@@A)#[@0@@@@@@@)FQ@V]=)CS0@R@)@@G/K@@ ('^@@@@GE.) PACKAY-OVERKD )@@G@@E CARR OF THA CARDDP@@@A)FT[F#@)JE@-BK^G]A[#@@@@@ 8@A3@@@@@@@@@@[$@@@@FYKE )@@G@@/,0@@@^^K@FYN8MJ_"/K@@ (*@@@['DQ@@@A)F+[F#@)]A@K^D]A[#@@@@@@@ .@A3@@@@A:KF )@@G@@/,0@@@/K@@GW*@@@@IH@)@[$C/)@@F/=@@GWC@@@@@DR@@@A)F:[F]M-)^GUAH#@-)@@@@@@KG )@@G@@N.@@@HQ@0@@GR@0@A$R@)@A%R@K@@GG@@@@GC/@@@[@ "@A3/,0@@@DS@@@A)F4[F9K0C#2)KH )@@G@@CL4[#@-)@@@@@@@@@@@@@@[$@@@@F'/,0@@@^^K@F'N8LJ_"8L@@F4[@])[#C@#\_.DT@@@AKI )@@G@@)F.[F#@-R@)@@GKJ )@@G@@@A^@A3DU@@@A)GA[F@K0CF2)JE@-[K@@@@@@@@@@GI/,0@@@^^K@GIN8MJ_"^^K@GKN8NJ_"KK )@@G@@[@<@@DC@)@A(/K@@#!DV@@@A)GJ[F#@)CS^G]A@K0COOG@@@@@[@#F/,0@@@[@@@[%C/@@@[KL )@@G@@@AF@A3@@@@A=@@@@A+@@@@GK@@@@A[S@@@@@@@LJ )@@G@@NG,I4, MISSIACKAGEOVER PCARRY-***** (033H 14) NS 11- COLUMBER INER@@@ALK )@@G@@) 0[S@@@@@@@ CARDS EXTRA4,012H HAS,IACKAGEOVER PCARRY-***** (029H ARDS) LL )@@G@@006H CES@@@A) ;[S@@@@@@@FFEREN 9) DILS 5 -ID (COA SET AS DATCARD HABOVE LM )@@G@@***** (080H ) ET@@@A)AA[S@@@@@@@MISSINRD IS ATA CABEGIND***** (051H LN )@@G@@R) HEADEON COP THAT T FROMEU@@@A)AL@)@@@@@@@)HC@V]+-)K0@)AP@C@(016H0LO )@@G@@@A:@A3@@[@AP/,0@@@CE) SEQUENUT OF G OR OEV@@@A)AQ@S@)HF@3]=-PK0CS^[@@@LP )@@G@@/K@@HMN@0@HL@A,@A3@@@@A(/,0@@@'^@@@@COP) IN S1RERROR EW@@@A)HL[##@-)K0CLQ )@@G@@S^G]A[#@-)@@@@@@@@N[@@B]R@0@B[R@)@B@R@K@A_9\)@A.9!)@A;R]0@A4@A,@A3EX@@@ALR )@@G@@)HT@N#@-)@@@)A1@C@)HV@N#@-Q@@@)A3@K@@A,@@]S1RCOP/K@@@@/K@KA1@@F@@@*4@KA1LS )@@G@@N[K@B#EY@@@A)HX[##@-)K0CS^G]A[#@-)@@@@@@@@^[@@B]A@0@B[A@)@B@A@K@A_9:)@A.LT )@@G@@9()@A;[^@@A1AA0@A4EZ@@@A)H>[N#@]@)]@)]@@@@/\K@HXC8@@@#/K@@JJ/\K@HXC8@@@#LU )@@G@@/K@@I0/\K@HXC8@@@D/KH@@@^[K@B#FA@@@A)H\[F@K+CS^G@-)K0]A@@@@@R@K@BAG/)__'LV )@@G@@C@)@B G@@@BBC/@__"@A3@A7@@@@A*/,0@@@/K@@JVFB@@@A)H8[E[@^G] [#@-)@@@@@@@@LW )@@G@@@@@@BC@@@@[;/,0@@@[@@@BCC=]@@ /K@@IO(@]@@ [@@@[^R@)@@IFC@@@A)I[[F#@-#K0CLX )@@G@@S[#@CS^EC@@@/,0@@@[@)@][CC-@@[[@@@]@C^[@@@@A'@A7@@@@A+/,0@@@@A9@A7FD@@@ALY )@@G@@)IE[F#@-)K0CS^G@-)K(*@@@8LK@IK'^K@@@C8#)['N.K@@^R@0@A%@@K@][@@K@]@@A.@A7LZ )@@G@@@@[@ATFE@@@A)IN@V]=@@@@@)AT@0@@@@@@@4,1H-,UMNS,IIN COLERROR ***** (023H MA )@@G@@O/)@@[O/K@@A'^@@@@FF@@@A)AZ@S@)IQ@3@K^[#@-)K0@@@R@K@BDR]0@A8@BC@A7/K@@IUMB )@@G@@N@0@IT8L@@H') --,5A6I3,3H FG@@@A)IW@:#@-)K0CS^G@@@)A5@C@)I-@F#@@@@@@MC )@@G@@/K@KA5@@F@@^*4@KA5N[K@BHN[@@BGR@0@BFR@)@BEFH@@@A)I+@F]?@@@@@)A7@K@)I<@<#MD )@@G@@@-)K0CS@@@@@A@0@BFA@)@BEA@K@BDAA0@A8@BC@@]ERPROC/K@@@@FI@@@A)I$[F#@-)^G@ME )@@G@@-)^G]@@@@@@@/K@@H0[@K@BBC@VK@][@@@BAC8FK@[[@@@B C8FK@@^[K@BH^[@@BGFJ@@@AMF )@@G@@)I0[MK^@K^@K^@@@@@C8FK@#[^@@B%[^@@B>C8FK@][^@@B=[^@@B(C8FK@[[^@@B*[^@@B@[%/K@@[@3#@)C]A[QT )@@G@@#@@@@@)@'@K@@@@@@@______BLOCKOC/@@@[ @@@@P@[$@[%/K@@AN/K@@AN@@@@@OAP@@@AQU )@@G@@)[:[F#@-[K0CS^G]A[@K0CS@R@K@@D@[%@[%/K@@["@@@@@E@@@@@R@@@@@D@@@@@'/,0@@@QV )@@G@@[@@@@QAQ@@@A)[4[F9K0CS[#@C]A[[@@@@@@C@[@@@R@K@[!/K@@["*@@@@GH@@@@RC/@@@]QW )@@G@@A@K@[![@@@@QC@[J_"AR@@@A)[.@F#@@@@@@)@/@K@)["@<]@-)K0C@@@@@@/K@@AN@@@@@SQX )@@G@@@@@@@//,0@@@______VISBUF[@@@@PAS@@@A)]]@N@K0@@@@)@"@K@)]^@V#@-@K0@@@@@@@QY )@@G@@@@@@@"/,0@@@ @@@@T______MDATA @[\@[%/K@@ANAT@@@A)]B[F#@)C]A[]^-)K0]A@@@@QZ )@@G@@H@@@@BC/@@@^@[3@[%@@@@@U/,0@@@@[1@[%/K@@]F/K@@]F@@@@@TAU@@@A)]K@E@)[@@K@RA )@@G@@)]L@:@K)*S^G]A@@@@@@@@@R@@@@@D@@@@[@/,0@@@/K@@]2______ODFNAM(@@@@GAV@@@ARB )@@G@@)]Q@;#@)CS^G#2-)KK)[]@K@______OCHARSC@-@@@[@@@@]C@[J_"R@K@@D@[6@[%/K@@ANRC )@@G@@@@@@@EAW@@@A)]X@;#@-@K0CS^[@K0@@@@@@)[^@C@SEQ @[9@[%/K@@AN/K@@AN@@@@@VRD )@@G@@@@@@[]/,0@@@[@)@@#AX@@@A)[ @C@)]=@;#@-@K0CS^[@K0@@@@@@@[;@[%/K@@]:/K@@]:RE )@@G@@@@@@@W@@@@[^/,0@@@ @@@@W______AY@@@A)[A@K@)]:@3]@-)K0C]@-)@@@@@@@@@[.@[%RF )@@G@@/K@@]2/K@@]2@@@@@X@@@@[A/,0@@@______NOSEQ AZ@@@A)]1[F#@CS[@^G]A@@@@@@@@@RG )@@G@@C/)__"[@@@@ZG@@@@FC/@@@[/K@@#5(@@@@GH@@@@BC/@@@^ @@@@YBA@@@A)]'[F#@-)@^GRH )@@G@@]A[#@@@@@@@@[#)@@)[[@@[\[@@@[![@)@[^C_)@@[T/@@@AG.@__8C[@@[,G@)@@FBB@@@ARI )@@G@@)##@;#@CS^G]A[#@-)@@@@@@)[C@C@REA [@@@[0O@K@[\O@K@[!R@K@@)G@@@[\T/@@@ARJ )@@G@@C@@@@)BC@@@A)[D@C@)#E@;#@-#K0CS^G]A[#@@@@@@@@@@E@@@@@@@@@@[&@@@@[C@@@@[>RK )@@G@@/,0@@@A@K@[1______BD@@@A)#L[F#@-)K0]A@K0]A@@@@@@C*)@@[[@[@@#CC@@@[[@-@@]RL )@@G@@C^)@@@[@[@@[R@K@[0CC@@@@@]A@[%BE@@@A)#U[MK0]A@^G]A@@@@G/@__9C@[@@^R@K@[0RM )@@G@@[@@@@-C/@@@[[@-@@AC))@@[[@[@@ C=@@@[[@-@@^BF@@@A)#=[MK^G]A[#@CS@@@*@@@@IRN )@@G@@G/)__'C@-@@^R@K@[0[@[@@@R@K@[1C@@@@- @@@@-/K@@#$*@@@@GBG@@@A)#,[N@@[@K0]RO )@@G@@A@@@@@H@@@@BC/@@@^R@K@@S8L@@#]G_)@@[ @[@@A @[@@ [@-@@^C/)@@#/K@@#3BH@@@ARP )@@G@@)#8[EKB>@YO[]C)C@@@@@@@@@@@@^@@@@@#_/,0@@@^^K@#_N8LJ_"^^K@^@N8LJ_"/K@@^BRQ )@@G@@(@@@@GBI@@@A)^[[F#@-)K0CS^[#@-)K0@@@C/)@@^[@@@@ZC@@@@F@]W@[%/K@@AG@@@@@URR )@@G@@@@@@@T@@@@@F@@@@[$BJ@@@A)^E[F#@C@-)^[]E-)@@@@@@@@@@@@Z/,0@@@^^K@^NN8W@@@RS )@@G@@G@@@[,T/@@@A/K@@^>(@@@@IH@)@@BBK@@@A)^N[F@^G]A[#@-)^@@@@@@@@C/@@@[/K@@^XRT )@@G@@*@@@@GH@@@@FC@@@@Z @@@@+@]-@[%@@@@@@@@@@^NBL@@@A)^W[F#@CS[@K^[#@)@@@@@@@RU )@@G@@/K@@^5@]&@[%/K@@AXN@0@^[#]E-)[#@RV )@@G@@-)K0@@)[E@C@S13OUT*@@@@GH@@@@FC@@@@Z@]*@[%@@@@@@@@@@@@@@@@@Z/,0@@@BN@@@ARW )@@G@@)[F[S@@@@@@@TPUT. ANK OUH STJBED WIT ALLOWNE NOT ROUTIOUTPUTPLIED ER-SUPRX )@@G@@ - USBO@@@A)[Q@C@)^![#@K*S^G]@-GK0@@@@@@@@@@@@@@@@@@SH )@@G@@@@@@@/,0@@@A@K@[1______BD@@@A@@^@@#@@B@@K@@$@@#@@3@@[SW )@@G@@@@ @[8@C@@BD@@@@@[S1GVAL S1GTAG URRNID S1IODR S1BAAISX )@@G@@ TRINT S1SERR S1OTIN S1BAAO S1OTOB TROUT SY )@@G@@ S1BAAC S1OTCL TREND NERR4$ NERR3$ S13INTSZ )@@G@@ @@[@@@@@@@A,S13OUT @@[@@@@@@@A;S13CLS @@[@@@@@@@B]BLANK$TA )@@G@@ ^@@@C@@]@@@@@@@@@@*[@@@@*SDFF*@G@@@@ SUBROUTINE S17ANO(NVARS,TB )@@G@@OBS,FLGARR,R,DR,ROUT,STOR,IAVAIL,H,IH, @F@@@@ *MAXH,MDATA,HIST,ALTC )@@G@@PHMD,CODE,NAM,NAMES,CIALPH,BASE,SCR,NWSCR,@B@@@@ *NHIST, VALUE,NMOBSTD )@@G@@,NVALUE,IHA,IPAR) @[@@@@C @A@@@@C SUBROUTINE FOR OTF OPTION TE )@@G@@@B@@@@C NVARS IS NUMBER OF VARIABLES @D@@@@C OBS VETF )@@G@@CTOR TO CONTAIN ONE OBSERVATION @F@@@@C FLGARR VECTOR CONTAINTG )@@G@@ING FLAGS TELLING VARIABLE TYPE @B@@@@C R,DR ARRAYS DESCRIBTH )@@G@@ED IN S17CPT@G@@@@C NVALUE VECTOR CONTAINING NUMBERS OF LEVELS FOTI )@@G@@R ALPHN. VARIABLES@G@@@@C VALUE ARRAY CONTAINING LEVELS FOUND FOTJ )@@G@@R ALPHANUMERIC VARS @[@@@@C @#@@@@ COMMON X(2) @G@@@@ TK )@@G@@DIMENSION OBS(2),FLGARR(2),R(10,2),DR(4,2),ROUT(2),STOR(2),H(2), @G@@@@TL )@@G@@ *IH(2),NAMES(2,2),BASE(2),NHIST(2),NVALUE(2),SCR(2),VALUE(50,2) TM )@@G@@@D@@@@ DIMENSION IPAR(2),NMOBS(2),IHA(2),IOVER(100) @B@@@@ TN )@@G@@DOUBLE PRECISION DR,DXBAR,DD,DS2,DS3@ @@@@ INTEGER FLGARR,BASE TO )@@G@@@E@@@@ LOGICAL MDATA,ALPHMD,HIST,NAM,FIRST,IPAR ,FRST1 @^@@@@TP )@@G@@ DATA NALHST/50/ @ @@@@ EQUIVALENCE (OBSM,NMS) @[@@@@C TQ )@@G@@@^@@@@C INITIALIZATION @[@@@@C @#@@@@ FRST1=.TRUE.@]@@@@TR )@@G@@ NOBS=0@^@@@@ MNOB=99999999 @C@@[@ CALL S1GTAG('NOBS'TS )@@G@@, IFW, NWE, NEL, $318) @ [@@@ MNOB = BOOL(X(IFW)) @D@@@@ TT )@@G@@IF( NWE .EQ. 2) MNOB = BOOL(X(IFW+1)) - MNOB + 1@#@@[@ GO TO 320 TU )@@G@@@C@@[@ 318 CALL S1GTAG('STJBIN',IFW,DUM,DUM,$320) @^@@[@ MNOB=BTV )@@G@@OOL(X(IFW)) @#@@@@320 CONTINUE @^@@@@ DO 30 J=1,NVARS @#@@@@TW )@@G@@ IOVER(I)=0 @^@@@@ R(8,J)=1.0E38 @^@@@@ R(9,J)=-1.0ETX )@@G@@38 @^@@@@ IPAR(J)=.FALSE. @ @@@@ IF(MDATA)R(7,J)=0 TY )@@G@@@#@@@@ DO 25 I=1,4 @#@@@@ DR(I,J)=0 @#@@@@ 25 CONTINUE TZ )@@G@@@#@@@@ 30 CONTINUE @B@@@@ IF(FLD(0,6,ROUT(1)).EQ.63) GO TO 32 UA )@@G@@@^@@@@ DO 31 J=1,NVARS @C@@@@ IF(FLD(24,6,ROUT(J)).EQ.1) IPAUB )@@G@@R(J)=.TRUE. @#@@@@ 31 CONTINUE @#@@@@32 CONTINUE @[@@@@C UC )@@G@@@F@@@@C DETERMINE HOW MANY OBSERVATIONS CAN BE KEPT IN BUFFER UD )@@G@@@ @@@@C BEFORE CALLING S17CPT@[@@@@C @ @@@@ MAXNOB=IAVAIUE )@@G@@L/NVARS @G@@@@ CALL S17PRN(XBAR,S2,S3,S4,DUM,NMOBS,NIOBS,NAMES,UF )@@G@@NAM,ROUT,DUM, @A@@@@ *CIALPH,MDATA,.TRUE.,TALPHA) @#@@@@ UG )@@G@@FIRST=.TRUE.@]@@@@ IBUF=1@[@@@@C @E@@@@C IF HISTOGRAMS SUH )@@G@@PECIFIED, RETRIEVE INFO ABOUT THEM @[@@@@C @ @@@@ IF(.NOT.HISTUI )@@G@@) GO TO 321 @E@@@@ CALL S17RHI(SCR,NWSCR,MAXH,H,BASE,BASE,NVARS,$99UJ )@@G@@7) @]@@@@ IBEG=1@#@@@@ 321 IBEG1=1 @#@@@@ IALPN=0 UK )@@G@@@^@@@@ DO 35 I=1,NVARS @A@@@@ IF(FLGARR(I).EQ.0) GO TO 33 UL )@@G@@@^@@@@ IALPN=IALPN+1 @^@@@@ NVALUE(IALPN)=0 @#@@@@ UM )@@G@@NHIST(I)=0 @A@@@@ IF(BASE(I).NE.0) NHIST(I)=1 @^@@@@ BASE(IUN )@@G@@)=IBEG1 @^@@@@ IBEG1=IBEG1+NALHST@#@@@@ GO TO 35 @ @@@@UO )@@G@@ 33 IF(.NOT.HIST) GO TO 35 @F@@@@ CALL S17RHT(I,H(IBEG),H(IBEG),UP )@@G@@NHIST(I),DUM,DUM,IDIM,FRST1) @^@@@@ FRST1=.FALSE. @#@@@@ UQ )@@G@@BASE(I)=IBEG@^@@@@ IBEG=IBEG+IDIM @#@@@@ 35 CONTINUE @ @@@@UR )@@G@@ 40 CALL S1INOB(OBS,IEOF) @^@@@@ IF(IEOF+1) 70,,50 @]@@@@ US )@@G@@RETURN@#@@@@ 50 NOBS=NOBS+1 @#@@@@ NSTOR=IBUF @^@@@@ DO 60 UT )@@G@@I=1,NVARS @^@@@@ STOR(NSTOR)=OBS(I)@^@@@@ NSTOR=NSTOR+MAXNOBUU )@@G@@@#@@@@ 60 CONTINUE @A@@@@ IF(NOBS.LT.MNOB) GO TO 65 @^@@@@UV )@@G@@ PRINT 61,NOBS @G@@@@ 61 FORMAT('0FIRST',I6,' OBSERVATIONS WEUW )@@G@@RE READ IN, READING OF DATA HA@ @@@@ *S BEEN TERMINATED.') @]@@@@UX )@@G@@ IEOF=1@#@@@@ GO TO 70 @#@@@@ 65 IBUF=IBUF+1 @D@@@@ UY )@@G@@IF(IBUF.LE.MAXNOB .AND. IEOF.EQ.0) GO TO 40 @#@@@@ IBUF=IBUF-1 UZ )@@G@@@#@@@@ 70 IALPN=0 @^@@@@ DO 80II=1,NVARS @]@@@@ I=II VA )@@G@@@^@@@@ IND=(I-1)*MAXNOB+1@#@@@@ IND1=BASE(I)@A@@@@ IF(FLGVB )@@G@@ARR(I).EQ.0) GO TO 75 @]@@@@ NM=0 @^@@@@ IALPN=IALPN+1 VC )@@G@@@ @@@@ IF(.NOT.ALPHMD) GO TO 79@^@@@@ IFIN=IND+IBUF @]@@@@VD )@@G@@ JJ=IND@^@@@@ DO 78 J=IND,IFIN @A@@@@ IF(STOR(J).NE.CODEVE )@@G@@) GO TO 77 @#@@@@ NM=NM+1 @#@@@@ GO TO 78 @^@@@@ 77 VF )@@G@@STOR(JJ)=STOR(J) @#@@@@ JJ=JJ+1 @#@@@@ 78 CONTINUE @ @@@@VG )@@G@@ NMOBS(I)=NMOBS(I)+NM @#@@@@ 79 NM=IBUF-NM @G@@@@ CALL SVH )@@G@@17ACP(STOR(IND),NM,IHA(IND1),VALUE(1,IALPN),NVALUE(IALPN), @]@@@@ *VI )@@G@@NN) @ @@@@ IOVER(I)=IOVER(I)+NN @#@@@@ GO TO 80 @G@@@@VJ )@@G@@ 75 CALL S17CPT(STOR(IND),IBUF,R(1,I),R(1,I),DR(1,I),H(IND1),H(IND1), VK )@@G@@@G@@@@ *H(IND1),IPAR(I),HIST,.TRUE.,MDATA,NHIST(I),DUM,DUM,FIRST,IOVVL )@@G@@ER(I))@#@@@@ 80 CONTINUE @^@@@@ FIRST=.FALSE. @ @@@@ VM )@@G@@IF(IEOF.GT.0) GO TO 90 @]@@@@ IBUF=1@#@@@@ GO TO 40 @#@@@@VN )@@G@@ 90 IALPN=0 @^@@@@ DO 120 I=1,NVARS @A@@@@ IF(FLGARR(I)VO )@@G@@.EQ.0) GO TO 105 @^@@@@ IALPN=IALPN+1 @#@@@@ IND=BASE(I) VP )@@G@@@ @@@@ NIOBS=NOBS-NMOBS(I) @F@@@@ CALL S17ALP(I,NAMES(1,I)VQ )@@G@@,NAM,NHIST(I),IHA(IND),DUMMY,NIOBS, @E@@@@ *NMOBS(I),VALUE(1,IALPN),VR )@@G@@NVALUE(IALPN),.TRUE.,IOVER(I))@#@@@@ GO TO 120 @#@@@@ 105 OBSM=RVS )@@G@@(7,I) @^@@@@ NIOBS=NOBS-NMS @#@@@@ NMOBS(I)=NMS@ @@@@ VT )@@G@@IF(NIOBS.GT.1) GO TO 110@#@@@@ CALL ERR1 @#@@@@ GO TO 120 VU )@@G@@@ @@@@ 110 DXBAR=DR(1,I) /NIOBS @#@@@@ DS2=DR(2,I) @#@@@@ VV )@@G@@DS3=DR(3,I) @#@@@@ XBAR=DXBAR @^@@@@ DD=DXBAR*DXBAR @^@@@@VW )@@G@@ S2=DS2-DD*NIOBS @B@@@@ S3=DS3-3*DXBAR*DS2+2*NIOBS*DD*DXBAR VX )@@G@@@D@@@@ S4=DR(4,I)-4*DXBAR*DS3+6*DD*DS2-3*NIOBS*DD*DD @F@@@@ VY )@@G@@CALL S17PRT(I,R(8,I),R(9,I),DUM,R(1,I),DUM,DUM,DUM,DUM,DUM, @#@@@@ *VZ )@@G@@NHIST(I)) @A@@@@ IF(NHIST(I).EQ.0) GO TO 120 @#@@@@ IND=BAWA )@@G@@SE(I) @G@@@@ CALL S17HDR(I,NHIST(I),H(IND),H(IND),NIOBS,H(IND),NAM,WB )@@G@@NAMES(1,I), @#@@@@ *IOVER(I)) @#@@@@ 120 CONTINUE @]@@@@ WC )@@G@@RETURN@#@@@@ 997 PRINT 998 @E@@@@ 998 FORMAT('0*****ERROR IN S17ANO.WD )@@G@@ REPORT TO CONSULTANT.')@]@@@@ RETURN@^@@@@ SUBROUTINE ERR1 WE )@@G@@@^@@@@ CALL S1HEDC(2) @#@@@@ CALL S1PHED @ @@@@ PRINT WF )@@G@@1005, I,DR(1,I) @G@@@@ 1005 FORMAT('0*****UNISTAT1 ERROR.ONLY ONE OBSEWG )@@G@@RVATION WAS FOUND FOR VA@G@@@@ *RIABLE',I4,' ITS VALUE IS ',G10.5,'.WH )@@G@@',/21X,'ANALYSIS FOR THIS VARI@ @@@@ *ABLE WAS DISCONTINUED.')@]@@@@WI )@@G@@ RETURN@]@@@@ END ___F=1@#@@@@ )@@[N#@CS^G@-)@K0@C]@@#>WJ )@@G@@G.)__HC9:K@AG.@__IC[@@#XG/)__IC@)@#YR@K@#XG/@__RC@@@#ZAA@@@A)@E[M[#@@-)KWK )@@G@@0@@@@@G_)__JC#)@#&[#)@#$G_)__HC;:K@QG_@__HC#@@#YG")__HC':K@TG"@__IAB@@@AWL )@@G@@)@O[F#@-)^G]A@K0@@@@@@@@G_)__HC;:K@S[#)@#%G_)__IC#)@#)[#)@#(G_)__HC#)@#ZWM )@@G@@[#)@#*AC@@@A)@X[F#@-)^G]A@K0CS@@@@@@G_)__RC#)@#+[#)@#!G_)__HC#)@#+[#)@#?WN )@@G@@G_)__HC#)@#)[#)@#:AD@@@A)@&[F#@-)^G]A@K0CS@@@@@@G_)__PC#)@#Z[#)@#0G_)__IWO )@@G@@C#)@#-[#)@#\G_)__HC#)@#<[#)@#,AE@@@A)@\[F#@]A[#@CS^G@@@@@@@@G_)__HC#)@#=WP )@@G@@[#)@#3G_)__HC#)@#-[#)@#2G_)__HC;:K@C[#)@#1AF@@@A)@8[F#@-)^G]A@K0CS^G@@@@WQ )@@G@@[[@@#8[@)@#7[@@@#6G_)__IC#)@#=[#)@#5G_)__IC#)@#<[#)@#4AG@@@A)[[@<#@-)K0CWR )@@G@@S@@@@@)[\@C@)[ @N#@@@@@@C/@@@[[#)@#.@@@@@2[#@@#/[])@#;[]@@#'[[)@#9AH@@@AWS )@@G@@)[B@V#@-)K0@)]H@K@)[E@V#@-@K0@@@@@]H/,0@@@[@)@[1______NOBS C@)@#^ @@@[0WT )@@G@@[@@@[,AI@@@A)[H[F#@-)K0C]A[#@/*S^G@@A@)@#"[@@@[1C@]J_"R@)@[2@[I@#P/K@@[)WU )@@G@@@@@@[4@@@@[3@@@@[2AJ@@@A)[Q[EK0]@-)KOG@-)@@@@@@@[@@@[1G/@@@[H@@@[1C@]@@@WV )@@G@@R@)@#"/K@@[Z*@@@@GH@@@[3C/@@@]AK@@@A)[Z@F@@@@@@@)]J@K@)[)@<]@-)K0CS@@@@@WW )@@G@@@@@@[5@@@@[2@@@@]J/,0@@@______STJBIN/K@@[%AL@@@A)[=[F#@)CS^G#2-)[#@@@@@@WX )@@G@@R@)@#7G@@@@@C/@__"[@@@[1C@]J_"R@)@[2@[N@#P/K@@[%@@@@[5AM@@@A)[![F#@-)K0]WY )@@G@@A[#@-)K0CS@@ @ @@@R[K@#_A[K@#_R[K@[7[@@@#"[@@@[^Q[@@#6R[@@# R@0@#,AN@@@AWZ )@@G@@)[6[N#@@C@CS@@@@@@9*^)@*9?@@#BN.K@@# @#@@,/)@@[.C@@@@@ @]@@1]@#@@0[@#@@\XA )@@G@@C@@@#AAO@@@A)]@[N@[@@K^G]A@@@@R@)@#8R[K@#7/K@@]O(@@@@IG/)__@C4-@@@8L@@[2XB )@@G@@O/0@@EO/)@@[8LK@["AP@@@A)]E[N#@@)@]@@@@@@@8L@@]FO/)@@[O.K@@[[@ @@1C/@@@[XC )@@G@@/K@@]L*@@@@GG/@__"C=]@@1N[@@#"AQ@@@A)]O[F#@]A[]]-)K0CS^G@@@@@@@@[/@@@@[;XD )@@G@@@@@@['@@@@[9/,0@@@[@@@[8W@@@@@;O@@@=C@@@^@AR@@@A)]X[N#@CS@^G@CS@@@@@@@#DXE )@@G@@@@@@@@@@@@@@@@@@[5@@@@@@@@@@@@@@@@@@@@@@[.@@@@@@@@@@[5AS@@@A)]$[F#@-)^G]XF )@@G@@A@K^CK@@@@@@@@@@@@/,0@@@/=)@]'D@)@@@[@@@[_[@@@[!C/@@@[@[2@#P@@@@["AT@@@AXG )@@G@@)]0[M@[@K0]A@@@@@@[@@@]@C/@@@[@[7@#P/K@@EK@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XH )@@G@@@@@@@@AU@@@A)]'[MK0CS@^G]A[#@@[@)@[^R@)@#%R[@@#.R@0@#5C_)@@[G@)@@@C/)__"XI )@@G@@ @@@]][@@@][C/@@@[AV@@@A)#^[F#@C@-)K0CS^G@@@@@@@ @ @@1O[K@#:R[K@]][@@@]]XJ )@@G@@G@@@]]C/@@@[/K@@#R(@]@@1[#)@[7AW@@@A)#H[M^@^G@-)K0C@@@/K@@#0[@@@][G@@@[\XK )@@G@@[@^@@1C@@@][[@#@@1C/@@@[/K@@#M(@^@@1 @#@@1AX@@@A)#R[N#@-)^@K[@^@@@^^K@#>XL )@@G@@N8N@@1^^K@#@@@@#=@@@@#<@@@@[7/,0@@@AZ@@@AXN )@@G@@)#%[N#@-)K0]A[#@@@G_)@@[O/)@@[O.@@@[O/0@@[[@@@]@G@@@@@[@^@@1C@@@]@ @@@[,XO )@@G@@@]E@#PBA@@@A)#4[F@K+]A[#@CS^[@@@@@@@/G@@^0/@@@#"G@@@]#C/@@@[@]K@#P@@@@]#XP )@@G@@@@@@@@/,0@@@8L@@#^BB@@@A)#.[F@K^[#@CS^G]A[#@@@@@[@)@]^C@)@[_[@@@[0G@@@[0XQ )@@G@@C/@@@[@]O@#P/K@@ERN@0@^@/K@@^[BC@@@A)^A[M^G]A@K0CS@K0@C@)@]^[@]@@1C@ )@1XR )@@G@@O@)@#9R@)@]^[[@@[^Q[K@#'R[K@#EG[@@@@C.@__"BD@@@A)^K[F#@-)K^G]A[@^[]S@@@@XS )@@G@@/,0@@@/K@@^)*@@@@K/D@@^SH[@@[1C[@@[08L@@^F[@)@]^G@)@[8BE@@@A)^T@V#@-)K0@XT )@@G@@)]L@0@@@@@@@NS WERRVATIOH OBSEI6,064FIRST,(006H0@@K@[0@])@#P@@[@]LBF@@@AXU )@@G@@)]R[@@@@@@@@)^W@F]U@@@@@'^@@@@ATED.)TERMIN BEEN TA HAS OF DAEADING IN, RXV )@@G@@E READBG@@@A)^X[MK0C@-)K0]A@@@C.@@@[ @@@@I*@@@]#C/)@@[[@@@[_G@@@[_C/@@@[XW )@@G@@/K@@^0[@@@]#C/@@@[BH@@@A)^$[N#@)@C@-)K0CS@ @@@]]]@@@[_H@@@[_C/@@@[/=0@#5XX )@@G@@+@)@@K @@@@K*@@@@G/G@@^:H@@@[8BI@@@A)^1[E@K0CS^G]A[#@@@@@@@@O@0@#3R@0@[7XY )@@G@@[@@@[7C@@@] [#)@] [@@@[^C_)@@[G@@@@@C/@__"BJ@@@A)^'[F#@-)K0CS[#@CS^G@@@@XZ )@@G@@G@@@#9[@@@]AH/@__"T@@@[8H/@@@[O@)@#4R@)@[7O[@@#?R[@@[7BK@@@A) #[MK0]@-)^YA )@@G@@G]A@K@/>)@ (D[)@@@[[@@]]G[@@]]C.@@@[ @@@]C/K@@AE(@^@@1[@)@]BC@+@@1BL@@@AYB )@@G@@) H[F#@-)K0CS^G]A@@@@@@@C@ @@1[]@@[ R[K@@G[])@]EC])@]AH]@@]A[]@@]DG]@@[_YC )@@G@@C]@@]ABM@@@A) Q[M^@K0CS^[#@-)@C@ @@1O@)@#9R@)@]E/K@@ =[@@@]CG@@@]CC/@@@[YD )@@G@@/K@@ X*@@@@G"^@@@@BN@@@A) )[M^G]A@K[#@CS@@C@@@]C[@#@@1G@@@]CC@#@@18LK@ PYE )@@G@@O.K@@[[@)@]EG@)@]EC/)@@[[@]@@1BO@@@A) %[##@-)K0CS^G]A[#@-)@@@@@@@@O[K@#;YF )@@G@@R[K@]BO@)@#:R@)@]]O[@@#9R[@@]A]@@@]CH@@@[_BP@@@A) 2[N#@CS[@^@K@@@@N8M@@1YG )@@G@@^^K@A[N8Y@@@^^K@ "N8O@@1^^K@A@N8P@@1G@)@#$T/)@@2C@)@]]BQ@@@A) /[F@K+*]A[YH )@@G@@@K^[#@-)@@@@@#A@#P@@@@]F@@@@A]@@@@A[@@@@A@@@@@]C@@@@ "/,0@@@^^K@A]BR@@@AYI )@@G@@)A [F#@-)K0CS^[#@-)K0CS@R@)@]BO[@@#9R[@@]AR[K@[7/K@@B@[@#@@@G@@@]FC@#@@@YJ )@@G@@R@0@[7BS@@@A)AI[F#@-)K0CS^G]A@K0CS@@C@)@[7G@@@#!T/@@@EC@@@[7O[)@#\R[)@[7YK )@@G@@O@0@#/R@0@[7O@)@#2BT@@@A)AR[MK0]@C@)]@@@@@^^K@A2N8Y@@%^^K@A1N8W@@*^^K@A,YL )@@G@@N8O@@1^^K@A0N8W@@*G@)@#(;@)@@-BU@@@A)A-[MK[@^@K[@@@@@@^^K@A'N8Q@@1^^K@A6YM )@@G@@N8N@@1^^K@A5N8M@@1^^K@A4N8M@@1^^K@A3N8M@@1BV@@@A)A:[F#@)CL=[#@)C]@)@@@@@YN )@@G@@@@@@A3@@@@A2@@@@A1@@@@A0@@@@[_@@@@A,/,0@@@^^K@A"N8P@@@BW@@@A)A4[F@K^@K0]YO )@@G@@@-)K0@@@@@@@@@@@[5@@@@[5@@@@A'@@@@@@@@@@#D@@@@@@@@@@A6@@@@A5@@@@A4BX@@@AYP )@@G@@)A.[F#@)CS[@K0CS^@@@@@@@*@@@@G/C@@BBD@@@]# @@@[!8L@@^5G_)@@[@#D@#P@@@@A"YQ )@@G@@@@@@[!BY@@@A)BA[N@^G]@-)@K0CS@R@0@#.R@)@#*R.@@@[G@@@@@C/@__" @@@]]/K@@#5YR )@@G@@[@@@[_C/@@@[/K@@BEBZ@@@A)BK[F#@-)K0CS^G@-)^@@@@@/K@@CA(@D@@1A[@@[7[@@@[^YS )@@G@@R]K@#%R]@@#1R[0@#0R[K@#,R[)@#5CA@@@A)BT[EK0CS^G]A@K0]A@@@@@@[@)@]AC@<@@1YT )@@G@@G@@@#$T/@@@2O])@#:R])@]][@@@]]G@@@]]C/@@@[CB@@@A)B+[F#@-)K0]A[#@C@@@@@@@YU )@@G@@N8M@@0^^K@B;N8Q@@1][@@[.H[@@[0C[B@@1O])@#;R])@]AA])@#"CC@@@A)B:[N@^@K[@KYV )@@G@@0]@@@@^^K@C[N8U@@1R])@#"^^K@C@N8W@@@^^K@B_N8R@@1^^K@B/N8U@@1^^K@B9CD@@@AYW )@@G@@)B5[F#@)CL4G]@C]@-)@@@@@@@@@]G@@@@B/@@@@B;@@@@@@@@@@B9@@@@[7/,0@@@^^K@C#YX )@@G@@N8O@@@CE@@@A)B"[F#@)C]@-)K^G]@@@@@@@C@ @@,/K@@E^@#U@#P@@@@C#@@@@#D@@@@C[YY )@@G@@@@@@C@@@@@B_@@@@[.CF@@@A)CB[F#@-)K0CS^G@C@@@@@@@*@@@@I/G)@CLG/)__"[[B@@1YZ )@@G@@C[@@##[@)@[.H@)@##C@)@[0[@@@##CG@@@A)CK[F@K^G]@-)K0@-)@@@@@@")@@#FD@@@@GZA )@@G@@0@@@@HC@K@[.C@@@#F/K@@E^@#-@#P/,0@FV/K@@COCH@@@A)CT[M^G@-)^G@-)K0@9!)@[>ZB )@@G@@[@)@[9"/)@@I9(@@[:9!C@@,9*@@[(9?C@@?9*)@[>"?)@@G9?*@@%CI@@@A)C<[N#@-)K0CZC )@@G@@S@K0@@"/@@@G"=@@@M"()@@O"+@@#FD]@@@O0@@@@PC]K@[.C]@@#F9()@[$"()@[>CJ@@@AZD )@@G@@)C![F#@-)[#@]A[#@@@@@@@@"()@[$"-)@#FD[)@@M0@@@@NC[)@#F; )@@=;[)@@[[)@[;".)@@M"-)@@K">@@@O"%@@[(ZF )@@G@@"%@@#H9,@@[>"()@[>CL@@@A)C_[F#@-)^G]A[#@CS@@@@@@T.@@@#C[@@[."&@@@K"%@@[(ZG )@@G@@"%@@#L9,@@[$">C@@0"(@@[:"(@@#JCM@@@A)DC[MK0@-)K0CS@K0@][@@[/".@@@K">@@@OZH )@@G@@"(@@[$"(@@[$"-@@#FD[@@@K0@@@@LC[@@#F; @@@=CN@@@A)DM[MK[@^@K^D]A@@@@@@@[7ZI )@@G@@/,0@@@^^K@D>N8Q@@1^^K@DZN8P@@*^^K@DWN8P@@\^^K@DXN8P@@0CO@@@A)DW[F@K^G]@-ZJ )@@G@@)K0CS^G]A@@@@@@@[5@@@@[5@@@@[5@@@@[5@@@@[5@@@@DZ@@@@[5@@@@DX@@@@DWCP@@@AZK )@@G@@)D>[F@K0]@CS^G]A@@@@@@@@N8U@@1O])@#2R])@]A[@@@]AC@#@@1/K@@E^(@A@@1@#:@#PZL )@@G@@@@@@D>CQ@@@A)D,[N@^@K[@^[#@@@@N8O@@@^^K@E[N8M@@0^^K@D_N8U@@1^^K@D.N8U@@1ZM )@@G@@^^K@D;N8Q@@1^^K@D/CR@@@A)D8[F@K=*S^[@K^G]@@@@@@@@@@@@@@@@@D_@@@@[.@@@@D.ZN )@@G@@@@@@D/@@@@D;@@@@[7/,0@@@^^K@E]CS@@@A)E[[N@K^G@@@@@@@@@O"@@@CO.0@@[O.K@@EZO )@@G@@O.)@@[O/0@@[O/)@@]O.@@@[@#\@#P@@@@E]@@@@E[CT@@@A)EF[]K^[@K0CN^G]A@)]Z@C@ZP )@@G@@(044H0@#3@#P@@[@]Z/,0@@@@#2@#P/K@@ERN@0@EJ8L@@BQO"K@@[CU@@@A)])[@@@@@@@@ZQ )@@G@@)EN@F]U@@@@@'^@@@@.) ULTANTO CONSPORT TNO. REN S17ARROR I*****ECV@@@AZR )@@G@@)EO[F@K^G]A[#@-)K0CS^G@@9\)@^D9\@@^B9,)@^ 9,@@^#9!)@^[R]0@#Q@#6@#P/K@@ERZS )@@G@@N@0@EQCW@@@A)EX[##@-)K0CS^G]A[#@-)@@@@@@@@R]@@^MR[0@^LR[)@^KR[K@^JR[@@^IZT )@@G@@R@0@^HR@)@^GR@K@^FCX@@@A)E>@:#@-)K0CS^G@@@)#N@C@)E%@F#@@@@@@/K@K#N@@F@@WZU )@@G@@*4@K#NN[K@^QN[@@^PR])@^OR]K@^NCY@@@A)E:@F]W@@@@@)#P@K@)E?@<#@-)K0CS@@@@@ZV )@@G@@9%)@^ 9%@@^#9()@^[AA0@#Q@#6@@]S17ANO/K@@@@CZ@@@A)E0[##@-)K0CS^G]A[#@-)@@ZW )@@G@@@@@@@@A[)@^KA[K@^JA[@@^IA@0@^HA@)@^GA@K@^F9:)@^D9:@@^BDA@@@A)E8[F#@-)K0CZX )@@G@@S^G]A[@K0@@@G/@__HC@@@#Z/K@@FZ^[K@^Q^[@@^PA])@^OA]K@^NA]@@^MA[0@^LDB@@@AZY )@@G@@)F[[##@-EK0CS^DUA[]S-)@@@@@@@@@@[@]*/,0@@@@#;@#U/,0@@@@#'@#U@@@@#R/,0@@@ZZ )@@G@@[@@@^SDC@@@A)FD[##@-)K0]A@^D8@)]*@C@(064H0'^0@@@C8[@@%[[)@@[G[)@^S;[)@@-AA )@@G@@C[)@[7@@K@[7@#/@#UDD@@@A)]([S@@@@@@@BLE,I4 VARIAND FORAS FOUTION WBSERVAAB )@@G@@ ONE OR.ONLY1 ERRONISTAT*****UDE@@@A)]4[S@@@@@@@ARIABLTHIS VS FOR NALYSIAC )@@G@@,044HA.,/21X5,001H ,G10.LUE ISITS VA,014H DF@@@A)]_@)@@@@@@@)FL@<]U)C]A@AD )@@G@@@@@@@@@^[@#U/K@@FPN@0@FO'^@@@@.) TINUEDDISCONE WAS DG@@@A)FP@<#@-)K0CAE )@@G@@S@@@@@)#S@C@)FT@N#@-I@@@/K@@@@/K@K#S@@F@@[*4@K#SR@K@^V9!)@^TR]0@#VDH@@@AAF )@@G@@)#U@K@)FV@;#@-)K0C@)C@@@[^@@]5[^@@]"C8FK@@/K@@E_A@K@^V9()@^TAA0@#V@^[@@]AG )@@G@@ERR1 DI@@@A)F+[N@K^[@K[@K0]A@[@@@#)C8FK@][@@@#>[^@@#6C8FK@[[^@@^2[^@@[:AH )@@G@@[^@@]Q[^@@^B[^@@BGDJ@@@A)F?[MK0]A@K^G@-)@@C8FK@C[@K@^@C@VK@B[@@@#X[^@@]+AI )@@G@@C8FK@ [@@@#ZC8FK@^[@@@#+C8FK@#DK@@@A)F6[N@^@K^[@^[@@@@[^@@A7[^@@]?C8FK@GAJ )@@G@@[^@@]>[^@@['[^@@A9C8FK@F[^@@]1C8FK@E[^@@]2DL@@@A)G@[N@^@K[@K^@@@@@C8FK@KAK )@@G@@[^@@E@[^@@]-[^@@B'C8FK@J[^@@ QC8FK@I[^@@ FC8FK@H[^@@#TDM@@@A)GE[N#@)]@C]AL )@@G@@@-)^@@[^@@]\C8FK@N[@@@#=[^@@]4[^@@]3C8FK@M[^@@]=C8FK@L[^@@])[@@@#&DN@@@AAM )@@G@@)GO[MK[#@CS^@K0C@@/K@@@@[@@@#YC8FK@U[^@@]Y[@@@#-C8FK@R[@@@#[[)@[;AQ )@@G@@".)@@M"-)@@K">@@@O"%@@[("%@@#H9,@@[>"()@[>CL@@@A@@^@@#@@B@@K@@$@@[@@:@@[AR )@@G@@@@ @^W@C@@GY@@@@@]S1GTAG S17PRN S17RHI S17RHT S1INOBAS )@@G@@ S17ACP S17CPT S17ALP S17PRT S17HDR S1HEDCAT )@@G@@ S1PHED NPRT$ NIO2$ NERR3$ NIO1$ S17ANOAU )@@G@@ @@[@@@@@@@E?BLANK$ ^@@@C@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@*[S@@@*SDFF*@G@@@@ SUBROUTINE S63ANL(B,A,Q,AW )@@G@@P,R,S,T,U,V,W,X,Y,Z,XM,SD,TSTRAT,SDSV, @B@@@@ - ZZ,NAM,BABUF,BAAX )@@G@@VBUF,BAVAR,NMS) @ @@@@ IMPLICIT INTEGER (A-Z) @F@@@@ DIMENSAY )@@G@@ION B(1),A(1),Q(1),P(1),R(1),S(1),T(1),U(1),V(1),W(1) @B@@@@ DIMENSAZ )@@G@@ION X(1),Y(1),Z(1),XM(1),SD(1)@^@@@@ REAL XM,T,X,Y,V,SD@]@@@@ BA )@@G@@REAL R@A@@@@ DIMENSION TSTRAT(1),SDSV(1) @^@@@@ REAL TSTRAT,BB )@@G@@SDSV @B@@@@ DIMENSION NAM(2,1),NMS(2,1),ZZ(1) @#@@@@ REAL ZBC )@@G@@Z @C@@@@ DIMENSION BABUF(1),BAVBUF(1),BAVAR(1) @[@@@@C BD )@@G@@@[@@@@C @D@@@@C ANALYSIS CONTROL ROUTINE FOR FACTOR3. BE )@@G@@@[@@@@C @[@@@@C @A@@@@ REAL DF,TEMP,SUM,SSQ,DFBETA @ @@@@BF )@@G@@ EQUIVALENCE (TEMP,KEMP) @^@@@@ REAL TEST,TSTVAL @[@@@@C BG )@@G@@@#@@@@ COMMON IX(2)@[@@@@C @G@@@@ COMMON/ S6BLK /INP,NX ,BH )@@G@@NC,VECT, RAW, RES,TCOP,TPAK,TRAW,TROT, @G@@@@ 1PCOP,PPAK,PRAW,PROBI )@@G@@T, MAX,QMAX,MLE,FPCA,NF,DET ,NRF,ITER,EPS, @G@@@@ 2DELTA,CRIT,PBJ )@@G@@ROC,IO(4),ITERS ,IORTH,SCORES,DF,NOBS,INCOM,H(200), @^@@@@ 3ICALC,BK )@@G@@E(4),F(4) @B@@@@ DATA E /'0***** FACTOR3 ERROR NO.'/ @B@@@@ BL )@@G@@DATA F /'0***** FACTOR3 NOTE NO.'/ @[@@@@C @E@@@@ COMMON/S6FMTBM )@@G@@S/NAMPRO(7),SUBNAM(7),DATFMT(5),VECFMT(2),@F@@@@ *NAMCOV(7),GATFMT(6BN )@@G@@),GECFMT(3),FUMFMT(6),GUMFMT(3),LUMFMT(6),@E@@@@ *MUMFMT(6),NUMFMT(4BO )@@G@@),NAMFMT(6),OFORM(5),QFORM(5),IBLANK@ @@@@ DATA IBLANK/6H / BP )@@G@@@F@@@@ DATA ( DATFMT(I),I=1,5)/30H(1X,I3,1X,A6,A2,1X,12F9.3) / BQ )@@G@@@C@@@@ DATA ( VECFMT(I),I=1,2)/12H(14X,12F9.3)/ @D@@@@ DATA (BR )@@G@@ NUMFMT(I),I=1,3)/18H(14X,12(4X,I3,2X))/ @G@@@@ DATA ( MUMFMT(I),IBS )@@G@@=1,6)/36H(14H VARIABLE NO. ,12(4X,I3,2X)) / @G@@@@ DATA (NAMFMTBT )@@G@@(I),I=1,6) /36H(14H NO. NAME ,3X,12(1X,A6,A2)) / @F@@@@ DATA (BU )@@G@@ GATFMT(I),I=1,6)/31H(1X,I3,1X,A6,A2,1X,10G11.5)/ @C@@@@ DATA (BV )@@G@@ GECFMT(I),I=1,3)/13H(14X,10G11.5)/ @F@@@@ DATA ( LUMFMT(I),I=1,6)/BW )@@G@@32H(14H VAR. / FACTOR,12(4X,I3,2X))/@F@@@@ DATA ( FUMFMT(I),I=1,6)/BX )@@G@@32H(14H VAR. / FACTOR,10(5X,I3,3X))/@D@@@@ DATA(GUMFMT(I),I=1,3)/BY )@@G@@18H(11X,10(5X,I3,3X))/ @E@@@@ DATA ( OFORM(I),I=1,5)/25H8F8.5) BZ )@@G@@ /@B@@@@ DATA ( QFORM(I),I=1,5)/25H6E10.5) @[@@@@CA )@@G@@C @D@@@@ COMMON /S63FMT/EATFMT(5),MAMFMT(6),BUMFMT(6) @C@@@@CB )@@G@@ DATA EATFMT/'(1X,I3,1X,A6,A2,2X,9G12.5)'/ @E@@@@ DATA MAMFMT/CC )@@G@@'(14H NO. NAME ,5X,9(A6,A2,4X))'/ @E@@@@ DATA BUMFMT/'(14H CD )@@G@@VARIABLE NO. ,9(6X,I3,3X)) '/ @[@@@@C @ @@[@ COMMON /S63BCE )@@G@@LC/ C(300) @E[@@@ COMMON /S63NBK/IPCOEF,IRPCOR,MAXCOR,NRMLZE,BWEPSCF )@@G@@,BWDEL@^@@@@ REAL BWEPS,BWDEL @[@@@@C @D@@@@ COMMON /S63BCG )@@G@@SV/ NADD,BANKSC(2),BANCHR,BANEXT @[@@@@C @^@@@@ DIMENSION ETCH )@@G@@MES(6)@E@@@@ DATA ETMES /36HEND OF COMPUTATIONS FOR MODEL /CI )@@G@@@[@@@@C @B@@@@ DIMENSION FNAM(2)/'FT3$$1 '/ @[@@@@C CJ )@@G@@@^@@@@ EXTERNAL S1SVOB @[@@@@C @[@@@@C @^@@@@C CK )@@G@@ INITIALIZE@[@@@@C @^@@@@ CALL S1HEDC(0) @B@@@@ CALL SCL )@@G@@1GVAL('INTYPE',INP,$99,$99) @B@@@@ CALL S1GVAL('CPTYPE',CPTYPE,$9CM )@@G@@9,$99)@B@@@@ CALL S1GVAL('NVARS',NV,$99,$99) @B@@@@ CALL SCN )@@G@@1GVAL('NMODEL',NMODEL,$99,$99)@E@@@@ IF(NMODEL .NE. 0) CALL S1IODR(CO )@@G@@1,'REWIND',0,0,DUM) @B@@@@ CALL S1GVAL('SCORES',SAVFLG,$99,$99)CP )@@G@@@B@@@@ CALL S1GVAL('BANEXT',BANEXT,$99,$99)@]@@@@ MLE=0 @A@@@@CQ )@@G@@ CALL S1GVAL('MLE',MLE,$99,$40)@#@@@@ 40 CALL S1TIMI @^@@@@ CR )@@G@@CALL S1INHC(2) @C@@@@ CALL S1GTAG('OVERFL',LVFW,DUM,DUM,$999) CS )@@G@@@C@@@@ CALL S1GTAG('IDMAT',LSUBHD,DUM,DUM,$999) @^@@@@ LSUBHDCT )@@G@@=LSUBHD+2 @ @@@@ IX(LSUBHD)=' ' @ @@@@ IX(LSUBHD+1)CU )@@G@@=' ' @#@@@@ LOCFNM=0 @C@@@@ CALL S1GTAG('FOTNMS',LOCCV )@@G@@FNM,DUM,DUM,$50) @^@@@@ 50 NAMES=NMS(1,1) @^@@[@ DO 60 J=1,30CW )@@G@@0 @][@@@ 60 C(J)=J@ @@@@ CALL S1VLSD(Z,NUSED,$99)@#@@@@ CX )@@G@@NVTOT=NV @#@@@@ NV=NUSED @A@@@@ IF(SAVFLG .NE. 0) SAVFLGCY )@@G@@=NVTOT@#@@@@ DO 65 J=1,NV@]@@@@ K=Z(J)@^@@@@ NAM(1,J)=NMSCZ )@@G@@(1,K) @^@@@@ NAM(2,J)=NMS(2,K) @#@@@@ 65 Z(J+NV)=Z(J)@^@@@@ DA )@@G@@NW=NV*(NV+1)/2 @#@@@@ GO TO 100 @ @@@@ 99 CALL S1SERR('FACTODB )@@G@@R3.') @#@@@@ GO TO 999 @[@@@@C @^@@@@C INPUT DATADC )@@G@@@[@@@@C @]@@@@ 100 IERR=0@A@@@@ GO TO (102,120,150,160),INP DD )@@G@@@#@@@@ 102 KEMP=Z(1) @ @@@@ IF(NV .EQ. NVTOT) Z(1)=0@F@@@@ DE )@@G@@CALL S1RDI2(NV,0,SAVFLG,S1SVOB,DF,XM,T,X,Y,R,B,IERR,0,Z) @#@@@@ DF )@@G@@Z(1)=KEMP @A@@@@ IF(IERR .EQ. 0) GO TO 190 @#@@@@ 105 PRINT DG )@@G@@9100,E@B@@@@ 9100 FORMAT(4A6,' 15. ERRORS IN INPUT') @#@@@@ GO TO DH )@@G@@999 @C@@@@ 120 CALL S1RCOP(XM,X,Y,R,DF,NV,'SINGLE',IERR) @A@@@@ DI )@@G@@IF(IERR .NE. 0) GO TO 105 @]@@@@ M=0 @^@@@@ DO 130 J=1,NDJ )@@G@@V @]@@@@ M=M+J @#@@@@ 130 T(J)=R(M) @#@@@@ GO TO 190 DK )@@G@@@A@@@@ 150 CALL S1RLTM(NV,R,T,E,IERR,NVJ)@]@@@@ DF=0 @ @@@@ DL )@@G@@IF(NVJ .EQ. 0) GO TO 105@#@@@@ GO TO 190 @B@@@@ 160 CALL S1RLT2(DM )@@G@@NV,R,T,E,IERR,NVJ,SD) @]@@@@ DF=0 @ @@@@ IF(NVJ .EQ. 0) GO DN )@@G@@TO 105@^@@@@ DO 170 J=1,NVJ @ @@@@ SDSV(J)=SQRT(ABS(SD(J)))DO )@@G@@@^@@@@ 170 SD(J)=SDSV(J) @A@@@@ 190 CALL S1TIMA(2,'END OF INPUT') DP )@@G@@@[@@@@C @G@@@@C OUTPUT FOR ALL VARIABLES / SET UP TEST ADQ )@@G@@ND SDV VECTORS @[@@@@C @]@@@@ 200 TCOP=0@]@@@@ PCOP=0@]@@@@DR )@@G@@ RAW=0 @#@@@@ NOCOR=0 @#@@@@ COVAR=0 @B@@@@ DS )@@G@@CALL S1GVAL('FILECO',TCOP,$205,$205)@B@@@@ 205 CALL S1GVAL('CARDCO',PCODT )@@G@@P,$210,$210)@B@@@@ 210 CALL S1GVAL('PRODUC',RAW,$215,$215) @B@@@@ 215 DU )@@G@@CALL S1GVAL('NOCOR',NOCOR,$220,$220)@C@@@@ 220 CALL S1GVAL('COVARM',COVDV )@@G@@AR,$225,$225) @#@@@@ 225 CONTINUE @#@@@@ ICALC=2 @ @@@@DW )@@G@@ IF(INP .EQ. 3) GO TO 250@ @@@@ IF(INP .EQ. 4) GO TO 280@A@@@@DX )@@G@@ IF(CPTYPE .EQ. 2) ICALC=1 @#@@@@ NCORP=1 @ @@@@ DY )@@G@@IF(NOCOR .NE. 0) NCORP=0@G@@@@ CALL S1MOP(NV,DF,XM,T,R,X,Y,XM,V,U,SDZ )@@G@@D,R,NAM,Z,1,RAW,COVAR,NCORP, @B@@@@ - PCOP,TCOP,DUMMY,ICALC,MLE,IEA )@@G@@ERR) @A@@@@ IF(IX(LVFW) .NE. 0) GO TO 999 @A@@@@ IF(NMODEL .EEB )@@G@@Q. 0) GO TO 300 @E@@@@ IF(NMODEL .GT. 1) CALL S1VCSR('WRITE',FNAMEC )@@G@@,R,NW,$999) @F@@@@ IF(NMODEL .EQ. 1 .AND. ICALC .EQ. 1 .AND. NOED )@@G@@COR .EQ. 0) @C@@@@ - CALL S1VCSR('WRITE',FNAM,R,NW,$999) @#@@@@EE )@@G@@ CALL S1VFWC @^@@@@ DFBETA=DF*2**-26 @^@@@@ DO 230 J=1,NEF )@@G@@V @#@@@@ SSQ=T(J) @ @@@@ TSTRAT(J)=SSQ/(DF*V(J)) @^@@@@EG )@@G@@ SDSV(J)=SD(J) @#@@@@ SUM=XM(J) @ @@@@ TEMP=(DF*SSQEH )@@G@@-SUM*SUM)/DF@A@@@@ IF(X(J) .EQ. Y(J)) TEMP=0 @C@@@@ IF(TEMEI )@@G@@P/SSQ .GE. 2.*DFBETA) GO TO 230 @^@@@@ SDSV(J)=1.0E+38 @#@@@@EJ )@@G@@ 230 CONTINUE @A@@@@ CALL S1VFWT(6HANL 1,$999) @#@@@@ EK )@@G@@TEST=1.E7 @ @@@@ IF(INP .NE. 1) GO TO 245@^@@@@ DO 235 J=1,NEL )@@G@@V @#@@@@ ZZ(J)=SD(J) @^@@@@ 235 ZZ(J+NV)=XM(J) @^@@@@ EM )@@G@@DO 240 J=1,NV @]@@@@ K=Z(J)@#@@@@ SD(K)=ZZ(J) @^@@@@ 240 EN )@@G@@XM(K)=ZZ(J+NV) @#@@@@ 245 CONTINUE @D@@@@ IF(ICALC .NE. 1 .EO )@@G@@OR. NOCOR .NE. 0) GO TO 300 @^@@@@ CALL COMCOR(R) @G@@@@ EP )@@G@@CALL S1PLTM(R,NAM,Z,37HC O R R E L A T I O N M A T R I X ,@B@@@@EQ )@@G@@ - 0,0,DATFMT,NAMFMT,MUMFMT,12,NV) @B@@@@ CALL S1VCSR('READ'ER )@@G@@,FNAM,R,NW,$999) @#@@@@ GO TO 300 @[@@@@C @D@@@@ 250 IF(NOCES )@@G@@OR .NE. 0 .AND. IERR .EQ. 0) GO TO 260 @G@@@@ CALL S1PLTM(R,NMS,ET )@@G@@Z,37HC O R R E L A T I O N M A T R I X ,0, @F@@@@ - 'COMPUTED EEU )@@G@@LSEWHERE AND INPUT TO FACTOR3 ',DATFMT,NAMFMT, @^@@@@ - MUMFMT,12EV )@@G@@,NVJ) @A@@@@ IF(IERR .NE. 0) GO TO 105 @E@@@@ 260 IF(NMODEL .GEW )@@G@@T. 1) CALL S1VCSR('WRITE',FNAM,R,NW,$999) @A@@@@ 265 IF(NMODEL .EQ. 0) EX )@@G@@GO TO 300 @#@@@@ TEST=1.E5 @^@@@@ DO 270 J=1,NV @#@@@@EY )@@G@@ 270 TSTRAT(J)=1.@#@@@@ GO TO 300 @[@@@@C @G@@@@ 280 IF(NOCEZ )@@G@@OR .NE. 0 .AND. IERR .EQ. 0 .AND. COVAR .EQ. 0) GO TO 285 @ @@@@ FA )@@G@@CALL S1HED2(NVJ,9,0) @G@@@@ CALL S1PLTM(R,NMS,Z,37HC O V A R I AFB )@@G@@ N C E M A T R I X ,0,@D@@@@ - 'COMPUTED ELSEWHERE AND INPFC )@@G@@UT TO FACTOR3 ', @A@@@@ - EATFMT,MAMFMT,BUMFMT,9,NVJ)@#@@@@ FD )@@G@@COVAR=1 @A@@@@ IF(IERR .NE. 0) GO TO 105 @A@@@@ 285 IF(CPTFE )@@G@@YPE .NE. 2) GO TO 290 @G@@@@ IF(NMODEL .GT. 1 .OR. NOCOR .EQ. 0FF )@@G@@) CALL S1VCSR('WRITE',FNAM, @^@@@@ - R,NW,$999) @A@@@@ 290 FG )@@G@@IF(NOCOR .NE. 0) GO TO 295 @^@@@@ CALL COMCOR(R) @ @@@@ FH )@@G@@CALL S1HED2(NV,12,0) @G@@@@ CALL S1PLTM(R,NMS,Z,37HC O R R E L AFI )@@G@@ T I O N M A T R I X , @B@@@@ - 0,0,DATFMT,NAMFMT,MUMFMT,12FJ )@@G@@,NV) @E@@@@ IF(CPTYPE .EQ. 2) CALL S1VCSR('READ',FNAM,R,NW,$999) FK )@@G@@@A@@@@ 295 IF(CPTYPE .EQ. 2) GO TO 265 @B@@@@ IF(NOCOR .NE. 0) CFL )@@G@@ALL COMCOR(R) @E@@@@ IF(NMODEL .GT. 1) CALL S1VCSR('WRITE',FNAMFM )@@G@@,R,NW,$999) @#@@@@ GO TO 265 @[@@@@C @B@@@@C BEGIFN )@@G@@N LOOP TO PROCESS MODELS@[@@@@C @]@@@@ 300 NM=0 @A@@@@ IF(NMOFO )@@G@@DEL .NE. 0) GO TO 310 @#@@@@ PRINT 305 @E@@@@ 305 FORMAT('1THEFP )@@G@@RE IS NO FACTOR ANALYSIS TO BE PERFORMED')@]@@@@ RETURN@#@@@@ 310 FQ )@@G@@NM=NM+1 @A@@@@ IF(NM .GT. NMODEL) RETURN @D@@@@ IF(NM FR )@@G@@.NE. 1) CALL S1VCSR('READ',FNAM,R,NW,$999)@[@@@@C @C@@@@C FS )@@G@@ LOAD SPECS AND SET COMMON BLOCK @[@@@@C @B@@@@ CALL S1IODR(FT )@@G@@1,'READ',63,A,LEND) @A@@@@ IF(LEND .GE. 0) GO TO 330 @#@@@@FU )@@G@@ 325 PRINT 9325 @D@@@@ 9325 FORMAT('0***** DRUM LOADING ERROR IN S63AFV )@@G@@NL') @#@@@@ GO TO 99 @]@@@@ 330 NX=0 @]@@@@ NC=1 @#@@@@FW )@@G@@ VECT=A(52) @]@@@@ RAW=0 @#@@@@ RES=A(45) @#@@@@ FX )@@G@@IRPCOR=A(23)@]@@@@ TCOP=0@#@@@@ TPAK=A(54) @C@@@@ IF(TPAFY )@@G@@K .NE. 0) TPAK=LOCFNM+2*(TPAK-1) @#@@@@ TRAW=A(28) @C@@@@ FZ )@@G@@IF(TRAW .NE. 0) TRAW=LOCFNM+2*(TRAW-1) @#@@@@ TROT=A(33) @C@@@@GA )@@G@@ IF(TROT .NE. 0) TROT=LOCFNM+2*(TROT-1) @]@@@@ PCOP=0@#@@@@GB )@@G@@ PPAK=A(53) @#@@@@ PRAW=A(27) @#@@@@ PROT=A(32) @#@@@@GC )@@G@@ MAX=A(1) @ @@@@ IF(A(2) .NE. 0) MAX=A(3)@#@@@@ QMAX=AGD )@@G@@(4) @A@@@@ IF(A(5) .NE. 0) QMAX=A(6) @#@@@@ FPCA=A(8) GE )@@G@@@#@@@@ NF=A(15) @]@@@@ DET=0 @#@@@@ NRF=MAX+QMAX@]@@@@GF )@@G@@ ITER=0@D@@@@ IF(A(12) .NE. 0 .OR. A(16) .NE. 0) ITER=50 GG )@@G@@@A@@@@ IF(A(17) .NE. 0) ITER=A(18) @#@@@@ IPCOEF=0 @G@@@@GH )@@G@@ IF(A(41) .NE. 0 .OR. A(42) .NE. 0 .OR. A(43) .NE. 0) IPCOEF=1 GI )@@G@@@#@@@@ EPS=A(42) @#@@@@ DELTA=A(43) @C@@@@ IF(DELTA .NEGJ )@@G@@. 0) DELTA=LOCFNM+2*(DELTA-1) @#@@@@ TEMP=.005 @#@@@@ CRIT=KGK )@@G@@EMP @A@@@@ IF(A(19) .NE. 0) CRIT=A(19) @#@@@@ PROC=A(46) GL )@@G@@@#@@@@ ICALC=2 @A@@@@ IF(PROC .LT. 6) GO TO 340 @#@@@@GM )@@G@@ ICALC=1 @]@@@@ PROC=1@#@@@@ 340 IO(1)=0 @#@@@@ GN )@@G@@IO(2)=0 @#@@@@ IO(3)=0 @#@@@@ IO(4)=0 @#@@@@ GO )@@G@@ITERS=A(21) @#@@@@ IORTH=0 @#@@@@ SCORES=0 @A@@@@ GP )@@G@@IF(A(36) .NE. 0) SCORES=1 @B@@@@ IF(A(37) .NE. 0) SCORES=SCORESGQ )@@G@@+2 @B@@@@ IF(A(38) .NE. 0) SCORES=SCORES+4 @#@@@@ KEMP=AGR )@@G@@(38) @C@@@@ IF(KEMP .NE. 0) KEMP=LOCFNM+2*(KEMP-1) @ @@@@ GS )@@G@@SCORES=SCORES+8*KEMP @#@@@@ NOBS=DF @#@@@@ INCOM=A(48) GT )@@G@@@#@@@@ MAXCOR=A(49)@#@@@@ NRMLZE=A(56)@#@@@@ BWEPS=.00116GU )@@G@@@#@@@@ KEMP=A(58) @A@@@@ IF(A(57) .NE. 0) BWEPS=TEMP @#@@@@GV )@@G@@ BWDEL=0.0 @#@@@@ KEMP=A(60) @A@@@@ IF(A(59) .NE. 0) BGW )@@G@@WDEL=TEMP @#@@@@ NVSPEC=A(47)@#@@@@ MVAR=A(47) @ @@@@ GX )@@G@@IF(MVAR .EQ. 0) MVAR=NV @#@@@@ MODNUM=A(50)@A@@@@ IF(NVSPEC .EGY )@@G@@Q. 0) GO TO 350 @B@@@@ CALL S1IODR(1,'READ',MVAR,ZZ,LEND) @A@@@@GZ )@@G@@ IF(LEND .LT. 0) GO TO 325 @^@@@@ DO 346 J=1,MVAR @#@@@@HA )@@G@@ TEMP=ZZ(J) @^@@@@ DO 344 I=1,NV @B@@@@ IF(KEMP .NE.HB )@@G@@ Z(I+NV)) GO TO 344 @]@@@@ Z(J)=I@#@@@@ GO TO 346 @#@@@@HC )@@G@@ 344 CONTINUE @#@@@@ 346 CONTINUE @A@@@@ 350 IF(INCOM .EQ. 0) GHD )@@G@@O TO 360 @B@@@@ CALL S1IODR(1,'READ',MVAR,H,LEND) @A@@@@ HE )@@G@@IF(LEND .LT. 0) GO TO 325 @#@@@@ 360 NADD=A(61) @A@@@@ IF(NADHF )@@G@@D .EQ. 0) GO TO 370 @^@@@@ BANKSC(1)=A(62) @^@@@@ BANKSCHG )@@G@@(2)=A(63) @#@@@@ DO 364 K=1,9@ @@@@ CALL S1PRFT(BANKSC,K,CH)HH )@@G@@@A@@@@ IF(CH .NE. ' ') GO TO 364 @#@@@@ BANCHR=K-1 @#@@@@HI )@@G@@ GO TO 365 @#@@@@ 364 CONTINUE @C@@@@ 365 CALL S1IODR(1,'REAHJ )@@G@@D',NADD,BAVAR,LEND) @A@@@@ IF(LEND .LT. 0) GO TO 325 @#@@@@HK )@@G@@ 370 CONTINUE @[@@@@C @E@@@@C PREPARE MATRIX AND VECHL )@@G@@TOR T OF TEST RATIOS @[@@@@C @E@@@@ 400 IF(CPTYPE .EQ. 2 .AND. HM )@@G@@ ICALC .EQ. 2) CALL COMCOR(R) @A@@@@ IF(NAMES .EQ. 0) NAM(1,1)=0 HN )@@G@@@]@@@@ QUIT=0@A@@@@ IF(NVSPEC .EQ. 0) GO TO 420 @A@@@@ HO )@@G@@CALL S1SELT(R,NV,MVAR,Z,ZZ) @^@@@@ DO 410 J=1,MVAR @]@@@@ HP )@@G@@K=Z(J)@^@@@@ T(J)=TSTRAT(K) @F@@@@ IF(IERR .NE. 0 .AND. SHQ )@@G@@DSV(K) .GT. 1.0E+37) QUIT=QUIT+1 @#@@@@ K=Z(NV+K) @]@@@@ HR )@@G@@Z(J)=K@A@@@@ IF(NAMES .EQ. 0) GO TO 410 @^@@@@ NAM(1,J)=NMSHS )@@G@@(1,K) @^@@@@ NAM(2,J)=NMS(2,K) @#@@@@ 410 CONTINUE @#@@@@ HT )@@G@@GO TO 450 @^@@@@ 420 DO 425 J=1,NV @]@@@@ Z(J)=J@A@@@@ HU )@@G@@IF(NAMES .EQ. 0) GO TO 425 @^@@@@ NAM(1,J)=NMS(1,J) @^@@@@ HV )@@G@@NAM(2,J)=NMS(2,J) @^@@@@ 425 T(J)=TSTRAT(J) @#@@@@ QUIT=IERR HW )@@G@@@[@@@@C @E@@@@C SET PRINT FLAG AND MODEL NO. - CALL S6HX )@@G@@3AMD @[@@@@C @]@@@@ 450 PRNT=0@A@@@@ IF(A(22) .NE. 0) GO TO 4HY )@@G@@70 @]@@@@ PRNT=1@A@@@@ IF(MVAR .NE. NV) GO TO 470 @^@@@@HZ )@@G@@ DO 455 J=2,NV @A@@@@ IF(Z(J-1) .GT. Z(J)) GO TO 470@#@@@@IA )@@G@@ 455 CONTINUE @A@@@@ IF(ICALC .EQ. 1) GO TO 460 @ @@@@ IB )@@G@@IF(NOCOR .EQ. 0) PRNT=0 @ @@@@ IF(PRNT .NE. 0) NOCOR=0 @#@@@@ IC )@@G@@GO TO 470 @ @@@@ 460 IF(COVAR .NE. 0) PRNT=0 @ @@@@ IF(PRNT .NE.ID )@@G@@ 0) COVAR=1 @#@@@@ 470 TSTVAL=TEST @^@@@@ IX(LSUBHD)='MODEL'@#@@@@IE )@@G@@ AN=' ' @]@@@@ ICH=5 @A@@@@ IF(MODNUM .LE. 9999) ICHIF )@@G@@=4 @A@@@@ IF(MODNUM .LE. 999) ICH=3 @ @@@@ IF(MODNUM .LIG )@@G@@E. 99) ICH=2@ @@@@ IF(MODNUM .LE. 9) ICH=1 @B@@@@ CALL S1ENCI(IH )@@G@@MODNUM,AN,ICH,ICH,1) @^@@@@ IX(LSUBHD+1)=AN @A@@@@ IF(QUIII )@@G@@T .EQ. 0) GO TO 480 @#@@@@ CALL S1PHED @^@@@@ PRINT 9475,QIJ )@@G@@UIT @G@@@@ 9475 FORMAT('0***** FOR',I4,' VARIABLE(S) THE VARIANCE IS ZIK )@@G@@ERO OR CANNO@A@@@@ -T BE COMPUTED ACCURATELY') @#@@@@ PRINT IL )@@G@@9476 @G@@@@ 9476 FORMAT(10X,' THUS THE CORRELATION MATRIX IS SINGULAR OIM )@@G@@R CANNOT BE @ @@@@ -COMPUTED ACCURATELY') @^@@@@ PRINT 9477,AIN )@@G@@N @F@@@@ 9477 FORMAT('0***** FACTOR ANALYSIS NOT PERFORMED FOR MODELIO )@@G@@ ',A5)@#@@@@ GO TO 310 @#@@@@ 480 CONTINUE @ @@@@ CALL SIP )@@G@@63AMD(MVAR,MVAR+1,@B@@@@ - B,A,Q,P,R,S,T,U,V,W,X,Y,Z,XM,SD, @#@@@@IQ )@@G@@ - NAM, @ @@@@ - BABUF,BAVBUF,BAVAR, @^@@@@ - TSTIR )@@G@@VAL,PRNT,ZZ)@#@@@@ ETMES(6)=AN @ @@@@ CALL S1TIMA(6,ETMES) IS )@@G@@@#@@@@ GO TO 310 @[@@@@C @ @@@@C ERROR RETURNS IT )@@G@@@[@@@@C @#@@@@ 999 PRINT 9999,F@G@@@@ 9999 FORMAT(4A6,' 27. ANALYSIIU )@@G@@S TERMINATED BECAUSE OF PREVIOUS ERRORS') @]@@@@ RETURN@[@@@@C IV )@@G@@@[@@@@C @F@@@@C LOCAL SUBROUTINE TO COMPUTE CORR. MATRIX FROMIW )@@G@@ COVARIANCE @[@@@@C @ @@@@ SUBROUTINE COMCOR(R) @#@@@@ IX )@@G@@REAL R(1),TT@]@@@@ M=1 @^@@@@ DO 1010 I=1,NV @^@@@@ IY )@@G@@DO 1000 J=1,I @ @@@@ TT=R(M)/SDSV(I)/SDSV(J) @ @@@@ IF(TT IZ )@@G@@.GT. 1.) TT=1. @ @@@@ IF(TT .LT. -1.) TT=-1. @#@@@@ R(M)=TJA )@@G@@T @]@@@@ 1000 M=M+1 @#@@@@ 1010 CONTINUE @]@@@@ RETURN@]@@@@JB )@@G@@ END ___ .AND. SDSV(K) .GT. 1.0E+37) QUIT=QUIT+1 @#@@@@ JC )@@G@@)@@[N#@CS[#@CS[#@@G"@__"C]@@^HG.)__"C[)@^DG.@__.C[@@^DG/)__.C@)@^BG/@__"JD )@@G@@C@@@^EAA@@@A)@E[N#@CS[#@CS@K0@R@K@^MG_)__.C;:K@^[#)@^NG_)__"C#)@^FG_@__"JE )@@G@@C#@@^CG")__"C])@^BAB@@@A)@O[F#@-)K0]A[#@CS^G@@@@[#)@^QR@0@^IG_)__"C#)@^GJF )@@G@@[#)@^PG_)__.C#)@^H[#)@^OR@)@^LAC@@@A)@X[F#@CS^G@-)K0]A@@@@@@[#)@^TG_)__"JG )@@G@@C#)@^M[#)@^SG_)__.C#)@^G[#)@^RG_)__"C#)@^JAD@@@A)@&[F#@CS^G@-)K0]A@@@@@@JH )@@G@@[#)@^WG_)__.C#)@^J[#)@^VG_)__"C#)@^K[#)@^UG_)__.C#)@^LAE@@@A)@\[F#@]A[#@JI )@@G@@-)K0CS^G@@@@[])@^+[]@@^-[[)@^)[[@@^Z[@)@^Y[@@@^XR9FK@[G_)__.C#)@^MAF@@@AJJ )@@G@@)@8@V#@-)K0@)#!@6G@@@@@@ FACTO0*****OR NO.R3 ERR FACTO0*****A@K@^>[#)@^=JK )@@G@@[#@@^@YK@@@@@@FACTORAR. / (14H V)) ,I3,2X,12(4XFACTORAR. / (14H VAL@@@AJQ )@@G@@)@*@6K@@@@@@)[^@YK@@@@@@ 8F8.5)3,3X))0(5X,I(11X,1)) ,I3,3XJR )@@G@@,10(5XAM@@@A)[B@"K@@@@@@)@@@QO@@@@@@,1X,A6(1X,I3 ) JS )@@G@@6E10.5 AN@@@A)@][YO@@@@@@ARIABL(14H V4X)) A6,A2,,5X,9(AME JT )@@G@@O. N(14H N5) ,9G12.,A2,2XAO@@@A)@H@&O@@@@@@)@A@*@@@@@@@MODEL S FOR JU )@@G@@TATION COMPUEND OF) I3,3X),9(6X,E NO. AP@@@A)@F@S@)@;@V#@-[K0@)@,@K@JV )@@G@@@@@@@@______INTYPE@@@@#*/,0@@@A[@@^& FT3$$1 AQ@@@A)@"@3#@-]K0CJW )@@G@@S4[@@@)@0@K@@@@@@@______CPTYPE/K@@#D/K@@#D@@@@@@@@@@@,/,0@@@@][@^@AR@@@AJX )@@G@@)[^@3#@-]K0CS^[@@@)@2@K@@@@@@@______NVARS /K@@#D/K@@#D@@@@@I@@@@@0/,0@@@JY )@@G@@@]]@^@AS@@@A)[E@3#@-]K0CS^[@@@)@4@K@@@@@@@______NMODEL/K@@#D/K@@#D@@@@@JJZ )@@G@@@@@@@2/,0@@@@]#@^@AT@@@A)[K@3#@-]K0CS^[@@@)@6@K@@@@@@@______REWIND/K@@#DKA )@@G@@/K@@#D@@@@@K@@@@@4/,0@@@@]^@^@AU@@@A)[Q[F#@-)K^CUA[#@-)K0CS@@@@@@L@@@@#*KB )@@G@@@@@@#*@@@@@6@@@@#(/,0@@@/K@@[)(@@@@K@] @^@AV@@@A)@8@K@)[Z@3#@-]K0CS^[@@@KC )@@G@@@@@@@@/K@@#D/K@@#D@@@@@M@@@@@8/,0@@@@]B@^@______SCORESAW@@@A)@'@K@)[>@3#KD )@@G@@@-]K0CU^[@@@@@@@@@/K@@#D/K@@#D@@@@@^@@@@@'/,0@@@@]C@^@______BANEXTAX@@@AKE )@@G@@)[:@F#@@@@@@)@/@K@)[?@<#A-]K0CS0@@@@@@@@@K@@@@@//,0@@@ @@@@K______MLE KF )@@G@@@]D@^@AY@@@A)[0@;@K^G]^L#@- K0@@@@@@)@"@C@OVERFL@@@@#%/,0@@@@]G@^@/,0@@@KG )@@G@@@]F@^@/K@@[3/K@@#DAZ@@@A)@_@C@)[7@;#@-AK0CS^G]A[@@@@@@/K@@PW@@@@@L@@@@@LKH )@@G@@@@@@@N@@@@@"/,0@@@@]H@^@______BA@@@A)[@@K@)["@3#@-AK0CS^G]A@@@@@@@@@@@@LKI )@@G@@@@@@@L@@@@@O@@@@[@/,0@@@@]I@^@______IDMAT BB@@@A)]^[F@K0]A[#@-)K0JE]@@@@KJ )@@G@@[@-@@@[@-J_"C@)@#:R@K@@O[@@@@OG@@@@OC/@@@]@]J@^@/K@@PWBC@@@A)[]@K@)]H@3#KK )@@G@@@-AK0CS^G]A@@@@@@@@@@@@L@@@@@L@@@@@P@@@@[]/,0@@@ @@@@P______FOTNMSBD@@@AKL )@@G@@)]N[F@K0]A@^G]A[;G@@@@@@[@^J_"C@@@@RA[@@@RN.@@^:R.@@@[[@@@@QC@]@@@@]O@^@KM )@@G@@/K@@]PBE@@@A)]W[EK^C8-)K^G]A[#@@@@@@[@@@@TC@@@@J@]V@^@/K@@#D@@@@@S@@@@@@KN )@@G@@/,0@@@8L@@]TO.@@@[BF@@@A)]>[F#@-)[#@-)K0CS^G@@@@(@@@@M[[@@^*[@)@^$G[@@^=KO )@@G@@G[@@@JC.@@@[G/)__"[@)@@JC@)@@SBG@@@A)],[F@K0CS^G]A[#@-)K0CS@Q[K@^IR[K@#!KP )@@G@@Q[@@^TR[@@#?Q@K@^*R@K@#?[@@@@MC@@@@T/K@@]1BH@@@A)]7[N#@CS[#@@@@@@@C@^)@[KQ )@@G@@[[ )@[C[G@@[[@>@@@C@?@@@G@@@^U;@@@@<[@@@@UC@^@@[N[@@^$BI@@@A)#[[]K[#@-)^KR )@@G@@G]@@@@)[^@C@FACTOR/K@@#H[@)@@V;K)@@[T@)@@JG@)@@JC/)@@[8L@@]8[@[)@[BJ@@@AKS )@@G@@)[ @K@)#D@;]K-)K0C]A[#A@$'0@@ RA0@@@ @@@@W/K@@PW@]%@^@@@@@[^/,0@@@______KT )@@G@@3. BK@@@A)#K[F@K?*S^[@K^[#@@@@@@@C@[@@@R@K@^>/K@@^(/K@@^X/K@@#_/K@@#RKU )@@G@@@]!@^@'^@@@@8];@#MBL@@@A)#T[F#@-)K0]@-)^DEA@@@@@@@@@@J/,0@@@ @^@@@R[@@^>KV )@@G@@/K@@#)*@@@@GH@@@@JC@@@@T[@@@#$BM@@@A)#+[N#@-)K)CS0@@@@@@@@@@@@@@@@@@@@@@KW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@-@@@@@@@@@@@M@@@@#*BN@@@A)#?[F#@-)^G]A[#@CS^@@@@@KX )@@G@@/K@@ (@@@@W[@ @@@R[K@^>C@@@#$@]1@^@@@@@@@@@@@#*@@@@@WBO@@@A)#5[#]4-)K0CKY )@@G@@S[#A-VK@@@@@@@@@@@8L@@#''^K@@@C8[)#?N.@@@#R@K@#,@]5@^@@@[@[B/,0@@@BP@@@AKZ )@@G@@)[B@*@@@@@@@)#.@N]8)@@@@)[G@C@SINGLE/K@@PW'^@@@@INPUT)RS IN . ERRO20H 15LA )@@G@@(4A6,0BQ@@@A)[H@C@)#_[#]O@CS4G]A@@@@@@@@[G@@@@@J@@@@@-@@@@@@@@@@@@@@@@@@LB )@@G@@@@@@@@/,0@@@______BR@@@A)^B[F#@-)K0C]A@K0]A@@@@@R[@@#?C_)@@[G@@@@JC/@__"LC )@@G@@ @@@@X/K@@#5*@@@@W@].@^@@@@@@WBS@@@A)^K[F#@CS^G]A[#@-)K0@@@@C@>@@[O[K@^OLD )@@G@@R[K@@X[@@@@XG@@@@RC@@@@X[#)@@R[@@@[^Q[@@^VBT@@@A)^T[M^[@K>*S@K1*S@@@@@@WLE )@@G@@@@@@#!@@@@@@@@@@@@@@@@@J/,0@@@/K@@ 8L@@^MG_)@@[[@=)@[BU@@@A)^<[F#@-)K1*LF )@@G@@S^[@K&CS@@@@@@@@@@@@@@@J/,0@@@/K@@ /K@@#5(@@@@Y @@@@-@#C@^@@@@@@YBV@@@ALG )@@G@@)^?[EK1*S^G@-)K1*S^@@@@@/K@@#5(@@@@Y @@@@-@#H@^@@@@@@@@@@@@Y@@@@@W@@@@#!LH )@@G@@@@@@@@BW@@@A)^5[EK0CS^G]A[#@]A@@@@@@[@@@^$E@ @@[[@@@[^Q[K@^)R[K@#?Q@K@^-LI )@@G@@R@K@#?G@@@@YC/@__"BX@@@A)^"@;]'-)K0@C@@@@@)[I@K@ INPUTEND OF8L@@^/[@>)@[LJ )@@G@@C@-)@[[@[@@[@#O@^@@@@@^$/,0@@@BY@@@A)[K@C@) @;]U-)K0CS^GUAH#A@@@@ @@@@^LK )@@G@@ @@@@E @@@@A@#R@^@@@@@[I@@@@#%/,0@@@______BZ@@@A) G@F#@@@@@@)[L@K@) H@<#LL )@@G@@@-]K0CS0@@@@@@@@@A@@@@[L/,0@@@ @@@@)______FILECO @@@@ZCA@@@A) L@V@K^G@@@LM )@@G@@)[N@K@) O@V]^-)K1)@@@@@E@@@@[N/,0@@@______CARDCO@#X@^@/K@@ O/K@@ OCB@@@ALN )@@G@@) R@V@K^G@@@)[P@K@) U@V]^-)K1)@@@@@^@@@@[P/,0@@@______PRODUC@#Y@^@/K@@ ULO )@@G@@/K@@ UCC@@@A) X@V@K^G@@@)[R@K@) )@V]^-)K0@@@@@@Z@@@@[R/,0@@@______NOCOR LP )@@G@@@#Z@^@/K@@ )/K@@ )CD@@@A) <@V@K^G@@@)[T@K@) &@V]^-)K0@@@@@@)@@@@[T/,0@@@LQ )@@G@@______COVARM@#)@^@/K@@ &/K@@ &CE@@@A) ([N@K^G@-<^GS)@@C/)@@^/K@@DJ(@@@@ILR )@@G@@H@)@@@C/)@@#[@@@#?C/@@@]@#-@^@/K@@ ?/K@@ ?CF@@@A) 3[N#AC@-)^@K1)@@C/@@@[LS )@@G@@[@@@#?C/@@@[/K@@ /*@@@@GH@@@@IC/@@@]/K@@D_(@@@@IH@)@@@CG@@@A) .[F#@-)K^GLT )@@G@@]^9#@-<@@@@@@@@@@@@@@@@@@@@@@-@@@@@J/,0@@@ @@@@-/K@@A[(@@@@Z[@@@@-CH@@@ALU )@@G@@)AA[U@@@K0@@@@@@#(@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LV )@@G@@@@@@@@CI@@@A)AL[##A-)K0CS4GUA[#A-<@@@@@@@@@@@@@K@@@@#?@@@@@+@@@@@A@@@@@ELW )@@G@@@@@@@-@@@@@)@@@@@^CJ@@@A)AT@3#@-)K0JE@-)@@)[V@K@@@@@@@______WRITE (@@@@KLX )@@G@@/K@@PW*@^J_"R[@@@N@#!@^@@@@@@WCK@@@A)AZ[N@^G@C]^.#@-)@@@@@@@@@@@@G@@@@[VLY )@@G@@/,0@@@/K@@A?1@@@@G*@@@@GH@@@@KC/@@@[/K@@F\CL@@@A)A(@N#@)@@@@)[X@K@)A:@<#LZ )@@G@@@]A@@@H@)@@KC/)@@[C/@@@[@#3@^@______WRITE /K@@PW@@@@@VCM@@@A)A\[M@K1)]A@MA )@@G@@@@@@@@*@@@@ZC/)@@[+@@@@I @@@@I*@@@@KH[@@#?C.@@@[C/)@@[ @@@@G*@@@@ICN@@@AMB )@@G@@)A9[M[@K$*S^G@-)K@/K@@PW@@@@@V@@@@@@@@@@@G@@@@[X/,0@@@/)K@B^+@@@@I;^@@@=MC )@@G@@ @@@@ICO@@@A)B#[F#@-KK0CS4G]A@K0CS@@R@K@^RG@)@@JC/)__"[@@@@]"G@@#\C@@@@-MD )@@G@@@#6@^@/,0@@@@#5@^@CP@@@A)BG[F#@-)K0CS^G]A[#@@@@@C@ @@[[@)@[^R])@^-R]K@^)@[C@&)@[[@^)@[C@[)@[[@)@^*[@@@^$CY@@@A)CX[F#@-)K0CMO )@@G@@S^G@-)K0CS@@O])@^YR])@@U[@@@@UC@B)@[N[@@^$Q]K@^*R]K@#?Q]@@^QR]@@#?CZ@@@AMP )@@G@@)C&[N#@-)@^@K0@@@@ @@@@G(@@@@ZC/@@@[8L@@C+[[E@@[C[D)@[[@-@@[C@*)@[O@K@^ZMQ )@@G@@R@K@@UDA@@@A)C0[E^GS]@)@)[-@C@C O R @@@@@@/,0@RL/=K@F\)@@@@I @@@@I(@@@@KMR )@@G@@H[@@#?C.@@@[C/)@@[DB@@@A)[+@8@@@@@@@)C9@N#@-M@@@/,0@@@@^V@^@______ MS )@@G@@ I X A T RO N MA T I R E L DC@@@A)C;[E[#@-)K0CT^G+AK@@@@@@@@@@4@@@@@"MT )@@G@@@@@@@I@@@@#*@@@@#*@@@@[-@@@@@@@@@@@@@@@@@@DD@@@A)D^@N#@-)@@@)[(@K@)DA@V#MU )@@G@@@-JK0@@@@@@@@@@@[(/,0@@@@^W@^@______READ @@@@@J@@@@#3DE@@@A)DD[N#@CS^[#MV )@@G@@@)]A@@C/)@@[ @@@@G*@@@@WC/@@@[/K@@F\@^X@^@/K@@PW@@@@@V@@@@@@@@@@@GDF@@@AMW )@@G@@)DN@V#@@@@@@)[:@0@@@@@@@ I X A T RO N MA T I R E L C O R +@@@@I @@@@IMX )@@G@@(@@@@ZDG@@@A)[1[K@@@@@@@@@@@@@______OR3 O FACTNPUT T AND IEWHEREED ELSMY )@@G@@COMPUT______ DH@@@A)DQ[F@K(@CS^G]A[#C@@@@@@@@@@@I@@@@[3@@@@#*@@@@[:MZ )@@G@@@@@@@@@@@@@@@@@@@@/,0@@@/=K@D&DI@@@A)DZ@;#C-=K0CS^G]A[@@@@@@)[;@C@WRITE NA )@@G@@/K@@#5*@@@@W@^-@^@@@@@@Y@@@@#3@@@@@4@@@@@"DJ@@@A)[/@C@)D&[]K0@)CN4G]A@@@NB )@@G@@@@@@@G@@@@[;/,0@@@/K@@D21@@@@G*@@@@GH@@@@KC/@@@[______DK@@@A)D,[EK0C]A[#NC )@@G@@@)CS^G@@@@@@C/)__"[@@@@#C@@@#4/K@@F\(@@@@K@^>@^@/K@@PW@@@@@V@@@@@@DL@@@AND )@@G@@)D7[F#@-)K0]A@K^@@@@@@@@C/@@@[/K@@F\8L@@D;[@^)@[C@@@#5[@)@[^Q[@@^RR[@@#?NE )@@G@@G@)@@JDM@@@A)E@[N#@]A@[#@@@@@@+@)@@H @@@@I*@@@@)C/)@@[+@@@@I @@@@I(@@@@ZNF )@@G@@C/)@@[ @@@@G*@@@@WDN@@@A)EE@:@K(*S^G]A@@@@)[.@S@@@@@@@A N C A R I C O V NG )@@G@@@@@@#*@@@@#6@@@@@Y/,0@@@/=0@E-DO@@@A)]@[S@@@@@@@O FACTNPUT T AND IEWHERENH )@@G@@ED ELSCOMPUT______ X T R IE M ADP@@@A)]F@K@)EJ@;#@-M@K0CS@@@@NI )@@G@@@@@@#*@@@@[.@@@@@@@@@@@@@@@@@@/,0@@@@^1@^@______OR3 DQ@@@A)EQ[F#@->K2*NJ )@@G@@TOG]A[#@CS@@[@@@@)C/@@@[@^2@^@@@@@@Y@@@@#6@@@@@F@@@@@ @@@@@@@@@@] DR@@@ANK )@@G@@)EZ@:#@)]A@@)]H@K@)E=@F@@@@@@@/K@@E7______WRITE *@@@@GH@@@@IC/@@@]/K@@#5NL )@@G@@*@@@@WDS@@@A)E>[MK0@CS@@@@@@@@)@@@@I @@@@I1@@@@K*@@@@KH[@@@KC.@@@[C/)@@[NM )@@G@@ @@@@G*@@@@ZC/@@@[DT@@@A)E\[F@K$*S^G@-)K^G]A@@@@*@@@@Z@^9@^@/K@@PW@@@@@VNN )@@G@@@@@@@@@@@@@G@@@@]H/,0@@@/)K@E7DU@@@A)E8[#@K[#@-NK0CS^G@@@@@@@@@@@@@@@@#*NO )@@G@@@@@@#3@@@@@J/,0@@@@^/@^@@@@@@@/,0@RL/K@@FTDV@@@A)]J[@@@@@@@@)F@@F#@@@@@@NP )@@G@@@^.@^@______ I X A T RO N MA T I R E L C O R DW@@@A)F[[F]=@-)K0NQ )@@G@@CS^G+AK@@@@@@@@@@"@@@@@I@@@@#*@@@@#*@@@@]J@@@@@@@@@@@@@@@@@@/,0@@@DX@@@ANR )@@G@@)FE@V#C-)K0@)]R@K@)FH@V#@CS@@@H@@@@IC/@@@]@^"@^@______READ @@@@@J@@@@#3NS )@@G@@@@@@@4DY@@@A)FK[EK^D'A[#@CS^[#@@@@@@@ @@^@/K@@PW@@@@@V@@@@@@@@@@@G@@@@]RNT )@@G@@/,0@@@/K@@FT*@@@@GDZ@@@A)FT[]K0]@-)K^@@@@@)]T@C@WRITE @@@@@@/,0@RL/K@@F+NU )@@G@@(@@@@Z/K@@D2(@@@@GH@@@@IC/@@@]EA@@@A)]U@C@)F-[##@CS@K^D'A@@@@@@@]T/,0@@@NV )@@G@@/K@@F,1@@@@G*@@@@GH@@@@KC/@@@[@ ^@^@______EB@@@A)F([F#@CS^[#@)CS^G]@@@@@NW )@@G@@/K@@F9*@@@@K @@@@@C@)G#[##@CS[@K$*S^G@@@@@@G@@@@]=/,0@@@/K@@GJOB )@@G@@(@@@@GH@@@@@@3R[K@^&[@@@@]C/@@@[ @@@@[/K@@#D'^@@@@OG )@@G@@63ANL)EK@@@A)G>[F#ACS1#I-<^GUAG@@@@@(@@@@B[]@@@BC] @@5 @@@@A[[)@@[C[>@@QOH )@@G@@[[@@@ C[ @@? @@@@^EL@@@A)G,[F@^GS-)K1*S[#A@@@@@@[@@@@CC@A@@VR[)@^&]@@@@BOI )@@G@@H@@@@P;@@@@R[)@^&[@@@@)G@@@@)C/@@@]/K@@I_(@ @@=R[K@^&FB@@@APA )@@G@@)J#[F#A-R@K@^&[@@@@)PB )@@G@@G@@@@)FC@@@A)JG[EK0CS^G@-C@^@@,R[@@^&FH@@@APH )@@G@@)J'@UK0CS@@@)]\@K@)J.@V@K-*S@@@@@@#(/,0@@@/K@@K:______READ (@@@@>[@@@@$PI )@@G@@C@ @@1FI@@@A)K@[F#@-)^G]A@K0]A@@@@@@G@)@@JC/)__"G@@@@&C/@__"@A3@^@@@@@@=PJ )@@G@@@@@@@@@@@@@&@@@@]\FJ@@@A)KD[EK0CS^G]@C@-)@@@@@@@R[)@^TC_0@@[/K@@GU*@@@@MPK )@@G@@/H)@KKD[)@@=G[@@^=G[@@@JC.@@@[FK@@@A)KM[F#@CS^G]A@K0]A@@@@@@R])@^*C_)@@[PL )@@G@@[@@@#$C@[@@[[#0@@R[[@@^*[@)@^$[@@@[^R@K@^QFL@@@A)KV[N#@-)^G@)CS[@@O")@@[PM )@@G@@/K@@K$[@A@@[C@@@@ /K@@K=*@@@@GH@@@#$C@E@@[[#)@@ N[K@^$FM@@@A)K>@'K@^[#A@PN )@@G@@)]1@K@@@@@@@______READ (@@@@<8L@@KQG_0@@[O/K@@[O.)@@[8LK@KWG_)@@[FN@@@APO )@@G@@)K?[F@K-*S^G]A[#A-)K0CS@D@@@@=@BB@^@@@@@@=@@@@@=@@@@@&@@@@]1@@@@#(/,0@@@PP )@@G@@/K@@K8FO@@@A)K5[F@^[#@CU^H]@@@@@@@@@C@$@@./K@@LY(@@@@@[@@@@@C@B@@/R[0@^&PQ )@@G@@/K@@GU*@@@@G/G@@K8FP@@@A)K"[F#KCU@K0CP^H]A@@@@@@@@@@@U@@@@@[/,0@@@[#)@@UPR )@@G@@N.@@@CC_)@@[[[@@@]C[B@@"[@)@@[FQ@@@A)LB[F#@-)K0CS[@^G]A)@@@@]@@@@#H@@@@UPS )@@G@@C/@@@[/K@@LL*@@@@GH@@@#:C@@@@*@BM@^@@@@@@*FR@@@A)LK@V@^@@@@@)]3@K@)LN@V]PT )@@G@@A-)K0@@@@@]3@@@@#(/,0@@@______READ 8L@@L#G_)@@[/K@@LNFS@@@A)LQ[N#KCS^G]PU )@@G@@A[@^@@C/)@@]C/@@@[/K@@GU*@@@@G/G@@LYD@@@@=@BT@^@@@@@@=@@@@@@@@@@@@FT@@@APV )@@G@@)L)[N#A@CS@^@@@@@@/)K@L!+@@@@I @@@@I*@@@@KH[@@@IC.@@@]C/)@@[ @@@@G*@@@@IPW )@@G@@H@)@#?FU@@@A)L%[F@^G]A[@^G]A[@@@@@@@/K@@M\(@@@@> @@@@( @#@@@/K@@L0*@@@@QPX )@@G@@@BY@^@@@@@@@/,0@RLFV@@@A)L3[N]%CS^G@CS[#@@ @@@@G(@@@@WC/@@@[@B=@^@@@@@@@PY )@@G@@@@@@@@@@@@@&@@@@@J@@@@@@/,0@@@FW@@@A)L.[EK0CS^G]A@K0]A@@@@@@[@@@@UC@D@@[PZ )@@G@@[@@@^$[@)@[^R[@@^VR]K@^TR]@@^IG@)@@&C/)__"FX@@@A)MA[F#@-)K0CS^G]A[#@@@@@QA )@@G@@[@=@@[C@%@@[O[)@^=O[)@@UR[)@@JO@K@^PR@K@@UO])@^WR])@@UFY@@@A)MJ[N#@-)^G]QB )@@G@@A@@K0@+@@@^$ @@@@G1@@@@I*@@@@I"^>@@[R[K@^*C@)@#;C/@@@[A[)@^(A@K@^*FZ@@@AQC )@@G@@)MT[F@^G]A[#@CS[#@@@@@@@G@@@^U;@@@@<[@@@@UC@B@@[R[0@^([@@@@(G@@@@(C/@@@[QD )@@G@@/)K@MXGA@@@A)M+[N#@CS^@@@@@@@@O"K@@[O"@@@][[*@@[C[?@@[[[C@@@C[G@@@/K@@M%QE )@@G@@(@@@@Q[@(@@[C@)@@UGB@@@A)M?[EK^@K0]A[#@-)@@@@@@@R[)@^IR@K@^TR])@^LC_)@@[QF )@@G@@G@@@@JC/@__"/K@@NG8L@@M^O.@@@[GC@@@A)M5[F#@-)K0CS[#@-)^G@@@@(@@@@Q[@[@@[QG )@@G@@C@@@@R[#)@@R[@@@[^Q[0@^VR[0@#?Q[K@^RR[K@#?GD@@@A)M"[V@@@@@@@G_)@@[O.)@@]QH )@@G@@O/K@@[O")@@][@B)@[C@ )@[[[A@@[C[E@@[[@&@@@C@%@@@/K@@N#GE@@@A)ND[F@K0CS^GQI )@@G@@]A@K[#@@@@@@[@@@@%C/@@@[/K@@N6*@^@@PR[@@^& @@@@%[@)@@(C@)@@W8L@@M'GF@@@AQJ )@@G@@)NM[F#@-)^@K0]A@@@@@@@@@[@)@[^R]@@^MC_)@@]G@)@@JC/)__./K@@N6*@@@@IH@)@@JQK )@@G@@C@)@@&GG@@@A)NV[N#@]@C@C@@@@@@C/@@@[8L@@NVG_)@@[O"@@@[/K@@N6*@@@@G/C@@N-QL )@@G@@H@C@@@C@C@@[[#)@@RGH@@@A)N>[F#AC]A[@K0CS^[#@@@@@ @@@@Z/K@@N,(@@@@% @@@@%QM )@@G@@/K@@N:*@@@@Z/K@@N\(@@@@GH@@@#?GI@@@A)N,[F@K0C]A[#@)]A[#@@@@@C@@@@#[@@@@)QN )@@G@@C/@@@[/K@@N6(@@@@% @@@@%/K@@N2(@@@@)/K@@N6GJ@@@A)N7[F#@-)K0JEA[#@CS@@@@@QO )@@G@@C/@]WJ[[)@@?C.)@@ [[@@@:C[@@#:[@(J_"C@)@#/R]K@@O[@@@@^GK@@@A)O@[N#@)]@CSQP )@@G@@[#@)@@*@@@@G/C@@OFH@@@@$C/@@J$[@@@@?C/@@@^/K@@OA*@@@@G/C@@O^H@@@@$GL@@@AQQ )@@G@@)OE[N@^G@-)K[@^G@@[@@@@?C/@@@]/K@@OO*@@@@G/C@@OMH@@@@$C/@@[<[@@@@?C/@@@#QR )@@G@@/K@@OHGM@@@A)OO[EK0C@)]A[]?-)@@@@@@@@@@@@$/,0@@@[@@@@?C/@@@[/K@@OV*@@@@GQS )@@G@@/C@@OTH@@@@$C/@@@DGN@@@A)OX[F#@-)K0CS^G]A[#@)*S@(@@@@([@[@@@C@@@@:R@K@@OQT )@@G@@@C=@^@@@@@#(@@@@@?@@@@@?@@@@@:GO@@@A)O&@;@K:*S^FMA[#@-)@@@@@)]5@C@(010H0QU )@@G@@@@K@@(@C(@^@@@[@]5/,0@@@@C*@^@/,0@@@/K@@O8GP@@@A)]6[S@@@@@@@ BE COCANNOTQV )@@G@@RO OR IS ZERIANCETHE VALE(S) VARIAB,066H FOR,I4***** GQ@@@A)#[@S@)O!@<]QW )@@G@@8-UK0CS@@@@@)#^@C@(10X,0@C!@^@@@[@#^/,0@@@'^@@@@ATELY) ACCURMPUTEDGR@@@AQX )@@G@@)# [S@@@@@@@PUTED BE COMANNOT R OR CINGULAX IS S MATRILATION CORREUS THEQY )@@G@@73H THGS@@@A)#K@K@)O1@:]8-UK0CS^G@@@)#M@C@(047H0@@K@@:@C0@^@@@[@#M/,0@@@QZ )@@G@@'^@@@@TELY) ACCURAGT@@@A)#N[C@@@@@@@@@@[C@@@@@@@5) DEL ,AFOR MOORMED RA )@@G@@T PERFSIS NO ANALYFACTOR***** GU@@@A)O6[F]8)]A[#@-SK0CS@@@@@@@@@@@@@@@^$RB )@@G@@@@@@@&/,0@@@[@@@^$G@@@@&C/@@@[/K@@F9'^@@@@GV@@@A)O_[U@@@@@@@@@@@@@@@@@@@RC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GW@@@A)PE[M@@K0CS@RD )@@G@@@@@@@@@@@@@@@@@@@%@@@@@^@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GX@@@ARE )@@G@@)PO[F#@-)K0CNOG]A[#@)CQ)/,0@@@/K@@F9@C8@^@@@@@@A@@@@#./,0@@@[@@@@FC@@@@:RF )@@G@@@C6@^@GY@@@A)PX@;#@-)K0]AH]6)@)#W@K@51H 27(4A6,08L@@P-'^K@@@C8 )#0N.@@@#RG )@@G@@R[K@#,@C'@^@@@[@#WGZ@@@A)#Y[C@@@@@@@@@@[C@@@@@@@) ERRORSVIOUS OF PRERH )@@G@@CAUSE TED BEERMINAYSIS T. ANALHA@@@A)P=[F]8)C]A[#@-)K0CS^G@@9\@@^09,)@^,RI )@@G@@9,@@^?9!)@^%R]0@^[@D[@^@/K@@P*N@0@P$'^@@@@HB@@@A)P![##@-)K0CS^G]A[#@-)@@RJ )@@G@@@@@@@@R[0@^'R[)@^9R[K@^8R[@@^7R@0@^6R@)@^5R@K@^49\)@^2HC@@@A)P5@3#@-)K0CRK )@@G@@S^G]A@)#"@C@@@@@@@@@@@@@@@F@@S*4@K#"N[K@^_N[@@^"R])@^.R]K@^/R]@@^;HD@@@ARL )@@G@@)P;@N#@-Y@@@)^@@K@)P.@V#@-)K0@@@@@@@9%@@^?9()@^%AA0@^[@D[@@]S63ANL/K@@@@RM )@@G@@/K@K#"HE@@@A)Q@[##@-)K0CS^G]A[#@-)@@@@@@@@A[K@^8A[@@^7A@0@^6A@)@^5A@K@^4RN )@@G@@9:)@^29:@@^09%)@^,HF@@@A)QC[F#@-)K0CS^G]A[#@)@@@C/@__"/K@@RV^[K@^_^[@@^"RO )@@G@@A])@^.A]K@^/A]@@^;A[0@^'A[)@^9HG@@@A)QL[F#@-)^G]A@K0CS@@@@@@G/)__.C@)@ #RP )@@G@@[@@@@XC/@@@[[@)@ ][@@@ [G/)__"C@)@^HG@@@@JHH@@@A)QU[EK0CS^G]A@K0CS^G@@@@RQ )@@G@@R@)@ ][@@@ G@@@@ C/@__"[#)@@ [@)@ ^N[@@ [R@K@ ]C_)@@[HI@@@A)Q<[F#@-)K0@RR )@@G@@CS^G]A@@@@@@C@@@#5A@0@ A[@@@@!"G]@@["G[@@[C@#@@[O@0@ ^R@0@@XN[K@ HJ@@@ARS )@@G@@)Q?[F#@]@-)K0CS^G@@@@@@@*@@@@G"@@@#5C@@@@![@@@@!C@@@#5/K@@Q21@@@@G*@@@@GRT )@@G@@"^@@@!HK@@@A)Q5[EK^G]A[#@-)[#@@@@@@@G@)@@XC/)@@[[@#@@[R@0@ AC@@@@![@@@@!RU )@@G@@D@@@#5/K@@Q91@@@@GHL@@@A)Q"[N#@C@C]@)CS^G@R]0@^ @DR@^^/K@@RBN@0@RA8L@@QYRV )@@G@@G_)@@[O/K@@[8LK@Q=O/)@@[[@)@@XHM@@@A)RC@;#@-)K0CS^G]A[#@@@@@)^]@C@@@F@@]RW )@@G@@*4@K^]N[K@ HN[@@ GR@0@ FR@)@ ER@K@ D9\)@ BHN@@@A)RJ@N#@-Y@@@)^^@K@)RL@V#RX )@@G@@@-)K0@@@@@@@A@K@ D9:)@ BAA0@^ @DR@@]COMCOR/K@@@@/K@K^]HO@@@A)RO[F#@-)K0CRY )@@G@@S[#@)]@@@@@@[^@@#:C8FK@@/K@@QK[@@@ #C8FK@@^[K@ H^[@@ GA@0@ FA@)@ EHP@@@ARZ )@@G@@)RX[N@^[@^@K[@@@@@[^@@C8C8FK@^[^@@P[C8FK@#[^@@P@C8FK@][^@@O_[^@@GNC8FK@[SA )@@G@@[^@@O"HQ@@@A)R$[F@K^[@K^[@K^@@@@@@@@[^@@GF[^@@^:[^@@AA[^@@E3[^@@E'[^@@F]SB )@@G@@[^@@DE[^@@L:[^@@B@HR@@@A)R0[F@K^[@K^[@K^@@@@@@@@[^@@A*[^@@C;[^@@L4[^@@^#SC )@@G@@[^@@DS[^@@AH[^@@FP[^@@F)[^@@F%HS@@@A)R9[N@K^[@K[@^[#@@[@@@^K[^@@P^C8FK@ASD )@@G@@[^@@P#C8FK@ [^@@EL[^@@^Z[^@@#%[^@@P][^@@D,HT@@@A)S#[N@K^[@^[@^[@@@[^@@AESE )@@G@@[^@@PAC8FK@C[^@@P [^@@AFC8FK@B[^@@^)[^@@^?[^@@A [^@@#$HU@@@A)SH[N#@C@)CSSF )@@G@@^[@K@@C8FK@F[^@@#*[^@@PC[^@@AB[@@@^C[^@@^[C8FK@E[^@@PBC8FK@D[@@@^FHV@@@ASG )@@G@@)SR[F@K^[@K0]@-)K@@@@@@@[^@@#,[@@@^M[^@@AJC8FK@G[@@@^E[^@@#([^@@PD[^@@ACSH )@@G@@[^@@^]HW@@@A)S)[N@K^[@K^[@^[@@[^@@A^[^@@ADC8FK@H[^@@DU[^@@PE[^@@F^[^@@ENSI )@@G@@[^@@L7[^@@C.[^@@]ZHX@@@A)S%[N@K^[#@CS^[@K@C8FK@J[^@@^0[^@@PG[^@@AG[@@@^DSJ )@@G@@C8FK@I[@@@^B[^@@#&[^@@PF[^@@^@HY@@@A)S4[N#@CS[#@)C]@C@[^@@PHC8FK@M[^@@PNSK )@@G@@[^@@L8[^@@K][@@@^GC8FK@L[@@@^HC8FK@K[@@@^JHZ@@@A)S"[N@K0C@)]@C]@@@[^@@LRSL )@@G@@[^@@PKC8FK@P[^@@PJC8FK@O[^@@PIC8FK@N[^@@C/[@@@^I[^@@AIIA@@@A)TC@2K^[@K0CSM )@@G@@@@@@@@)#*@S@@@@@@]@@@@@[@@@@@@/K@@@@[@@@^L[^@@F#[^@@EM[^@@DTC8FK@QIB@@@ASN )@@G@@)#:[S@@@@@@@KG@@@@MIA*@@@@@@@GN^1FK@Z/?;NFKO@@@@NW@@@@@@[@@[@@]@@@@@[@@@SO )@@G@@ IC@@@A)#6[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AMODEL ZZ-Y8LI/0 =-NS@@@@SP )@@G@@JHB:-M@@@@@_@@@@@DID@@@A@@^@@D@@H@@Z@[F@@[@[J@@B@@ @ I@C@@TI@@@@@]@@@@#5SQ )@@G@@@@@@[J@@@@@L@@@@^?@@@@@A@@@@@ S1SVOB S1HEDC S1GVAL S1IODRSR )@@G@@ S1TIMI S1INHC S1GTAG S1VLSD S1SERR S1RDI2SS )@@G@@ S1RCOP S1RLTM S1RLT2 S1TIMA S1MOP S1VCSRST )@@G@@ S1VFWC S1VFWT S1PLTM S1HED2 S1PRFT S1SELTSU )@@G@@ S1ENCI S1PHED S63AMD NERR2$ NPRT$ NIO1$ SV )@@G@@ NIO2$ SQRT NERR3$ S63ANL @@[@@@@@@@P.BLANK$SW )@@G@@ ^@@@C@@]@@@@S6BLK ]@@@C@@#@@@@S6FMTS ]@@@C@@^@@@@S63FMTSX )@@G@@ ]@@@C@@ @@@@S63BLC ]@@@C@@A@@@@S63NBK ]@@@C@@B@@@@S63BSVSY )@@G@@ ]@@@C@@C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*[S@@@*SDFF*@ @@@@ SZ )@@G@@SUBROUTINE S2ANAL(FIRST,@B@@@@ - DINP,OUTS,SETID,MSET,MSETPT, TA )@@G@@@C@@@@ - IVARS,ROWN,ROWPT,COLN,COLPT,BDATA, @A@@@@ - VSUTB )@@G@@M,VSSQ,VMIN,VMAX,XBAR) @ @@@@ IMPLICIT INTEGER (A-Z) @E@@@@ TC )@@G@@DIMENSION DINP(1),OUTS(1),SETID(1),MSET(1),MSETPT(1) @G@@@@ DIMENSTD )@@G@@ION IVARS(1),ROWN(1),ROWPT(1),COLN(1),COLPT(1),BDATA(1) @E@@@@ TE )@@G@@DIMENSION VSUM(1),VSSQ(1),VMIN(1),VMAX(1),XBAR(1) @B@@@@ DIMENSTF )@@G@@ION SDV(1),VAR(1),DELTA(1) @C@@@@ DIMENSION TSUM(1),TSSQ(1),TMINTG )@@G@@(1),TMAX(1) @D@@@@ DIMENSION TBAR(1),TSDV(1),TVAR(1),TDELTA(1) TH )@@G@@@A@@@@ DIMENSION TNAM(1),TNUMB(1) @A@@@@ DIMENSION XPROD(1)TI )@@G@@,XSA(1) @A@@@@ DIMENSION VCONT(1),TCONT(1) @^@@@@ DIMENSTJ )@@G@@ION KFLAG(1)@ @@@@ DIMENSION XSQ(1),XSB(1) @^@@@@ DIMENSION NATK )@@G@@MES(1)@[@@@@C @E@@@@C MAIN DSTAT2 SUBROUTINE. (TWO ENTRY POITL )@@G@@NTS ARE USED@E@@@@C BECAUSE OF THE LARGE NUMBER OF PARAMETETM )@@G@@RS.) @[@@@@C @[@@@@C @G@@@@ COMMON /S2ABLK/ NV,NVIN,MDATA,TN )@@G@@REPM,CODES,COPIN,MLE,NSET,PLAN, @A@@@@ - LSUBHD,MLEHED(7),MDDHTO )@@G@@ED(7) @[@@@@C @[@@@@C @]@@@@ RETURN@A@@@@ ENTRY S2ANL2TP )@@G@@(SDV,VAR,DELTA, @ @@@@ - TSUM,TSSQ,TMIN,TMAX, @A@@@@ - TBATQ )@@G@@R,TSDV,TVAR,TDELTA, @^@@@@ - TNAM,TNUMB, @^@@@@ - XPRTR )@@G@@OD,XSA, @^@@@@ - VCONT,TCONT, @#@@@@ - KFLAG, @#@@@@TS )@@G@@ - XSQ,XSB, @#@@@@ - NAMES) @[@@@@C @[@@@@C @B@@@@TT )@@G@@C INITIALIZE IF FIRST CALL @[@@@@C @A@@@@ IF(FIRTU )@@G@@ST .EQ. 0) GO TO 100 @B@@@@ CALL S2LOAD(OUTS,SETID,MSET,MSETPT, TV )@@G@@@C@@@@ - IVARS,ROWN,ROWPT,COLN,COLPT,BDATA, @ @@@@ - IDXTW )@@G@@T,IDSQ,ITSA,ITSB) @[@@@@C @ @@@@C COMPLETE DATA @[@@@@TX )@@G@@C @A@@@@ 100 IF(MDATA .NE. 0) GO TO 200 @A@@[@ CALL S2COMP(TY )@@G@@DINP,DINP(NV+1), @A[@@@ - OUTS,SETID,MSET,MSETPT, @C@@@@ -TZ )@@G@@ IVARS,ROWN,ROWPT,COLN,COLPT,BDATA, @ @@@@ - VSUM,VSSQ,VMIN,UA )@@G@@VMAX, @ @@@@ - XBAR,SDV,VAR,DELTA, @ @@@@ - TSUM,TSSQ,TMIN,UB )@@G@@TMAX, @A@@@@ - TBAR,TSDV,TVAR,TDELTA, @^@@@@ - TNAM,TNUMUC )@@G@@B, @^@@@@ - XPROD,XSA, @#@@@@ - NAMES) @]@@@@ UD )@@G@@RETURN@[@@@@C @D@@@@C MDATA - BIVARIATE SUBSAMPLE METHUE )@@G@@OD @[@@@@C @A@@@@ 200 IF(REPM .NE. 0) GO TO 300 @C@@[@ UF )@@G@@CALL S2BVSS(DINP,DINP(NV+1),DINP(2*NV+1), @A[@@@ - OUTS,SETID,MSETUG )@@G@@,MSETPT, @C@@@@ - IVARS,ROWN,ROWPT,COLN,COLPT,BDATA, @A@@@@UH )@@G@@ - VCONT,VSUM,VSSQ,VMIN,VMAX, @ @@@@ - XBAR,SDV,VAR,DELTA, UI )@@G@@@A@@@@ - TSUM,TSSQ,TMIN,TMAX,TCONT, @A@@@@ - TBAR,TSDV,TVAR,UJ )@@G@@TDELTA, @^@@@@ - TNAM,TNUMB, @ @@@@ - XPROD,IDXT,XSQ,UK )@@G@@IDSQ, @ @@@@ - XSA,ITSA,XSB,ITSB, @#@@@@ - KFLAG, @#@@@@UL )@@G@@ - NAMES) @]@@@@ RETURN@[@@@@C @B@@@@C MDATUM )@@G@@A - REPMEANS METHOD @[@@@@C @C@@[@ 300 CALL S2REPM(DINP,DINP(NVUN )@@G@@+1),DINP(2*NV+1), @A[@@@ - OUTS,SETID,MSET,MSETPT, @C@@@@ -UO )@@G@@ IVARS,ROWN,ROWPT,COLN,COLPT,BDATA, @A@@@@ - VCONT,VSUM,VSSQUP )@@G@@,VMIN,VMAX, @ @@@@ - XBAR,SDV,VAR,DELTA, @A@@@@ - TSUM,TSSQUQ )@@G@@,TMIN,TMAX,TCONT, @A@@@@ - TBAR,TSDV,TVAR,TDELTA, @^@@@@ -UR )@@G@@ TNAM,TNUMB, @ @@@@ - XPROD,IDXT,XSQ,IDSQ, @ @@@@ - XSAUS )@@G@@,ITSA,XSB,ITSB, @#@@@@ - KFLAG, @#@@@@ - NAMES) @]@@@@UT )@@G@@ RETURN@]@@@@ END ___ @A@@@@ DIMENSION VCONT(1),TCONTUU )@@G@@(1) @^@@@@ DIMENSION KFLAG(1)@ @@@@ DIMENSION XSQ(1),XSB(1) UV )@@G@@@^@@@@ DIMENSION NAMES(1)@[@@@@C @E@@@@)@@[N@K^G]@-@@@@@@@@@@@@UW )@@G@@@@@@@@@@@@@@@@@@@@/,0@@@/K@@@P(@@@@@@[K@@A/K@@]5N@0@@]AA@@@A)@E[M@[#]A^GUX )@@G@@CS@@@@@@@@@#@@@@@]@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AB@@@AUY )@@G@@)@O[N#]])CEA[@K+C@@@@@@X@@@@@@/,0@@@^^K@@XN8L@@@O@K@@DR@K@@@/K@@[[*@@@@]UZ )@@G@@@[P@@AAC@@@A)@Y[U@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VA )@@G@@@@@@@@@@@@@@@@@@@@AD@@@A)@([U@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AE@@@A)@4[U@@[#]@@N@0@[@@[S@@A@@@@@@@@@@@@VC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AF@@@A)@_[N@K0)*]]--[^G@N8W@@@VD )@@G@@G@@@@D;@@@@C8FK@D[^@@@=[^@@]J[^@@@G[^@@[QAX@@@A)#0[N@K^[@^[@K^@@@C8FK@GVY )@@G@@[^@@@$[^@@@J[^@@]M[^@@[TC8FK@F[^@@[S[^@@]L[^@@@I[^@@@&AY@@@A)#'[N@K^@K^[VZ )@@G@@@^[@@@[^@@[X[^@@@%C8FK@I[^@@]P[^@@@([^@@[WC8FK@H[^@@@*[^@@]O[^@@[VAZ@@@AWA )@@G@@)^^[N@^[@K[@K^[@@@/K@@@@[^@@]S[^@@[Z[^@@@?C8FK@K[^@@[Y[^@@@:[^@@]RC8FK@JWB )@@G@@[^@@]QBA@@@A)^I[MK[@K^@K^[@@@@[^@@]U[^@@@,[^@@[-C8FK@[[^@@[)[^@@@![^@@]TWC )@@G@@C8FK@@/\K@]'C8@@@QBB@@@A)^S[MK^[@^[@K[@@@@[^@@]XC8FK@^[^@@@0[^@@[<[^@@]WWD )@@G@@C8FK@#[^@@[+[^@@]V[^@@@\C8FK@]BC@@@A)^+[N@K[@K^@K^[@@@[^@@]Z[^@@@3[^@@[&WE )@@G@@C8FK@A[^@@[>[^@@@2[^@@]YC8FK@ [^@@@1[^@@[=BD@@@A)^?[MK^[@^[@K[@@@@[^@@[%WF )@@G@@C8FK@D[^@@[([^@@@5[^@@]+C8FK@C[^@@]-[^@@@4[^@@[*C8FK@BBE@@@A)^6[N@K[@K^@WG )@@G@@K^[@@@[^@@]>[^@@[?[^@@@8C8FK@F[^@@[:[^@@@7[^@@]=C8FK@E[^@@@6[^@@][#)@]5G_)__!C#)@]Y[#)@]4AE@@@A)@\[F#[#@K0K0K0^G^G@@@@@C#)@]Z[#)@]9IV )@@G@@G_)__?C#)@])[#)@]8R@)@]YG_)__?C#)@]<[#)@]7AF@@@A)@8[MK0K0^G@K0K0@@G_)__?IW )@@G@@C#)@]?[#)@]/G_)__:C;:K@G[#)@];G_)__:C#)@]<[#)@]'G_)__?AG@@@A)[][F#[#[#@KIX )@@G@@0K0K0^G@@@@@[#)@]_G_)__:C#)@]([#)@]"R[@@]%G_)__?C#)@]W[#)@].R@0@]?AH@@@AIY )@@G@@)[F[F#@K0[#[#@K0@@@@@@@@[#)@#]G_)__?C#)@]:[#)@#[G_)__:C;:K@^[#)@#@G_)__?IZ )@@G@@C#)@]%AI@@@A)[O[F#@K0K0^G^G@@@@@@@@@G_)__:C;:K@#[#)@#^R[K@]:G_)__?C#)@]=JA )@@G@@[#)@##G_)__?C#)@]$AJ@@@A)[X[F#[#@K0K0^G^G^G@@@@@C#)@]%[#)@#BR[)@](G_)__:JB )@@G@@C#)@]?[#)@#AG_)__:C#)@]:[#)@# AK@@@A)[&[EK0K0K0K0K0K0K0K0@@@[#)@#J[#@@#IJC )@@G@@[])@#H[]@@#G[[)@#F[[@@#E[@)@#D[@@@#CG_)__:AL@@@A)[\[F#[#[#[#[#[#[#@K0@@@JD )@@G@@[@@@@BC@[@@@R@K@#K @@@@AA[)@#OA[K@#NA[@@#MA@0@#LA@K@#KAM@@@A)[8[F][#[#@KJE )@@G@@3^[] #G@@@@@@@@@@[/,0@@@/K@@]W(@@@@GH@@@@CC/@@@]@[V@[2@@@@[Y/,0@@@AN@@@AJF )@@G@@)][[EK3^G4G^G^G^G^G@@@@@@@@@@[@@@@[)@@@@[Y@@@@[Y@@@@[Z@@@@@[@@@@@@@@@@@CJG )@@G@@@@@@@@AO@@@A)]E[U@@@K0@@@@@@[Y@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JH )@@G@@@@@@@@@@@@@@@@@@@@AP@@@A)]P[M[#H#[#[@K-K3@@@@@@@@@@@@[/,0@@@/K@@]8@[Y@[2JI )@@G@@@@@@@A@@@@@^@@@@@@@@@@@@@@@@@@AQ@@@A)]Z[V#G@[#@@@@@@@@@@@@@@@@@@@@@@@@@[JJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BAR@@@A)]%[U@@K0@@@@@@@@@@@@@@@JK )@@G@@@@@@@@@@@@[Y@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AS@@@A)]5[F#H#[#[#JL )@@G@@[@K^[#[#@@@@ @@@@ @[+@[2/K@@TBN@0@]//K@@].(@@@@A@[)@[2@@@@@A@@@@@^AT@@@AJM )@@G@@)]"[F#H@K0K0K+K0^G4G@@@@R@0@]8G@@@@[C/@__"@[&@[2/,0@@@[@@@@ C@@@[-/K@@#]JN )@@G@@*@@@@AAU@@@A)#B[F#[#[#[#[#[#[#[#[#@@R])@[+Q]K@],R]K@[+R]@@#CR[0@]'R@K@#DJO )@@G@@R[)@]1R[K@#ER[@@#FAV@@@A)#K[N#@^G^G^@K@@@@ @ @@N @D@@N/K@@#X*@@@@G/G@@#SJP )@@G@@"^@@[<[@@@@@C@B@@N[@@@[^Q])@]"AW@@@A)#U[M^@K0@^G@@@@@@"D@@@@C[#@@N"C&@@NJQ )@@G@@C@&@@N[@C@@N"G@@@@C@A@@N/K@@^F[@C@@NC@A@@NAX@@@A)#=[MK0K0@K^G^G^G@[@@@@#JR )@@G@@C@@@@] @@@@]/K@@#?*@@@@G"^^@@NC@[@@N]@)@@]"G)@@@"^)@@KAY@@@A)#,[N#[#[#[#JS )@@G@@@@K^G@D@@@@]/K@@^]0@@@@I*@@@@I"^)@@G"G#@@N"C)@[>[@)@@^"C)@[=C@)@@@AZ@@@AJT )@@G@@)#8[M^[#[#[@^[#[#@[@@@@#C@@@[&/K@@^]*@@@@G/C@@^@D@@@@# @@@@]/K@@#/0@@@@GJU )@@G@@*@@@@GBA@@@A)^][N#[#[#@[#[#@@@N8T)@N[@ @@N"G@@@#"C@@@^C@#@@N]@(@@N"G)@@GJV )@@G@@C@)@@]"^@@@@C@@@@ BB@@@A)^G[N@K*K^G@@@@@@@O/K@@[O.)@@[O.K@@[O.@@@[O/0@@[JW )@@G@@[@E)@N@]@@[2@@@@^I/,0@@@^^K@^IBC@@@A)^Q@+^[#@@@@)@'@K@)^U@N#[]G@@@/,0@@@JX )@@G@@[@)@@@______2BVSS1C@)@@[8L@@#MO"@@@[O.0@@[BD@@@A)^W[F#[@K0K0^G^G^G4G@@@@JY )@@G@@H@@@@DC@@@@B[@@@@DG@@@@DC/@@@[ @@@@D@]#@[2/K@@T^@@@@@'BE@@@A)^>[E^[@K^G^JZ )@@G@@C^G^G@@@@@@@@]C@[2@@@@[$/,0@@@@]B@[2/K@@TBN@0@^%/K@@^:1@@@@G*@@@@GBF@@@AKA )@@G@@)^,[F#[#@K0K3K0K^G@@@@@@(@@@@GH@@@[*/K@@^.(@@@@ER@0@@D[@@@@EC@[@@NO@K@#[KB )@@G@@R@K@@DBG@@@A)^7[F@K0YOG^ @K3K0YK@@@@[@^J_"C@@@[*R[@@@D/K@@ [[@<@@@C@)@@EKC )@@G@@[@#J_"C@@@[(/K@@^.BH@@@A) @[F[K0^G[#[#[@@@@@@@@@C/@@@E/K@@ )*@@@@E[@)@@FKD )@@G@@C@?@@NG@@@# T/@@@OC@@@@D[@^@@@BI@@@A) D[F#H#[][#[#[]K@@@@@@@@@@@@@@@@@@@KE )@@G@@@@@@@@/,0@@@@]Q@[2@@@@#P/,0@@@[@@@#PG@@@@@BJ@@@A) M[M@[#H#[#H#G@@@@@@@@LKF )@@G@@@@@@@E@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BK@@@A) W[F#[#[@K^KG )@@G@@G^G[#[#@@@@@R[)@@D[@@@@GC@ @@NO[K@]0R[K@@D/K@@A\/K@@^)*@@@@F@]R@[2BL@@@AKH )@@G@@) >[F#@K0K0K0^[@K0@@@@@@@@@@@G/,0@W3^^K@ ,N8R@@NO[0@]!R[0@@H[@)@@HC@&@@NKI )@@G@@O[)@#HBM@@@A) ,[F@K0K0K0K0K0K0^G@@@@[@@@@JC@C@@NO]@@#IR]@@@D@]X@[2@@@@@IKJ )@@G@@@@@@[Y@@@@[Y@@@@ ,BN@@@A) 7[F#[@K0K0^G^G^G@@@@@@N8U@@NO])@]!R])@@K[@)@@KKK )@@G@@C@(@@NO]K@#GR]K@@D/K@@AC(@@@@JBO@@@A)A@[F@K^G^[#[#[#[#@@@@@@C/@@@E@]+@[2KL )@@G@@@@@@@I@@@@@G@@@@[Z@@@@A#@@@@@J/,0@W3^^K@A#BP@@@A)AD[F#[#[][#[#[]K@@@@@@@KM )@@G@@@@@@@@@@@@@@@@@@@@/,0@@@@]<@[2@@@@#P/,0@@@[@@@#PG@@@@IBQ@@@A)AM[M@[#[#[#KN )@@G@@H#G@@@@@@@@L@@@@@E@@@@@@@@@@@I@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BR@@@AKO )@@G@@)AW[F#[#[@K0K0K0K0K0@@@@(@@@@GH@@@@IG@@@@GC@@@@JO@K@]!R@K@@K/K@@^)*@@@@FKP )@@G@@@]=@[2BS@@@A)A>[F@^[@K0K^G^G^G@@@@@@@@@@@I@@@@@G@@@@[Y@@@@A%@@@@@J/,0@W3KQ )@@G@@^^K@A%N8L@@N/K@@A\BT@@@A)A,[F#[#[@^G^G4G^G^G@@@@[@@@@M @@@@J[@)@@GC@)@@@KR )@@G@@[@@@@LC/@@@[/K@@C>*@@@@E@](@[2BU@@@A)A7[F#@K0^G^G[#[#@@@@@@@G[)@#AG[)@#RKS )@@G@@C.)@@[G[@@]_G[@@#QC.@@@[G@@@#JG@@@@@[@@@@NBV@@@A)B@[M^G@K3@@@@@@@@C_)@@]KT )@@G@@C_@@@[ @@@@Q*@@@@SH#@@@BC_@@@[C")@@[G]@@#BG]@@@@C"@@@[BW@@@A)BE[N#G[@^G[KU )@@G@@#@@@@@;K)@@[T@)@@GG/)@@[[])@@LC")@@]/&0@B8)])@@S @@@@S*@@@@UH#)@@CBX@@@AKV )@@G@@)BO[F#@K0^G[#[#[#@@@@@@@R[)@[+Q[K@#@R[K@[+Q[@@@KR[@@[+Q@0@@GR@0@[+G/)__"KW )@@G@@[@)@@OBY@@@A)BX[N#@K0K0@^[#@@@C@@@@G8L@@B-[@=)@NC@<)@N[@A)@NC@ )@N[]@@#SKX )@@G@@[[)@#P[@)@[^Q[)@]\BZ@@@A)B$[F#[#@K0K0K0K0K0K0@@@Q]K@].R]K@[+Q]@@#]R]@@[+KY )@@G@@Q[0@#PR[0@[+G/@__"[@@@@OT@@@@GCA@@@A)B0[N#[#@@^@@@@@@@C/@__" @]@@@8L@@B3KZ )@@G@@[@$)@NC@%)@N[@C)@NC@D)@N[@@@[^Q])@#SR])@[+CB@@@A)B'[F#H#[#[#[#[#[#[#[#@@LA )@@G@@R]K@]2R]@@]1R[0@]8R[)@]'R[K@]9R[@@]6R@0@##R@K@#^G@@@@@CC@@@A)C#[N#[#[#@@LB )@@G@@@@@@@@[@ @@NC@C@@N[@<@@NC@&@@N[@^@@NC@[@@N[@@@[^[@)@#SC@)@]3R])@]5CD@@@ALC )@@G@@)CH[M^G^[#@^G@@@@@[@%@@NC@:@@NR]0@#S[@E@@MC@F@@MR]0@#S/K@@CR(@@@@B[@(@@NLD )@@G@@C@$@@NCE@@@A)CR[U@@[#@@@O"0@@]R]0@#SO")@@]O"K@@[O"@@@[O.0@@[O.)@@[O.K@@[LE )@@G@@O.@@@[O/0@@[O/K@@[CF@@@A)C+[F#[@K[#[#@K0K0@@@@@@O@K@]:R@K@#RG@)@@@C@)@]%LF )@@G@@G@@@@IC/@__"/K@@E'8L@@CBA]0@#SCG@@@A)C:[F#[#@K0K0K0K0K0K0@@@R[0@[+Q[)@]2LG )@@G@@R[)@[+O[K@]/R[K@@DO[@@]?R[@@@@O@0@](R@0@#QCH@@@A)C4[F#[#[#@K0^G^G^G@@@@@LH )@@G@@O]K@]4R]K@@C[@@@@CC@C)@N[@)@#S[@@@[^Q]@@]6R]@@[+Q[0@]9CI@@@A)C.[MK0K0K0[LI )@@G@@#[#@@@[@A)@NC@D@@NO]K@];R]K@@C[[B)@NC[E@@NO])@]7R])@@C[@)@@CC@(@@NCJ@@@ALJ )@@G@@)DB[F@^G[#[#[#[#@@@@@@@@C"@@@[[[0@@M+[)@@MC[)@[%[[@@@N;L@@@M[[@@@MC[ @@NLK )@@G@@8L@@C9CK@@@A)DK[F#@K3^@K0K0K@@@@@@@@/K@@D/*@@@@J[])@@LC")@@]/K@@E'(@@@@QLL )@@G@@H])@@CC")@@][]@@@LCL@@@A)DT[N#@K^G[@K0^@@@N8N@@@^^K@D2N8Q@@@R[)@#O^^K@D0LM )@@G@@N8T@@@R]K@#M^^K@D1N8U@@@R])@#SCM@@@A)D<[N@K0^@K^G[@@@@N8L@@@^^K@D7N8S@@@LN )@@G@@R]@@#N^^K@D5N8O@@@^^K@D4N8R@@@R[0@#L^^K@D3CN@@@A)D![N@K[@K^[@K^[#G@@@@@[LO )@@G@@@@@@D5@@@@D4@@@@D3@@@@D2@@@@D1@@@@D0@@@@@@/,0@%7^^K@D8CO@@@A)D7[F@K^G^G^LP )@@G@@[#[#@K0@@@@@[@@@@QG/@@@[T@@@@GC@@@@J/K@@E'@#<@[2@@@@@G@@@@D8@@@@D7CP@@@ALQ )@@G@@)E@[F#[#@K0K0K0K0K0@@@@@R@K@@@O[@@]:R[@@#RO@0@]>R@0@@GO])@]?R])@@@O[K@](LR )@@G@@R[K@#QCQ@@@A)ED[F#[#[#[#[#[#[#@K@@@@^^K@E?N8S@@@R]@@#MO[0@#AO[0@@QR[0@#RLS )@@G@@O[)@#AR[)@@QO@K@]%CR@@@A)EM[MK[@K0^@K^G@@@R]@@#L^^K@E\N8P@@@^^K@E,N8T@@@LT )@@G@@R]K@#O^^K@E!N8L@@@^^K@E:N8N@@@CS@@@A)EW[MK[@K0^@K@@@@@N8O@@@^^K@E6N8Q@@NLU )@@G@@^^K@E5N8N@@@R@0@#N^^K@E3N8U@@@^^K@E2N8S@@@CT@@@A)E&[N@^[@^[@K^[@@@@@@@E\LV )@@G@@@@@@E,@@@@E!@@@@E?@@@@E:@@@@@@/,0@,=^^K@E8N8R@@N^^K@E7CU@@@A)E0[F#[#[@K^LW )@@G@@G4[@K^@@@@@@@@@@E8@@@@E7@@@@E6@@@@E5@@@@@[@@@@E3@@@@E2@@@@@J@@@@@GCV@@@ALX )@@G@@)E9@F#@@@@@@)@/@*@@@@@@@)E'@F#@@@@@@R@K@@M______F9.0) ,A2,12,1X,A6(2X,I3LY )@@G@@@#&@[2CW@@@A)E;[F#[#@K[@K>K^@@@@@@@@@@@@F#@@@@F]/,0@@@^^K@F]N8L@@N^^K@F#LZ )@@G@@N8P@@@R[K@#OO@K@#JCX@@@A)F^[F#@^HOG4G^G^H^H@@@@@@@@@@A@@@@@@@@@@@/@@@@[YMA )@@G@@@@@@@L@@@@@W@@@@@@@@@@@@@@@@@LCY@@@A)FH[F#[#[#[#[#[#@K0@@@@@(@G@@@G@@@# MB )@@G@@T/@@@OC@@@@D@#$@[2@@@@@@@@@@@J@@@@@G@@@@[:CZ@@@A)FQ[N@K0K0^G^G[@^@^^K@F-MC )@@G@@N8U@@N^^K@F+N8S@@@O])@#JO])@@MR])@@@O]@@](R]@@#Q/K@@F1DA@@@A)F)[F]P@K^G@MD )@@G@@K5K3K0@@@@@@@@@@[Y@@@@@L@@@@@@@@@@@@@@@@@@@@@@@L@@@@F+@@@@F-/,0@@@DB@@@AME )@@G@@)F([F#L#L#L#[#[#[#[#[#@@ @@@@R@#%@[2@@@@@@@@@@@J@@@@@G@@@@[?@@@@@S@@@@@MMF )@@G@@@@@@@YDC@@@A)F2[N#@K0K0K0^@K0@C/@@@[[@@@@RC/@@@[/K@@F;*@A@@]R[)@#S[@@@#SMG )@@G@@G@@@# T/@@@OC@@@@DDD@@@A)F/[N#@^G[#@@@@@@@(@B@@AC/)@@[ @@@@G(@B@@BR[0@#SMH )@@G@@C/@@@[[@@@#P @@@@G(@^@@KR[@@#SDE@@@A)GA[M^@K0^G@@@@@@@C/)@@[ @@@@G(@#@@DMI )@@G@@R@0@#SC/@@@[[@@@@RC/@@@[/)K@GF)@@@@I @@@@IDF@@@A)GK[M[@^G[#@@@@@@@ @@@@GMJ )@@G@@(@D@@ER]K@#SC/@@@[[@@@@RC/@@@[/)K@GQ)@@@@I @@@@I(@#@@CDG@@@A)GU[M@K[#@K0MK )@@G@@@@@@@@(@[@@LR@K@#SC/@@@[[@@@@RC/@@@[/)K@G-)@@@@I @@@@I(@D@@FC/)@@[DH@@@AML )@@G@@)G=[MK0K[#[#@K0^G@*@@@@SC/)@@[[@@@@SC@C@@[R]@@#S[@@@@RC/@@@[/)K@G()@@@#PMM )@@G@@ @@@@GDI@@@A)G,[M^G@K^C=G^G^@@/K@@H?*@@@@J@#9@[2/,0@@@/=0@NG+@)@@K @@@@KMN )@@G@@*@@@@RC.@@@[ @@@@IDJ@@@A)G8[F#[#[#[#@K0K0^G@@@@@O[@@@MR[@@@@O[)@#BO[)@@NMO )@@G@@R[)@@@O[K@#BR[K@@NO])@#JR])@@MDK@@@A)H[[N#@K0^@K[@@@@@N8P@@N^^K@HJN8U@@NMP )@@G@@^^K@HKN8O@@N/K@@HQ(@@@@GH@@@@LC/@@@]O[@@#JDL@@@A)HF[F@^[@K^[@K^G@@@@@@@@MQ )@@G@@@@@@@G@@@@HM@@@@HL@@@@HK@@@@HJ/,0@Z1^^K@HMN8Q@@N^^K@HLDM@@@A)HO[F#[@K0K0MR )@@G@@K0K0^[#@@@@@R]K@#O^^K@H&N8N@@@O@0@](R@0@#QO[0@]:R[0@#R/K@@I_@#"@[2DN@@@AMS )@@G@@)HX[MK^G[@^[@K^@@@@@@@H&@@@@H>/,0@Z1^^K@H*N8R@@@^^K@H$N8L@@@R@K@#N^^K@H>MT )@@G@@N8T@@@DO@@@A)H$[F@K^G^G^@K0^@@@@@@@@/K@@IU(@@@@GH@@@@LC/@@@]/K@@I_@^@@[2MU )@@G@@@@@@@G@@@@H*@@@@H$DP@@@A)H0[F#[#[#[#[#[#[#[#[#@@R])@@MO[@@#BR[@@@NO]@@#BMV )@@G@@R]@@@Q[@@@@QG@@@@NT@@@@GC@@@@JDQ@@@A)H9[F#@K0K0^G^G[#@@@@@@@O@0@@NR@0@@@MW )@@G@@O[)@#JO[)@@MR[)@@@O[K@#BO[K@@QR[K@@@O])@#JDR@@@A)I][N#@K[@^@K@@@@@N8N@@NMX )@@G@@^^K@INN8S@@N^^K@IMN8O@@N^^K@IKN8U@@N^^K@ILN8Q@@NO@0@#BDS@@@A)IG[N@^[@K^[MY )@@G@@@K^[@@@@@@IP@@@@IO@@@@IN@@@@IM@@@@IL@@@@IK/,0@+M^^K@IPN8P@@N^^K@IODT@@@AMZ )@@G@@)IQ[F#[#[#[@K0K0^G^G@@@@R[0@#Q[@@@@QG/@@@[T@@@@GC@@@@J/K@@I_@^ @[2@@@@@JNA )@@G@@@@@@@GDU@@@A)IZ[F#[#[#[#[#[#[#[#@@@@N8R@@@O[)@#AO[)@@QR[)@#RO]K@#AR]K@@QNB )@@G@@O@K@]:R@K@#RO[0@](DV@@@A)I*[N@K0^[#@K[@@@@N8L@@@^^K@I9N8T@@N^^K@I8N8O@@@NC )@@G@@R[@@#N^^K@I6N8U@@@R])@#O^^K@I7DW@@@A)I2[N@^[@K^[@K^[@@@@@@I;@@@@I'@@@@I9ND )@@G@@@@@@I8@@@@I7@@@@I6/,0@+M^^K@I;N8Q@@N^^K@I'DX@@@A)I/@V#[#[#@@)[[@K@)I_@V]NE )@@G@@H#[@@@/K@@T^@@@@[[/,0@@@______2BVSS2@^C@[2@@@@@J@@@@@GDY@@@A)J][F#[#[@K0NF )@@G@@K0^G^G@@@@@@N8S@@@O@0@#JO@0@@MR@0@@@O]@@](R]@@#Q/K@@JZ(@@@@S@^D@[2DZ@@@ANG )@@G@@)JF[N@^[]P@K^G@K5@@@@@@B@@@@@@@@@@@@@@@@@L@@@@JK@@@@JJ/,0@@@^^K@JJN8N@@NNH )@@G@@^^K@JKEA@@@A)JP[F#H#H#L#L#L#[#[#[#@@@@@@@@@@@@@J@@@@@G@@@@[?@@@@@S@@@@@MNI )@@G@@@@@@@Y@@@@@E@@@@@LEB@@@A)JY[F#[#[@K+K0K0K0K^G@@@R[K@@M/K@@KL*@@@@J @@@@TNJ )@@G@@@^J@[2/,0@@@/K@@^)(@@@@R@^G@[2EC@@@A)J$[F#@K0K0^G^G[#@@@@@@@H@@@@LC/@@@]NK )@@G@@O]K@#JO]K@@MR]K@@@O[0@#BO[0@@NR[0@@@O[K@#JED@@@A)J0[MK[@^@K^[@@@@@@@@@J9NL )@@G@@/,0@>I^^K@J;N8R@@N^^K@J9N8P@@N^^K@J'N8T@@N/K@@J_(@@@@GEE@@@A)J'[F@K^G^G^NM )@@G@@[#[#[#[#@@@@O[)@]:R[)@#RO@K@](R@K@#Q/K@@LL@^P@[2@@@@@G@@@@J;@@@@J'EF@@@ANN )@@G@@)K#[MK^G[@^[@K^@@@@@@@KG@@@@KF/,0@>I^^K@KHN8Q@@@^^K@KFN8O@@@R[@@#O^^K@KGNO )@@G@@N8L@@@EG@@@A)KH[F@K0K0K[#@K^G@@@@@@@C@@@@J/K@@K5(@@@@GH@@@@LC/@@@]/K@@LLNP )@@G@@@^R@[2@@@@@G@@@@KHEH@@@A)KQ[F#[#[#[#[#@K0K0@@@@@R@0@@@O]@@#BO]@@@QR]@@@@NQ )@@G@@O])@#JR])@@M[@@@@QG@@@@NT@@@@GEI@@@A)KZ[N#[#@K0K0^@K@@N8T@@N^^K@K!N8U@@NNR )@@G@@^^K@K,N8N@@NO]K@#BO]K@@NR]K@@@O@0@#JO@0@@MEJ@@@A)K([F@^[@K^[@K^G@@@@@@@@NS )@@G@@@@@@@G@@@@K0@@@@K\@@@@K,@@@@K!/,0@$:^^K@K0N8S@@N^^K@K\EK@@@A)K2[F#[#[@K0NT )@@G@@K0^G^G^G@@@@O[K@](R[K@#Q[@@@@QG/@@@[T@@@@GC@@@@J/K@@LL@^W@[2@@@@@JEL@@@ANU )@@G@@)K;[F#[#[#[#[#@K^G@@@@@@N8Q@@@R[)@#O^^K@LFN8P@@@O@K@#AO@K@@QR@K@#RO[0@]:NV )@@G@@R[0@#REM@@@A)L^[N@^@K^[@K^[@@@@@@@LH@@@@LG@@@@LF@@@@LE/,0@$:^^K@LHN8L@@NNW )@@G@@^^K@LGN8R@@@^^K@LEEN@@@A)LI@V#[#[#@@)[#@K@)LL@V]H#[@@@/K@@T^@@@@[#/,0@@@NX )@@G@@______2BVSS3@^Z@[2@@@@@J@@@@@GEO@@@A)LO[F#[#@K0^[#[#@@@@@@@@R@0@@@O[@@](NY )@@G@@R[@@#Q/K@@L;*@G@@]G@@@# T/@@@OC@@@@D@^)@[2EP@@@A)LX[F#[#@K[@K>K^@@@@@@@@NZ )@@G@@@@@@L>@@@@L=/,0@@@^^K@L=N8N@@N^^K@L>N8O@@@O@0@#JO@0@@MEQ@@@A)L&[F#@^HOG4OA )@@G@@G^H^H^H@@@@@@@@@@A@@@@@@@@@@@G@@@@[Y@@@@@L@@@@@I@@@@@@@@@@@@@@@@@LER@@@AOB )@@G@@)L\[F#[#[#[#[#[#[@K(K0@@@@[@[ /,0@@@/K@@L;(@@@@T@^<@[2@@@@@@@@@@@J@@@@@GOC )@@G@@@@@@[:ES@@@A)L8@V#[#[]*@)[ @0@@@@@@@86H EN.,I4,0 ERRORDSTAT2***** (020H0OD )@@G@@'^@@@@@@K@@T@^&@[2ET@@@A)[F[S@@@@@@@IONS ADEVIATNDARD SE STA BECAUE ZEROOE )@@G@@RIX ARON MATRELATIIN CORTRIES EU@@@A)[Q[@@@@@@@@)L;@F#@@@@@@R])@#Q) OF )@@G@@ICIENTINSUFF6HARE 25X,01OUNTS/O OR CRE ZEREV@@@A)L/[N#@K0K0K0^G[@@N8T@@NOG )@@G@@^^K@MHN8U@@@G@@@# T/@@@OC@@@@DO]K@#JO]K@@MR]K@@@O])@](EW@@@A)MA[N@^@K^D=OH )@@G@@[@K0@@@@@@@@@@@@@L@@@@MH@@@@MG/,0@@@^^K@MNN8W@@L^^K@MMN8W@@K^^K@MGEX@@@AOI )@@G@@)MK[F#[#[@K^G[#@K@@@@@@@/K@@M4(@@@@GH@@@@LC/@@@]@^%@[2@@@@MN@@@@MM@@@@@JOJ )@@G@@@@@@@GEY@@@A)MT[F#[#[#@K0^G^G@@@@@@@N8W@@CO[K@#JO[K@@MR[K@@@G@@@# T/@@@OOK )@@G@@C@@@@DO]@@#JR]@@@MEZ@@@A)M+[N@^@K^D4[#[#@@@@@@@@@@@@@J@@@@@G@@@@M*/,0@@@OL )@@G@@^^K@M0N8S@@N^^K@M*N8P@@N^^K@M!FA@@@A)M?[EK^G^G4[@K0K^G@@@@@@R[0@#Q/K@@NGOM )@@G@@@^!@[2/K@@T^@@@@M0@@@@@L@@@@@@@@@@M!@@@@@@FB@@@A)M5[N#[#@K0^@K^G@@N8L@@@ON )@@G@@R@K@#O^^K@N[N8R@@@^^K@NAN8W@@CG@@@# T/@@@OC@@@@DO[0@](FC@@@A)M_[F@K$K^G^OO )@@G@@G@K^G@@@@@@@@@@@@@@@@@NA@@@@@@@@@@@@@@@@@J@@@@@G@@@@N[/,0@@@^^K@NDFD@@@AOP )@@G@@)NC[F#H@K^G^G[#@K@@@@@@@/K@@O!(@G@@ G@@@# T/@@@OC@@@@D@^\@[2/K@@T^@@@@NDOQ )@@G@@@@@@@LFE@@@A)NL[F#[#[#[@K0^@K@@@@@@@^^K@NVN8Q@@N^^K@NWN8O@@@R[@@#N/K@@N?OR )@@G@@*@@@@JO[)@#BR[)@@NFF@@@A)NU[F]P@K^G@K5K3K0@@@@@@@@@@[Y@@@@@L@@@@@P@@@@@@OS )@@G@@@@@@@@@@@@@L@@@@NW@@@@NV/,0@@@FG@@@A)N<[F#L#L#L#[#[#[#[#[@@@/K@@O!@^4@[2OT )@@G@@@@@@@@@@@@[!@@@@@G@@@@[?@@@@@S@@@@@M@@@@@YFH@@@A)N?[F#[#P#[#[#@K[@@@@@@@OU )@@G@@^^K@N6N8N@@N^^K@N7N8U@@@R])@#NO@0@#BR@0@@N[@@@@TC@@@[,FI@@@A)N5[F]P@K^G@OV )@@G@@K5K3K0@@@@@@@@@@[Y@@@@@L@@@@@P@@@@@@@@@@@@@@@@@L@@@@N7@@@@N6/,0@@@FJ@@@AOW )@@G@@)N"[F#L#L#L#[#[#[#[#[#@@C@@@[\@^7@[2@@@@@@@@@@@J@@@@@G@@@@[?@@@@@S@@@@@MOX )@@G@@@@@@@YFK@@@A)OB[F#P#[#[#[#[#[#@K0@@@[[@@@UG.@@@[C[@@#S[@)@@QG@)@@N[@)@#SOY )@@G@@T@)@@GC@)@@J[@@@@TFL@@@A)OK[F#[#[#[#@K[@K0@@@@@@D[)@@G^^K@OVN8T@@N^^K@OWOZ )@@G@@N8P@@NO[K@#AR[K@@UO]K@#BR]K@@QFM@@@A)OT[F#[]P@K^G@K5K3@@@@@@@@@@@L@@@@@PPA )@@G@@@@@@@@@@@@@@@@@@@L@@@@OW@@@@OV/,0@@@[[)@#SFN@@@A)O+[F#[#L#L#L#[#[#[#[#@@PB )@@G@@@^;@[2@@@@@@@@@@@J@@@@#S@@@@[?@@@@@S@@@@@M@@@@@Y@@@@[YFO@@@A)O:[F#[#P#@KPC )@@G@@0^[#[#@@@@@@O]@@#BR]@@@N/K@@RW(@G@@AG@@@# T/@@@OC@@@@D[@@@@TC@@@[*FP@@@APD )@@G@@)O4[N#[#[#[@^G[@^@^^K@P]N8S@@N/K@@PA(@@@@GH@@@@LC/@@@]/K@@P%*@@@@JO[0@#JPE )@@G@@R[0@@MFQ@@@A)O"[EK^[@K^G^G^[#@@@@@@@R@K@#N/K@@PL@ #@[2@@@@@G@@@@P]@@@@P[PF )@@G@@/,0@0Y^^K@P[N8R@@NFR@@@A)PB[EK^G[@K^[@K0@@@@@@@@@@@@@G@@@@PI@@@@PH/,0@0YPG )@@G@@^^K@PHN8Q@@@R[)@#O^^K@PIN8L@@@FS@@@A)PK[F#[#[#[#@K[@K>@@@@@@/,0@@@^^K@PTPH )@@G@@N8O@@N^^K@PUN8N@@@R@0@#NO[@@#BR[@@@N@ @[2FT@@@A)PT[F@K^G@K5K3K0K4@@@@@@PI )@@G@@@@@@@Y@@@@[Y@@@@@L@@@@@<@@@@@@@@@@@@@@@@@L@@@@PU@@@@PTFU@@@A)P+[F#L#L#[#PJ )@@G@@[#[#[#[@@@@@C/@@@]/K@@RW@ B@[2@@@@@@@@@@[!@@@@@G@@@@[?@@@@@S@@@@@MFV@@@APK )@@G@@)P:[F#@K^G^G^G^G^G^G@@@@O[K@#BR[K@@Q[@@@@QG@@@@NT@@@@GC@@@@J/K@@QA(@@@@GPL )@@G@@H@@@@LFW@@@A)P4[N#[#[#[#@K[@^@^^K@Q[N8P@@N^^K@P_N8T@@N^^K@Q@N8U@@NO])@#BPM )@@G@@R])@@NO]K@#JR]K@@MFX@@@A)P"[F@K^[@K0K0K0K^G@@@@@C@@@@J/K@@QV@ G@[2@@@@@JPN )@@G@@@@@@@G@@@@Q[@@@@Q@@@@@P_/,0@1:FY@@@A)QB[F#@K0K0K0K0^[#@@@@@@R@K@#O^^K@QQPO )@@G@@N8R@@@R[0@#NO]@@#AR]@@@Q[@@@@QG/@@@[T@@@@GFZ@@@A)QK[MK[@K^[@K^G^G@@@@@@JPP )@@G@@@@@@@G@@@@QR@@@@QQ@@@@QP/,0@1:^^K@QRN8S@@N^^K@QPN8L@@@GA@@@A)QU[F#[#[#P#PQ )@@G@@[#[#@K@@@@@@N8Q@@N^^K@Q&N8O@@@R[@@#NO[)@#BR[)@@N[@@@@$C@@@[,@ J@[2GB@@@APR )@@G@@)Q<[F@K>K^[#@^HOG0@@@@@@@@@@@L@@@@@<@@@@@@@@@@@@@@@@@L@@@@Q&@@@@Q>/,0@@@PS )@@G@@^^K@Q>GC@@@A)Q?[F#[#L#L#L#[#[#[#[#@@@ L@[2@@@@@@@@@@@J@@@@@G@@@@[?@@@@@SPT )@@G@@@@@@@M@@@@@Y@@@@[YGD@@@A)Q5[F#[#P#[#[#[#[#[#@@@@G.@@@[C[@@#S[@)@@QG@)@@NPU )@@G@@[@)@#ST@)@@GC@)@@J[@@@@$C@@@[\GE@@@A)Q"[F#[#[#[#[#@K[@@@@@@@^^K@REN8N@@NPV )@@G@@^^K@RFN8U@@NO])@#AR])@@UO@0@#BR@0@@Q[[@@@UGF@@@A)RB[F#[#[]P@K^G@K5@@@@@@PW )@@G@@@@@@@<@@@@@@@@@@@@@@@@@L@@@@RF@@@@RE/,0@@@[[)@#SD[)@@GGG@@@A)RK[F#H#[#L#PX )@@G@@L#L#[#[#[#@@@@@@@@@@@@@J@@@@#S@@@@[?@@@@@S@@@@@M@@@@@Y@@@@[Y@@@@@LGH@@@APY )@@G@@)RT[F#[#[#P#@K0^[#@@@@@@R]K@#R/K@@^)(@G@@BG@@@# T/@@@OC@@@@D[@@@@$C@@@[*PZ )@@G@@@ P@[2GI@@@A)R+[N#@K0K0K0K[@^@^^K@R!N8P@@N^^K@R,N8T@@@/K@@R"*@@@@JO[K@#BQA )@@G@@O[K@@NR[K@@@O]K@]:GJ@@@A)R?[F]P@K^G@K5K3K3@@@@@@@@@@@E@@@@@L@@@@@%@@@@@@QB )@@G@@@@@@@@@@@@@L@@@@R,@@@@R!/,0@@@GK@@@A)R5[F#L#L#L#[#[#[#[#[@@@/K@@^)@ V@[2QC )@@G@@@@@@@@@@@@[!@@@@@G@@@@[?@@@@@S@@@@@M@@@@@YGL@@@A)R"[F#[#P#[#@K0K0^@@@@@@QD )@@G@@^^K@SFN8L@@@O]@@#BO]@@@NR]@@@@O@K@]:R@K@#R[@@@@0C@@@[,GM@@@A)SB[MK^DO[@KQE )@@G@@0[#P#G@@@@@L@@@@@%@@@@@@@@@@@@@@@@@L@@@@SF@@@@SE/,0@@@^^K@SEN8S@@NGN@@@AQF )@@G@@)SL[F#H#L#L#L#[#[#[#[#@@@ Y@[2@@@@@@@@@@@J@@@@@G@@@@[?@@@@@S@@@@@M@@@@@YQG )@@G@@@@@@@EGO@@@A)SU[F#[#P#[#[#[#[#[#@@@@G.@@@[C[@@#S[@)@@QG@)@@N[@)@#ST@)@@GQH )@@G@@C@)@@J[@@@@0C@@@[\GP@@@A)S<[F#[#[#[#@K0K0^@@@@@@^^K@S2N8R@@NO[@@#BO[@@@QQI )@@G@@R[@@@@O[0@#AO[0@@UR[0@#R[[@@@UGQ@@@A)S?[MK^G^G^DO[@K0@@@@@@@@@@@@@@@@@@LQJ )@@G@@@@@@S2@@@@S1/,0@@@[[)@#SD[)@@G^^K@S1N8O@@NGR@@@A)S6[F#P#H#H#L#L#L#[#[#@@QK )@@G@@@@@@@J@@@@#S@@@@[?@@@@@S@@@@@M@@@@@Y@@@@@E@@@@@L@@@@@%GS@@@A)S_[F#[#[#[#QL )@@G@@P@K^[#[#@@@@R]0@[3@ >@[2/K@@TBN@0@TA/K@@^)[@@@@0C@@@[*@ +@[2@@@@@@GT@@@AQM )@@G@@)TC[F#[#[#[#[#[#[#[#[#@@R[@@#&R@0@#>R@)@#=R@K@#<9\)@#-9\@@#Z9,)@#X9,@@#VQN )@@G@@9!)@#TGU@@@A)TL[##[#[#[#[#[#[#[#@@@@@@@@@@*4@K[0N[@@#!R])@#?R]K@#:R]@@#%QO )@@G@@R[0@#(R[)@#*R[K@#$GV@@@A)[0@C@)TT@N#[]?@@@)[2@K@)TV@N#[#@@@@9()@#TAA0@[3QP )@@G@@@ >@@]S2BVSS/K@@@@/K@K[0@@F@@?GW@@@A)TX[F#[#[#[#[#[#[#[#[#@@A[K@#$A[@@#&QQ )@@G@@A@0@#>A@)@#=A@K@#<9:)@#-9:@@#Z9%)@#X9%@@#VGX@@@A)T&[F#[#[#[#[#[#[@^G@@@@QR )@@G@@G@@@#\C/@__"/K@@1"^[@@#!A])@#?A]K@#:A]@@#%A[0@#(A[)@#*GY@@@A)T\[N#@K0^G[QS )@@G@@#@K0@@G")__:C])@#1G"@__:C]@@]>G.)__:C[)@]*G.@__?C[@@]>G/)__:C@)@#0GZ@@@AQT )@@G@@)T9[F#@K0^G^G[#[#@@@@@@@C#)@]Y[#)@#4G_)__:C#)@]W[#)@#3G_)__:C#)@#2G_@__:QU )@@G@@C#@@]THA@@@A)U][EK0K0^G^G[#[#@@@@@@@C#)@#9[#)@#8G_)__:C#)@]X[#)@#7G_)__:QV )@@G@@C#)@#6[#)@#5G_)__:HB@@@A)UF[EK0K0^G^G[#[#@@@@@@@C#)@]&[#)@#/G_)__:C#)@]$QW )@@G@@[#)@#;G_)__:C#)@]U[#)@#'G_)__:HC@@@A)UO[EK0K0^G^G[#[#@@@@@@@C#)@^@[#)@#_QX )@@G@@G_)__:C#)@]Z[#)@#"G_)__:C#)@]=[#)@#.G_)__:HD@@@A)UX[EK0K0^G^G[#[#@@@@@@@QY )@@G@@C#)@^ [#)@^^G_)__:C#)@^#[#)@^]G_)__:C#)@]V[#)@^[G_)__:HE@@@A)U&[EK0K0K0KQZ )@@G@@0K0K0K0K0@@@[#@@^G[])@^F[]@@^E[[)@^D[[@@^C[@)@^B[@@@^AG#)@]Y;#)@@RQ )@@G@@R]@@^=R[0@^A]@@^=A[0@^SZ )@@G@@C@A@@N @@@@&N[K@ HIX@@@A))_[N@^G^G[#[#@@@@]@ @@N"^ @@N"C[@@N[@)@@="G)@@>TA )@@G@@C@=@@N[@@@@<"G@@@>C@[@@N/K@@-VIY@@@A)-D[N#[@^@^G[#@@@@"^#@@N"C@@@=C@^@@NTB )@@G@@[@@@@&C/@@@[ @ @@N/K@@-K*@@@@G/C@@-H"@@@[&IZ@@@A)-N[MK0K[@[#@K0@@@"C@@@=TC )@@G@@C@[@@N[@@@@&C/@@@[ @#@@N/K@@-V*@@@@G/C@@-S"@@@[&]@#@@NJA@@@A)-X[M^G^[#[#TD )@@G@@[#@K0@ @@@@G*@@@@&C/@@@[]@@@@>"^@@@>C@@@[-/)@@-=C@@@ R]@]@@N"^]@@NJB@@@ATE )@@G@@)-$[MK0@^@K@@@@@@@C@]@@N/K@@-3 @]@@N/=K@-0+@@@@I @@@@I1@@@@K*@@@@KD[@@@>TF )@@G@@C/)@@[JC@@@A)-1[F#@K0K0[#[#[@@@@@@@@8LK@)7O[)@ EO[K@ EO.@@@[O/0@@[O@)@ ETG )@@G@@O@K@ E[@]@@N"G@@@>JD@@@A)-'[F#[#[#[#[@K^[#[#@@@@R]0@[_@B\@["/K@@+]N@0@+[TH )@@G@@8L@@)6O[)@ KO[K@ KO@)@ KO@K@ KJE@@@A)+#[F#[#[#[#[#[#[#[#[#@@R[K@ =R[@@ JG@@@A)["@K@)+M@3#TK )@@G@@[#[#[#[#[#@@@@@@@@A@K@ )9:@@ Y9%)@ W9%@@ U9()@ SAA0@[_@B\@@]COVRECJH@@@ATL )@@G@@)+S[F#[#[#[#[#[#[#@K0@@@[@@@ LC8FK@@^[K@ $^[@@ &A[)@ >A[K@ =A[@@ #N@0@>]8L@@<#G_0@@[8LK@#[F#[#[#[#[#[#[#[#[#@@*4@K]@N[K@ _N[@@ "R@0@ .R@)@ /R@K@ ;9\)@ 99!)@ 7UH )@@G@@R]0@]#KA@@@A)]@@C@)>G@N#[]?@@@)]]@K@)>I@N#[#@@@@9()@ 7AA0@]#@C&@@]CORTRIUI )@@G@@/K@@@@/K@K]@@@F@@ KB@@@A)>K[F#[#[#[#[#[#@K0@@@@@C8FK@[[@@@ :C8FK@@^[K@ _UJ )@@G@@^[@@ "A@0@ .A@)@ /A@K@ ;9:)@ 9KC@@@A)>T[N#@K0^G^@K0^G@G@)@A]C/)__"G@@@A[UK )@@G@@C/@__"/K@@+0[@K@ %C@VK@#[@@@ !C8FK@][@@@ ?KD@@@A)><[EK0K0K0K0[#[#@@@@@@@UL )@@G@@H]@@A[G]@@A[C"@@@[H.)@@[T[)@A[C[)@A]H[@@A]G[@@A]C.@@@[KE@@@A)>?[F#[#[#[#UM )@@G@@[#@K3^G@@@@@C@)@AC @@@@G*@@@@AC/@@@[[]@@AB][)@AA[[@@A [@)@A^[@@@A#KF@@@AUN )@@G@@)>5[EK0^G[#@K0K0@@@@@@@@G[)@ABG]@@A G"@__:C]@@AFG.)__:C[)@AEG.@__:C[@@ADUO )@@G@@G/)__:KG@@@A)>"[F#[#@@K0K0K0@@@@@@@@N[K@A^[@@@AGN[@@A#R[@@@MR@0@@IR@)@@KUP )@@G@@R@K@@OG[@@ABG@)@ABKH@@@A)&B[F#@K0K0K^G^G^G^G@@@@D@@@@:]@@@@:"^@@@:C@@@[-UQ )@@G@@/)@@&JC@@@AG[@@@@:C@^@@N @@@@!KI@@@A)&K[M^@K0^G^@K@@@@/K@@&Y*@@@@G/G@@&UUR )@@G@@"^@@[&[@#@@N"G@@@:C@#@@N/K@@&U1@@@@G*@@@@GKJ@@@A)&U[MK0^@K^E^[#@@@[@#@@NUS )@@G@@@D@@]A@@@@&-/,0@@@^^K@&-N8N@@N/K@@&= @#@@N[@@@@!C/@@@[KK@@@A)&=[N#@^@K0^UT )@@G@@G^@@@@*@@@@G/G@@&\"^@@[&[@[@@N"G@@@:C@[@@N/K@@&\1@@@@G*@@@@GD@@@@:KL@@@AUU )@@G@@)&,[N@^G[@^[]-@K0@@DD@]A@@@@&6/,0@@@^^K@&6N8L@@N/K@@$H @[@@N[@@@@!C/@@@[UV )@@G@@/K@@&3KM@@@A)&8[M@K0K0K0[@@@@@/K@@$^1@@@@G*@@@@G"^@@@?C@@@[-[@)@@?"G-@@NUW )@@G@@"G<@@NC@+@@N[@[@@NKN@@@A)$][F#[#[#[#@^[#[#@@@@@@[@@@@?D@@@[-/K@@$F1@@@@GUX )@@G@@*@@@@G"@@@[-C@@@@?[@@@@?C@@@[-KO@@@A)$F[N#@K0K@K0K0^G@O@)@A[O/K@@[[@@@@TUY )@@G@@G@@@@TC/@@@[ @]@@N/K@@$N(@@@@![@]@@NC@@@@?KP@@@A)$P[F#[#[@K0K0K0K^[@@@@@UZ )@@G@@/K@@$ZN@0@$Y8L@@&AO[@@AAO@0@AAO@)@AA8LK@&BO[@@A[O@0@A[KQ@@@A)$Y[F#[#[#[#VA )@@G@@[#[#[#[#[#@@N[@@APR[@@AOR@0@ANR@)@AMR@K@AL9,@@AJ9!)@AHR]0@]B@DS@]AKR@@@AVB )@@G@@)$$@N#[#@@@@)]^@C@)$(@N#[]?@@@)]A@K@@DS@@]CORREC/K@@@@/K@K]^@@F@@B*4@K]^VC )@@G@@N[K@AQKS@@@A)$:[F#[#[#[#[#[#[#[#[#@@^[K@AQ^[@@APA[@@AOA@0@ANA@)@AMA@K@ALVD )@@G@@9%@@AJ9()@AHAA0@]BKT@@@A)$4[MK0^G[#@K0^G@@[@K@A[C@VK@^[@@@AFC8FK@#[@@@ACVE )@@G@@C8FK@][@@@ADC8FK@[[@@@AEC8FK@@KU@@@A)$"[MK0K[#[#@K0K0@C/@@@[[@)@AU[@@@ATVF )@@G@@G/)__:C@)@^@G@@@ASC/@__"/K@@>Z[@K@A]C@VK@ KV@@@A)*C[F#[#@K0^G[#@@@@@@@@@VG )@@G@@G"@__?C]@@AVG.)__:C[)@AYG.@__:C[@@AXG/)__:C@)@AW[@@@@,KW@@@A)*L[F#@K0^G[VH )@@G@@#@K0@@@@@@@@[@@@AG/@__:VJ )@@G@@C@@@A=KY@@@A)*<[F#[#[#[#[#@K0K0K0@@@G@)@@PC@)@ASG@@@@PC/@__"[#0@@P[#@@A?VK )@@G@@[])@A:[]@@A%[[)@A(KZ@@@A)*?[F#[#[#@K0K0K0K0K0@@@G[)@A!C[)@A?G@)@A<[@)@A!VL )@@G@@H[@@ASG.@@@[T[@@@PC[@@ASH@)@ASLA@@@A)*5[F#[#[#[#[#[#[#[#[#@@[]@@A1[[)@A0VM )@@G@@[[@@A\[@)@A,[@@@A!G]@@AO]@@A:R]@@@2G[@@@1T[@@A4LI@@@A)("[F#[#[#@^VV )@@G@@G@K0@@@@@@@@G@@@@,C/@@@[[@*@@NR]@@A3C@*@@NO])@@KR])@A&A])@A5O])@A>LJ@@@AVW )@@G@@)%B[N#@@K0K0^[#@@@R]@@A5/K@@%P(@@@@KH[@@@PC[@@@C[@>@@NC@(@@N[[A@@NC[B@@NVX )@@G@@[@@@@,LK@@@A)%L[M@@K0K0@@@@@@@G_)@@[O[)@ASO[K@ASO.@@@[O/0@@[O/)@@[[@+@@NVY )@@G@@C@%@@N[[^@@NC[C@@NLL@@@A)%V[F@[@K^[#[#[#@@@@@@@@9!)@A6R]0@]F@D/@]E/K@@%+VZ )@@G@@N@0@%-8L@@*$G_0@@[O/K@@[8LK@(FLM@@@A)%=[F#[#[#[#[#[#[#[#[#@@R[K@B^R[@@B#WA )@@G@@R@0@B]R@)@B[R@K@B@9\)@A"9\@@A/9,)@A'9,@@A8LN@@@A)%![##[#[#[#[#[#[#[#@@@@WB )@@G@@@@@@@@*4@K]CN[K@BFN[@@BER])@BDR]K@BCR]@@BBR[0@BAR[)@B LO@@@A)]C@C@)%5@N#WC )@@G@@[]?@@@)]E@K@)%7@N#[#@@@@9()@A6AA0@]F@D/@@]SELTRI/K@@@@/K@K]C@@F@@GLP@@@AWD )@@G@@)%9[F#[#[#[#[#[#[#[#[#@@A[K@B^A[@@B#A@0@B]A@)@B[A@K@B@9:)@A"9:@@A/9%)@A'WE )@@G@@9%@@A8LQ@@@A):][F#[#[#[#[#[#[#@K0@@@[@@@AVC8FK@@^[K@BF^[@@BEA])@BDA]K@BCWF )@@G@@A]@@BBA[0@BAA[)@B LR@@@A):F[MK0^G[#@K0^G@@[@@@A-C8FK@ [@@@AXC8FK@^[@@@AWWG )@@G@@C8FK@#[@@@AZC8FK@][@@@AYC8FK@[LS@@@A):P[MK0^G[#@K0^G@@[@K@ASC@VK@E[@@@A+WH )@@G@@C8FK@D[@@@A)C8FK@C[@K@A4C@VK@B[@@@A=C8FK@ALT@@@A):Z[N@^G[#@K0K0K0@G.)__:WI )@@G@@C[)@^@H[@@BIG[@@BIC.@@@[G@)@BIC/)__"G@@@BHC/@__"/K@@*[LU@@@A):([F#[#@^G^WJ )@@G@@G^G^G^G@@@@@[[@@BL[@)@BK[@@@BJH])@BHG])@BHC")@@[H"@@@[T]@@BHC]@@BILV@@@AWK )@@G@@):2[F#[#[#[#@K0^G@@@@@@@G.@__?C[@@BQG/)__:C@)@BRG/@__?C@@@BP[])@BO]]@@BNWL )@@G@@[[)@BMLW@@@A):;[N#@K0^G[#@K0@@G_)__:C#)@BWG_@__:C#@@BVG")__:C])@BUG"@__:WM )@@G@@C]@@BTG.)__:C[)@BSLX@@@A)? [F#[#@K0K0^G^G@@@@@@@G_)__:C#)@B+[#)@B-G_)__:WN )@@G@@C#)@B)[#)@BZG_)__:C#)@BY[#)@BXLY@@@A)?I[F#[#@K0K0K0K0K0K0@@@G])@BOG[)@BOWO )@@G@@G@)@BOG#)@BG_)__:C#)@B=[#)@BA])@B*O])@B-R])@@KA])@B$O])@B-R])@@IO]K@BZWZ )@@G@@R]K@@6MI@@@A)!:[MK0^G@K0[#@@@@R]K@B*[@ )@NC@D@@NR]K@B$[@&)@NC@(@@NO])@B>XA )@@G@@R])@@KA])@B(O])@@IMJ@@@A)!5[M^G@@K^G@@@@@@C^@@BN8LK@?"O"@@@[[@+)@NC@%@@NXB )@@G@@[@#)@NC@D@@NR]K@B([@=)@NC@(@@NMK@@@A)!_[M^G@K0[#@@@@@@'K@@@BC^@@BN[@@@@AXC )@@G@@'K@@@AC^@@BN[@@@@ 'K@@@ C^@@BN[@@@@#'K@@@#ML@@@A),D[E^[@K^G^G^G^G@@@@@@@XD )@@G@@9,@@B?9!)@B%R]0@]J@EX@]I/K@@,JN@0@,I8L@@?6O/K@@[[@@@@BMM@@@A),M[F#[#[#[#XE )@@G@@[#[#[#[#[#@@R[)@B9R[K@B8R[@@B7R@0@B6R@)@B5R@K@B49\)@B29\@@B09,)@B,MN@@@AXF )@@G@@),V@;#[#[#[#[#[#[#@@@@@@)]G@C@@@F@@K*4@K]GN[K@B_N[@@B"R])@B.R]K@B/R]@@B;XG )@@G@@R[0@B'MO@@@A),+@N#[]?@@@)]I@K@),=@V#[#[#@@@@@@@@9%@@B?9()@B%AA0@]J@EX@@]XH )@@G@@SELREC/K@@@@/K@K]GMP@@@A),$[F#[#[#[#[#[#[#[#[#@@A[)@B9A[K@B8A[@@B7A@0@B6XI )@@G@@A@)@B5A@K@B49:)@B29:@@B09%)@B,MQ@@@A),0[F#[#[#[#[#[#@K0@@@@@C8FK@[[@@@BPXJ )@@G@@C8FK@@^[K@B_^[@@B"A])@B.A]K@B/A]@@B;A[0@B'MR@@@A),9[N#@K0^G[#@K0@@C@VK@AXK )@@G@@[@@@BSC8FK@ [@@@BRC8FK@^[@@@BVC8FK@#[@@@BTC8FK@][@@@BQMS@@@A)\#[N#@K0^G[XL )@@G@@#@K0@@C8FK@F[@K@B&C@VK@E[@@@B=C8FK@D[@@@B)C8FK@C[@K@BIC@VK@B[@K@BHMT@@@AXM )@@G@@)\H[N#@K0^G[#[@^G@G@@@C]C/@__"/K@@:)[@@@B+C8FK@I[@@@BYC8FK@H[@@@BWC8FK@GXN )@@G@@[@@@BUMU@@@A)\R[F#@K0K0^G@K0@@@@@@@@N[@@C[C_0@@[G.@__:C[@@C^G/)__:C@)@C#XO )@@G@@[@@@@8C/@@@[[@@@C[MV@@@A)\)[F#[#[#@K0K0K0K0K0@@@G@)@CAH@)@C]G@)@@PC@)@C]XP )@@G@@G@@@@PC/@__"[#0@@P[[@@CA[@)@C MW@@@A)\([F#[#@K0K0K0K0K0@@@@@C_)@@[[[@@CDXQ )@@G@@[@)@CC[@@@CBG[@@CAH[@@C]G.@@@[T[@@@PC[@@C]MX@@@A)\2[F#[#[#[#[#[#[#[#@@@@XR )@@G@@C@#@@NR@0@CEA@0@CEO@0@C R@0@@8[#)@@CN[K@CBR@)@CCR@K@CDMY@@@A)\;[F#[#[@^GXS )@@G@@[#[#@@@@@@@@(@@@@KH[@@@PC[@@@C[@+@@N"G)@@7C@+@@N/K@@0C(@@@@7[@@@@7MZ@@@AXT )@@G@@)0^[N@^G@K0K0^G@@@G_)@@[O@)@C]O/K@@[[@@@@8G@@@@8C/@@@[[[[@@N"H@@@7C[[@@NXU )@@G@@/K@@0CNA@@@A)0I[F@^[@K^G^G^G^G@@@@@@R@K@CH9\)@CFR]0@]N@E7@]M/K@@0ON@0@0NXV )@@G@@8L@@\+G_0@@[8LK@\5NB@@@A)0R@:#[#[#[#[#@@@@)]K@C@)0W@F#@@@@@@/K@K]K@@F@@^XW )@@G@@*4@K]KN[K@CLN[@@CKR@0@CJR@)@CINC@@@A)0X@F]?@@@@@)]M@K@)0Y@<#[#[#[#@@@@@@XX )@@G@@A@)@CIA@K@CH9:)@CFAA0@]N@E7@@]MEANTR/K@@@@ND@@@A)0+[F#[#[#@K0^G[#@@@@@@@XY )@@G@@[@K@C]C@VK@][@@@C^C8FK@[[@@@C#C8FK@@^[K@CL^[@@CKA@0@CJNE@@@A)0:[F@^G[#@KXZ )@@G@@0K0K0@@@@@@@C[)@COH[@@COG[@@COC.@@@[G@)@COC/)__"G@@@CNC/@__"/K@@\PNF@@@AYA )@@G@@)04[F#@^G^G^G^G^G^G@@@@@][)@CS[[@@CR[@)@CQ[@@@CPH]@@CNG]@@CNC"@@@[H.)@@[YB )@@G@@T[)@CNNG@@@A)0.[F#[#@K0^G[#[#@@@@@@@G@@@CTG[@@CRG.@__:C[@@CWG/)__:C@)@CVYC )@@G@@G/@__:C@@@CU[]@@CTNH@@@A)1A[N#@[#[#@K0K0K@/K@@1Q(@@@@9[@@@@9C@#@@NN[K@CQYD )@@G@@N[@@CPR@0@@GR@)@@IR@K@@KG@)@CTNI@@@A)1K[MK0[#@^G^G^@@@8LK@1GO@0@CNO@)@CNYE )@@G@@O/K@@[[[[@@N"H@@@9C[[@@N[@+@@N"G)@@9C@+@@NNJ@@@A)1U[F#[#[@K^[#[#[#[#@@@@YF )@@G@@9,@@CZ9!)@CXR]0@]R@FI@]Q/K@@1)N@0@1Z8L@@1FO@0@CSO@)@CSNK@@@A)1<@3#[#[#[#YG )@@G@@[#[#@@)]O@C@@@@@@@@@@@@@@@F@@A*4@K]ON[K@C>N[@@C=R@0@C^[@@C=YJ )@@G@@A@0@CC8FK@G[^@@]=C8FK@F[^@@][^@@N'[^@@E%YY )@@G@@[^@@FA[@@@]>[^@@Q([^@@S5[^@@RIOA@@@A)35[N@K^[@K^[@K^@@C8FK@-[^@@L*[^@@JNYZ )@@G@@[^@@D\[^@@R1[^@@OZ[^@@M?[^@@PX[^@@N [^@@AOOB@@@A)3_[N#[@K[@K^[@K^@[^@@MYZA )@@G@@[^@@L.[^@@J:[^@@JB[^@@H.[^@@LWC8FK@+[^@@]K[^@@]![@@@]%OC@@@A)4D[N@K^[@K^ZB )@@G@@[@K[#@[@@@]?C8FK@<[^@@C*[^@@EC[^@@],[^@@G_[^@@]L[^@@A8[^@@FT[^@@KYOD@@@AZC )@@G@@)4N[N@K[@K^[@K^[@@[^@@KV[^@@K-[^@@J*[^@@]0[^@@B[[^@@G/[^@@]NC8FK@=[^@@]\ZD )@@G@@[^@@]MOE@@@A)4X[N@K^[@K^[@^G@@C@VK@&[@@@](C8FK@>[^@@C![^@@E][^@@H'[^@@R[S@@@@@@@PART 2PART 1ZH )@@G@@_____"@@@@@D@@@@@G@@@___SUBSET @@@@[=B592-#KO@@@@OI@@@A@@@@@@?@@@@@ZI )@@G@@)]M@K@)0Y@<#[#[#[#@@@@@@A@)@CIA@K@CH9:)@CFAA0@]N@E7@@]MEANTR/K@@@@ND@@@AZJ )@@G@@@@^@@A@@E@@G@@+@@[@@&@@^@@^@C&@C@@43@@@@@]@@@@@S@@@@@%@@@@[HS1HEDC ZK )@@G@@S2MDIN S1VFWC S1VFWT S1DSP S2PMAT S2WCOR ZL )@@G@@S2CTRN SQRT NPRT$ NIO2$ NERR3$ S2BVSS ZM )@@G@@@@[@@@@@@@TVBLANK$ ^@@@C@@]@@@@S2ABLK ]@@@C@@#@@@@S2FMTS ZN )@@G@@]@@@C@@^@@@@S2HEDS ]@@@C@@ @@@@@@@@@@@@@@@@*[S@@@*SDFF*@A@@@@ ZO )@@G@@SUBROUTINE S2CDIN(NV,MSET, @D@@@@ - NBLOK,IVARS,IROWN,IROWPT,ICZP )@@G@@OLN,ICOLPT,IBDATA,@A@@@@ - DF,VSUM,VSSQ,VMIN,VMAX, @#@@@@ -ZQ )@@G@@ XPROD, @^@@[@ - DINP,DINP2, @#[@@@ - IERR) @^@@@@ZR )@@G@@ DIMENSION MSET(1) @F@@@@ DIMENSION IVARS(1),IROWN(1),IROWPT(1ZS )@@G@@),ICOLN(1),ICOLPT(1), @#@@@@ - IBDATA(1)@C@@@@ DIMENSION VSZT )@@G@@UM(1),VSSQ(1),VMIN(1),VMAX(1) @^@@@@ DIMENSION XPROD(1)@A@@[@ ZU )@@G@@DIMENSION DINP(1),DINP2(1) @[[@@@C @[@@@@C @E@@@@C ZV )@@G@@ COMPLETE DATA INPUT SUBROUTINE FOR DSTAT2. @[@@@@C @F@@@@C ZW )@@G@@ DESCRIPTIVE STATISTICS ARE ACCUMULATED FOR THE NV @C@@@@C ZX )@@G@@ VARIABLES SPECIFIED BY MSET. @F@@@@C CROSS PRODZY )@@G@@UCTS ARE ACCUMULATED FOR THE NBLOK BLOCKS @D@@@@C SPECIZZ )@@G@@FIED BY IROWN ... IBDATA. @[@@@@C @[@@@@C @^@@@@C AA )@@G@@ INITIALIZE@[@@@@C @^@@[@ TIMP=URTIMF(DUM) @]@@@@ NOBS=0AB )@@G@@@#@@@@ DO 50 I=1,NV@#@@@@ VSUM(I)=0 @#@@@@ VSSQ(I)=0 AC )@@G@@@^@@@@ VMIN(I)=1.0E+38 @^@@@@ 50 VMAX(I)=-1.0E+38 @A@@@@ AD )@@G@@IF(NBLOK .EQ. 0) GO TO 100 @^@@@@ DO 80 K=1,NBLOK @#@@@@ AE )@@G@@J=IBDATA(K) @ @@@@ IF(J .EQ. 0) GO TO 80 @#@@@@ NA=IROWN(K) AF )@@G@@@#@@@@ NB=ICOLN(K) @#@@@@ LEN=NA*NB @A@@@@ IF(LEN .EQ. AG )@@G@@0) LEN=NA*(NA+1)/2@^@@@@ DO 70 I=1,LEN @#@@@@ XPROD(J)=0 AH )@@G@@@]@@@@ 70 J=J+1 @#@@@@ 80 CONTINUE @[@@@@C @A@@@@C AI )@@G@@ GET NEXT OBSERVATION @[@@@@C @ @@@@ 100 CALL S1INOB(DINP,IFLAG) AJ )@@G@@@ @@@@ IF(IFLAG+1)160,150,200 @]@@@@ 150 IERR=1@#@@@@ GO TO AK )@@G@@350 @A@@@@ 160 IF(IFLAG .EQ. -2) GO TO 300 @#@@@@ GO TO 100 AL )@@G@@@[@@@@C @B@@@@C PROCESS NEXT OBSERVATION @[@@@@C AM )@@G@@@[@@@@C @#@@@@ 200 NOBS=NOBS+1 @#@@@@ CALL S1VFWC @^@@@@ AN )@@G@@DO 220 J=1,NV @#@@@@ I=MSET(J) @#@@@@ T=DINP(I) @^@@@@AO )@@G@@ VSUM(J)=VSUM(J)+T @ @@@@ VSSQ(J)=VSSQ(J)+T*T @A@@@@ AP )@@G@@IF(T .LT. VMIN(J)) VMIN(J)=T @A@@@@ IF(T .GT. VMAX(J)) VMAX(J)=T AQ )@@G@@@#@@@@ 220 CONTINUE @[@@@@C @A@@@@ IF(NBLOK .EQ. 0) GO TO 2AR )@@G@@75 @^@@@@ DO 260 K=1,NBLOK @#@@@@ J=IBDATA(K) @ @@@@ AS )@@G@@IF(J .EQ. 0) GO TO 260 @#@@@@ NA=IROWN(K) @#@@@@ LA=IROWPT(K)AT )@@G@@@#@@@@ NB=ICOLN(K) @]@@@@ LB=LA @ @@@@ IF(NB .EQ. 0) GO TAU )@@G@@O 240 @#@@@@ LB=ICOLPT(K)@]@@@@ JB=J @^@@[@ DO 222 JI=1,AV )@@G@@NB @#@@[@ JJ=IVARS(LB)@#@@[@ LB=LB+1 @^@@[@ 222 DINP2(AW )@@G@@JI)=DINP(JJ)@^@@@@ DO 230 I=1,NA @#@@@@ II=IVARS(LA)@#@@@@AX )@@G@@ T=DINP(II) @#@@@@ LA=LA+1 @][@@@ J=JB @^@@@@ AY )@@G@@DO 225 JI=1,NB @A@@[@ XPROD(J)=XPROD(J)+T*DINP2(JI) @]#@@@ 225 AZ )@@G@@J=J+NA@#@@@@ JB=JB+1 @#@@@@ 230 CONTINUE @#@@@@ GO TO BA )@@G@@260 @[@@@@C @^@@[@ 240 DO 242 I=1,NA @#[@@@ II=IVARS(LA)BB )@@G@@@#[@@@ LA=LA+1 @^@@[@ 242 DINP2(I)=DINP(II) @^@@[@ DO 250BC )@@G@@ I=1,NA @#@@[@ T=DINP2(I) @^[@@@ DO 245 JI=1,I @A@@[@BD )@@G@@ XPROD(J)=XPROD(J)+T*DINP2(JI) @]#@@@ 245 J=J+1 @#@@@@ 250 CONTINBE )@@G@@UE @[@@@@C @#@@@@ 260 CONTINUE @A@@@@ 275 CALL S1VFWT(6HCDINBF )@@G@@ 1,$150) @ @@@@ 280 IF(IFLAG-1)100,300,100 @[@@@@C @A@@@@C BG )@@G@@ ALL DONE - CLEAN UP @[@@@@C @]@@@@ 300 IERR=0@#@@@@ 350 BH )@@G@@DF=NOBS @A@@[@ TIMP=(URTIMF(DUM)-TIMP)/1000. @^@@[@ PRINT BI )@@G@@380,TIMP @F@@[@ 380 FORMAT('0DATA INPUT AND ACCUMULATION TIME',F8.1,BJ )@@G@@' SECONDS') @ @@@@ IF(NOBS .GE. 2) RETURN @]@@@@ IERR=1@#@@@@BK )@@G@@ PRINT 9350 @G@@@@ 9350 FORMAT('0***** CALCULATIONS OMITTED BECAUSBL )@@G@@E LESS THAN TWO OBSERVAT@^@@@@ -IONS WERE FOUND') @]@@@@ RETURNBM )@@G@@@]@@@@ END ___S=0@#@@@@ DO 50 I=1,NV@#@@@@ VSUM(I)=0 BN )@@G@@)@@[M@@^GCS@@@@@@@[@)@@_[@@@@"G.)__"C9:K@JG.@__"C9FK@IG/)__"C8:K@#G@FK@@BO )@@G@@C/@__"AA@@@A)@E[F#]A^CCSK0--#]A^G@@@Q@K@@7R@K@@: @@@@][@@@@@@[B@@0@@@@@[BP )@@G@@/,0@@@[[)@[[[[@@[@AB@@@A)@N[F#]A^GCSK0--#@@@@@@@ @#)@@ @^)@@N[@@@"Q[@@@5BQ )@@G@@R[@@@:Q@0@@4R@0@@:Q@)@@6R@)@@:AC@@@A)@W[N#@C@)@--#@@@@R@)@@9R@K@@'G@)@@@BR )@@G@@C/)__"/K@@[B(@@@@@8L@@@U]@[)@@[@])@@C@@@@?AD@@@A)@&[N#@CSK0)]A[#@@[[@@@BBS )@@G@@C[[@@@[@)@@AC@+@@@/K@@[#(@@@@ [@@@@ C@#@@@[@)@[^R@0@@8AE@@@A)@0[F#]A^GC@BT )@@G@@--#@-)@@@@@@[@@@@C;K@@@[T@@@@AG@@@@AC/@@@[/K@@@9*@@@@C[@)@@CT@)@@BAF@@@ABU )@@G@@)@9[MK0CSK0]A^GC@@8LK@@/[@@@@ G@@@@ C/@@@[ @^@@@O[@@[@R[@@@ [@@@[ G@@@@CBV )@@G@@C/@__"AG@@@A)[#[M[@K+CSK0CS@@@G@@@@DC/@@@[@[&@@0@@@@@D@@@@@@/,0@@@8L@@@*BW )@@G@@O/0@@[O/)@@[O/K@@[AH@@@A)[H[N@K^@^@K0C@@@@/K@@^E(@@@@GH@@@@DC/@__./K@@^FBX )@@G@@[@@@@@C/@@@[/K@@[S/G@@[N/@@@[KAI@@@A)[R[F@^GCSK=--#]A^G@@@@@R@)@@4R@K@@6BY )@@G@@R[@@@7@[0@@0/,0@@@[@@@@]G@@@@]C/@@@[/K@@[BAJ@@@A)[)[F#]A^G]A^GCS^G@@@@@@BZ )@@G@@[@)@@EC@&@@@O[)@[[R[)@@#[@@@@#C@ @@@N[@@@"R[K@@3R@0@@5AK@@@A)[([M^GCS[#@CA )@@G@@@@@@@@1@@@@G*@@@@G"^[@@@C@@@@E[[]@@@"[]@@@"D@@@EC[@@@E[@<@@@"@<@@@AL@@@ACB )@@G@@)[3[N@K0]A@K^G@@@@[@^@@@C@@@@E/K@@[.1@@@@G*@@@@G"^@@@EC@^@@@[@[@@@C@@@@ECC )@@G@@/K@@[6AM@@@A)[.[U@^@K@K0R[)@@'G@@@@@C/@__"/K@@^#(@@@@@8L@@[ ENTRY@E@@@@ J NR11 . $T WLD )@@G@@AS IT FOUND ? @E@@@@ J NR2 . $A YES,NR2LE )@@G@@ NO,NR11 @A@@@@NR10 L A0,(-1) . @G@@@@ LF )@@G@@ S,H1 A0,3,X8 . $P SET BAD LN # FLAG IN LENGTH IN PARAM @E@@@@LG )@@G@@ JNB A4,NR12 . $T IS THIS NEXT-LN FNC @C@@@@ LH )@@G@@ . $A YES NO,NR12 @G@@@@NR11 SZ,H1 3,X8 LI )@@G@@ . $P PUT ZERO IN LENGTH OF PARAM @E@@@@ L A0,LJ )@@G@@LNNUM . $P GET LAST LINE IN PROC @E@@@@ A A0,LNINC LK )@@G@@ . $P INC TO NEXT LINE @A@@@@ TG,U A0,2001 LL )@@G@@. @A@@@@ L,U A0,2000 . @A@@@@ S,H2 A0,LM )@@G@@2,X8 . @C@@@@NR12 SZ,H1 2,X8 . $P ZERO LINE-# LN )@@G@@@C@@@@ J *RETURN . $E RETURN @]@@@@ . LO )@@G@@@A@@@@ . ** PF$AMW ** @]@@@@ . @C@@@@ . LP )@@G@@ ROUTINE TO WRITE A LINE TO THE FILE @A@@@@ . FOR A PARLQ )@@G@@TICULAR PROC@]@@@@ . @^@@@@ . CALL IS @A@@@@ . LR )@@G@@ LX,U X10,PARAM @A@@@@ . LMJ X11,PF$AMW LS )@@G@@@C@@@@ . WHERE PARAM IS FOLLOWING @E@@@@ . LT )@@G@@ PARAM + PROC-NAME (2 WORDS) @G@@@@ . LU )@@G@@ + LINE-#,[NEXT-LINE-#] (N-L-# RETURNED)@E@@@@ . LV )@@G@@ + LENGTH,BUF-ADDR @]@@@@ . @G@@@@LW )@@G@@ . THE ROUTINE CHECKS TO SEE IF LINE-# HAS BEEN PREVIOUSLY LX )@@G@@@G@@@@ . ENTERED, AND IF SO REPLACES IT WITH THE NEW LINE LY )@@G@@ @]@@@@ . @C@@@@PF$AMW*. . $H PF$AMW LZ )@@G@@ @A@@@@ L A4,(-1) . @C@@@@ J RNWMA )@@G@@S . $J RNWS @]@@@@ . @E@@@@ . THIS PARMB )@@G@@T OF LOGIC HANDLES STORE OF LINE @C@@@@ . WHERE LINMC )@@G@@E # ALREADY EXISTS @]@@@@ . @E@@@@W1 L A2,LNCNT MD )@@G@@ . $P DECREMENT LINE COUNT @A@@@@ AN,U A2,1 ME )@@G@@. @A@@@@ S A2,LNCNT . @E@@@@ TG,U A1,MF )@@G@@1900 . $T IS LINE # < 1900 ? @G@@@@ SLJ LNWARN MG )@@G@@ . $W LNWARN - PRINT MAX LINE WARNING @A@@@@ AN,U A0,MH )@@G@@1 . @E@@@@ L R3,A0 . $P SAVE INDEX ADMI )@@G@@DR FOR LINE @E@@@@ L A0,0,A0 . $P GET ADDR OF OLD LINMJ )@@G@@E @A@@@@ LSSL A0,12 . @A@@@@ SSL A0,MK )@@G@@12 . @A@@@@ L A5,A0 . @E@@@@ ML )@@G@@ L,H1 A2,3,X8 . $P GET NEW LINE LENGTH @E@@@@ A,UMM )@@G@@ A2,5 . $P ADD WORD FOR HEADER @A@@@@ SZ A1 MN )@@G@@ . @G@@@@ DI,U A1,6 . $P CONVERT LENGTMO )@@G@@H TO WORD LENGTH @A@@@@ A,U A1,1 . @E@@@@MP )@@G@@ L,H2 A3,0,A0 . $P GET OLD LINE LENGTH @E@@@@ MQ )@@G@@ A,U A3,5 . $P ADD WORD FOR HEADER @A@@@@ SZ MR )@@G@@ A2 . @G@@@@ DI,U A2,6 . $P CONVERTMS )@@G@@ LENGTH TO WORD LENGTH @A@@@@ A,U A2,1 . MT )@@G@@@G@@@@ TNE A1,A2 . $T ARE OLD & NEW WORD LENGTHS EQUAMU )@@G@@L ? @C@@@@ J W54 . $A NO YES,W54 @G@@@@ MV )@@G@@ TG A1,A2 . $T WILL NEW LINE FIT IN OLD SPACE ? @C@@@@MW )@@G@@ J W3 . $A YES NO,W3 @G@@@@ AN A2,MX )@@G@@A1 . $P CALCULATE EXTRA SPACE SIZE AND LOC @A@@@@ AU MY )@@G@@ A2,A5 . @G@@@@ SLJ ADDSTK . $W ADDSTK MZ )@@G@@- PUT EXTRA SPACE ON AVAIL STK@C@@@@ J W54 . $J WNA )@@G@@54 @G@@@@W3 L A3,A5 . $P GET SIZE AND LOC OFNB )@@G@@ OLD LINE @G@@@@ SLJ ADDSTK . $W ADDSTK - PUT NC )@@G@@SPACE ON AVAIL STACK @C@@@@ J W50 . $J W50 ND )@@G@@ @]@@@@ . @C@@@@ADDSTK + 0 . $H ADDSTK NE )@@G@@ @A@@@@ SZ A4 . @A@@@@ L R1,NF )@@G@@AVCNT . @E@@@@ L X10,(1,AVSTK) . $P SET PTR TO AVNG )@@G@@AIL STACK @E@@@@ SE,T1 A4,0,*X10 . $P FIND EMPTY SLOT ON NH )@@G@@STACK @A@@@@ J ADD2 . @A@@@@ AN,U X10NI )@@G@@,1 . @A@@@@ J ADD3 . @A@@@@ADD2 NJ )@@G@@ L A4,AVCNT . @A@@@@ TG,U A4,500 . NK )@@G@@@A@@@@ J *ADDSTK . @A@@@@ A,U A4,1 NL )@@G@@ . @A@@@@ S A4,AVCNT . @E@@@@ADD3 S NM )@@G@@ A3,0,X10 . $P PUT ENTRY INTO STACK @A@@@@ S,T1 A2,NN )@@G@@0,X10 . @C@@@@ J *ADDSTK . $E RETURN NO )@@G@@@]@@@@ . @E@@@@ . THIS SECTION OF LOGIC HANDLES WRITE FNNP )@@G@@C @C@@@@ . FOR THE CASE OF A NEW LINE-# @]@@@@NQ )@@G@@ . @E@@@@W40 TG,U A1,1900 . $T IS LINE-# < 1900 ? NR )@@G@@ @G@@@@ SLJ LNWARN . $W LNWARN - PRINT MAX LN WARNS )@@G@@NING @E@@@@ L A0,LNCNT . $P GET # LINES AS INDENT )@@G@@X CNT @A@@@@ SZ A4 . @G@@@@ TG,U A0,NU )@@G@@PRMXLN . $T HAVE MAX # LINES BEEN INPUT @C@@@@ J NV )@@G@@ NR10 . $A NO YES,NR10 @A@@@@ L R1,A0 NW )@@G@@. @E@@@@ L A0,INDXAD . $P GET START OF INDEX BLOCK NX )@@G@@@G@@@@ LXI,U A0,1 . $P SEARCH INDEX BLOCK FOR INSERT PNY )@@G@@OINT @E@@@@ SG,T1 A1,0,*A0 . $T IS IT AT END OF BLOCK ? NZ )@@G@@@C@@@@ J W41 . $A NO YES,W41 @E@@@@ A OA )@@G@@ A0,R1 . $P GET END OF INDEX BLOCK @G@@@@ LXI,U A0,OB )@@G@@-1 . $P SET INDICES TO SHIFT INDEX BLOCK @A@@@@ L OC )@@G@@ X9,A0 . @A@@@@ AN,U X9,1 . @E@@@@OD )@@G@@ L A2,R1 . $P GET SHIFT COUNT @A@@@@ OE )@@G@@ A,U A2,1 . @A@@@@ L R1,A2 . OF )@@G@@@G@@@@ BT A0,0,*X9 . $P SHIFT INDEX BLOCK TO ALLOW NEW OG )@@G@@ENTRY @A@@@@W41 L R3,A0 . @G@@@@W50 L,H1 A1,OH )@@G@@3,X8 . $P GET LINE LENGTH FROM PARAM @E@@@@ A,UOI )@@G@@ A1,5 . $P ALLOW FOR HEADER WORD @A@@@@ SZ A0 OJ )@@G@@ . @G@@@@ DI,U A0,6 . $P CONVERT LENGTOK )@@G@@H TO WORD LENGTH @A@@@@ A,U A0,1 . @G@@@@OL )@@G@@ TNZ AVCNT . $T IS THERE VACANT ALLOCATED SPACE ? OM )@@G@@@C@@@@ J W52 . $A YES NO,W52 @A@@@@ L ON )@@G@@ R1,AVCNT . @G@@@@ L A1,(1,AVSTK) . $P SET PTROO )@@G@@ TO AVAIL SPACE STACK @G@@@@ SE,T1 A0,0,*A1 . $T IOP )@@G@@S THERE VACANT SPACE OF NEEDED SIZE?@C@@@@ J W51 OQ )@@G@@. $A YES NO,W51 @A@@@@ AN,U A1,1 . @G@@@@ OR )@@G@@ L A2,0,A1 . $P GET VACANT SPACE ENTRY FROM STACK @E@@@@OS )@@G@@ SZ 0,A1 . $P CLEAR STACK ENTRY @G@@@@ OT )@@G@@ LSSL A2,12 . $P GET RELATIVE WORD ADDR OF SPACE @A@@@@OU )@@G@@ SSL A2,12 . @C@@@@ J W53 OV )@@G@@. $J W53 @A@@@@W51 L R1,AVCNT . @G@@@@ OW )@@G@@ L A1,(1,AVSTK) . $P SET PTR TO AVAIL SPACE STACK @G@@@@OX )@@G@@ SG,T1 A0,0,*A1 . $T IS THERE ENTRY WITH ENOUGH SPACE ? OY )@@G@@@C@@@@ J W52 . $A YES NO,W52 @A@@@@ AN,OZ )@@G@@U A1,1 . @E@@@@ L,T1 A4,0,A1 . $P GET # WPA )@@G@@ORDS VACANT @A@@@@ AN A4,A0 . @G@@@@ PB )@@G@@ L A2,0,A1 . $P GET REL WORD ADDR OF VACANT SPACE @A@@@@PC )@@G@@ LSSL A2,12 . @A@@@@ SSL A2,12 PD )@@G@@. @A@@@@ AU A2,A0 . @G@@@@ S A3,PE )@@G@@0,A1 . $P UPDATE AVAIL STK ENTRY TO GIVE LEFT @E@@@@ S,TPF )@@G@@1 A4,0,A1 . $ OVER VACANT SPACE @C@@@@ J W53PG )@@G@@ . $J W53 @G@@@@W52 L A2,NXTADR . $P GPH )@@G@@ET NEXT UNALLOCATED SPACE FOR PROC @G@@@@ TNZ NXTADR PI )@@G@@. $T HAS NEW SPACE BUFFER BEEN GOTTEN @C@@@@ J W521 PJ )@@G@@ . $A YES NO,W521 @G@@@@ AU A2,A0 . $P GET ENDPK )@@G@@ OF NEW LINE IN THIS BUFFER @E@@@@ TG A3,LSTADR . $T WPL )@@G@@ILL LINE FIT IN BUFFER @C@@@@ J W521 . $A YES NO,PM )@@G@@W521 @E@@@@ S A3,NXTADR . $P SAVE NEXT NEW ADDR PN )@@G@@@C@@@@ J W53 . $J W53 @E@@@@W521 L PO )@@G@@ A3,A0 . $P SAVE NEW LINE LENGTH @E@@@@ L A0,PP )@@G@@LAST$D . $P MCORE NEW SPACE BUFFER @A@@@@ A,U A0,1 PQ )@@G@@ . @A@@@@ L A2,A0 . @A@@@@ A,UPR )@@G@@ A0,512 . @G@@@@ S A0,LSTADR . $P SAVE ENPS )@@G@@D ADDR OF NEW BUFFER @A@@@@ AN,U A0,1 . PT )@@G@@@A@@@@ S A0,LAST$D . @A@@@@ ER MCORE$ PU )@@G@@ . @E@@@@ L A0,A3 . $P RESTORE NEW LINE LEPV )@@G@@NGTH @G@@@@ AU A2,A0 . $P GET END OF NEW LINE IN THPW )@@G@@IS BUFFER @E@@@@ S A3,NXTADR . $P SAVE NEXT NEW ADDR PX )@@G@@ @G@@@@W53 L X9,R3 . $P GET INDEX ENTRY ADDR FOR PY )@@G@@LINE @E@@@@ S A2,0,X9 . $P SAVE ADDR IN INDEX PZ )@@G@@ @E@@@@ L,H1 A1,2,X8 . $P GET LINE-# FROM PARAM QA )@@G@@@E@@@@ S,T1 A1,0,X9 . $P SAVE LINE # IN INDEX @A@@@@QB )@@G@@ L A0,A2 . @A@@@@W54 LXI,U A0,1 QC )@@G@@. @E@@@@ L,H1 A1,2,X8 . $P GET LINE-# FROM PARAM QD )@@G@@@E@@@@ S,H1 A1,0,A0 . $P SAVE IT IN LINE HEADER @G@@@@QE )@@G@@ TG A1,LNNUM . $T IS IT LESS THAN LAST-LINE-# ? QF )@@G@@@E@@@@ S A1,LNNUM . $P SAVE IT AS LAST-LINE-# @E@@@@QG )@@G@@ A A1,LNINC . $P INCREMENT LINE # @E@@@@ QH )@@G@@ TG,U A1,2001 . $T IS NEXT # < 2001 @E@@@@ L,UQI )@@G@@ A1,2000 . $P SET NEXT # TO 2000 @G@@@@ S,H2 A1,QJ )@@G@@2,X8 . $P PUT IT IN NEXT-LINE-# OF PARAM @E@@@@ L,HQK )@@G@@1 A2,3,X8 . $P GET LENGTH FROM PARAM @E@@@@ S,H2 A2,QL )@@G@@0,*A0 . $P SAVE IT IN LINE HEADER @G@@@@ AN,U A2,1 QM )@@G@@ . $P CONVERT CHAR LENGTH TO WORD LENGTH @A@@@@ SZ A1 QN )@@G@@ . @A@@@@ DI,U A1,6 . @A@@@@ QO )@@G@@ A,U A1,1 . @G@@@@ L R1,A1 . $P SQP )@@G@@AVE IT FOR TRANSFER COUNT @E@@@@ L,H2 X9,3,X8 QQ )@@G@@. $P GET BUF-ADDR FROM PARAM @A@@@@ LXI,U X9,1 . QR )@@G@@@G@@@@ BT A0,0,*X9 . $P TRANSFER LINE TO BLOCK BUFFER QS )@@G@@ @A@@@@ L A1,LNCNT . @E@@@@ A,U A1,QT )@@G@@1 . $P INCREMENT LINE COUNT @A@@@@ S A1,LNCNT QU )@@G@@ . @C@@@@ J *RETURN . $E RETURN @]@@@@QV )@@G@@ . @A@@@@ . ** PF$AMD ** @]@@@@ . QW )@@G@@@C@@@@ . ROUTINE TO DELETE A LINE FROM PS$FILE @]@@@@ . QX )@@G@@@^@@@@ . CALL IS @A@@@@ . LX,U X10,PARAM QY )@@G@@@C@@@@ . LMJ X11,PF$AMD (PF$AMDN) @C@@@@ . QZ )@@G@@ WHERE PARAM IS FOLLOWING - @E@@@@ . PARAM RA )@@G@@+ PROC-NAME (2WORDS) @E@@@@ . + LRB )@@G@@INE-#,[NEXT-LINE-#] @]@@@@ . @C@@@@PF$AMD*. RC )@@G@@ . $H PF$AMD @C@@@@ L,U A4,2 . $P SET FLARD )@@G@@G @C@@@@ J RNWS . $J RNWS @C@@@@PF$AMDRE )@@G@@N*. . $H PF$AMDN @C@@@@ L,U A4,3 RF )@@G@@ . $P SET FLAG @C@@@@ J RNWS . $J RNWS RG )@@G@@ @E@@@@D1 TE,U A4,2 . $T IS THIS DEL NEXT FNC ? RH )@@G@@@C@@@@ J D2 . $A NO YES,D2 @G@@@@ AN,RI )@@G@@U A0,1 . $P RESET TO INDEX ENTRY FOR THIS LINE @A@@@@ RJ )@@G@@ ANU,U A0,1 . @A@@@@ SZ A5 . RK )@@G@@@A@@@@ TG A1,INDXAD . @E@@@@ L,T1 A5,0,A1 RL )@@G@@ . $P GET PRIOR LINE # @A@@@@ LSSL A5,18 RM )@@G@@. @E@@@@ A,H1 A5,2,X8 . $P SAVE THIS LINE # RN )@@G@@@C@@@@ J D10 . $J D10 @E@@@@D2 JGDRO )@@G@@ R1,D10 . $T IS THERE ANOTHER INDEX @C@@@@ J NR1RP )@@G@@1 . $A YES NO,NR11 @E@@@@D3 L A5,2,X8 . $P SRQ )@@G@@AVE LINE # AND NEXT # @E@@@@D10 L A2,LNCNT . $P DECREMERR )@@G@@NT INDEX KEY CNT @A@@@@ AN,U A2,1 . @A@@@@ RS )@@G@@ S A2,LNCNT . @E@@@@ L A3,0,A0 . $P SRT )@@G@@AVE INDEX KEY @A@@@@ L A1,R1 . @E@@@@RU )@@G@@ SZ R2 . $P GET ACTUAL NEXT LINE # @A@@@@ RV )@@G@@ TZ A1 . @A@@@@ L,T1 R2,1,A0 . RW )@@G@@@G@@@@ L X9,A0 . $P SET INDICES FOR KEY TRANSFER RX )@@G@@ @A@@@@ A,U X9,1 . @E@@@@ BT A0,RY )@@G@@0,*X9 . $P PACK INDEX KEY BLOCK @C@@@@ LSSL A3,12 RZ )@@G@@ . $P GET WORD ADDR@A@@@@ SSL A3,12 . @A@@@@SA )@@G@@ L A0,A3 . @E@@@@ L,H2 A2,0,A0 SB )@@G@@. $P GET LINE CHAR LENGTH @E@@@@ A,U A2,5 . $P ASC )@@G@@DD HEADER WORD @A@@@@ SZ A1 . @G@@@@SD )@@G@@ DI,U A1,6 . $P CONVERT LENGTH TO WORD LENGTH SE )@@G@@@A@@@@ A,U A1,1 . @A@@@@ L A2,A1 SF )@@G@@ . @G@@@@ SLJ ADDSTK . $W ADDSTK - PUT ENTRY SG )@@G@@ON AVAIL STACK @E@@@@ S A5,2,X8 . $P SET LINE #, NSH )@@G@@EXT # @G@@@@ S,H1 R2,3,X8 . $P STORE ACTUAL NEXT LSI )@@G@@N # IN PARAM @C@@@@ J *RETURN . $E RETURN SJ )@@G@@@]@@@@ . @A@@@@ . ** PF$AMQ ** @]@@@@ . SK )@@G@@ @C@@@@ . ROUTINE TO RESET LINE INCREMENT @]@@@@ . SL )@@G@@ @^@@@@ . CALL IS @C@@@@ . L A0,NESM )@@G@@W-INCREMENT @A@@@@ . LMJ X11,PF$AMQ @]@@@@ . SN )@@G@@ @C@@@@PF$AMQ*. . $H PF$AMQ @E@@@@ SO )@@G@@ S A0,LNINC . $P RESET INCREMENT @C@@@@ J SP )@@G@@ 0,X11 . $E RETURN @]@@@@ . @E@@@@ . THSQ )@@G@@E FOLLOWING ROUTINES PRODUCE MESSAGES ON @C@@@@ . DETSR )@@G@@ECTION OF CERTAIN CONDITIONS @]@@@@ . @E@@@@ . 1. PROSS )@@G@@C NOT INITIALIZED BEFORE R/W ATTEMPTED @]@@@@ . @C@@@@NOPROCST )@@G@@. . $H NOPROC @E@@@@ E$DIT PREPKT SU )@@G@@ . $P SET UP ERROR MESSAGE @A@@@@ E$COPY 5,NPM1 SV )@@G@@. @A@@@@ DL A0,0,X8 . @A@@@@ LMJ X11SW )@@G@@,EFD2$ . @A@@@@ E$COPY 42,NPM2 . @A@@@@ SX )@@G@@ E$DITX . @E@@@@ P$RINT (PF 1,10,PREBUF) . $SY )@@G@@P PRINT MESSAGE @C@@@@ ER EXIT$ . $E TERMINASZ )@@G@@TE @]@@@@ . @E@@@@ . 2. PROC LINE # > 1900 ENCOUNTETA )@@G@@RED, PRINT WARNING@]@@@@ . @C@@@@LNWARN + 0 TB )@@G@@. $H LNWARN @E@@@@ TZ MAXLN . $T IS THIS FIRSTTC )@@G@@ VIOLATION ?@E@@@@ J *LNWARN . $E RETURN WITH NO MESSTD )@@G@@AGE @A@@@@ L R1,A0 . @E@@@@ L,U A0,TE )@@G@@1 . $P SET MESSAGE-PRINTED FLAG @A@@@@ S A0,MAXLN TF )@@G@@ . @E@@@@ P$RINT (PF 1,10,LWM1) . $P PRINT WARNING MESSTG )@@G@@AGE @A@@@@ L A0,R1 . @C@@@@ J *LNTH )@@G@@WARN . $E RETURN @]@@@@ . @E@@@@ . 3. MORTI )@@G@@E THAN 25 PROCS HAVE BEEN INPUT @]@@@@ . @C@@@@MAXPROTJ )@@G@@C. . $H MAXPROC @E@@@@ SZ 0,X8 TK )@@G@@ . $P ZERO OUT PROC NAME @C@@@@ P$RINT (PF 1,8,MPM1) TL )@@G@@. $P PRINT MESSAGE@A@@@@ L X9,(3,PNMLST) . @A@@@@ TM )@@G@@ L,U A5,4 . @G@@@@MP1 E$DIT PREPKT . $P PTN )@@G@@RINT OUT ALL PROC NAMES, 5 PER LINE @A@@@@ L,U A4,4 TO )@@G@@. @A@@@@MP2 L A0,A4 . @A@@@@ MSI,U A0,TP )@@G@@15 . @A@@@@ LMJ X11,ECOL$ . @A@@@@ TQ )@@G@@ DL A0,0,*X9 . @A@@@@ LMJ X11,EFD2$ . TR )@@G@@@A@@@@ JGD A4,MP2 . @A@@@@ E$DITX TS )@@G@@ . @A@@@@ P$RINT (PF 1,12,PREBUF) . @A@@@@ JGDTT )@@G@@ A5,MP1 . @E@@@@ J *RETURN . $E RETURN TU )@@G@@CONTROL TO USER @]@@@@$(4). @A@@@@ . GENERAL STORAGE TV )@@G@@ @A@@@@RETURN + 0 . @^@@@@ . FLAGS TW )@@G@@ @A@@@@PROCIN + 0 . @A@@@@MAXLN + 0 TX )@@G@@ . @A@@@@PNAD + 0 . @A@@@@ALLWRDTY )@@G@@ + 0 . @A@@@@NXTADR EQUF ALLWRD,,H1 . TZ )@@G@@@A@@@@LSTADR EQUF ALLWRD,,H2 . @A@@@@PCNT + 0 UA )@@G@@ . @A@@@@PNMLST RES 125 . @A@@@@PRCPKT* RESUB )@@G@@ 5 . @A@@@@PNAME EQUF PRCPKT . @A@@@@UC )@@G@@PNUM EQUF PRCPKT+2,,S1 . @A@@@@PFLAG EQUF PRCPKT+2,,S3 UD )@@G@@ . @A@@@@TBLAD EQUF PRCPKT+2,,H2 . @A@@@@LNCNT EQUF PRCUE )@@G@@PKT+3,,H1 . @A@@@@INDXAD EQUF PRCPKT+3,,H2 . @A@@@@LNINC UF )@@G@@ EQUF PRCPKT+4,,H1 . @A@@@@LNNUM EQUF PRCPKT+4,,H2 . UG )@@G@@@A@@@@AVCNT + 0 . @A@@@@AVSTK RES 500 UH )@@G@@ . @C@@@@ . EDIT PACKET FOR PROC MESSAGES @A@@@@UI )@@G@@PREPKT* E$PKT 22,PREBUF . @A@@@@PREBUF* RES 22 UJ )@@G@@. @A@@@@ . ERROR AND WARNING MESSAGES@A@@@@NPM1 'PROC ' UK )@@G@@ . @E@@@@NPM2 ' WAS NOT INITIALIZED PRIOR TO READ/WRIUL )@@G@@TE' . @G@@@@LWM1 'WARNING: LINE NUMBERS GREATER THAN 2000 ARE UM )@@G@@NOT ALLOWED. ' . @E@@@@MPM1 'MAXIMUM OF 25 PROCS HAVE ALREADY BEEN UN )@@G@@INPUT: ' . @A@@@@ END . ___KEY CNT @A@@@@UO )@@G@@ AN,U A2,1 *[@@@@*SDFF*@^@@@@ AXR$ @^@@@@UP )@@G@@$(4) LIT. @]@@@@$(1). @]@@@@. @E@@@@. UQ )@@G@@ THIS ROUTINE WILL READ RECORDS FROM D$FILE @C@@@@. UR )@@G@@ AND WRITE THEM TO T$FILE @]@@@@. @C@@@@BLDT$F* US )@@G@@ . $H @E@@@@ SX X11,SAVEX1UT )@@G@@1 . $P SAVE RETURN ADDR @E@@@@ DL A0,USENME UU )@@G@@ . $P GET FILE NAME @E@@@@ DS A0,NAMED2 . $PUV )@@G@@ GIVE IT TO DF$AMR@E@@@@RDLOOP . $H READ UW )@@G@@LOOP @E@@@@ LX,U X10,RDA . $P GET RDA UX )@@G@@ADDR @E@@@@ LMJ X11,DF$AMR . $P READ A RECORD UY )@@G@@@C@@@@ LA A0,(+0777777777777) . @G@@@@ TNUZ )@@G@@E A0,RDA . $T SEE IF END OF D$FILE @E@@@@ VA )@@G@@ J ENDIT . $A YES,ENDIT NO @G@@@@ TZVB )@@G@@ FIRST . $T IS IT A FIRST RECORD @E@@@@ VC )@@G@@ SLJ FIRSTLN . $W PERFORM SPEC CHK @E@@@@ LAVD )@@G@@ A0,R3 . $P GET RECORD LENGTH@G@@@@ SA VE )@@G@@ A0,TFPKT . $P BUILD TF$AM PACKET @E@@@@ LXVF )@@G@@,U X10,TFPKT . $P GET PKT ADDR @E@@@@ LMJ VG )@@G@@ X11,TF$SQW . $P WRITE TO T$FILE @E@@@@ J RDLOVH )@@G@@OP . $J NXT ONE @C@@@@ENDIT VI )@@G@@ . $H @E@@@@ LX X11,SAVEX11 . $P GET RVJ )@@G@@ETURN ADDR @E@@@@ J 0,X11 . $J RETURN VK )@@G@@ @G@@@@FIRSTLN +0 . $H ROUTINE TO CHK FOVL )@@G@@R ART KEY @E@@@@ SZ FIRST . $P RESET SW VM )@@G@@ @F@@@@ TZ RDA . $T IS IT A SPEC RECOVN )@@G@@RD @E@@@@ J *FIRSTLN . $A YES NO,*RETURN VO )@@G@@@F@@@@ LA A0,RDA+1 . $P GET THE RECORD HDR VP )@@G@@@E@@@@ TE A0,(+077,0,2) . $T AN ART KEY @E@@@@VQ )@@G@@ J *FIRSTLN . $A YES NO,RETURN @E@@@@ VR )@@G@@ LA A0,RDA+2 . $P GET THE ART KEY @E@@@@ SAVS )@@G@@ A0,ARTKEY . $P SET IT @E@@@@ J VT )@@G@@ RDLOOP . $J NXT RECORD @]@@@@$(4). @]@@@@FIRST VU )@@G@@ +1@A@@@@TFPKT +0 . T$FILE PACKET @^@@@@ +RDA VV )@@G@@ @]@@@@ +0@]@@@@SAVEX11 +0@^@@@@ END VW )@@G@@___CS) A0,RDA+2 . $P GET THE ART KEY @E@@@@ SA VX )@@G@@ A0,ARTKEY . $P*[@@@@*SDFF*@]@@@@ . @A@@@@ . VY )@@G@@ ** GETVAR ** @]@@@@ . @E@@@@ . COMMON ROUTINEVZ )@@G@@ FOR EDITOR WORKER ROUTINES @E@@@@ . IT IS PASSED THE ADDWA )@@G@@R OF A SYMBOL TABLE ENTRY @A@@@@ . AND AN INDEX VALUE WB )@@G@@@E@@@@ . AND RETURNS THE ABSOLUTE CORE LOCATION OF @A@@@@WC )@@G@@ . THE VARIABLE @]@@@@ . @^@@@@ . CAWD )@@G@@LL IS: @A@@@@ . SLJ GETVAR @^@@@@ . WE )@@G@@ WITH @E@@@@ . X10 - SYMBOL TABLE ENTRY ADDR WF )@@G@@ @C@@@@ . A0 - BINARY INDEX VALUE @C@@@@ . WG )@@G@@ OR 0 IF NO INDEX @^@@@@ . ON RETURNWH )@@G@@@E@@@@ . A0 - CHARACTER LENGTH OF ITEM @E@@@@WI )@@G@@ . A1 - ABSOLUTE WORD ADDR OF ITEM @C@@@@ . WJ )@@G@@ OR ERROR CODE @E@@@@ . A2 -WK )@@G@@ CHARACTER OFFSET (1 - 6) @C@@@@ . A3 - TYPE WL )@@G@@- 1 - PIC X @C@@@@ . 2 - PIC 9 WM )@@G@@@C@@@@ . 3 - PIC 9 COMP @E@@@@ . WN )@@G@@ X10 - SYMBOL TABLE ENTRY ADDR @]@@@@ . @E@@@@WO )@@G@@ . IF ERROR CODE, BIT 35 OF A1 WILL BE SET, @C@@@@ . WP )@@G@@ BITS 34 - 0 WILL CONTAIN: @E@@@@ . 0 - WQ )@@G@@VALUE NOT DEFINED IN CORE @E@@@@ . 1 - INVALIWR )@@G@@D ITEM (I.E. SET NAME) @C@@@@ . 2 - INVALID INDEWS )@@G@@X VALUE @]@@@@ . @A@@@@ . ** GETVAR ** WT )@@G@@@]@@@@ . @^@@@@ AXR$. @^@@@@$(2) LIT. WU )@@G@@ @]@@@@$(1). @]@@@@ . @C@@@@GETVAR* + 0 WV )@@G@@ . $H GETVAR @E@@@@ TNZ X10 . $T IS SYM WW )@@G@@TBL ADDR ZERO ? @C@@@@ J SYMERR . $A NO YES,SYMERRWX )@@G@@@E@@@@ TP A0 . $T IS INDEX POSITIVE ? @C@@@@WY )@@G@@ J INDERR . $A YES NO,INDERR@C@@@@ L,S4 A3,WZ )@@G@@0,X10 . $P GET TYPE @E@@@@ TNZ TYPE,A3 . $T IXA )@@G@@S TYPE UNDEFINED PIC ? @C@@@@ J UNDEF . $A NO YES,XB )@@G@@UNDEF @E@@@@ TG,U A3,021 . $T IS THIS OCCURS SUBITEM ? XC )@@G@@@C@@@@ J SUBOCC . $A NO YES,SUBOCC@E@@@@ TG,XD )@@G@@U A3,016 . $T IS THIS DEFINED ITEM ? @C@@@@ J ITEXE )@@G@@M . $A NO YES,ITEM @G@@@@ TG,U A3,7 . $T IXF )@@G@@S THIS OCCURS OR ARRAY ITEM ? @C@@@@ J OCCURS XG )@@G@@. $A NO YES,OCCURS@E@@@@ TNE,U A3,1 . $T IS THIS SET NXH )@@G@@AME ? @C@@@@ J SYMERR . $A NO YES,SYMERR@G@@@@XI )@@G@@ITEM TG,U A0,2 . $T IS INDEX OTHER THAN 0 OR 1 ? XJ )@@G@@@C@@@@ J INDERR . $A NO YES,INDERR@E@@@@ L,UXK )@@G@@ A0,1 . $P SET INDEX TO 1 @C@@@@ J FORXL )@@G@@M1 . $J FORM1 @C@@@@OCCURS TNZ A0 . $T IXM )@@G@@S INDEX 0 ? @C@@@@ J INDERR . $A NO YES,INDERR@E@@@@XN )@@G@@ L,T3 A1,2,X10 . $P GET HIGH # OCCURS VALUE @A@@@@ XO )@@G@@ AND,U A1,07777 . @E@@@@ TLE A2,A0 . $T IXP )@@G@@S INDEX WITHIN RANGE ? @C@@@@ J INDERR . $A YES NO,XQ )@@G@@INDERR@C@@@@FORM1 SLJ HEADER . $W HEADER @E@@@@ XR )@@G@@ TG A1,SA1 . $T IS ADDR WITHIN RECORD ? @C@@@@ J XS )@@G@@ SIZERR . $A YES NO,SIZERR@E@@@@ L A2,A3 XT )@@G@@. $P PUT CHAR OFFSET IN A2 @C@@@@ L,S4 A3,0,X10 . $P GXU )@@G@@ET ITEM TYPE@E@@@@ L A3,TYPE,A3 . $P CONVERT IT TO RETURXV )@@G@@N TYPE@A@@@@ J *GETVAR . $E @]@@@@ . @C@@@@XW )@@G@@SUBOCC TNZ A0 . $T IS INDEX 0 ? @C@@@@ J INDXX )@@G@@ERR . $A NO YES,INDERR@E@@@@ L,H2 A2,C14 . $P GXY )@@G@@ET C14 BASE ADDR @G@@@@ L A1,1,X10 . $P GET OCCXZ )@@G@@-LINK TO OCCURS ITEM @E@@@@ TN A1 . $T IYA )@@G@@S OCCURS ITEM IN C14 ? @E@@@@ L,H2 A2,C15 . $P GET C15YB )@@G@@ BASE ADDR @A@@@@ LSSL A1,1 . @A@@@@ YC )@@G@@ SSL A1,19 . @G@@@@ A A2,A1 . $P GYD )@@G@@ET ABS ADDR OF OCCURS ITEM ENTRY @E@@@@ S X10,SX10 YE )@@G@@. $P SAVE SUB ITEM ENTRY ADDR @E@@@@ L X10,A2 . $P SYF )@@G@@ET PTR TO OCCURS ITEM @E@@@@ L,T3 A1,2,X10 . $P GET HIGYG )@@G@@H # OCCURS VALUE @A@@@@ AND,U A1,07777 . @E@@@@ YH )@@G@@ TLE A2,A0 . $T IS INDEX WITHIN RANGE ? @C@@@@ J YI )@@G@@ INDERR . $A YES NO,INDERR@G@@@@ SLJ HEADER YJ )@@G@@. $W HEADER - GET LOCATION OF OCCURS IN CR@G@@@@ L X10,SX10 YK )@@G@@ . $P RESET PTR TO SUB OCCURS ITEM ENTRY @D@[@@ L A2,YL )@@G@@A0 . $P SAVE CHAR LENGTH @G@@@@ L,T1 A0,0,X10 YM )@@G@@. $P GET CHAR DISP OF SUB IN OCCURS @A@@@@ LSSL A0,24 YN )@@G@@ . @A@@@@ SSL A0,24 . @G@@@@ A YO )@@G@@ A3,A0 . $P ADD IT TO OFF SET, START OF OCCURS @E@[@@ YP )@@G@@ L A0,A2 . $P RESTORE CHAR LENGTH @D@@@[ L,TYQ )@@G@@3 A0,0,X10 . $P GET CHAR LENGTH @A@@@[ LSSL A0,24 YR )@@G@@ . @A@@@[ SSL A0,24 . @G@@@@ AN,YS )@@G@@U A3,2 . $P CONVERT OFF SET TO WORDS + OFF SET @A@@@@ YT )@@G@@ SZ A2 . @A@@@@ DI,U A2,6 . YU )@@G@@@E@@@@ A A1,A2 . $P ADJUST ABS WORD ADDR @E@@@@YV )@@G@@ TG A1,SA1 . $T IS ADDR WITHIN RECORD ? @C@@@@ YW )@@G@@ J SIZERR . $A YES NO,SIZERR@E@@@@ A,U A3,1 YX )@@G@@ . $P SET CHAR OFFSET @A@@@@ L A2,A3 YY )@@G@@. @C@@@@ L,S4 A3,0,X10 . $P GET ITEM TYPE@E@@@@ YZ )@@G@@ L A3,TYPE,A3 . $P CONVERT IT TO RETURN TYPE@A@@@@ J ZA )@@G@@ *GETVAR . $E @]@@@@ . @]@@@@ . @E@@@@UNDEF ZB )@@G@@ SZ A1 . $P SET ERROR CODE = 0 @C@@@@ J ZC )@@G@@ ERROR . $J ERROR @E@@@@SYMERR L,U A1,1 ZD )@@G@@. $P SET ERROR CODE = 1 @C@@@@ J ERROR . $J EZE )@@G@@RROR @E@@@@INDERR L,U A1,2 . $P SET ERROR CODE = 2 ZF )@@G@@ @C@@@@ J ERROR . $J ERROR @A@@@@SIZERRZG )@@G@@ LSSL A1,18 . @E@@@@ A,U A1,3 . $P SZH )@@G@@ET ERROR CODE = 3 @E@@@@ERROR SSC A1,17 . $P SET BITZI )@@G@@ 35 OF A1 @A@@@@ A,U A1,1 . @A@@@@ ZJ )@@G@@ SSC A1,1 . @A@@@@ J *GETVAR . $E ZK )@@G@@@]@@@@ . @]@@@@ . @C@@@@HEADER + 0 ZL )@@G@@. $H HEADER @E@@@@ L,T1 A1,1,X10 . $P GET SEQUENCE ZM )@@G@@NUMBER @E@@@@ L,H1 A2,TT1 . $P GET # SEQ NO ASSIGNZN )@@G@@ED @E@@@@ TLE A2,A1 . $T IS SEQ NO WITHIN RANGE ? ZO )@@G@@@C@@@@ J SYMERR . $A YES NO,SYMERR@A@@@@ AN,ZP )@@G@@U A1,1 . @E@@@@ A,H2 A1,TT1 . $P SET PTRZQ )@@G@@ TO SEQ LIST ENTRY@G@@@@ L,T1 A3,0,A1 . $P GET RECORD COZR )@@G@@DE FOR SEQ NO @E@@@@ L,H2 A1,0,A1 . $P GET CORZS )@@G@@E BUFFER ADDR @G@@@@ TNZ A1 . $T HAS BUFFER BEZT )@@G@@EN ALLOCATED ? @C@@@@ J UNDEF . $A YES NO,ZU )@@G@@UNDEF @G@@@@ A,U A1,2 . $P GET ADDR OF NEW RECORD HEZV )@@G@@ADER @E@@@@ L,S3 A2,0,X10 . $P GET MODE OF ITEM ZW )@@G@@ @E@@@@ TE,U A2,1 . $T IS MODE = OLD ? ZX )@@G@@@C@@@@ J HEAD3 . $A YES NO,HEAD3 @G@@@@ TNZZY )@@G@@,H1 C17 . $T ARE THERE ANY ART RULES (C17 ENTRIES)@C@@@@ ZZ )@@G@@ J HEAD3 . $A YES NO,HEAD3 @E@@@@ L,H2 A2,C17 AA )@@G@@ . $P SET PTR TO C17 @G@@@@HEAD1 TNE,T1 A3,0,A2 AB )@@G@@. $T IS ENTRY FOR THIS RECORD CODE ? @C@@@@ J HEAD2 AC )@@G@@ . $A NO YES,HEAD2 @E@@@@ TNZ,T3 0,A2 . $T MORE C1AD )@@G@@7 ENTRIES ? @C@@@@ J HEAD3 . $A YES NO,HEAD3 AE )@@G@@@E@@@@ A,T3 A2,0,A2 . $P SET PTR TO NEXT C17 ENTRY@C@@@@AF )@@G@@ J HEAD1 . $J HEAD1 @G@@@@HEAD2 A,H2 A1,AG )@@G@@0,A1 . $P GET ADDR OF OLD RECORD HEADER @G@@@@HEAD3 L AH )@@G@@ A2,(0777777777) . $P SET END OF ITEM TO LARGE VALUE @E@@@@ AI )@@G@@ L,S3 A3,0,X10 . $P GET MODE OF ITEM @E@@@@ TE,AJ )@@G@@U A3,3 . $T IS ITEM DEFINED OR ARRAY @E@@@@ AU,H2 A1,AK )@@G@@0,A1 . $P CALC END ADDR OF RECORD @E@@@@ S A2,SA1 AL )@@G@@ . $P SAVE END ADDR OF ITEM @E@@@@ L,T1 A2,0,X10 AM )@@G@@. $P GET REL WORD OF ITEM @A@@@@ AND,U A2,07777 . AN )@@G@@@G@@@@ A A1,A3 . $P GET ABS WORD ADDR OF 1ST OCCURRAO )@@G@@ENCE @A@@@@ AN,U A0,1 . @E@@@@ L,T3 A2,AP )@@G@@0,X10 . $P GET CHAR LENGTH OF ITEM @A@@@@ AND,U A2,07777 AQ )@@G@@ . @A@@@@ L A2,A3 . @G@@@@ MSIAR )@@G@@ A3,A0 . $P MULTIPLY BY INDEX-1 TO GET OCCUR @E@@@@ AS )@@G@@ L A0,A2 . $P SAVE LENGTH OF ITEM @G@@@@ A,SAT )@@G@@3 A3,1,X10 . $P ADD OCC DISP TO CHAR OFFSET @G@@@@ AU )@@G@@ AN,U A3,1 . $P CONVERT OFFSET TO WORDS + OFFSET @A@@@@AV )@@G@@ SZ A2 . @A@@@@ DI,U A2,6 AW )@@G@@. @E@@@@ A A1,A2 . $P ADD WORD DISP TO ABS ADDRAX )@@G@@@E@@@@ A,U A3,1 . $P SET CHAR OFFSET @A@@@@AY )@@G@@ J *HEADER . $E @]@@@@ . @]@@@@ . AZ )@@G@@@]@@@@$(2). @A@@@@SA1 + 0 . @A@@@@SX10 BA )@@G@@ + 0 . @A@@@@ . TYPE CONVERSION BLOCK BB )@@G@@@E@@@@ . OUTPUT TYPES: 1-PIC X, 2-PIC 9, 3-PIC 9 COMP @A@@@@BC )@@G@@TYPE + 0 . @A@@@@ + 1 BD )@@G@@. SET @C@@@@ + 1 . RECORD @C@@@@ BE )@@G@@ + 1 . ITEM PIC X @C@@@@ + 2 BF )@@G@@ . '' PIC 9 @C@@@@ + 3 . '' PIC 9BG )@@G@@ COMP @C@@@@ + 1 . '' PIC A @C@@@@ BH )@@G@@ + 3 . ARRAY PIC 9 COMP@C@@@@ + 1 BI )@@G@@ . '' PIC X @E@@@@ + 0 . '' UNDEBJ )@@G@@FINED PIC @C@@@@ + 1 . OCCURS PIC X BK )@@G@@@C@@@@ + 2 . '' PIC 9 @E@@@@ + BL )@@G@@ 3 . '' PIC 9 COMP @C@@@@ + 1 BM )@@G@@ . '' PIC A @E@@@@ + 3 . DEFIBN )@@G@@NED PIC 9 COMP @C@@@@ + 1 . '' PIBO )@@G@@C X @E@@@@ + 0 . '' UNDEFINED PIC BP )@@G@@@C@@@@ + 1 . SUBOCCURS PIC X @C@@@@ + BQ )@@G@@ 2 . '' PIC 9 @E@@@@ + 3 BR )@@G@@. '' PIC 9 COMP @C@@@@ + 1 . 'BS )@@G@@' PIC A @]@@@@ . @^@@@@ END. ___ BT )@@G@@*[@@@@*SDFF*@]@@@@ . @A@@@@ . ** INTRP ** BU )@@G@@@[@@@@ . @C@@@@ . REORG EDITOR WORKER ROUTINE @A@@@@BV )@@G@@ . TO INTERPRET DBP'S @]@@@@ . @^@@@@ . CABW )@@G@@LL IS @A@@@@ . LX,U X10,PARAM @A@@@@ . BX )@@G@@ LMJ X11,INTRP @^@@@@ . WHERE @C@@@@ . BY )@@G@@ ------------------------------- @C@@@@ . PARAM: LENGTH : 0 BZ )@@G@@: +(INTRP) : @C@@@@ . :-----------------------------: CA )@@G@@@C@@@@ . : 13 : : : : @C@@@@ . CB )@@G@@ :-----------------------------: @C@@@@ . : CC )@@G@@ : @C@@@@ . = OPERAND PTR = CD )@@G@@@C@@@@ . : : @C@@@@ . CE )@@G@@ ------------------------------- @]@@@@ . @C@@@@ . THCF )@@G@@E RESULTS OF THE INTERPRET ARE @C@@@@ . STORED IN RESERCG )@@G@@VED WORDS @C@@@@ . AREACODE, PAGENUM, SLOTNUM CH )@@G@@@]@@@@ . @^@@@@ AXR$. @^@@@@$(4) LIT. CI )@@G@@ @A@@@@PF FORM 12,6,18 . @]@@@@$(3). @]@@@@CJ )@@G@@ . @C@@@@INTRP*. . $H INTRP @D@@@@CK )@@G@@ S,H2 X11,RETURN . $P SAVE RETURN ADDR @D@@@[ SZ CL )@@G@@ STATUS . $P RESET STATUS TO 0 @E@@@@ L X7,X10 CM )@@G@@ . $P SET PTR TO OPERAND PTR @A@@@@ A,U X7,2 CN )@@G@@. @A@@@@ L,U A13,1 . @E@@@@ SLJ GETCO )@@G@@SYM . $W GETSYM - GET OPERAND ADDR@E@@@@ JN A1,SYMERRCP )@@G@@ . $T WAS GET SUCCESSFUL ? @C@@@@ CQ )@@G@@. $A YES NO,SYMERR@E@@@@ TNE,U A3,1 . $T IS OP TYPE PICR )@@G@@C X ? @C@@@@ J TYPERR . $A NO YES,TYPERR@E@@@@CS )@@G@@ TNE,U A3,4 . $T IS OP TYPE NOT SET PTR ? @E@@@@ CT )@@G@@ L,U A3,3 . $P SET TYPE TO PIC 9 COMP @E@@@@ SLJCU )@@G@@ GETNUM . $W GETNUM - GET OP VALUE @E@@@@ SLJ DBPCV )@@G@@$APS . $W DBP$APS - INTERPRET VALUE@E@@@@ JZ A1,ARERR CW )@@G@@ . $T WAS AREA CODE VALID ? @C@@@@ CX )@@G@@. $A YES NO,ARERR @E@@@@ S A1,AREACODE . $P SET INTRPED VCY )@@G@@ALUES @A@@@@ S A2,PAGENUM . @A@@@@ S CZ )@@G@@ A3,SLOTNUM . @A@@@@ L A0,A4 . @A@@@@DA )@@G@@ DL A0,1,A0 . @A@@@@ DS A0,AREANAME DB )@@G@@. @A@@@@ J *RETURN . $E @]@@@@ . @E@@@@DC )@@G@@ARERR TZ PERFSW . $T IS THIS PERFORM MODE @C@@@@ DD )@@G@@ J ARER2 . $A NO YES,ARER2 @A@@@@ L A4,A0 DE )@@G@@ . @E@@@@ E$DIT INTPKT . $P PRINT ERROR MESSAGEDF )@@G@@ @A@@@@ E$COPY 29,AM . @A@@@@ L A0,DG )@@G@@A4 . @A@@@@ L,U A1,13 . @A@@@@ DH )@@G@@ LMJ X11,EOCTF$ . @A@@@@ E$DITX . DI )@@G@@@A@@@@ P$RINT (PF 1,8,INTBUF) . @E@@@@ARER2 SZ AREACODE DJ )@@G@@ . $P SET ALL VALUES NULL @A@@@@ SZ PAGENUM DK )@@G@@. @A@@@@ SZ SLOTNUM . @A@@@@ DL A0,DL )@@G@@BLNKS . @A@@@@ DS A0,AREANAME . @E@@@@ DM )@@G@@ L,U A0,51 . $P SET STATUS VALUE @A@@@@ S DN )@@G@@ A0,STATUS . @A@@@@ J *RETURN . $E @E@@@@DO )@@G@@TYPERR P$RINT (PF 1,6,TM) . $P PRINT ERROR MESSAGE @E@@@@SYMERRDP )@@G@@ L,U A0,1 . $P SET FATAL ERROR FLAG @A@@@@ S DQ )@@G@@ A0,FATAL . @A@@@@ J *RETURN . $E @]@@@@DR )@@G@@ . @]@@@@$(4). @A@@@@RETURN + 0 . DS )@@G@@@A@@@@BLNKS ' ' . @C@@@@AM 'ERROR - CANNOTDT )@@G@@ INTERPRET DBP ' . @E@@@@TM 'ERROR - CANNOT INTERPRET PIC X FDU )@@G@@IELD' . @A@@@@INTPKT E$PKT 8,INTBUF . @A@@@@INTBUFDV )@@G@@ RES 8 . @^@@@@ END . ___ -[D*)^@)DW )@@G@@^@)^@)^@) 0)^@)^@)@D@@@@^@)^@)^@)^@)^[G^@)^@)^[[A@?CC4^@)^@)^@)^@)^@) 0)DX )@@G@@*[@@@@*SDFF*@G@@@@ . **************************************************DY )@@G@@**************** @G@@@@ . * ED LEVEL 12 DZ )@@G@@ * @G@@@@ . * EA )@@G@@ * @G@@@@ . * TO BE COMPATIBLE WITH PREVIOEB )@@G@@US VERSIONS OF THE EDITOR * @G@@@@ . * THE FOLLOWING PARAMETEC )@@G@@ERS MUST BE SET: * @G@@@@ . * ED )@@G@@ * @G@@@@ . * EDMODE EE )@@G@@ EQU 1 * @G@@@@ . * REGEF )@@G@@BRIEF EQU 0 * @G@@@@ . * EG )@@G@@ SUPBRIEF EQU 1 * @G@@@@EH )@@G@@ . * SPLITDLI EQU 1 * EI )@@G@@@G@@@@ . * EOFMODE EQU 0 EJ )@@G@@ * @G@@@@ . * EK )@@G@@ * @G@@@@ . * EL )@@G@@ TEM * @G@@@@ . * EM )@@G@@ * @G@@@@ . **************************************EN )@@G@@**************************** @I@@@@ . EO )@@G@@ ED010020 @I@@@@ . ***************EP )@@G@@**************************************************** ED010030 @I@@@@EQ )@@G@@ . * 12.01 CHANGES * ER )@@G@@ED010040 @I@@@@ . * ES )@@G@@ * ED010050 @I@@@@ . * DEFAULT 077'S CHANGED TO 077ET )@@G@@7'S * ED010060 @I@@@@ . * CORRECTIONEU )@@G@@ FOR RE-ENTRANT PROBLEM *[@@@[*SDFF*:@@@[=@B@@@@C[SEDO^[NCTCC(^ L[CLNC1DEV )@@G@@D- 1NCTCC-GEK)^@)_@@@@@C8@@@C/,0@MYC8@@@K/,0@MYR]0^F"/KF@@@[C@^F6C^@^F8EW )@@G@@[^@^F6C8@^F6'=@@[EC8K@$^'=@@@0CC@^F'=8@@@[/K@@M3*[S@@[*SDFF*:[@@@@@@@@[=EX )@@G@@@C@@@@C[ME(I^[JE1MDD^C*?J[8J[8J[8 98J[8J[8J@?ET#D[ C)):[@@@@@@@@[,@D@@@@EY )@@G@@C[#D9KFC?CC)ET#D[ C)%CD]ETADDGC*,D9QELDC- -OE[A^),^@):[@@@@@@@@[3@ @@@@EZ )@@G@@C[AEL C*)ET#D[ C)%CD]ETADDGC*,:]@@@@@@@@[3@;&?*@@A@@@@C[-IT$ -5^[\I12HD=FA )@@G@@G*!I[2I)* S1 C,^@):]@@@@@@@@[3[7HTK@@A@@@@C[&IL>G*)H96IL(G-> (0IL4 @:AC(FB )@@G@@ 0)^@):]@@@@@@@@[3]24 8@@ @@@@C[-IT$ --^[\I12HD=G*!I[2I),^@):]@@@@@@@@[3FC )@@G@@]81 (0IL4:]@@@@@@@@[3^%[ZC@@[@@@@C@) 0):]@@@@@@@@[3 >*F0@FE )@@G@@@M@@@@C@) 0)^[AD9GD-JE9DD1B^[GDDIC*)ET E-N^[PE@)C1DD- ^[AD9M^[PET ELDC)\FF )@@G@@E[[ETNE9^^[[D1^^[NDDOC(DC))C1JEK)ELNDC)^@):]@@@@@@@@[3A-I8S@@[@@@@C@) 0)FG )@@G@@:[@@@@@@@@[6@C@@@@C[PET ^[PDD^E[NE8, -NCTCC(^ LDD1KE(O (JE1MDD^C*,:[@@@@FH )@@G@@@@@@[8@#@@@@C[SEDO^[JE1MDD^C*):[@@@@@@@@[9@^@@@@C[+IL:I[4^[0IL(H14^))^@)FI )@@G@@:[@@@@@@@@[.@^@@@@C[NFDH -^^[KELDD1O^))^@):[@@@@@@@@]]@[@@@@C[ADDI_@@@@@FJ )@@G@@@@@@@@@@@@@@@@@K^RIP$USEAAAAAL@@@@@[ @@@@@@@@@@@@ FK )@@G@@@@@LQVAC)^@)^@)^@)^@0A8\A@1 88B@)^@0B@'A@8BK5B@@*[S@@[*SDFF*:[@@@@@@@@[=FL )@@G@@@C@@@@C[ME(I^[NCTCC-GEK?F[SF[SF[S 9SF[SF[SF@?ET#D[ C)):[@@@@@@@@[,@D@@@@FM )@@G@@C[#D9KFC?CC)ET#D[ C)%CD]ETADDGC*,ET#D[^D-M -OE[A^),^@):[@@@@@@@@[3@ @@@@FN )@@G@@C[AEL C*)ET#D[ C)%CD]ETADDGC*,:[@@@@@@@@[8@J@@@@C@) 0)D9I^[OD[ ^[GDDIC*)FO )@@G@@C1JD-GD9RDDIC8)E-CC*)F[LE))CTJD(HCDIC)?^[ D1OC(M^[OD[ ^[CC([C-DD1B:[@@@@FP )@@G@@@@@@]]@G@@@@C@) 0)D9I^[OD[ ^[KELDD1OC(^^[NCTCC(^E(GC*) [HCDS^@5A@)CTCCDMFQ )@@G@@CD#E- ELN C):[@@@@@@@@]G@^@@@@C[SEDO -[^[NCTCC-GEK)^@):[@@@@@@@@]Q@B@@@@FR )@@G@@CTMC(DC9CE-JD0)CTJD(KE(ODDIC8)CT D1OC(M^@):[@@@@@@@@]V@L@@@@C@) 0)CDGE- FS )@@G@@EK)E-CC*)C1JD-GD9RDDIC8)D-DD1 ^[OD8)ET D1^^[KELDD1OC(^^[NCTCC(^E(GC*)E-JFT )@@G@@^[NC(GC(#E- C))^@):[@@@@@@@@]W@#@@@@C@) 0)E[MDDIE- EK):[@@@@@@@@])@A@@@@FU )@@G@@C[NFDH -P^[NCTCC(^E[MDDIE), )1 -KEK):[@@@@@@@@]>@^@@@@C@) 0)ETTD*?C))E[MFV )@@G@@DDIE)=:[@@@@@@@@]%@[@@@@C[ADDI_@@@@@@@@@[9@^@@@@C[+IL:I[4^[0IL(H14^))^@)FW )@@G@@:[@@@@@@@@[.@CALQ+#ANFDH*[S@@[*SDFF*:[@@@@@@@@@[@C@@@@C[ME(I^[NCTCC-GEK?FX )@@G@@F[SF[SF[S 9SF[SF[SF@?ET#D[ C)):[@@@@@@@@[(@I@@@@C@) 0)E-CDDN^[ME(I^[RDDGFY )@@G@@D))CTMC([E- ^@*D9M^[MC(#EL CDOC*(^[OD9^CDT^9N^[NCTCC(^E(GC*,:[@@@@@@@@[,FZ )@@G@@@D@@@@C[#D9KFC?CC)ET#D[ C)%CD]ETADDGC*,ET#D[^D-M -OE[A^),^@):[@@@@@@@@[3GA )@@G@@@ @@@@C[AEL C*)ET#D[ C)%CD]ETADDGC*,:[@@@@@@@@[8@J@@@@C@) 0)D9I^[OD[ ^[GGB )@@G@@DDIC*)C1JD-GD9RDDIC8)E-CC*)F[LE))CTJD(HCDIC)?^[ D1OC(M^[OD[ ^[CC([C-DD1BGC )@@G@@:[@@@@@@@@]]@G@@@@C@) 0)D9I^[OD[ ^[KELDD1OC(^^[NCTCC(^E(GC*) [HCDS^@5A@)GD )@@G@@CTCCDMCD#E- ELN C):[@@@@@@@@]G@^@@@@C[SEDO -^^[NCTCC-GEK)^@):[@@@@@@@@]HGE )@@G@@@B@@@@CTMC(DC9CE-JD0)CTJD(KE(ODDIC8)CT D1OC(M^@):[@@@@@@@@]V@L@@@@C@) 0)GF )@@G@@CDGE- EK)E-CC*)C1JD-GD9RDDIC8)D-DD1 ^[OD8)ET D1^^[KELDD1OC(^^[NCTCC(^E(GGG )@@G@@C*)E-J^[NC(GC(#E- C))^@):[@@@@@@@@]W@#@@@@C@) 0)E[MDDIE- EK):[@@@@@@@@]XGH )@@G@@@A@@@@C[NFDH -P^[NCTCC(^E[MDDIE), )1 -KEK):[@@@@@@@@]>@^@@@@C[NFDH -^^[KGI )@@G@@ELDD1O^))^@):[@@@@@@@@]%@[@@@@C[ADDI_@@@@@_@@@@@@@@@@@@@@@@@@@@K^RIP$USEGJ )@@G@@AAAAAL@@@@@[ @@@@@@@@@@@@ @@@LQVAC)^@)^@)^@)^@0A8\GK )@@G@@A@1 88B@)^@0B@'A@8BK5B@@*[S@@[*SDFF*:[@@@@@@@@[=@D@@@@C[ME(I -[^[NE-ME- GL )@@G@@EK?F[SF[SF[S 9SF[SF[SF@?ET#D[ C))^@):[@@@@@@@@[,@^@@@@C@) 0)C(MES)ET#D[KGM )@@G@@ELO 0):[@@@@@@@@[8@D@@@@C[#D9KFC?CC)ET#D[ C)%CD]ETADDGC*,D([DDIE[MD9B -OGN )@@G@@E[A^),:[@@@@@@@@['@ @@@@C[AEL C*)ET#D[ C)%CD]ETADDGC*,:[@@@@@@@@[;@^@@@@GO )@@G@@C@) 0)ETTD*?C))E[MDDIE)=:[@@@@@@@@[.@A@@@@C@) 0)CLMDTKE))E[MDDIE)= 9NCTCGP )@@G@@E[ME)):]@@@@@@@@[.@5(I=@@[@@@@C@) 0):]@@@@@@@@[.@;&?*@@L@@@@C@) 0)C1JD-GGQ )@@G@@D9RDDIC8)D-DD1 ^[NC(OES)E(K^[ADDGC*)C1JEK)E(NC(MDD^ 9KCDNETRC))CDIC))ETDGR )@@G@@E- DD^^[AD9M^[METD:]@@@@@@@@[.]24 8@@[@@@@C@) 0):[@@@@@@@@[_@B@@@@C[PET GS )@@G@@^[PDD^E[NE8, -NCTCC(^ LDD1KE(O 0)^@):[@@@@@@@@]]@^@@@@C[SEDO^[HCDDD1KELJGT )@@G@@C8)^@):[@@@@@@@@]^@#@@@@C[KD(^ -CC(GE@)^@):[@@@@@@@@]B@^@@@@C@) 0)CLMDTKGU )@@G@@E))E[MDDIE)=:[@@@@@@@@]D@^@@@@C@) 0)ETTD*?C))E[MDDIE)=:[@@@@@@@@]G@[@@@@GV )@@G@@C[ADDI_@@@@@ -P^[NCTCC(^E[MDDIE), )1 -KEK):[@@@@@@@@]>@^@@@@CCALQ+#A^^[KGW )@@G@@@ @@@@C[-IT$ --^[\I12HD=G*!I[2I),^@):]@@@@@@@@[3]81 (0IL4GY )@@G@@:]@@@@@@@@[3^%[ZC@@[@@@@C@) 0):]@@@@@@@@[3 >*F0@@M@@@@C@) 0)^[AD9GD-JE9DGZ )@@G@@D1B^[GDDIC*)ET E-N^[PE@)C1DD- ^[AD9M^[PET ELDC)\E[[ETNE9^^[[D1^^[NDDOC(DHA )@@G@@C))C1JEK)ELNDC)^@):]@@@@@@@@[3A-I8S@@[@@@@C@) 0):[@@@@@@@@[6@C@@@@C[PET HB )@@G@@^[PDD^E[NE8, -NCTCC(^ LDD1KE(O (JE1MDD^C*,:[@@@@@@@@[8@#@@@@C[SEDO^[JE1MHC )@@G@@DD^C*):[@@@@@@@@[9@^@@@@C[+IL:I[4^[0IL(H14^))^@):[@@@@@@@@[.@^@@@@C[NFDHHD )@@G@@ -^^[KELDD1O^))^@):[@@@@@@@@]]@[@@@@C[ADDI_@@@@@@@@@@@@@@@@@@@@K^RIP$USEHE )@@G@@AAAAAF@@@@@[ @@@@@@@@@@@@ @@@LQVAC)^@)^@)^@)^@0A8\HF )@@G@@A@1 88B@)^@0B@'A@8BK5B@@*[S@@[*SDFF*:[@@@@@@@@[=@C@@@@C[ME(I^[JE1MDD^C*?HG )@@G@@J[8J[8J[8 98J[8J[8J@?ET#D[ C)):[@@@@@@@@[,@D@@@@C[#D9KFC?CC)ET#D[ C)%CD]HH )@@G@@ETADDGC*,D9QELDC- -OE[A^),^@):[@@@@@@@@[3@ @@@@C[AEL C*)ET#D[ C)%CD]ETAHI )@@G@@DDGC*,:]@@@@@@@@[3@;&?*@@A@@@@C[-IT$ -5^[\I12HD=G*!I[2I)* S1 C,^@):]@@@@HJ )@@G@@@@@@[3[7HTK@@A@@@@C[&IL>G*)H96IL(G-> (0IL4 @:AC( 0)^@):]@@@@@@@@[3]24 8@HK )@@G@@@ @@@@C[-IT$ --^[\I12HD=G*!I[2I),^@):]@@@@@@@@[3]81 (0IL4HM )@@G@@:]@@@@@@@@[3^%[ZC@@[@@@@C@) 0):]@@@@@@@@[3 >*F0@@M@@@@C@) 0)^[AD9GD-JE9DHN )@@G@@D1B^[GDDIC*)ET E-N^[PE@)C1DD- ^[AD9M^[PET ELDC)\E[[ETNE9^^[[D1^^[NDDOC(DHO )@@G@@C))C1JEK)ELNDC)^@):]@@@@@@@@[3A-I8S@@[@@@@C@) 0):[@@@@@@@@[6@C@@@@C[PET HP )@@G@@^[PDD^E[NE8, -NCTCC(^ LDD1KE(O (JE1MDD^C*,:[@@@@@@@@[8@#@@@@C[SEDO^[JE1MHQ )@@G@@DD^C*):[@@@@@@@@[9@^@@@@C[+IL:I[4^[0IL(H14^))^@):[@@@@@@@@[.@^@@@@C[NFDHHR )@@G@@ -^^[KELDD1O^))^@):[@@@@@@@@]]@[@@@@C[ADDI_@@@@@@@@@@@@@@@@@@@@K^RIP$USEHS )@@G@@AAAAAL@@@@@[ @@@@@@@@@@@@ @@@LQVAC)^@)^@)^@)^@0A8\HT )@@G@@A@1 88B@)^@0B@'A@8BK5B@@*[S@@[*SDFF*:[@@@@@@@@[=@C@@@@C[ME(I^[NCTCC-GEK?HU )@@G@@F[SF[SF[S 9SF[SF[SF@?ET#D[ C)):[@@@@@@@@[,@D@@@@C[#D9KFC?CC)ET#D[ C)%CD]HV )@@G@@ETADDGC*,ET#D[^D-M -OE[A^),^@):[@@@@@@@@[3@ @@@@C[AEL C*)ET#D[ C)%CD]ETAHW )@@G@@DDGC*,:[@@@@@@@@[8@J@@@@C@) 0)D9I^[OD[ ^[GDDIC*)C1JD-GD9RDDIC8)E-CC*)F[LHX )@@G@@E))CTJD(HCDIC)?^[ D1OC(M^[OD[ ^[CC([C-DD1B:[@@@@@@@@]]@G@@@@C@) 0)D9I^[OHY )@@G@@D[ ^[KELDD1OC(^^[NCTCC(^E(GC*) [HCDS^@5A@)CTCCDMCD#E- ELN C):[@@@@@@@@]GHZ )@@G@@@^@@@@C[SEDO -[^[NCTCC-GEK)^@):[@@@@@@@@]Q@B@@@@CTMC(DC9CE-JD0)CTJD(KE(OIA )@@G@@DDIC8)CT D1OC(M^@):[@@@@@@@@]V@L@@@@C@) 0)CDGE- EK)E-CC*)C1JD-GD9RDDIC8)IB )@@G@@D-DD1 ^[OD8)ET D1^^[KELDD1OC(^^[NCTCC(^E(GC*)E-J^[NC(GC(#E- C))^@):[@@@@IC )@@G@@@@@@]W@#@@@@C@) 0)E[MDDIE- EK):[@@@@@@@@])@A@@@@C[NFDH -P^[NCTCC(^E[MDDIID )@@G@@E), )1 -KEK):[@@@@@@@@]>@^@@@@C@) 0)ETTD*?C))E[MDDIE)=:[@@@@@@@@]%@[@@@@IE )@@G@@C[ADDI_@@@@@@@@@[9@^@@@@C[+IL:I[4^[0IL(H14^))^@):[@@@@@@@@[.@CALQ+#ANFDHIF )@@G@@*[S@@[*SDFF*:[@@@@@@@@[=@C@@@@C[ME(I^[NCTCC-GEK?F[SF[SF[S 9SF[SF[SF@?ET#IG )@@G@@D[ C)):[@@@@@@@@[,@D@@@@C[#D9KFC?CC)ET#D[ C)%CD]ETADDGC*,ET#D[^D-M -OE[AIH )@@G@@^),^@):[@@@@@@@@[3@ @@@@C[AEL C*)ET#D[ C)%CD]ETADDGC*,:[@@@@@@@@[8@J@@@@II )@@G@@C@) 0)D9I^[OD[ ^[GDDIC*)C1JD-GD9RDDIC8)E-CC*)F[LE))CTJD(HCDIC)?^[ D1OC(MIJ )@@G@@^[OD[ ^[CC([C-DD1B:[@@@@@@@@]]@G@@@@C@) 0)D9I^[OD[ ^[KELDD1OC(^^[NCTCC(^IK )@@G@@E(GC*) [HCDS^@5A@)CTCCDMCD#E- ELN C):[@@@@@@@@]G@^@@@@C[SEDO -[^[NCTCC-GIL )@@G@@EK)^@):[@@@@@@@@]Q@B@@@@CTMC(DC9CE-JD0)CTJD(KE(ODDIC8)CT D1OC(M^@):[@@@@IM )@@G@@@@@@]V@L@@@@C@) 0)CDGE- EK)E-CC*)C1JD-GD9RDDIC8)D-DD1 ^[OD8)ET D1^^[KELDIN )@@G@@D1OC(^^[NCTCC(^E(GC*)E-J^[NC(GC(#E- C))^@):[@@@@@@@@]W@#@@@@C@) 0)E[MDDIIO )@@G@@E- EK):[@@@@@@@@])@A@@@@C[NFDH -P^[NCTCC(^E[MDDIE), )1 -KEK):[@@@@@@@@]>IP )@@G@@@^@@@@C@) 0)ETTD*?C))E[MDDIE)=:[@@@@@@@@]%@[@@@@C[ADDI_@@@@@@@@@[9@^@@@@IQ )@@G@@C[+IL:I[4^[0IL(H14^))^@):[@@@@@@@@[.@CALQ+#ANFDH*[S@@[*SDFF*:[@@@@@@@@@[IR )@@G@@@C@@@@C[ME(I^[NCTCC-GEK?F[SF[SF[S 9SF[SF[SF@?ET#D[ C)):[@@@@@@@@[(@I@@@@IS )@@G@@C@) 0)E-CDDN^[ME(I^[RDDGD))CTMC([E- ^@*D9M^[MC(#EL CDOC*(^[OD9^CDT^9N^[NIT )@@G@@CTCC(^E(GC*,:[@@@@@@@@[,@D@@@@C[#D9KFC?CC)ET#D[ C)%CD]ETADDGC*,ET#D[^D-MIU )@@G@@ -OE[A^),^@):[@@@@@@@@[3@ @@@@C[AEL C*)ET#D[ C)%CD]ETADDGC*,:[@@@@@@@@[8IV )@@G@@@J@@@@C@) 0)D9I^[OD[ ^[GDDIC*)C1JD-GD9RDDIC8)E-CC*)F[LE))CTJD(HCDIC)?^[ IW )@@G@@D1OC(M^[OD[ ^[CC([C-DD1B:[@@@@@@@@]]@G@@@@C@) 0)D9I^[OD[ ^[KELDD1OC(^^[NIX )@@G@@CTCC(^E(GC*) [HCDS^@5A@)CTCCDMCD#E- ELN C):[@@@@@@@@]G@^@@@@C[SEDO -^^[NIY )@@G@@CTCC-GEK)^@):[@@@@@@@@]H@B@@@@CTMC(DC9CE-JD0)CTJD(KE(ODDIC8)CT D1OC(M^@)IZ )@@G@@:[@@@@@@@@]V@L@@@@C@) 0)CDGE- EK)E-CC*)C1JD-GD9RDDIC8)D-DD1 ^[OD8)ET D1^JA )@@G@@^[KELDD1OC(^^[NCTCC(^E(GC*)E-J^[NC(GC(#E- C))^@):[@@@@@@@@]W@#@@@@C@) 0)JB )@@G@@E[MDDIE- EK):[@@@@@@@@]X@A@@@@C[NFDH -P^[NCTCC(^E[MDDIE), )1 -KEK):[@@@@JC )@@G@@@@@@]>@^@@@@C[NFDH -^^[KELDD1O^))^@):[@@@@@@@@]%@[@@@@C[ADDI_@@@@@_@@@@@JD )@@G@@@@@@@@@@@@@@@@@K^RIP$USEAAAAAL@@@@@[ @@@@@@@@@@@@ JE )@@G@@@@@LQVAC)^@)^@)^@)^@0A8\A@1 88B@)^@0B@'A@8BK5B@@*[S@@[*SDFF*:[@@@@@@@@[=JF )@@G@@@D@@@@C[ME(I -[^[NE-ME- EK?F[SF[SF[S 9SF[SF[SF@?ET#D[ C))^@):[@@@@@@@@[,JG )@@G@@@^@@@@C@) 0)C(MES)ET#D[KELO 0):[@@@@@@@@[8@D@@@@C[#D9KFC?CC)ET#D[ C)%CD]JH )@@G@@ETADDGC*,D([DDIE[MD9B -OE[A^),:[@@@@@@@@['@ @@@@C[AEL C*)ET#D[ C)%CD]ETAJI )@@G@@DDGC*,:[@@@@@@@@[;@^@@@@C@) 0)ETTD*?C))E[MDDIE)=:[@@@@@@@@[.@A@@@@C@) 0)JJ )@@G@@CLMDTKE))E[MDDIE)= 9NCTCE[ME)):[@@@@@@@@[_@B@@@@C[PET ^[PDD^E[NE8, -NCTCJK )@@G@@C(^ LDD1KE(O 0)^@):[@@@@@@@@]]@^@@@@C[SEDO^[HCDDD1KELJC8)^@):[@@@@@@@@]^JL )@@G@@@#@@@@C[KD(^ -CC(GE@)^@):[@@@@@@@@]B@^@@@@C@) 0)CLMDTKE))E[MDDIE)=:[@@@@JM )@@G@@@@@@]D@^@@@@C@) 0)ETTD*?C))E[MDDIE)=:[@@@@@@@@]G@[@@@@C[ADDI_@@@@@C(M^@)JN )@@G@@:[@@@@@@@@]V@L@@@@C@) 0)CDGE- EK)E-CC*)C1JD-GD9RDDIC8)D-DD1 ^[OD8)ET D1^JO )@@G@@*[S@@[*SDFF*:[@@@@@@@@[=@D@@@@C[ME(I -[^[NE-ME- EK?F[SF[SF[S 9SF[SF[SF@?JP )@@G@@ET#D[ C))^@):[@@@@@@@@[,@^@@@@C@) 0)C(MES)ET#D[KELO 0):[@@@@@@@@[8@D@@@@JQ )@@G@@C[#D9KFC?CC)ET#D[ C)%CD]ETADDGC*,D([DDIE[MD9B -OE[A^),:[@@@@@@@@['@ @@@@JR )@@G@@C[AEL C*)ET#D[ C)%CD]ETADDGC*,:[@@@@@@@@[;@^@@@@C@) 0)ETTD*?C))E[MDDIE)=JS )@@G@@:[@@@@@@@@[.@A@@@@C@) 0)CLMDTKE))E[MDDIE)= 9NCTCE[ME)):]@@@@@@@@[.@5(I=@JT )@@G@@@[@@@@C@) 0):]@@@@@@@@[.@;&?*@@L@@@@C@) 0)C1JD-GD9RDDIC8)D-DD1 ^[NC(OES)JU )@@G@@E(K^[ADDGC*)C1JEK)E(NC(MDD^ 9KCDNETRC))CDIC))ETDE- DD^^[AD9M^[METD:]@@@@JV )@@G@@@@@@[.]24 8@@[@@@@C@) 0):[@@@@@@@@[_@B@@@@C[PET ^[PDD^E[NE8, -NCTCC(^ LDJW )@@G@@D1KE(O 0)^@):[@@@@@@@@]]@^@@@@C[SEDO^[HCDDD1KELJC8)^@):[@@@@@@@@]^@#@@@@JX )@@G@@C[KD(^ -CC(GE@)^@):[@@@@@@@@]B@^@@@@C@) 0)CLMDTKE))E[MDDIE)=:[@@@@@@@@]DJY )@@G@@@^@@@@C@) 0)ETTD*?C))E[MDDIE)=:[@@@@@@@@]G@[@@@@C[ADDI_@@@@@ -P^[NCTCC(^JZ )@@G@@E[MDDIE), )1 -KEK):[@@@@@@@@]>@^@@@@CCALQ+#A^^[K'))@C '))@C#')@@CA'<@@C#KA )@@G@@'+K@C#'+@@CA'<@@CA@@@@@@@@@@@[@@@@@]@@@@@ @@@@@D@@@@@K@@@@@L@@@@@0@@@@[[KB )@@G@@@@@@[]@@@@[^@@@@[ @@@@[CFILE: TYPE: SDF-SEQUENTIAL @#@@@@KC )@@G@@@E@@@@^@)^@)@@[@,S@[B@@@@@[@@@ ^^@^0C8^@^?/,@@'& 4[@@A @@@@HC4A@@@/,K@_@KD )@@G@@/K@@\(/,@@'J 4[@@A/,K@"9/K@@,/ ^^@^0C8^@^?/,@@'&^7-@@A @@@@HC4A@@@/,K@_@KE )@@G@@/K@@\(/,@@'J^7-@@A/,K@"9 ?[@@D!@)@@JC@0@@IG80@@[?[@@@J^\-@@D @@@@HC4 @@@KF )@@G@@:4A@@@/K@@\(H4A@@@/C@@\TC8K@@[E/G@@[[?[@@AC4A@@@CS>@@@G?-@@A?8)@@O/K@@\(KG )@@G@@H8)@@NC?[@@AH@@@@I[?[@@A[=-@@DC8K@@#C4A@@@H=[@@D/K@@\(C8K@@]H8@@@[[?[@@AKH )@@G@@C4 @@@CS&@@@G?-@@A?8)@@O/K@@\(H8)@@NC?[@@AH@@@@I[?[@@A[=-@@DC8K@@^C4 @@@KI )@@G@@H=[@@D[?[@@B[0L@@AC4B@@@[*[@@DC8@@\'*0[@@A/K@@\8CSP@@@?SQ@@@CSQ@@@!8K@@EKJ )@@G@@/K@@\8C8@@03*4[@@AC8@@0.[^[@@@/KG@@@C%1@@D/,@@;!C0[@@A/KG@\"/K@@0:/K@@0&KK )@@G@@/K@@0)/K@@0M9?>@@@C=[@@D @@@@M/C)@0C^#)@@M94)@@I/,K@"O*@@@@M90)@@I9*)@@MKL )@@G@@9?&@@@C?[@@A/,K@"&9!@@@I9?)@@M/K@@0!9?&@@@C=[@@D @@@@M/C)@0S^#)@@M94)@@IKM )@@G@@/,K@"O*@@@@M90)@@I9!@@@I9?>@@@C?[@@A/,K@"&/K@@0!9?&@@@C?[@@A/,K@"&9!@@@IKN )@@C@@9?>@@@/K@@0!9?>@@@9!A@@@C?[@@A/,K@"&/K@@0!9?>@@@ KO @EOF @COPY,IO TEMP.1076-004-004,1076-004-004. @FREE TEMP.