|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 96768 (0x17a00)
Types: Rc489kSubCat
Names: »rydiv«
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
└─⟦4334b4c0b⟧
└─⟦this⟧ »rydiv«
0x00000…00033 (0,) Rc489kSubCatEnt {f00=0x00328a, f01=0x000078, f02=0x000081, filename=»rydwtxt «, entry_tail=0-4-0-2-1981-01-29T13:53-disc2-0x0-0x0-0x0-0x0}
0x00033…00066 Rc489kSubCatEnt {f00=0x0052fa, f01=0x000078, f02=0x000081, filename=»b1sfval «, entry_tail=0-4-0-1-1980-08-29T14:05-disc2-0x0-0x0-0x0-0x0}
0x00066…00099 Rc489kSubCatEnt {f00=0x00670a, f01=0x000078, f02=0x000081, filename=»al1dfval «, entry_tail=0-4-0-1-1980-08-29T13:52-disc2-0x0-0x0-0x0-0x0}
0x00099…000cc Rc489kSubCatEnt {f00=0x007102, f01=0x000078, f02=0x000081, filename=»tfcalc «, entry_tail=0-4-0-2-1980-08-29T13:16-disc2-0x0-0x0-0x0-0x0}
0x000cc…000ff Rc489kSubCatEnt {f00=0x009003, f01=0x000078, f02=0x000081, filename=»ryomtxt «, entry_tail=0-4-0-1-1980-05-07T14:43--0x0-0x0-0x0-0x0}
0x000ff…00132 Rc489kSubCatEnt {f00=0x00a003, f01=0x000078, f02=0x000081, filename=»seqtxt «, entry_tail=0-4-0-4-1980-05-07T14:43--0x9011-0x0-0x0-0x0}
0x00132…00165 Rc489kSubCatEnt {f00=0x00e003, f01=0x000078, f02=0x000081, filename=»tlsjj «, entry_tail=0-4-0-2-1980-05-07T14:43--0xe000-0x0-0x0-0x0}
0x00165…00198 Rc489kSubCatEnt {f00=0x010003, f01=0x000078, f02=0x000081, filename=»u6dat «, entry_tail=0-4-0-1-1980-05-07T14:43--0x0-0x0-0x0-0x0}
0x00198…001cb Rc489kSubCatEnt {f00=0x011003, f01=0x000078, f02=0x000081, filename=»zndec «, entry_tail=0-4-0-1-1980-05-07T14:43--0xd016-0x0-0x0-0x0}
0x001cb…001fe Rc489kSubCatEnt {f00=0x012003, f01=0x000078, f02=0x000081, filename=»readsttxt «, entry_tail=0-4-0-5-1980-05-07T14:43--0xe011-0x0-0x0-0x0}
0x001fe…00231 Rc489kSubCatEnt {f00=0x017003, f01=0x000078, f02=0x000081, filename=»bandtxt «, entry_tail=0-4-0-4-1980-05-07T14:43--0x0-0x0-0x0-0x0}
0x00231…00264 Rc489kSubCatEnt {f00=0x01b003, f01=0x000078, f02=0x000081, filename=»decjob «, entry_tail=0-4-0-1-1980-05-07T14:43--0xd02a-0x0-0x0-0x0}
0x00264…00297 Rc489kSubCatEnt {f00=0x01c003, f01=0x000078, f02=0x000081, filename=»gentesttxt «, entry_tail=0-4-0-2-1980-05-07T14:43--0xa037-0x0-0x0-0x0}
0x00297…002ca Rc489kSubCatEnt {f00=0x01e003, f01=0x000078, f02=0x000081, filename=»kr8dec «, entry_tail=0-4-0-1-1980-05-07T14:43--0xe03a-0x0-0x0-0x0}
0x002ca…002fd Rc489kSubCatEnt {f00=0x01f003, f01=0x000078, f02=0x000081, filename=»n1seqdat «, entry_tail=0-4-0-1-1980-05-07T14:43--0x0-0x0-0x0-0x0}
0x002fd…00300 0x00001e
0x00300…00333 Rc489kSubCatEnt {f00=0x020003, f01=0x000078, f02=0x000081, filename=»na1life «, entry_tail=0-4-0-3-1980-05-07T14:43--0x0-0x0-0x0-0x0}
0x00333…00366 Rc489kSubCatEnt {f00=0x023003, f01=0x000078, f02=0x000081, filename=»na1lifek «, entry_tail=0-4-0-3-1980-05-07T14:43--0x0-0x0-0x0-0x0}
0x00366…00399 Rc489kSubCatEnt {f00=0x026003, f01=0x000078, f02=0x000081, filename=»nsfitsys «, entry_tail=0-4-0-3-1980-05-07T14:43--0x0-0x0-0x0-0x0}
0x00399…003cc Rc489kSubCatEnt {f00=0x029003, f01=0x000078, f02=0x000081, filename=»nsform1txt «, entry_tail=0-4-0-6-1980-05-07T14:43--0x0-0x0-0x0-0x0}
0x003cc…003ff Rc489kSubCatEnt {f00=0x02f003, f01=0x000078, f02=0x000081, filename=»nsjob1 «, entry_tail=0-4-0-2-1980-05-07T14:43--0x0-0x0-0x0-0x0}
0x003ff…00432 Rc489kSubCatEnt {f00=0x031003, f01=0x000078, f02=0x000081, filename=»ryddiabtxt «, entry_tail=0-4-0-1-1980-05-07T14:43--0x900f-0x0-0x0-0x0}
0x00432…00465 Rc489kSubCatEnt {f00=0x032003, f01=0x000078, f02=0x000081, filename=»bx1seqdat «, entry_tail=0-4-0-1-1980-05-07T14:42--0xd008-0x0-0x0-0x0}
0x00465…00498 Rc489kSubCatEnt {f00=0x033003, f01=0x000078, f02=0x000081, filename=»by1seqdat «, entry_tail=0-4-0-2-1980-05-07T14:42--0x900a-0x0-0x0-0x0}
0x00498…004cb Rc489kSubCatEnt {f00=0x035003, f01=0x000078, f02=0x000081, filename=»alaseqdat «, entry_tail=0-4-0-1-1980-05-07T14:43--0x902d-0x0-0x0-0x0}
0x004cb…004fe Rc489kSubCatEnt {f00=0x036003, f01=0x000078, f02=0x000081, filename=»albseqdat «, entry_tail=0-4-0-1-1980-05-07T14:43--0x9029-0x0-0x0-0x0}
0x004fe…00531 Rc489kSubCatEnt {f00=0x037003, f01=0x000078, f02=0x000081, filename=»hygentxt «, entry_tail=0-4-0-8-1980-05-07T14:43--0xe030-0x0-0x0-0x0}
0x00531…00564 Rc489kSubCatEnt {f00=0x03f003, f01=0x000078, f02=0x000081, filename=»exactosctxt «, entry_tail=0-4-0-7-1980-05-07T14:43--0xf037-0x0-0x0-0x0}
0x00564…00597 Rc489kSubCatEnt {f00=0x046003, f01=0x000078, f02=0x000081, filename=»genbdtxt «, entry_tail=0-4-0-2-1980-05-07T14:43--0xb00d-0x0-0x0-0x0}
0x00597…005ca Rc489kSubCatEnt {f00=0x048003, f01=0x000078, f02=0x000081, filename=»grottxt «, entry_tail=0-4-0-2-1980-05-07T14:43--0x0-0x0-0x0-0x0}
0x005ca…005fd Rc489kSubCatEnt {f00=0x04a003, f01=0x000078, f02=0x000081, filename=»rydritztxt «, entry_tail=0-4-0-5-1980-05-07T14:43--0x0-0x0-0x0-0x0}
0x005fd…00600 00 00 00 ┆ ┆
0x00600…00620 02 00 1c 80 10 00 02 00 00 00 e1 eb 80 60 00 00 41 b7 01 20 5f 02 30 00 01 10 00 05 30 00 00 51 ┆ ` A _ 0 0 Q┆
0x00620…00640 3f 01 30 e3 02 e0 00 02 50 00 02 90 00 80 01 8e 80 00 3d 00 c0 58 00 00 00 00 60 17 01 41 ec 00 ┆? 0 P = X ` A ┆
0x00640…00660 00 0a 00 81 b8 64 00 00 00 00 00 72 65 6d 6f 76 65 70 65 20 69 73 20 0a 20 6d 74 74 61 00 81 9a ┆ d removepe is mtta ┆
0x00660…00680 00 01 40 00 00 18 00 80 e4 00 8f ff 51 2e 89 51 cf d2 91 00 02 1d 2e 41 a1 6f 7c a1 00 03 37 cf ┆ @ Q. Q .A oø 7 ┆
0x00680…006a0 be 1d 2f 78 34 cf c2 53 cf b2 52 2f fc 34 31 99 2d 00 04 1d 2e b9 a1 6f 7c a1 00 03 37 cf aa 1d ┆ /x4 S R/ 41 - . oø 7 ┆
0x006a0…006c0 2f 78 d9 10 00 dd 2e 41 2d 00 01 91 00 02 a1 6e 57 a1 6e 59 37 cf a0 1d 2e 4f d9 10 00 2f 2e 41 ┆/x .A- nW nY7 .O /.A┆
0x006c0…006e0 18 3f fe 19 30 00 14 00 02 a8 00 00 24 00 01 2d 0f ff 5d 2e 41 2d 00 08 1d 2e b9 a1 6f 7c a1 00 ┆ ? 0 $ - Å.A- . oø ┆
0x006e0…00700 03 37 cf 7c 1d 2f 78 d9 10 00 dd 2e 3f 2d 00 02 91 00 02 a1 6e 57 a1 6e 59 37 cf 72 1d 2e 4f d9 ┆ 7 ø /x .?- nW nY7 r .O ┆
0x00700…00720 10 00 2f 2e 3f 18 3f fe 19 30 00 14 00 02 a8 00 00 24 00 01 2d 0f ff 11 2e 41 b1 00 01 34 80 08 ┆ /.? ? 0 $ - .A 4 ┆
0x00720…00740 4d 8f 87 69 2f 89 34 80 20 2d 0f f2 37 cf 3c 5e 10 00 50 8f 79 53 8f 32 dc 10 05 2c 2f 78 53 8f ┆M i/ 4 - 7 <^ P yS 2 ,/xS ┆
0x00740…00760 53 dc 10 09 2c 2e 9d 2f 00 1a dc 10 0d 53 cf 38 52 2f fc 34 30 00 53 6e 43 34 2e 45 51 2e 8d 21 ┆S ,. / S 8R/ 40 SnC4.EQ. !┆
0x00760…00780 2e 89 a1 0f ff 24 00 01 2d 0f ff 5d 2e 47 51 2e 95 a1 6f 7c a1 00 01 37 cf 18 1d 2f 78 51 10 00 ┆. $ - Å.GQ. oø 7 /xQ ┆
0x00780…007a0 ad 0f ff 24 00 01 2d 0f ff 11 2e 47 b1 00 01 34 80 92 51 2e 89 2d 1f ff 08 00 02 08 00 00 61 8f ┆ $ - .G 4 Q. - a ┆
0x007a0…007c0 2f 51 00 00 5d 2e 7f 2d 00 01 99 6e 7f 5d 2e 81 51 2e 89 2d 1f ff 08 00 02 08 00 00 61 8f 1b 1d ┆/Q Å. - n Å. Q. - a ┆
0x007c0…007e0 2e a7 5d 2e a1 2d 0f fa 37 ce d4 5e 10 00 50 8f 0d 53 8e ca dc 10 05 53 ce da 2e 20 00 34 30 00 ┆. Å. - 7 ^ P S S . 40 ┆
0x007e0…00800 51 2e 95 a1 6f 7c a1 00 01 37 ce cc 1d 2f 78 5d 2e 47 2d 0f ff 5d 6e 47 51 2e 99 a1 6f 7c a1 00 ┆Q. oø 7 /xÅ.G- ÅnGQ. oø ┆
0x00800…00820 01 37 ce bc 1d 2f 78 5d 2e 47 2d 0f ff 5d 6e 47 51 2e 9b a1 6f 7c a1 00 01 37 ce ac 1d 2f 78 5d ┆ 7 /xÅ.G- ÅnGQ. oø 7 /xÅ┆
0x00820…00840 2e 47 2d 0f ff 5d 6e 47 2d 0f f2 37 ce 92 5e 10 00 50 8e c9 53 8e 88 dc 10 05 2c ce 94 53 8e a9 ┆.G- ÅnG- 7 ^ P S , S ┆
0x00840…00860 dc 10 09 50 8e 9d 2f 20 00 9b 00 04 2f 30 08 dc 10 0d 34 80 08 2d 0f ff 50 8e 91 34 ce 7c 53 ce ┆ P / /0 4 - P 4 øS ┆
0x00860…00880 78 52 2f fc 34 30 00 34 80 1e 2d 0f f2 37 ce 66 5e 10 00 50 8e 8b 53 8e 5c dc 10 05 d8 8e 83 dc ┆xR/ 40 4 - 7 f^ P S Ø ┆
0x00880…008a0 10 0d 2c 10 0d 2f 00 1a dc 10 09 53 ce 58 2e 20 00 34 30 00 53 ce 50 4d 2f 8d b1 00 01 34 31 9e ┆ , / S X. 40 S PM/ 41 ┆
0x008a0…008c0 2d 0f e6 37 ce 42 5e 10 00 50 8e 63 53 8e 38 dc 10 05 2c 2f 78 53 8e 59 dc 10 09 d8 8e 53 dc 10 ┆- 7 B^ P cS 8 ,/xS Y S ┆
0x008c0…008e0 15 2c 10 15 2f 00 1a dc 10 0d d8 8e 49 dc 10 19 2c 10 19 2f 00 1a dc 10 11 53 ce 20 52 2f fc 34 ┆ , / I , / S R/ 4┆
0x008e0…00900 30 00 2d 0f ee 37 ce 16 53 ce 12 5e 10 00 50 8e 2f 34 30 3e 00 70 00 00 80 41 10 86 21 04 42 0a ┆0 - 7 S ^ P /40> p A ! B ┆
0x00900…00f00 (1,) Data for rydwtxt
0x00f00…01200 Data for b1sfval
0x01200…01500 (2,) Data for al1dfval
0x01500…01b00 Data for tfcalc
0x01b00…01e00 (3,) Data for ryomtxt
0x01e00…02a00 Data for seqtxt
0x02a00…03000 Data for tlsjj
0x03000…03300 Data for u6dat
0x03300…03600 Data for zndec
0x03600…04500 (6,) Data for readsttxt
0x04500…05100 Data for bandtxt
0x05100…05400 (9,) Data for decjob
0x05400…05a00 Data for gentesttxt
0x05a00…05d00 (10,) Data for kr8dec
0x05d00…06000 Data for n1seqdat
0x06000…06900 Data for na1life
0x06900…07200 Data for na1lifek
0x07200…07b00 Data for nsfitsys
0x07b00…08d00 Data for nsform1txt
0x08d00…09300 Data for nsjob1
0x09300…09600 Data for ryddiabtxt
0x09600…09900 Data for bx1seqdat
0x09900…09f00 (17,) Data for by1seqdat
0x09f00…0a200 Data for alaseqdat
0x0a200…0a500 (18,) Data for albseqdat
0x0a500…0bd00 Data for hygentxt
0x0bd00…0d200 (21,) Data for exactosctxt
0x0d200…0d800 Data for genbdtxt
0x0d800…0de00 (24,) Data for grottxt
0x0de00…0ed00 Data for rydritztxt
0x0ed00…0ed20 20 38 39 0a 20 36 36 38 20 31 33 36 20 34 36 20 35 32 20 32 39 20 38 35 20 38 39 0a 20 36 36 39 ┆ 89 668 136 46 52 29 85 89 669┆
0x0ed20…0ed40 20 31 35 33 20 33 35 20 33 34 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 36 37 30 20 38 35 20 38 ┆ 153 35 34 25 29 85 89 670 85 8┆
0x0ed40…0ed60 39 0a 20 36 37 31 20 38 36 20 31 30 30 20 31 0a 20 36 37 32 20 38 39 0a 20 36 37 33 20 39 34 20 ┆9 671 86 100 1 672 89 673 94 ┆
0x0ed60…0ed80 39 37 20 31 33 30 20 31 30 20 31 0a 20 36 37 34 20 31 30 31 20 32 20 34 0a 20 36 37 35 20 31 31 ┆97 130 10 1 674 101 2 4 675 11┆
0x0ed80…0eda0 30 20 32 20 34 0a 20 36 37 36 20 31 32 31 20 36 20 33 36 20 34 35 20 34 31 20 31 37 20 35 30 20 ┆0 2 4 676 121 6 36 45 41 17 50 ┆
0x0eda0…0edc0 32 35 20 32 39 20 38 35 20 38 39 0a 20 36 37 37 20 31 33 34 20 32 36 20 34 30 20 31 36 0a 20 36 ┆25 29 85 89 677 134 26 40 16 6┆
0x0edc0…0ede0 37 38 20 31 34 39 20 39 38 20 31 34 35 0a 20 36 37 39 20 31 36 36 20 37 33 20 35 38 0a 20 36 38 ┆78 149 98 145 679 166 73 58 68┆
0x0ede0…0ee00 30 20 31 30 30 20 31 0a 20 36 38 31 20 31 30 31 20 32 20 34 0a 20 36 38 32 20 31 30 34 20 31 37 ┆0 100 1 681 101 2 4 682 104 17┆
0x0ee00…0ee20 20 35 30 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 36 38 33 20 31 30 39 20 38 32 20 36 38 20 31 ┆ 50 25 29 85 89 683 109 82 68 1┆
0x0ee20…0ee40 30 30 20 31 0a 20 36 38 34 20 31 31 36 20 33 38 20 37 33 20 35 38 0a 20 36 38 35 20 31 32 35 20 ┆00 1 684 116 38 73 58 685 125 ┆
0x0ee40…0ee60 33 30 20 39 20 38 31 20 36 35 20 36 31 20 33 37 0a 20 36 38 36 20 31 33 36 20 34 36 20 35 32 20 ┆30 9 81 65 61 37 686 136 46 52 ┆
0x0ee60…0ee80 32 39 20 38 35 20 38 39 0a 20 36 38 37 20 31 34 39 20 39 38 20 31 34 35 0a 20 36 38 38 20 31 36 ┆29 85 89 687 149 98 145 688 16┆
0x0ee80…0eea0 34 20 35 33 20 33 34 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 36 38 39 20 31 38 31 20 36 36 20 ┆4 53 34 25 29 85 89 689 181 66 ┆
0x0eea0…0eec0 37 32 20 35 33 20 33 34 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 36 39 30 20 31 31 37 20 35 31 ┆72 53 34 25 29 85 89 690 117 51┆
0x0eec0…0eee0 20 32 36 20 34 30 20 31 36 0a 20 36 39 31 20 31 31 38 20 36 36 20 37 32 20 35 33 20 33 34 20 32 ┆ 26 40 16 691 118 66 72 53 34 2┆
0x0eee0…0ef00 35 20 32 39 20 38 35 20 38 39 0a 20 36 39 32 20 31 32 31 20 36 20 33 36 20 34 35 20 34 31 20 31 ┆5 29 85 89 692 121 6 36 45 41 1┆
0x0ef00…0ef20 37 20 35 30 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 36 39 33 20 31 32 36 20 34 31 20 31 37 20 ┆7 50 25 29 85 89 693 126 41 17 ┆
0x0ef20…0ef40 35 30 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 36 39 34 20 31 33 33 20 31 39 20 38 32 20 36 38 ┆50 25 29 85 89 694 133 19 82 68┆
0x0ef40…0ef60 20 31 30 30 20 31 0a 20 36 39 35 20 31 34 32 20 32 31 20 35 20 32 35 20 32 39 20 38 35 20 38 39 ┆ 100 1 695 142 21 5 25 29 85 89┆
0x0ef60…0ef80 0a 20 36 39 36 20 31 35 33 20 33 35 20 33 34 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 36 39 37 ┆ 696 153 35 34 25 29 85 89 697┆
0x0ef80…0efa0 20 31 36 36 20 37 33 20 35 38 0a 20 36 39 38 20 31 38 31 20 36 36 20 37 32 20 35 33 20 33 34 20 ┆ 166 73 58 698 181 66 72 53 34 ┆
0x0efa0…0efc0 32 35 20 32 39 20 38 35 20 38 39 0a 20 36 39 39 20 31 39 38 20 31 34 36 20 35 33 20 33 34 20 32 ┆25 29 85 89 699 198 146 53 34 2┆
0x0efc0…0efe0 35 20 32 39 20 38 35 20 38 39 0a 20 37 30 30 20 34 39 20 39 37 20 31 33 30 20 31 30 20 31 0a 20 ┆5 29 85 89 700 49 97 130 10 1 ┆
0x0efe0…0f000 37 30 31 20 35 30 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 37 30 32 20 35 33 20 33 34 20 32 35 ┆701 50 25 29 85 89 702 53 34 25┆
0x0f000…0f020 20 32 39 20 38 35 20 38 39 0a 20 37 30 33 20 35 38 0a 20 37 30 34 20 36 35 20 36 31 20 33 37 0a ┆ 29 85 89 703 58 704 65 61 37 ┆
0x0f020…0f040 20 37 30 35 20 37 34 20 36 35 20 36 31 20 33 37 0a 20 37 30 36 20 38 35 20 38 39 0a 20 37 30 37 ┆ 705 74 65 61 37 706 85 89 707┆
0x0f040…0f060 20 39 38 20 31 34 35 0a 20 37 30 38 20 31 31 33 20 31 31 20 32 20 34 0a 20 37 30 39 20 31 33 30 ┆ 98 145 708 113 11 2 4 709 130┆
0x0f060…0f080 20 31 30 20 31 0a 20 37 31 30 20 35 30 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 37 31 31 20 35 ┆ 10 1 710 50 25 29 85 89 711 5┆
0x0f080…0f0a0 31 20 32 36 20 34 30 20 31 36 0a 20 37 31 32 20 35 34 20 34 31 20 31 37 20 35 30 20 32 35 20 32 ┆1 26 40 16 712 54 41 17 50 25 2┆
0x0f0a0…0f0c0 39 20 38 35 20 38 39 0a 20 37 31 33 20 35 39 20 31 30 36 20 33 37 0a 20 37 31 34 20 36 36 20 37 ┆9 85 89 713 59 106 37 714 66 7┆
0x0f0c0…0f0e0 32 20 35 33 20 33 34 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 37 31 35 20 37 35 20 37 34 20 36 ┆2 53 34 25 29 85 89 715 75 74 6┆
0x0f0e0…0f100 35 20 36 31 20 33 37 0a 20 37 31 36 20 38 36 20 31 30 30 20 31 0a 20 37 31 37 20 39 39 20 31 36 ┆5 61 37 716 86 100 1 717 99 16┆
0x0f100…0f120 32 20 34 31 20 31 37 20 35 30 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 37 31 38 20 31 31 34 20 ┆2 41 17 50 25 29 85 89 718 114 ┆
0x0f120…0f140 31 38 20 36 35 20 36 31 20 33 37 0a 20 37 31 39 20 31 33 31 20 31 31 20 32 20 34 0a 20 37 32 30 ┆18 65 61 37 719 131 11 2 4 720┆
0x0f140…0f160 20 35 33 20 33 34 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 37 32 31 20 35 34 20 34 31 20 31 37 ┆ 53 34 25 29 85 89 721 54 41 17┆
0x0f160…0f180 20 35 30 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 37 32 32 20 35 37 20 37 34 20 36 35 20 36 31 ┆ 50 25 29 85 89 722 57 74 65 61┆
0x0f180…0f1a0 20 33 37 0a 20 37 32 33 20 36 32 20 34 30 20 31 36 0a 20 37 32 34 20 36 39 20 31 31 37 20 35 31 ┆ 37 723 62 40 16 724 69 117 51┆
0x0f1a0…0f1c0 20 32 36 20 34 30 20 31 36 0a 20 37 32 35 20 37 38 20 31 31 33 20 31 31 20 32 20 34 0a 20 37 32 ┆ 26 40 16 725 78 113 11 2 4 72┆
0x0f1c0…0f1e0 36 20 38 39 0a 20 37 32 37 20 31 30 32 20 35 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 37 32 38 ┆6 89 727 102 5 25 29 85 89 728┆
0x0f1e0…0f200 20 31 31 37 20 35 31 20 32 36 20 34 30 20 31 36 0a 20 37 32 39 20 31 33 34 20 32 36 20 34 30 20 ┆ 117 51 26 40 16 729 134 26 40 ┆
0x0f200…0f220 31 36 0a 20 37 33 30 20 35 38 0a 20 37 33 31 20 35 39 20 31 30 36 20 33 37 0a 20 37 33 32 20 36 ┆16 730 58 731 59 106 37 732 6┆
0x0f220…0f240 32 20 34 30 20 31 36 0a 20 37 33 33 20 36 37 20 38 35 20 38 39 0a 20 37 33 34 20 37 34 20 36 35 ┆2 40 16 733 67 85 89 734 74 65┆
0x0f240…0f260 20 36 31 20 33 37 0a 20 37 33 35 20 38 33 20 37 33 20 35 38 0a 20 37 33 36 20 39 34 20 39 37 20 ┆ 61 37 735 83 73 58 736 94 97 ┆
0x0f260…0f280 31 33 30 20 31 30 20 31 0a 20 37 33 37 20 31 30 37 20 35 30 20 32 35 20 32 39 20 38 35 20 38 39 ┆130 10 1 737 107 50 25 29 85 89┆
0x0f280…0f2a0 0a 20 37 33 38 20 31 32 32 20 39 20 38 31 20 36 35 20 36 31 20 33 37 0a 20 37 33 39 20 31 33 39 ┆ 738 122 9 81 65 61 37 739 139┆
0x0f2a0…0f2c0 20 39 31 20 38 32 20 36 38 20 31 30 30 20 31 0a 20 37 34 30 20 36 35 20 36 31 20 33 37 0a 20 37 ┆ 91 82 68 100 1 740 65 61 37 7┆
0x0f2c0…0f2e0 34 31 20 36 36 20 37 32 20 35 33 20 33 34 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 37 34 32 20 ┆41 66 72 53 34 25 29 85 89 742 ┆
0x0f2e0…0f300 36 39 20 31 31 37 20 35 31 20 32 36 20 34 30 20 31 36 0a 20 37 34 33 20 37 34 20 36 35 20 36 31 ┆69 117 51 26 40 16 743 74 65 61┆
0x0f300…0f320 (27,) 20 33 37 0a 20 37 34 34 20 38 31 20 36 35 20 36 31 20 33 37 0a 20 37 34 35 20 39 30 20 38 31 20 ┆ 37 744 81 65 61 37 745 90 81 ┆
0x0f320…0f340 36 35 20 36 31 20 33 37 0a 20 37 34 36 20 31 30 31 20 32 20 34 0a 20 37 34 37 20 31 31 34 20 31 ┆65 61 37 746 101 2 4 747 114 1┆
0x0f340…0f360 38 20 36 35 20 36 31 20 33 37 0a 20 37 34 38 20 31 32 39 20 38 36 20 31 30 30 20 31 0a 20 37 34 ┆8 65 61 37 748 129 86 100 1 74┆
0x0f360…0f380 39 20 31 34 36 20 35 33 20 33 34 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 37 35 30 20 37 34 20 ┆9 146 53 34 25 29 85 89 750 74 ┆
0x0f380…0f3a0 36 35 20 36 31 20 33 37 0a 20 37 35 31 20 37 35 20 37 34 20 36 35 20 36 31 20 33 37 0a 20 37 35 ┆65 61 37 751 75 74 65 61 37 75┆
0x0f3a0…0f3c0 32 20 37 38 20 31 31 33 20 31 31 20 32 20 34 0a 20 37 35 33 20 38 33 20 37 33 20 35 38 0a 20 37 ┆2 78 113 11 2 4 753 83 73 58 7┆
0x0f3c0…0f3e0 35 34 20 39 30 20 38 31 20 36 35 20 36 31 20 33 37 0a 20 37 35 35 20 39 39 20 31 36 32 20 34 31 ┆54 90 81 65 61 37 755 99 162 41┆
0x0f3e0…0f400 20 31 37 20 35 30 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 37 35 36 20 31 31 30 20 32 20 34 0a ┆ 17 50 25 29 85 89 756 110 2 4 ┆
0x0f400…0f420 20 37 35 37 20 31 32 33 20 31 34 20 31 37 20 35 30 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 37 ┆ 757 123 14 17 50 25 29 85 89 7┆
0x0f420…0f440 35 38 20 31 33 38 20 37 34 20 36 35 20 36 31 20 33 37 0a 20 37 35 39 20 31 35 35 20 35 31 20 32 ┆58 138 74 65 61 37 759 155 51 2┆
0x0f440…0f460 36 20 34 30 20 31 36 0a 20 37 36 30 20 38 35 20 38 39 0a 20 37 36 31 20 38 36 20 31 30 30 20 31 ┆6 40 16 760 85 89 761 86 100 1┆
0x0f460…0f480 0a 20 37 36 32 20 38 39 0a 20 37 36 33 20 39 34 20 39 37 20 31 33 30 20 31 30 20 31 0a 20 37 36 ┆ 762 89 763 94 97 130 10 1 76┆
0x0f480…0f4a0 34 20 31 30 31 20 32 20 34 0a 20 37 36 35 20 31 31 30 20 32 20 34 0a 20 37 36 36 20 31 32 31 20 ┆4 101 2 4 765 110 2 4 766 121 ┆
0x0f4a0…0f4c0 36 20 33 36 20 34 35 20 34 31 20 31 37 20 35 30 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 37 36 ┆6 36 45 41 17 50 25 29 85 89 76┆
0x0f4c0…0f4e0 37 20 31 33 34 20 32 36 20 34 30 20 31 36 0a 20 37 36 38 20 31 34 39 20 39 38 20 31 34 35 0a 20 ┆7 134 26 40 16 768 149 98 145 ┆
0x0f4e0…0f500 37 36 39 20 31 36 36 20 37 33 20 35 38 0a 20 37 37 30 20 39 38 20 31 34 35 0a 20 37 37 31 20 39 ┆769 166 73 58 770 98 145 771 9┆
0x0f500…0f520 39 20 31 36 32 20 34 31 20 31 37 20 35 30 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 37 37 32 20 ┆9 162 41 17 50 25 29 85 89 772 ┆
0x0f520…0f540 31 30 32 20 35 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 37 37 33 20 31 30 37 20 35 30 20 32 35 ┆102 5 25 29 85 89 773 107 50 25┆
0x0f540…0f560 20 32 39 20 38 35 20 38 39 0a 20 37 37 34 20 31 31 34 20 31 38 20 36 35 20 36 31 20 33 37 0a 20 ┆ 29 85 89 774 114 18 65 61 37 ┆
0x0f560…0f580 37 37 35 20 31 32 33 20 31 34 20 31 37 20 35 30 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 37 37 ┆775 123 14 17 50 25 29 85 89 77┆
0x0f580…0f5a0 36 20 31 33 34 20 32 36 20 34 30 20 31 36 0a 20 37 37 37 20 31 34 37 20 36 36 20 37 32 20 35 33 ┆6 134 26 40 16 777 147 66 72 53┆
0x0f5a0…0f5c0 20 33 34 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 37 37 38 20 31 36 32 20 34 31 20 31 37 20 35 ┆ 34 25 29 85 89 778 162 41 17 5┆
0x0f5c0…0f5e0 30 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 37 37 39 20 31 37 39 20 31 33 31 20 31 31 20 32 20 ┆0 25 29 85 89 779 179 131 11 2 ┆
0x0f5e0…0f600 34 0a 20 37 38 30 20 31 31 33 20 31 31 20 32 20 34 0a 20 37 38 31 20 31 31 34 20 31 38 20 36 35 ┆4 780 113 11 2 4 781 114 18 65┆
0x0f600…0f620 20 36 31 20 33 37 0a 20 37 38 32 20 31 31 37 20 35 31 20 32 36 20 34 30 20 31 36 0a 20 37 38 33 ┆ 61 37 782 117 51 26 40 16 783┆
0x0f620…0f640 20 31 32 32 20 39 20 38 31 20 36 35 20 36 31 20 33 37 0a 20 37 38 34 20 31 32 39 20 38 36 20 31 ┆ 122 9 81 65 61 37 784 129 86 1┆
0x0f640…0f660 30 30 20 31 0a 20 37 38 35 20 31 33 38 20 37 34 20 36 35 20 36 31 20 33 37 0a 20 37 38 36 20 31 ┆00 1 785 138 74 65 61 37 786 1┆
0x0f660…0f680 34 39 20 39 38 20 31 34 35 0a 20 37 38 37 20 31 36 32 20 34 31 20 31 37 20 35 30 20 32 35 20 32 ┆49 98 145 787 162 41 17 50 25 2┆
0x0f680…0f6a0 39 20 38 35 20 38 39 0a 20 37 38 38 20 31 37 37 20 39 39 20 31 36 32 20 34 31 20 31 37 20 35 30 ┆9 85 89 788 177 99 162 41 17 50┆
0x0f6a0…0f6c0 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 37 38 39 20 31 39 34 20 39 38 20 31 34 35 0a 20 37 39 ┆ 25 29 85 89 789 194 98 145 79┆
0x0f6c0…0f6e0 30 20 31 33 30 20 31 30 20 31 0a 20 37 39 31 20 31 33 31 20 31 31 20 32 20 34 0a 20 37 39 32 20 ┆0 130 10 1 791 131 11 2 4 792 ┆
0x0f6e0…0f700 31 33 34 20 32 36 20 34 30 20 31 36 0a 20 37 39 33 20 31 33 39 20 39 31 20 38 32 20 36 38 20 31 ┆134 26 40 16 793 139 91 82 68 1┆
0x0f700…0f720 30 30 20 31 0a 20 37 39 34 20 31 34 36 20 35 33 20 33 34 20 32 35 20 32 39 20 38 35 20 38 39 0a ┆00 1 794 146 53 34 25 29 85 89 ┆
0x0f720…0f740 20 37 39 35 20 31 35 35 20 35 31 20 32 36 20 34 30 20 31 36 0a 20 37 39 36 20 31 36 36 20 37 33 ┆ 795 155 51 26 40 16 796 166 73┆
0x0f740…0f760 20 35 38 0a 20 37 39 37 20 31 37 39 20 31 33 31 20 31 31 20 32 20 34 0a 20 37 39 38 20 31 39 34 ┆ 58 797 179 131 11 2 4 798 194┆
0x0f760…0f780 20 39 38 20 31 34 35 0a 20 37 39 39 20 32 31 31 20 36 20 33 36 20 34 35 20 34 31 20 31 37 20 35 ┆ 98 145 799 211 6 36 45 41 17 5┆
0x0f780…0f7a0 30 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 38 30 30 20 36 34 20 35 32 20 32 39 20 38 35 20 38 ┆0 25 29 85 89 800 64 52 29 85 8┆
0x0f7a0…0f7c0 39 0a 20 38 30 31 20 36 35 20 36 31 20 33 37 0a 20 38 30 32 20 36 38 20 31 30 30 20 31 0a 20 38 ┆9 801 65 61 37 802 68 100 1 8┆
0x0f7c0…0f7e0 30 33 20 37 33 20 35 38 0a 20 38 30 34 20 38 30 20 36 34 20 35 32 20 32 39 20 38 35 20 38 39 0a ┆03 73 58 804 80 64 52 29 85 89 ┆
0x0f7e0…0f800 20 38 30 35 20 38 39 0a 20 38 30 36 20 31 30 30 20 31 0a 20 38 30 37 20 31 31 33 20 31 31 20 32 ┆ 805 89 806 100 1 807 113 11 2┆
0x0f800…0f820 20 34 0a 20 38 30 38 20 31 32 38 20 36 39 20 31 31 37 20 35 31 20 32 36 20 34 30 20 31 36 0a 20 ┆ 4 808 128 69 117 51 26 40 16 ┆
0x0f820…0f840 38 30 39 20 31 34 35 0a 20 38 31 30 20 36 35 20 36 31 20 33 37 0a 20 38 31 31 20 36 36 20 37 32 ┆809 145 810 65 61 37 811 66 72┆
0x0f840…0f860 20 35 33 20 33 34 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 38 31 32 20 36 39 20 31 31 37 20 35 ┆ 53 34 25 29 85 89 812 69 117 5┆
0x0f860…0f880 31 20 32 36 20 34 30 20 31 36 0a 20 38 31 33 20 37 34 20 36 35 20 36 31 20 33 37 0a 20 38 31 34 ┆1 26 40 16 813 74 65 61 37 814┆
0x0f880…0f8a0 20 38 31 20 36 35 20 36 31 20 33 37 0a 20 38 31 35 20 39 30 20 38 31 20 36 35 20 36 31 20 33 37 ┆ 81 65 61 37 815 90 81 65 61 37┆
0x0f8a0…0f8c0 0a 20 38 31 36 20 31 30 31 20 32 20 34 0a 20 38 31 37 20 31 31 34 20 31 38 20 36 35 20 36 31 20 ┆ 816 101 2 4 817 114 18 65 61 ┆
0x0f8c0…0f8e0 33 37 0a 20 38 31 38 20 31 32 39 20 38 36 20 31 30 30 20 31 0a 20 38 31 39 20 31 34 36 20 35 33 ┆37 818 129 86 100 1 819 146 53┆
0x0f8e0…0f900 20 33 34 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 38 32 30 20 36 38 20 31 30 30 20 31 0a 20 38 ┆ 34 25 29 85 89 820 68 100 1 8┆
0x0f900…0f920 32 31 20 36 39 20 31 31 37 20 35 31 20 32 36 20 34 30 20 31 36 0a 20 38 32 32 20 37 32 20 35 33 ┆21 69 117 51 26 40 16 822 72 53┆
0x0f920…0f940 20 33 34 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 38 32 33 20 37 37 20 39 38 20 31 34 35 0a 20 ┆ 34 25 29 85 89 823 77 98 145 ┆
0x0f940…0f960 38 32 34 20 38 34 20 38 30 20 36 34 20 35 32 20 32 39 20 38 35 20 38 39 0a 20 38 32 35 20 39 33 ┆824 84 80 64 52 29 85 89 825 93┆
0x0f960…0f980 20 39 30 20 38 31 20 36 35 20 36 31 20 33 37 0a 20 38 32 36 20 31 30 34 20 31 37 20 35 30 20 32 ┆ 90 81 65 61 37 826 104 17 50 2┆
0x0f980…0f9a0 35 20 32 39 20 38 35 20 38 39 0a 20 38 32 37 20 31 31 37 20 35 31 20 32 36 20 34 30 20 31 36 0a ┆5 29 85 89 827 117 51 26 40 16 ┆
0x0f9a0…0f9c0 20 38 32 38 20 31 33 32 20 31 34 20 31 37 20 35 30 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 38 ┆ 828 132 14 17 50 25 29 85 89 8┆
0x0f9c0…0f9e0 32 39 20 31 34 39 20 39 38 20 31 34 35 0a 20 38 33 30 20 37 33 20 35 38 0a 20 38 33 31 20 37 34 ┆29 149 98 145 830 73 58 831 74┆
0x0f9e0…0fa00 20 36 35 20 36 31 20 33 37 0a 20 38 33 32 20 37 37 20 39 38 20 31 34 35 0a 20 38 33 33 20 38 32 ┆ 65 61 37 832 77 98 145 833 82┆
0x0fa00…0fa20 20 36 38 20 31 30 30 20 31 0a 20 38 33 34 20 38 39 0a 20 38 33 35 20 39 38 20 31 34 35 0a 20 38 ┆ 68 100 1 834 89 835 98 145 8┆
0x0fa20…0fa40 33 36 20 31 30 39 20 38 32 20 36 38 20 31 30 30 20 31 0a 20 38 33 37 20 31 32 32 20 39 20 38 31 ┆36 109 82 68 100 1 837 122 9 81┆
0x0fa40…0fa60 20 36 35 20 36 31 20 33 37 0a 20 38 33 38 20 31 33 37 20 35 39 20 31 30 36 20 33 37 0a 20 38 33 ┆ 65 61 37 838 137 59 106 37 83┆
0x0fa60…0fa80 39 20 31 35 34 20 34 32 0a 20 38 34 30 20 38 30 20 36 34 20 35 32 20 32 39 20 38 35 20 38 39 0a ┆9 154 42 840 80 64 52 29 85 89 ┆
0x0fa80…0faa0 20 38 34 31 20 38 31 20 36 35 20 36 31 20 33 37 0a 20 38 34 32 20 38 34 20 38 30 20 36 34 20 35 ┆ 841 81 65 61 37 842 84 80 64 5┆
0x0faa0…0fac0 32 20 32 39 20 38 35 20 38 39 0a 20 38 34 33 20 38 39 0a 20 38 34 34 20 39 36 20 31 31 37 20 35 ┆2 29 85 89 843 89 844 96 117 5┆
0x0fac0…0fae0 31 20 32 36 20 34 30 20 31 36 0a 20 38 34 35 20 31 30 35 20 32 36 20 34 30 20 31 36 0a 20 38 34 ┆1 26 40 16 845 105 26 40 16 84┆
0x0fae0…0fb00 36 20 31 31 36 20 33 38 20 37 33 20 35 38 0a 20 38 34 37 20 31 32 39 20 38 36 20 31 30 30 20 31 ┆6 116 38 73 58 847 129 86 100 1┆
0x0fb00…0fb20 0a 20 38 34 38 20 31 34 34 20 33 33 20 31 38 20 36 35 20 36 31 20 33 37 0a 20 38 34 39 20 31 36 ┆ 848 144 33 18 65 61 37 849 16┆
0x0fb20…0fb40 31 20 33 38 20 37 33 20 35 38 0a 20 38 35 30 20 38 39 0a 20 38 35 31 20 39 30 20 38 31 20 36 35 ┆1 38 73 58 850 89 851 90 81 65┆
0x0fb40…0fb60 20 36 31 20 33 37 0a 20 38 35 32 20 39 33 20 39 30 20 38 31 20 36 35 20 36 31 20 33 37 0a 20 38 ┆ 61 37 852 93 90 81 65 61 37 8┆
0x0fb60…0fb80 35 33 20 39 38 20 31 34 35 0a 20 38 35 34 20 31 30 35 20 32 36 20 34 30 20 31 36 0a 20 38 35 35 ┆53 98 145 854 105 26 40 16 855┆
0x0fb80…0fba0 20 31 31 34 20 31 38 20 36 35 20 36 31 20 33 37 0a 20 38 35 36 20 31 32 35 20 33 30 20 39 20 38 ┆ 114 18 65 61 37 856 125 30 9 8┆
0x0fba0…0fbc0 31 20 36 35 20 36 31 20 33 37 0a 20 38 35 37 20 31 33 38 20 37 34 20 36 35 20 36 31 20 33 37 0a ┆1 65 61 37 857 138 74 65 61 37 ┆
0x0fbc0…0fbe0 20 38 35 38 20 31 35 33 20 33 35 20 33 34 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 38 35 39 20 ┆ 858 153 35 34 25 29 85 89 859 ┆
0x0fbe0…0fc00 31 37 30 20 35 30 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 38 36 30 20 31 30 30 20 31 0a 20 38 ┆170 50 25 29 85 89 860 100 1 8┆
0x0fc00…0fc20 (28,) 36 31 20 31 30 31 20 32 20 34 0a 20 38 36 32 20 31 30 34 20 31 37 20 35 30 20 32 35 20 32 39 20 ┆61 101 2 4 862 104 17 50 25 29 ┆
0x0fc20…0fc40 38 35 20 38 39 0a 20 38 36 33 20 31 30 39 20 38 32 20 36 38 20 31 30 30 20 31 0a 20 38 36 34 20 ┆85 89 863 109 82 68 100 1 864 ┆
0x0fc40…0fc60 31 31 36 20 33 38 20 37 33 20 35 38 0a 20 38 36 35 20 31 32 35 20 33 30 20 39 20 38 31 20 36 35 ┆116 38 73 58 865 125 30 9 81 65┆
0x0fc60…0fc80 20 36 31 20 33 37 0a 20 38 36 36 20 31 33 36 20 34 36 20 35 32 20 32 39 20 38 35 20 38 39 0a 20 ┆ 61 37 866 136 46 52 29 85 89 ┆
0x0fc80…0fca0 38 36 37 20 31 34 39 20 39 38 20 31 34 35 0a 20 38 36 38 20 31 36 34 20 35 33 20 33 34 20 32 35 ┆867 149 98 145 868 164 53 34 25┆
0x0fca0…0fcc0 20 32 39 20 38 35 20 38 39 0a 20 38 36 39 20 31 38 31 20 36 36 20 37 32 20 35 33 20 33 34 20 32 ┆ 29 85 89 869 181 66 72 53 34 2┆
0x0fcc0…0fce0 35 20 32 39 20 38 35 20 38 39 0a 20 38 37 30 20 31 31 33 20 31 31 20 32 20 34 0a 20 38 37 31 20 ┆5 29 85 89 870 113 11 2 4 871 ┆
0x0fce0…0fd00 31 31 34 20 31 38 20 36 35 20 36 31 20 33 37 0a 20 38 37 32 20 31 31 37 20 35 31 20 32 36 20 34 ┆114 18 65 61 37 872 117 51 26 4┆
0x0fd00…0fd20 30 20 31 36 0a 20 38 37 33 20 31 32 32 20 39 20 38 31 20 36 35 20 36 31 20 33 37 0a 20 38 37 34 ┆0 16 873 122 9 81 65 61 37 874┆
0x0fd20…0fd40 20 31 32 39 20 38 36 20 31 30 30 20 31 0a 20 38 37 35 20 31 33 38 20 37 34 20 36 35 20 36 31 20 ┆ 129 86 100 1 875 138 74 65 61 ┆
0x0fd40…0fd60 33 37 0a 20 38 37 36 20 31 34 39 20 39 38 20 31 34 35 0a 20 38 37 37 20 31 36 32 20 34 31 20 31 ┆37 876 149 98 145 877 162 41 1┆
0x0fd60…0fd80 37 20 35 30 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 38 37 38 20 31 37 37 20 39 39 20 31 36 32 ┆7 50 25 29 85 89 878 177 99 162┆
0x0fd80…0fda0 20 34 31 20 31 37 20 35 30 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 38 37 39 20 31 39 34 20 39 ┆ 41 17 50 25 29 85 89 879 194 9┆
0x0fda0…0fdc0 38 20 31 34 35 0a 20 38 38 30 20 31 32 38 20 36 39 20 31 31 37 20 35 31 20 32 36 20 34 30 20 31 ┆8 145 880 128 69 117 51 26 40 1┆
0x0fdc0…0fde0 36 0a 20 38 38 31 20 31 32 39 20 38 36 20 31 30 30 20 31 0a 20 38 38 32 20 31 33 32 20 31 34 20 ┆6 881 129 86 100 1 882 132 14 ┆
0x0fde0…0fe00 31 37 20 35 30 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 38 38 33 20 31 33 37 20 35 39 20 31 30 ┆17 50 25 29 85 89 883 137 59 10┆
0x0fe00…0fe20 36 20 33 37 0a 20 38 38 34 20 31 34 34 20 33 33 20 31 38 20 36 35 20 36 31 20 33 37 0a 20 38 38 ┆6 37 884 144 33 18 65 61 37 88┆
0x0fe20…0fe40 35 20 31 35 33 20 33 35 20 33 34 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 38 38 36 20 31 36 34 ┆5 153 35 34 25 29 85 89 886 164┆
0x0fe40…0fe60 20 35 33 20 33 34 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 38 38 37 20 31 37 37 20 39 39 20 31 ┆ 53 34 25 29 85 89 887 177 99 1┆
0x0fe60…0fe80 36 32 20 34 31 20 31 37 20 35 30 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 38 38 38 20 31 39 32 ┆62 41 17 50 25 29 85 89 888 192┆
0x0fe80…0fea0 20 38 36 20 31 30 30 20 31 0a 20 38 38 39 20 32 30 39 20 38 35 20 38 39 0a 20 38 39 30 20 31 34 ┆ 86 100 1 889 209 85 89 890 14┆
0x0fea0…0fec0 35 0a 20 38 39 31 20 31 34 36 20 35 33 20 33 34 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 38 39 ┆5 891 146 53 34 25 29 85 89 89┆
0x0fec0…0fee0 32 20 31 34 39 20 39 38 20 31 34 35 0a 20 38 39 33 20 31 35 34 20 34 32 0a 20 38 39 34 20 31 36 ┆2 149 98 145 893 154 42 894 16┆
0x0fee0…0ff00 31 20 33 38 20 37 33 20 35 38 0a 20 38 39 35 20 31 37 30 20 35 30 20 32 35 20 32 39 20 38 35 20 ┆1 38 73 58 895 170 50 25 29 85 ┆
0x0ff00…0ff20 38 39 0a 20 38 39 36 20 31 38 31 20 36 36 20 37 32 20 35 33 20 33 34 20 32 35 20 32 39 20 38 35 ┆89 896 181 66 72 53 34 25 29 85┆
0x0ff20…0ff40 20 38 39 0a 20 38 39 37 20 31 39 34 20 39 38 20 31 34 35 0a 20 38 39 38 20 32 30 39 20 38 35 20 ┆ 89 897 194 98 145 898 209 85 ┆
0x0ff40…0ff60 38 39 0a 20 38 39 39 20 32 32 36 20 34 34 20 33 32 20 31 33 20 31 30 20 31 0a 20 39 30 30 20 38 ┆89 899 226 44 32 13 10 1 900 8┆
0x0ff60…0ff80 31 20 36 35 20 36 31 20 33 37 0a 20 39 30 31 20 38 32 20 36 38 20 31 30 30 20 31 0a 20 39 30 32 ┆1 65 61 37 901 82 68 100 1 902┆
0x0ff80…0ffa0 20 38 35 20 38 39 0a 20 39 30 33 20 39 30 20 38 31 20 36 35 20 36 31 20 33 37 0a 20 39 30 34 20 ┆ 85 89 903 90 81 65 61 37 904 ┆
0x0ffa0…0ffc0 39 37 20 31 33 30 20 31 30 20 31 0a 20 39 30 35 20 31 30 36 20 33 37 0a 20 39 30 36 20 31 31 37 ┆97 130 10 1 905 106 37 906 117┆
0x0ffc0…0ffe0 20 35 31 20 32 36 20 34 30 20 31 36 0a 20 39 30 37 20 31 33 30 20 31 30 20 31 0a 20 39 30 38 20 ┆ 51 26 40 16 907 130 10 1 908 ┆
0x0ffe0…10000 31 34 35 0a 20 39 30 39 20 31 36 32 20 34 31 20 31 37 20 35 30 20 32 35 20 32 39 20 38 35 20 38 ┆145 909 162 41 17 50 25 29 85 8┆
0x10000…10020 39 0a 20 39 31 30 20 38 32 20 36 38 20 31 30 30 20 31 0a 20 39 31 31 20 38 33 20 37 33 20 35 38 ┆9 910 82 68 100 1 911 83 73 58┆
0x10020…10040 0a 20 39 31 32 20 38 36 20 31 30 30 20 31 0a 20 39 31 33 20 39 31 20 38 32 20 36 38 20 31 30 30 ┆ 912 86 100 1 913 91 82 68 100┆
0x10040…10060 20 31 0a 20 39 31 34 20 39 38 20 31 34 35 0a 20 39 31 35 20 31 30 37 20 35 30 20 32 35 20 32 39 ┆ 1 914 98 145 915 107 50 25 29┆
0x10060…10080 20 38 35 20 38 39 0a 20 39 31 36 20 31 31 38 20 36 36 20 37 32 20 35 33 20 33 34 20 32 35 20 32 ┆ 85 89 916 118 66 72 53 34 25 2┆
0x10080…100a0 39 20 38 35 20 38 39 0a 20 39 31 37 20 31 33 31 20 31 31 20 32 20 34 0a 20 39 31 38 20 31 34 36 ┆9 85 89 917 131 11 2 4 918 146┆
0x100a0…100c0 20 35 33 20 33 34 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 39 31 39 20 31 36 33 20 34 36 20 35 ┆ 53 34 25 29 85 89 919 163 46 5┆
0x100c0…100e0 32 20 32 39 20 38 35 20 38 39 0a 20 39 32 30 20 38 35 20 38 39 0a 20 39 32 31 20 38 36 20 31 30 ┆2 29 85 89 920 85 89 921 86 10┆
0x100e0…10100 30 20 31 0a 20 39 32 32 20 38 39 0a 20 39 32 33 20 39 34 20 39 37 20 31 33 30 20 31 30 20 31 0a ┆0 1 922 89 923 94 97 130 10 1 ┆
0x10100…10120 20 39 32 34 20 31 30 31 20 32 20 34 0a 20 39 32 35 20 31 31 30 20 32 20 34 0a 20 39 32 36 20 31 ┆ 924 101 2 4 925 110 2 4 926 1┆
0x10120…10140 32 31 20 36 20 33 36 20 34 35 20 34 31 20 31 37 20 35 30 20 32 35 20 32 39 20 38 35 20 38 39 0a ┆21 6 36 45 41 17 50 25 29 85 89 ┆
0x10140…10160 20 39 32 37 20 31 33 34 20 32 36 20 34 30 20 31 36 0a 20 39 32 38 20 31 34 39 20 39 38 20 31 34 ┆ 927 134 26 40 16 928 149 98 14┆
0x10160…10180 35 0a 20 39 32 39 20 31 36 36 20 37 33 20 35 38 0a 20 39 33 30 20 39 30 20 38 31 20 36 35 20 36 ┆5 929 166 73 58 930 90 81 65 6┆
0x10180…101a0 31 20 33 37 0a 20 39 33 31 20 39 31 20 38 32 20 36 38 20 31 30 30 20 31 0a 20 39 33 32 20 39 34 ┆1 37 931 91 82 68 100 1 932 94┆
0x101a0…101c0 20 39 37 20 31 33 30 20 31 30 20 31 0a 20 39 33 33 20 39 39 20 31 36 32 20 34 31 20 31 37 20 35 ┆ 97 130 10 1 933 99 162 41 17 5┆
0x101c0…101e0 30 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 39 33 34 20 31 30 36 20 33 37 0a 20 39 33 35 20 31 ┆0 25 29 85 89 934 106 37 935 1┆
0x101e0…10200 31 35 20 32 37 20 35 33 20 33 34 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 39 33 36 20 31 32 36 ┆15 27 53 34 25 29 85 89 936 126┆
0x10200…10220 20 34 31 20 31 37 20 35 30 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 39 33 37 20 31 33 39 20 39 ┆ 41 17 50 25 29 85 89 937 139 9┆
0x10220…10240 31 20 38 32 20 36 38 20 31 30 30 20 31 0a 20 39 33 38 20 31 35 34 20 34 32 0a 20 39 33 39 20 31 ┆1 82 68 100 1 938 154 42 939 1┆
0x10240…10260 37 31 20 35 31 20 32 36 20 34 30 20 31 36 0a 20 39 34 30 20 39 37 20 31 33 30 20 31 30 20 31 0a ┆71 51 26 40 16 940 97 130 10 1 ┆
0x10260…10280 20 39 34 31 20 39 38 20 31 34 35 0a 20 39 34 32 20 31 30 31 20 32 20 34 0a 20 39 34 33 20 31 30 ┆ 941 98 145 942 101 2 4 943 10┆
0x10280…102a0 36 20 33 37 0a 20 39 34 34 20 31 31 33 20 31 31 20 32 20 34 0a 20 39 34 35 20 31 32 32 20 39 20 ┆6 37 944 113 11 2 4 945 122 9 ┆
0x102a0…102c0 38 31 20 36 35 20 36 31 20 33 37 0a 20 39 34 36 20 31 33 33 20 31 39 20 38 32 20 36 38 20 31 30 ┆81 65 61 37 946 133 19 82 68 10┆
0x102c0…102e0 30 20 31 0a 20 39 34 37 20 31 34 36 20 35 33 20 33 34 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 ┆0 1 947 146 53 34 25 29 85 89 ┆
0x102e0…10300 39 34 38 20 31 36 31 20 33 38 20 37 33 20 35 38 0a 20 39 34 39 20 31 37 38 20 31 31 34 20 31 38 ┆948 161 38 73 58 949 178 114 18┆
0x10300…10320 20 36 35 20 36 31 20 33 37 0a 20 39 35 30 20 31 30 36 20 33 37 0a 20 39 35 31 20 31 30 37 20 35 ┆ 65 61 37 950 106 37 951 107 5┆
0x10320…10340 30 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 39 35 32 20 31 31 30 20 32 20 34 0a 20 39 35 33 20 ┆0 25 29 85 89 952 110 2 4 953 ┆
0x10340…10360 31 31 35 20 32 37 20 35 33 20 33 34 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 39 35 34 20 31 32 ┆115 27 53 34 25 29 85 89 954 12┆
0x10360…10380 32 20 39 20 38 31 20 36 35 20 36 31 20 33 37 0a 20 39 35 35 20 31 33 31 20 31 31 20 32 20 34 0a ┆2 9 81 65 61 37 955 131 11 2 4 ┆
0x10380…103a0 20 39 35 36 20 31 34 32 20 32 31 20 35 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 39 35 37 20 31 ┆ 956 142 21 5 25 29 85 89 957 1┆
0x103a0…103c0 35 35 20 35 31 20 32 36 20 34 30 20 31 36 0a 20 39 35 38 20 31 37 30 20 35 30 20 32 35 20 32 39 ┆55 51 26 40 16 958 170 50 25 29┆
0x103c0…103e0 20 38 35 20 38 39 0a 20 39 35 39 20 31 38 37 20 31 31 34 20 31 38 20 36 35 20 36 31 20 33 37 0a ┆ 85 89 959 187 114 18 65 61 37 ┆
0x103e0…10400 20 39 36 30 20 31 31 37 20 35 31 20 32 36 20 34 30 20 31 36 0a 20 39 36 31 20 31 31 38 20 36 36 ┆ 960 117 51 26 40 16 961 118 66┆
0x10400…10420 20 37 32 20 35 33 20 33 34 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 39 36 32 20 31 32 31 20 36 ┆ 72 53 34 25 29 85 89 962 121 6┆
0x10420…10440 20 33 36 20 34 35 20 34 31 20 31 37 20 35 30 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 39 36 33 ┆ 36 45 41 17 50 25 29 85 89 963┆
0x10440…10460 20 31 32 36 20 34 31 20 31 37 20 35 30 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 39 36 34 20 31 ┆ 126 41 17 50 25 29 85 89 964 1┆
0x10460…10480 33 33 20 31 39 20 38 32 20 36 38 20 31 30 30 20 31 0a 20 39 36 35 20 31 34 32 20 32 31 20 35 20 ┆33 19 82 68 100 1 965 142 21 5 ┆
0x10480…104a0 32 35 20 32 39 20 38 35 20 38 39 0a 20 39 36 36 20 31 35 33 20 33 35 20 33 34 20 32 35 20 32 39 ┆25 29 85 89 966 153 35 34 25 29┆
0x104a0…104c0 20 38 35 20 38 39 0a 20 39 36 37 20 31 36 36 20 37 33 20 35 38 0a 20 39 36 38 20 31 38 31 20 36 ┆ 85 89 967 166 73 58 968 181 6┆
0x104c0…104e0 36 20 37 32 20 35 33 20 33 34 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 39 36 39 20 31 39 38 20 ┆6 72 53 34 25 29 85 89 969 198 ┆
0x104e0…10500 31 34 36 20 35 33 20 33 34 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 39 37 30 20 31 33 30 20 31 ┆146 53 34 25 29 85 89 970 130 1┆
0x10500…10520 (29,) 30 20 31 0a 20 39 37 31 20 31 33 31 20 31 31 20 32 20 34 0a 20 39 37 32 20 31 33 34 20 32 36 20 ┆0 1 971 131 11 2 4 972 134 26 ┆
0x10520…10540 34 30 20 31 36 0a 20 39 37 33 20 31 33 39 20 39 31 20 38 32 20 36 38 20 31 30 30 20 31 0a 20 39 ┆40 16 973 139 91 82 68 100 1 9┆
0x10540…10560 37 34 20 31 34 36 20 35 33 20 33 34 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 39 37 35 20 31 35 ┆74 146 53 34 25 29 85 89 975 15┆
0x10560…10580 35 20 35 31 20 32 36 20 34 30 20 31 36 0a 20 39 37 36 20 31 36 36 20 37 33 20 35 38 0a 20 39 37 ┆5 51 26 40 16 976 166 73 58 97┆
0x10580…105a0 37 20 31 37 39 20 31 33 31 20 31 31 20 32 20 34 0a 20 39 37 38 20 31 39 34 20 39 38 20 31 34 35 ┆7 179 131 11 2 4 978 194 98 145┆
0x105a0…105c0 0a 20 39 37 39 20 32 31 31 20 36 20 33 36 20 34 35 20 34 31 20 31 37 20 35 30 20 32 35 20 32 39 ┆ 979 211 6 36 45 41 17 50 25 29┆
0x105c0…105e0 20 38 35 20 38 39 0a 20 39 38 30 20 31 34 35 0a 20 39 38 31 20 31 34 36 20 35 33 20 33 34 20 32 ┆ 85 89 980 145 981 146 53 34 2┆
0x105e0…10600 35 20 32 39 20 38 35 20 38 39 0a 20 39 38 32 20 31 34 39 20 39 38 20 31 34 35 0a 20 39 38 33 20 ┆5 29 85 89 982 149 98 145 983 ┆
0x10600…10620 31 35 34 20 34 32 0a 20 39 38 34 20 31 36 31 20 33 38 20 37 33 20 35 38 0a 20 39 38 35 20 31 37 ┆154 42 984 161 38 73 58 985 17┆
0x10620…10640 30 20 35 30 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 39 38 36 20 31 38 31 20 36 36 20 37 32 20 ┆0 50 25 29 85 89 986 181 66 72 ┆
0x10640…10660 35 33 20 33 34 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 39 38 37 20 31 39 34 20 39 38 20 31 34 ┆53 34 25 29 85 89 987 194 98 14┆
0x10660…10680 35 0a 20 39 38 38 20 32 30 39 20 38 35 20 38 39 0a 20 39 38 39 20 32 32 36 20 34 34 20 33 32 20 ┆5 988 209 85 89 989 226 44 32 ┆
0x10680…106a0 31 33 20 31 30 20 31 0a 20 39 39 30 20 31 36 32 20 34 31 20 31 37 20 35 30 20 32 35 20 32 39 20 ┆13 10 1 990 162 41 17 50 25 29 ┆
0x106a0…106c0 38 35 20 38 39 0a 20 39 39 31 20 31 36 33 20 34 36 20 35 32 20 32 39 20 38 35 20 38 39 0a 20 39 ┆85 89 991 163 46 52 29 85 89 9┆
0x106c0…106e0 39 32 20 31 36 36 20 37 33 20 35 38 0a 20 39 39 33 20 31 37 31 20 35 31 20 32 36 20 34 30 20 31 ┆92 166 73 58 993 171 51 26 40 1┆
0x106e0…10700 36 0a 20 39 39 34 20 31 37 38 20 31 31 34 20 31 38 20 36 35 20 36 31 20 33 37 0a 20 39 39 35 20 ┆6 994 178 114 18 65 61 37 995 ┆
0x10700…10720 31 38 37 20 31 31 34 20 31 38 20 36 35 20 36 31 20 33 37 0a 20 39 39 36 20 31 39 38 20 31 34 36 ┆187 114 18 65 61 37 996 198 146┆
0x10720…10740 20 35 33 20 33 34 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 39 39 37 20 32 31 31 20 36 20 33 36 ┆ 53 34 25 29 85 89 997 211 6 36┆
0x10740…10760 20 34 35 20 34 31 20 31 37 20 35 30 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 39 39 38 20 32 32 ┆ 45 41 17 50 25 29 85 89 998 22┆
0x10760…10780 36 20 34 34 20 33 32 20 31 33 20 31 30 20 31 0a 20 39 39 39 20 32 34 33 20 32 39 20 38 35 20 38 ┆6 44 32 13 10 1 999 243 29 85 8┆
0x10780…107a0 39 0a 65 6e 64 20 20 20 20 20 20 20 20 20 31 30 20 20 0a 00 19 00 00 20 33 34 20 32 35 20 32 39 ┆9 end 10 34 25 29┆
0x107a0…107c0 20 38 35 20 38 39 0a 20 39 36 37 20 31 36 36 20 37 33 20 35 38 0a 20 39 36 38 20 31 38 31 20 36 ┆ 85 89 967 166 73 58 968 181 6┆
0x107c0…107e0 36 20 37 32 20 35 33 20 33 34 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 39 36 39 20 31 39 38 20 ┆6 72 53 34 25 29 85 89 969 198 ┆
0x107e0…10800 31 34 36 20 35 33 20 33 34 20 32 35 20 32 39 20 38 35 20 38 39 0a 20 39 37 30 20 31 33 30 20 31 ┆146 53 34 25 29 85 89 970 130 1┆
0x10800…10820 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
[…0x1…]
0x10840…10860 2d 2d 2d 0a 43 20 20 43 41 4c 4c 53 20 4e 4f 20 53 55 42 50 52 4f 47 52 41 4d 53 2e 0a 43 2d 2d ┆--- C CALLS NO SUBPROGRAMS. C--┆
0x10860…10880 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
[…0x1…]
0x108a0…108c0 2d 2d 2d 2d 2d 0a 20 20 20 20 20 20 53 55 42 52 4f 55 54 49 4e 45 20 45 54 48 45 4f 52 20 28 50 ┆----- SUBROUTINE ETHEOR (P┆
0x108c0…108e0 4c 41 4d 42 44 2c 49 4e 56 45 52 54 2c 57 54 45 44 2c 54 2c 53 51 52 54 57 2c 59 2c 4e 4d 41 58 ┆LAMBD,INVERT,WTED,T,SQRTW,Y,NMAX┆
0x108e0…10900 2c 54 53 54 41 52 54 2c 0a 20 20 20 20 20 31 20 44 45 4c 54 41 54 2c 4e 54 2c 4e 49 4e 54 2c 53 ┆,TSTART, 1 DELTAT,NT,NINT,S┆
0x10900…10920 45 2c 44 53 45 2c 44 44 53 45 2c 53 59 45 2c 44 4f 45 2c 44 4f 59 45 29 0a 20 20 20 20 20 20 52 ┆E,DSE,DDSE,SYE,DOE,DOYE) R┆
0x10920…10940 45 41 4c 20 45 58 50 53 4d 41 2c 20 41 4e 2c 20 42 2c 20 43 2c 20 44 44 44 55 4d 2c 20 44 44 53 ┆EAL EXPSMA, AN, B, C, DDDUM, DDS┆
0x10940…10960 45 49 2c 20 44 44 55 4d 2c 0a 20 20 20 20 20 31 20 44 45 44 4e 4c 2c 20 44 4c 2c 20 44 4e 4c 2c ┆EI, DDUM, 1 DEDNL, DL, DNL,┆
0x10960…10980 20 44 53 45 49 2c 20 44 55 4d 2c 20 45 44 4c 2c 20 45 4c 54 53 2c 20 45 4e 54 53 2c 20 52 44 45 ┆ DSEI, DUM, EDL, ELTS, ENTS, RDE┆
0x10980…109a0 44 4c 2c 20 53 45 49 2c 20 53 2c 0a 20 20 20 20 20 32 20 53 53 2c 20 53 59 45 49 2c 20 44 44 54 ┆DL, SEI, S, 2 SS, SYEI, DDT┆
0x109a0…109c0 2c 20 44 54 53 2c 20 44 50 4c 41 4d 0a 20 20 20 20 20 20 4c 4f 47 49 43 41 4c 20 49 4e 56 45 52 ┆, DTS, DPLAM LOGICAL INVER┆
0x109c0…109e0 54 2c 20 4e 4f 54 49 4e 56 2c 20 57 54 45 44 2c 20 44 4f 45 2c 20 44 4f 59 45 2c 20 4c 44 44 55 ┆T, NOTINV, WTED, DOE, DOYE, LDDU┆
0x109e0…10a00 4d 0a 20 20 20 20 20 20 44 49 4d 45 4e 53 49 4f 4e 20 53 51 52 54 57 28 4e 4d 41 58 29 2c 20 54 ┆M DIMENSION SQRTW(NMAX), T┆
0x10a00…10a20 53 54 41 52 54 28 4e 49 4e 54 29 2c 20 44 45 4c 54 41 54 28 4e 49 4e 54 29 2c 20 4e 54 28 4e 49 ┆START(NINT), DELTAT(NINT), NT(NI┆
0x10a20…10a40 4e 54 29 2c 0a 20 20 20 20 20 31 20 54 28 4e 4d 41 58 29 2c 20 59 28 4e 4d 41 58 29 0a 20 20 20 ┆NT), 1 T(NMAX), Y(NMAX) ┆
0x10a40…10a60 20 20 20 45 58 50 53 4d 41 28 53 29 3d 53 2a 28 37 32 30 2e 44 30 2d 53 2a 28 33 36 30 2e 44 30 ┆ EXPSMA(S)=S*(720.D0-S*(360.D0┆
0x10a60…10a80 2d 53 2a 28 31 32 30 2e 44 30 2d 53 2a 28 33 30 2e 44 30 2d 53 2a 28 36 2e 44 30 2d 53 29 29 29 ┆-S*(120.D0-S*(30.D0-S*(6.D0-S)))┆
0x10a80…10aa0 29 29 2f 0a 20 20 20 20 20 31 20 37 32 30 2e 44 30 0a 20 20 20 20 20 20 44 50 4c 41 4d 3d 28 50 ┆))/ 1 720.D0 DPLAM=(P┆
0x10aa0…10ac0 4c 41 4d 42 44 29 0a 20 20 20 20 20 20 49 46 20 28 44 4f 45 29 20 53 45 49 3d 30 2e 44 30 0a 20 ┆LAMBD) IF (DOE) SEI=0.D0 ┆
0x10ac0…10ae0 20 20 20 20 20 49 46 20 28 49 4e 56 45 52 54 29 20 44 53 45 49 3d 30 2e 44 30 0a 20 20 20 20 20 ┆ IF (INVERT) DSEI=0.D0 ┆
0x10ae0…10b00 20 49 46 20 28 49 4e 56 45 52 54 29 20 44 44 53 45 49 3d 30 2e 44 30 0a 20 20 20 20 20 20 4e 4f ┆ IF (INVERT) DDSEI=0.D0 NO┆
0x10b00…10b20 54 49 4e 56 3d 2e 4e 4f 54 2e 49 4e 56 45 52 54 0a 20 20 20 20 20 20 49 46 20 28 2e 4e 4f 54 2e ┆TINV=.NOT.INVERT IF (.NOT.┆
0x10b20…10b40 28 44 4f 59 45 20 2e 4f 52 2e 20 57 54 45 44 29 29 20 47 4f 20 54 4f 20 32 30 30 0a 20 20 20 20 ┆(DOYE .OR. WTED)) GO TO 200 ┆
0x10b40…10b60 20 20 49 46 20 28 44 4f 59 45 29 20 53 59 45 49 3d 30 2e 44 30 0a 20 20 20 20 20 20 4c 44 44 55 ┆ IF (DOYE) SYEI=0.D0 LDDU┆
0x10b60…10b80 4d 3d 2e 4e 4f 54 2e 28 44 4f 45 20 2e 41 4e 44 2e 20 57 54 45 44 29 0a 20 20 20 20 20 20 4a 3d ┆M=.NOT.(DOE .AND. WTED) J=┆
0x10b80…10ba0 30 0a 20 20 20 20 20 20 44 4f 20 31 31 30 20 4c 3d 31 2c 4e 49 4e 54 0a 20 20 20 20 20 20 44 44 ┆0 DO 110 L=1,NINT DD┆
0x10ba0…10bc0 55 4d 3d 45 58 50 28 2d 44 50 4c 41 4d 2a 28 44 45 4c 54 41 54 28 4c 29 29 29 0a 20 20 20 20 20 ┆UM=EXP(-DPLAM*(DELTAT(L))) ┆
0x10bc0…10be0 20 44 44 44 55 4d 3d 45 58 50 28 2d 44 50 4c 41 4d 2a 28 54 53 54 41 52 54 28 4c 29 29 29 0a 20 ┆ DDDUM=EXP(-DPLAM*(TSTART(L))) ┆
0x10be0…10c00 20 20 20 20 20 4b 4b 3d 4e 54 28 4c 29 0a 20 20 20 20 20 20 44 4f 20 31 32 30 20 4b 3d 31 2c 4b ┆ KK=NT(L) DO 120 K=1,K┆
0x10c00…10c20 4b 0a 20 20 20 20 20 20 4a 3d 4a 2b 31 0a 20 20 20 20 20 20 44 55 4d 3d 44 44 44 55 4d 2a 53 51 ┆K J=J+1 DUM=DDDUM*SQ┆
0x10c20…10c40 52 54 57 28 4a 29 0a 20 20 20 20 20 20 44 44 44 55 4d 3d 44 44 44 55 4d 2a 44 44 55 4d 0a 20 20 ┆RTW(J) DDDUM=DDDUM*DDUM ┆
0x10c40…10c60 20 20 20 20 49 46 20 28 44 4f 59 45 29 20 53 59 45 49 3d 53 59 45 49 2b 44 55 4d 2a 59 28 4a 29 ┆ IF (DOYE) SYEI=SYEI+DUM*Y(J)┆
0x10c60…10c80 0a 20 20 20 20 20 20 49 46 20 28 4c 44 44 55 4d 29 20 47 4f 20 54 4f 20 31 32 30 0a 20 20 20 20 ┆ IF (LDDUM) GO TO 120 ┆
0x10c80…10ca0 20 20 44 55 4d 3d 44 55 4d 2a 53 51 52 54 57 28 4a 29 0a 20 20 20 20 20 20 53 45 49 3d 53 45 49 ┆ DUM=DUM*SQRTW(J) SEI=SEI┆
0x10ca0…10cc0 2b 44 55 4d 0a 20 20 20 20 20 20 49 46 20 28 4e 4f 54 49 4e 56 29 20 47 4f 20 54 4f 20 31 32 30 ┆+DUM IF (NOTINV) GO TO 120┆
0x10cc0…10ce0 0a 20 20 20 20 20 20 44 55 4d 3d 44 55 4d 2a 54 28 4a 29 0a 20 20 20 20 20 20 44 53 45 49 3d 44 ┆ DUM=DUM*T(J) DSEI=D┆
0x10ce0…10d00 53 45 49 2d 44 55 4d 0a 20 20 20 20 20 20 44 44 53 45 49 3d 44 44 53 45 49 2b 44 55 4d 2a 54 28 ┆SEI-DUM DDSEI=DDSEI+DUM*T(┆
0x10d00…10d20 4a 29 0a 20 20 31 32 30 20 43 4f 4e 54 49 4e 55 45 0a 20 20 31 31 30 20 43 4f 4e 54 49 4e 55 45 ┆J) 120 CONTINUE 110 CONTINUE┆
0x10d20…10d40 0a 20 20 20 20 20 20 49 46 20 28 44 4f 59 45 29 20 53 59 45 3d 28 53 59 45 49 29 0a 20 20 20 20 ┆ IF (DOYE) SYE=(SYEI) ┆
0x10d40…10d60 20 20 49 46 20 28 2e 4e 4f 54 2e 44 4f 45 29 20 52 45 54 55 52 4e 0a 20 20 20 20 20 20 49 46 20 ┆ IF (.NOT.DOE) RETURN IF ┆
0x10d60…10d80 28 57 54 45 44 29 20 47 4f 20 54 4f 20 33 30 30 0a 43 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆(WTED) GO TO 300 C--------------┆
0x10d80…10da0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x10da0…10dc0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 43 20 20 55 53 45 ┆------------------------- C USE┆
0x10dc0…10de0 20 47 45 4f 4d 45 54 52 49 43 20 53 55 4d 20 46 4f 52 4d 55 4c 41 53 20 57 48 45 4e 20 57 54 45 ┆ GEOMETRIC SUM FORMULAS WHEN WTE┆
0x10de0…10e00 44 3d 2e 46 41 4c 53 45 2e 0a 43 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆D=.FALSE. C---------------------┆
0x10e00…10e20 (30,) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x10e20…10e40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 20 32 30 30 20 44 4f 20 32 31 30 20 ┆------------------ 200 DO 210 ┆
0x10e40…10e60 4c 3d 31 2c 4e 49 4e 54 0a 20 20 20 20 20 20 44 44 54 3d 28 44 45 4c 54 41 54 28 4c 29 29 0a 20 ┆L=1,NINT DDT=(DELTAT(L)) ┆
0x10e60…10e80 20 20 20 20 20 44 54 53 3d 28 54 53 54 41 52 54 28 4c 29 29 0a 20 20 20 20 20 20 44 4c 3d 44 50 ┆ DTS=(TSTART(L)) DL=DP┆
0x10e80…10ea0 4c 41 4d 2a 44 44 54 0a 20 20 20 20 20 20 41 4e 3d 28 46 4c 4f 41 54 28 4e 54 28 4c 29 29 29 0a ┆LAM*DDT AN=(FLOAT(NT(L))) ┆
0x10ea0…10ec0 20 20 20 20 20 20 44 4e 4c 3d 41 4e 2a 44 4c 0a 20 20 20 20 20 20 49 46 20 28 41 42 53 28 44 4c ┆ DNL=AN*DL IF (ABS(DL┆
0x10ec0…10ee0 29 20 2e 4c 45 2e 20 31 2e 44 2d 33 29 20 47 4f 20 54 4f 20 32 31 34 0a 20 20 20 20 20 20 52 44 ┆) .LE. 1.D-3) GO TO 214 RD┆
0x10ee0…10f00 45 44 4c 3d 31 2e 44 30 2f 28 31 2e 44 30 2d 45 58 50 28 2d 44 4c 29 29 0a 20 20 20 20 20 20 44 ┆EDL=1.D0/(1.D0-EXP(-DL)) D┆
0x10f00…10f20 45 44 4e 4c 3d 31 2e 44 30 2d 45 58 50 28 2d 44 4e 4c 29 0a 20 20 20 20 20 20 47 4f 20 54 4f 20 ┆EDNL=1.D0-EXP(-DNL) GO TO ┆
0x10f20…10f40 32 31 38 0a 20 20 32 31 34 20 52 44 45 44 4c 3d 31 2e 44 30 2f 45 58 50 53 4d 41 28 44 4c 29 0a ┆218 214 RDEDL=1.D0/EXPSMA(DL) ┆
0x10f40…10f60 20 20 20 20 20 20 49 46 20 28 41 42 53 28 44 4e 4c 29 20 2e 4c 45 2e 20 31 2e 44 2d 33 29 20 44 ┆ IF (ABS(DNL) .LE. 1.D-3) D┆
0x10f60…10f80 45 44 4e 4c 3d 45 58 50 53 4d 41 28 44 4e 4c 29 0a 20 20 20 20 20 20 49 46 20 28 41 42 53 28 44 ┆EDNL=EXPSMA(DNL) IF (ABS(D┆
0x10f80…10fa0 4e 4c 29 20 2e 47 54 2e 20 31 2e 44 2d 33 29 20 44 45 44 4e 4c 3d 31 2e 44 30 2d 45 58 50 28 2d ┆NL) .GT. 1.D-3) DEDNL=1.D0-EXP(-┆
0x10fa0…10fc0 44 4e 4c 29 0a 20 20 32 31 38 20 45 4c 54 53 3d 45 58 50 28 2d 44 50 4c 41 4d 2a 44 54 53 29 0a ┆DNL) 218 ELTS=EXP(-DPLAM*DTS) ┆
0x10fc0…10fe0 20 20 20 20 20 20 53 3d 45 4c 54 53 2a 44 45 44 4e 4c 2a 52 44 45 44 4c 0a 20 20 20 20 20 20 53 ┆ S=ELTS*DEDNL*RDEDL S┆
0x10fe0…11000 45 49 3d 53 45 49 2b 53 0a 20 20 20 20 20 20 49 46 20 28 4e 4f 54 49 4e 56 29 20 47 4f 20 54 4f ┆EI=SEI+S IF (NOTINV) GO TO┆
0x11000…11020 20 32 31 30 0a 20 20 20 20 20 20 42 3d 44 44 54 2a 52 44 45 44 4c 0a 20 20 20 20 20 20 45 44 4c ┆ 210 B=DDT*RDEDL EDL┆
0x11020…11040 3d 45 58 50 28 2d 44 4c 29 0a 20 20 20 20 20 20 45 4e 54 53 3d 45 4c 54 53 2a 45 58 50 28 2d 44 ┆=EXP(-DL) ENTS=ELTS*EXP(-D┆
0x11040…11060 4e 4c 29 0a 20 20 20 20 20 20 43 3d 41 4e 2a 45 4e 54 53 2d 53 2a 45 44 4c 0a 20 20 20 20 20 20 ┆NL) C=AN*ENTS-S*EDL ┆
0x11060…11080 53 53 3d 42 2a 43 2d 44 54 53 2a 53 0a 20 20 20 20 20 20 44 53 45 49 3d 44 53 45 49 2b 53 53 0a ┆SS=B*C-DTS*S DSEI=DSEI+SS ┆
0x11080…110a0 20 20 20 20 20 20 44 44 53 45 49 3d 44 44 53 45 49 2d 44 54 53 2a 53 53 2d 42 2a 28 45 44 4c 2a ┆ DDSEI=DDSEI-DTS*SS-B*(EDL*┆
0x110a0…110c0 28 42 2a 43 2b 53 53 2d 53 2a 44 44 54 29 2b 41 4e 2a 28 41 4e 2a 44 44 54 2b 44 54 53 29 2a 45 ┆(B*C+SS-S*DDT)+AN*(AN*DDT+DTS)*E┆
0x110c0…110e0 4e 54 53 29 0a 20 20 32 31 30 20 43 4f 4e 54 49 4e 55 45 0a 20 20 33 30 30 20 53 45 3d 28 53 45 ┆NTS) 210 CONTINUE 300 SE=(SE┆
0x110e0…11100 49 29 0a 20 20 20 20 20 20 49 46 20 28 4e 4f 54 49 4e 56 29 20 52 45 54 55 52 4e 0a 20 20 20 20 ┆I) IF (NOTINV) RETURN ┆
0x11100…11120 20 20 44 55 4d 3d 44 50 4c 41 4d 2a 44 53 45 49 0a 20 20 20 20 20 20 44 53 45 3d 28 44 55 4d 29 ┆ DUM=DPLAM*DSEI DSE=(DUM)┆
0x11120…11140 0a 20 20 20 20 20 20 44 44 53 45 3d 28 44 55 4d 2b 44 44 53 45 49 2a 44 50 4c 41 4d 2a 44 50 4c ┆ DDSE=(DUM+DDSEI*DPLAM*DPL┆
0x11140…11160 41 4d 29 0a 20 20 20 20 20 20 52 45 54 55 52 4e 0a 20 20 20 20 20 20 45 4e 44 0a 43 2d 2d 2d 2d ┆AM) RETURN END C----┆
0x11160…11180 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
[…0x1…]
0x111a0…111c0 2d 2d 2d 0a 43 20 20 53 55 42 52 4f 55 54 49 4e 45 20 50 49 56 4f 54 2e 20 20 44 4f 45 53 20 47 ┆--- C SUBROUTINE PIVOT. DOES G┆
0x111c0…111e0 41 55 53 53 2d 4a 4f 52 44 41 4e 20 50 49 56 4f 54 53 20 4f 4e 20 41 4c 4c 20 4e 50 20 44 49 41 ┆AUSS-JORDAN PIVOTS ON ALL NP DIA┆
0x111e0…11200 47 4f 4e 41 4c 0a 43 20 20 20 20 20 20 45 4c 45 4d 45 4e 54 53 20 4f 46 20 41 55 47 4d 45 4e 54 ┆GONAL C ELEMENTS OF AUGMENT┆
0x11200…11220 45 44 20 4d 41 54 52 49 58 20 41 44 55 42 20 45 58 43 45 50 54 20 54 48 4f 53 45 20 54 48 41 54 ┆ED MATRIX ADUB EXCEPT THOSE THAT┆
0x11220…11240 20 48 41 56 45 20 41 0a 43 20 20 20 20 20 20 54 4f 4c 45 52 41 4e 43 45 20 4c 45 53 53 20 54 48 ┆ HAVE A C TOLERANCE LESS TH┆
0x11240…11260 41 4e 20 44 54 4f 4c 45 52 20 4f 52 20 54 48 41 54 20 43 41 55 53 45 20 41 20 56 49 4f 4c 41 54 ┆AN DTOLER OR THAT CAUSE A VIOLAT┆
0x11260…11280 49 4f 4e 20 4f 46 20 54 48 45 0a 43 20 20 20 20 20 20 43 4f 4e 53 54 52 41 49 4e 54 20 50 4d 49 ┆ION OF THE C CONSTRAINT PMI┆
0x11280…112a0 4e 20 2e 4c 45 2e 20 50 20 2e 4c 45 2e 20 50 4d 41 58 2e 0a 43 20 20 4f 4e 4c 59 20 4e 45 45 44 ┆N .LE. P .LE. PMAX. C ONLY NEED┆
0x112a0…112c0 53 20 46 55 4c 4c 20 55 50 50 45 52 20 54 52 49 41 4e 47 4c 45 20 4f 46 20 4d 41 54 52 49 58 20 ┆S FULL UPPER TRIANGLE OF MATRIX ┆
0x112c0…112e0 4f 4e 20 49 4e 50 55 54 2c 20 41 4e 44 20 4f 56 45 52 57 52 49 54 45 53 20 49 54 0a 43 20 20 20 ┆ON INPUT, AND OVERWRITES IT C ┆
0x112e0…11300 20 20 20 57 49 54 48 20 49 4e 56 45 52 53 45 20 41 4e 44 20 53 4f 4c 55 54 49 4f 4e 2e 0a 43 20 ┆ WITH INVERSE AND SOLUTION. C ┆
0x11300…11320 20 4e 45 45 44 53 20 4e 4f 20 43 4f 4d 4d 4f 4e 20 42 4c 4f 43 4b 53 2e 0a 43 2d 2d 2d 2d 2d 2d ┆ NEEDS NO COMMON BLOCKS. C------┆
0x11320…11340 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
[…0x1…]
0x11360…11380 2d 0a 43 20 20 43 41 4c 4c 53 20 53 55 42 50 52 4f 47 52 41 4d 53 20 2d 20 50 49 56 4f 54 31 0a ┆- C CALLS SUBPROGRAMS - PIVOT1 ┆
0x11380…113a0 43 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆C-------------------------------┆
0x113a0…113c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x113c0…113e0 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 20 20 20 20 20 53 55 42 52 4f 55 54 49 4e 45 20 50 49 56 4f 54 20 ┆-------- SUBROUTINE PIVOT ┆
0x113e0…11400 28 41 44 55 42 2c 4d 44 49 4d 41 2c 4e 50 2c 4f 4e 4c 59 49 4e 2c 49 4e 56 45 52 54 2c 43 4f 4e ┆(ADUB,MDIMA,NP,ONLYIN,INVERT,CON┆
0x11400…11420 53 54 52 2c 50 4d 49 4e 2c 0a 20 20 20 20 20 31 20 50 4d 41 58 2c 50 2c 44 54 4f 4c 45 52 2c 44 ┆STR,PMIN, 1 PMAX,P,DTOLER,D┆
0x11420…11440 45 4c 54 41 50 2c 41 4c 4c 50 49 56 2c 51 47 2c 50 49 56 2c 4a 4c 41 4d 2c 51 4d 41 58 2c 49 45 ┆ELTAP,ALLPIV,QG,PIV,JLAM,QMAX,IE┆
0x11440…11460 52 52 4f 52 29 0a 20 20 20 20 20 20 4c 4f 47 49 43 41 4c 20 4f 4e 4c 59 49 4e 2c 20 41 4c 4c 50 ┆RROR) LOGICAL ONLYIN, ALLP┆
0x11460…11480 49 56 2c 20 43 4f 4e 53 54 52 2c 20 49 4e 56 45 52 54 2c 20 50 49 56 28 4e 50 29 0a 20 20 20 20 ┆IV, CONSTR, INVERT, PIV(NP) ┆
0x11480…114a0 20 20 44 49 4d 45 4e 53 49 4f 4e 20 44 45 4c 54 41 50 28 4e 50 29 2c 20 50 28 4e 50 29 2c 20 41 ┆ DIMENSION DELTAP(NP), P(NP), A┆
0x114a0…114c0 44 55 42 28 4d 44 49 4d 41 2c 4d 44 49 4d 41 29 2c 20 44 54 4f 4c 45 52 28 4e 50 29 0a 20 20 20 ┆DUB(MDIMA,MDIMA), DTOLER(NP) ┆
0x114c0…114e0 20 20 20 49 45 52 52 4f 52 3d 30 0a 20 20 20 20 20 20 51 47 3d 31 2e 0a 20 20 20 20 20 20 51 4d ┆ IERROR=0 QG=1. QM┆
0x114e0…11500 41 58 3d 39 39 39 2e 0a 20 20 20 20 20 20 4e 50 50 3d 4e 50 2b 31 0a 20 20 20 20 20 20 49 46 20 ┆AX=999. NPP=NP+1 IF ┆
0x11500…11520 28 4f 4e 4c 59 49 4e 29 20 4e 50 50 3d 4e 50 0a 20 20 20 20 20 20 44 4f 20 31 31 30 20 4a 3d 31 ┆(ONLYIN) NPP=NP DO 110 J=1┆
0x11520…11540 2c 4e 50 0a 20 20 31 31 30 20 50 49 56 28 4a 29 3d 2e 46 41 4c 53 45 2e 0a 20 20 20 20 20 20 49 ┆,NP 110 PIV(J)=.FALSE. I┆
0x11540…11560 46 20 28 4e 50 50 20 2e 45 51 2e 20 31 29 20 47 4f 20 54 4f 20 31 39 30 0a 20 20 20 20 20 20 44 ┆F (NPP .EQ. 1) GO TO 190 D┆
0x11560…11580 4f 20 31 32 30 20 4a 3d 32 2c 4e 50 50 0a 20 20 20 20 20 20 4c 3d 4a 2d 31 0a 20 20 20 20 20 20 ┆O 120 J=2,NPP L=J-1 ┆
0x11580…115a0 44 4f 20 31 32 30 20 4b 3d 31 2c 4c 0a 20 20 20 20 20 20 41 44 55 42 28 4a 2c 4b 29 3d 41 44 55 ┆DO 120 K=1,L ADUB(J,K)=ADU┆
0x115a0…115c0 42 28 4b 2c 4a 29 0a 20 20 31 32 30 20 43 4f 4e 54 49 4e 55 45 0a 43 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆B(K,J) 120 CONTINUE C---------┆
0x115c0…115e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x115e0…11600 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 43 ┆------------------------------ C┆
0x11600…11620 20 20 4d 41 49 4e 20 4c 4f 4f 50 20 46 4f 52 20 43 4f 4d 50 4c 45 54 45 20 50 49 56 4f 54 49 4e ┆ MAIN LOOP FOR COMPLETE PIVOTIN┆
0x11620…11640 47 0a 43 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆G C-----------------------------┆
0x11640…11660 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x11660…11680 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 20 31 39 30 20 44 4f 20 32 30 30 20 4e 50 49 56 3d 31 2c 4e ┆---------- 190 DO 200 NPIV=1,N┆
0x11680…116a0 50 0a 43 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆P C-----------------------------┆
0x116a0…116c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x116c0…116e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 43 20 20 46 49 4e 44 20 4e 45 58 54 20 50 49 56 4f 54 20 45 4c ┆---------- C FIND NEXT PIVOT EL┆
0x116e0…11700 45 4d 45 4e 54 0a 43 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆EMENT C-------------------------┆
0x11700…11720 (31,) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x11720…11740 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 20 20 20 20 20 44 55 4d 3d 30 2e 0a 20 20 20 20 ┆-------------- DUM=0. ┆
0x11740…11760 20 20 44 4f 20 32 31 30 20 4a 3d 31 2c 4e 50 0a 20 20 20 20 20 20 49 46 20 28 50 49 56 28 4a 29 ┆ DO 210 J=1,NP IF (PIV(J)┆
0x11760…11780 20 2e 4f 52 2e 20 41 44 55 42 28 4a 2c 4a 29 2e 4c 45 2e 44 54 4f 4c 45 52 28 4a 29 29 20 47 4f ┆ .OR. ADUB(J,J).LE.DTOLER(J)) GO┆
0x11780…117a0 20 54 4f 20 32 31 30 0a 20 20 20 20 20 20 44 44 55 4d 3d 41 44 55 42 28 4a 2c 4e 50 50 29 2a 41 ┆ TO 210 DDUM=ADUB(J,NPP)*A┆
0x117a0…117c0 44 55 42 28 4a 2c 4e 50 50 29 2f 41 44 55 42 28 4a 2c 4a 29 0a 20 20 20 20 20 20 49 46 20 28 44 ┆DUB(J,NPP)/ADUB(J,J) IF (D┆
0x117c0…117e0 44 55 4d 20 2e 4c 45 2e 20 44 55 4d 29 20 47 4f 20 54 4f 20 32 31 30 0a 20 20 20 20 20 20 44 55 ┆DUM .LE. DUM) GO TO 210 DU┆
0x117e0…11800 4d 3d 44 44 55 4d 0a 20 20 20 20 20 20 4c 3d 4a 0a 20 20 32 31 30 20 43 4f 4e 54 49 4e 55 45 0a ┆M=DDUM L=J 210 CONTINUE ┆
0x11800…11820 20 20 20 20 20 20 49 46 20 28 44 55 4d 20 2e 4c 45 2e 20 30 2e 29 20 47 4f 20 54 4f 20 33 30 30 ┆ IF (DUM .LE. 0.) GO TO 300┆
0x11820…11840 0a 20 20 20 20 20 20 50 49 56 28 4c 29 3d 2e 54 52 55 45 2e 0a 20 20 20 20 20 20 43 41 4c 4c 20 ┆ PIV(L)=.TRUE. CALL ┆
0x11840…11860 50 49 56 4f 54 31 20 28 41 44 55 42 2c 4d 44 49 4d 41 2c 4e 50 50 2c 4c 29 0a 20 20 32 30 30 20 ┆PIVOT1 (ADUB,MDIMA,NPP,L) 200 ┆
0x11860…11880 43 4f 4e 54 49 4e 55 45 0a 20 20 20 20 20 20 4e 50 49 56 3d 4e 50 2b 31 0a 20 20 33 30 30 20 4e ┆CONTINUE NPIV=NP+1 300 N┆
0x11880…118a0 50 49 56 3d 4e 50 49 56 2d 31 0a 20 20 20 20 20 20 49 46 20 28 4f 4e 4c 59 49 4e 20 2e 4f 52 2e ┆PIV=NPIV-1 IF (ONLYIN .OR.┆
0x118a0…118c0 20 2e 4e 4f 54 2e 43 4f 4e 53 54 52 29 20 47 4f 20 54 4f 20 34 30 30 0a 43 2d 2d 2d 2d 2d 2d 2d ┆ .NOT.CONSTR) GO TO 400 C-------┆
0x118c0…118e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
[…0x1…]
0x11900…11920 0a 43 20 20 45 4e 46 4f 52 43 45 20 43 4f 4e 53 54 52 41 49 4e 54 53 20 42 59 20 4d 41 4b 49 4e ┆ C ENFORCE CONSTRAINTS BY MAKIN┆
0x11920…11940 47 20 51 47 2e 4c 54 2e 31 2e 20 4f 52 20 42 59 20 55 4e 50 49 56 4f 54 49 4e 47 0a 43 2d 2d 2d ┆G QG.LT.1. OR BY UNPIVOTING C---┆
0x11940…11960 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
[…0x1…]
0x11980…119a0 2d 2d 2d 2d 0a 20 20 20 20 20 20 44 4f 20 33 33 30 20 4a 3d 31 2c 4a 4c 41 4d 0a 20 20 20 20 20 ┆---- DO 330 J=1,JLAM ┆
0x119a0…119c0 20 44 55 4d 3d 31 2e 45 2b 32 30 0a 20 20 20 20 20 20 44 4f 20 33 34 30 20 4b 3d 31 2c 4a 4c 41 ┆ DUM=1.E+20 DO 340 K=1,JLA┆
0x119c0…119e0 4d 0a 20 20 20 20 20 20 49 46 20 28 2e 4e 4f 54 2e 50 49 56 28 4b 29 29 20 47 4f 20 54 4f 20 33 ┆M IF (.NOT.PIV(K)) GO TO 3┆
0x119e0…11a00 34 30 0a 20 20 20 20 20 20 52 44 45 4c 54 41 3d 31 2e 2f 41 44 55 42 28 4b 2c 4e 50 50 29 0a 20 ┆40 RDELTA=1./ADUB(K,NPP) ┆
0x11a00…11a20 20 20 20 20 20 44 44 55 4d 3d 41 4d 41 58 31 28 28 50 4d 49 4e 2d 50 28 4b 29 29 2a 52 44 45 4c ┆ DDUM=AMAX1((PMIN-P(K))*RDEL┆
0x11a20…11a40 54 41 2c 28 50 4d 41 58 2d 50 28 4b 29 29 2a 52 44 45 4c 54 41 29 0a 20 20 20 20 20 20 49 46 20 ┆TA,(PMAX-P(K))*RDELTA) IF ┆
0x11a40…11a60 28 44 44 55 4d 20 2e 47 45 2e 20 44 55 4d 29 20 47 4f 20 54 4f 20 33 34 30 0a 20 20 20 20 20 20 ┆(DDUM .GE. DUM) GO TO 340 ┆
0x11a60…11a80 44 55 4d 3d 44 44 55 4d 0a 20 20 20 20 20 20 4c 3d 4b 0a 20 20 33 34 30 20 43 4f 4e 54 49 4e 55 ┆DUM=DDUM L=K 340 CONTINU┆
0x11a80…11aa0 45 0a 20 20 20 20 20 20 49 46 20 28 44 55 4d 20 2e 47 54 2e 20 31 2e 45 2d 35 29 20 47 4f 20 54 ┆E IF (DUM .GT. 1.E-5) GO T┆
0x11aa0…11ac0 4f 20 33 35 30 0a 20 20 20 20 20 20 4e 50 49 56 3d 4e 50 49 56 2d 31 0a 20 20 20 20 20 20 50 49 ┆O 350 NPIV=NPIV-1 PI┆
0x11ac0…11ae0 56 28 4c 29 3d 2e 46 41 4c 53 45 2e 0a 20 20 20 20 20 20 43 41 4c 4c 20 50 49 56 4f 54 31 20 28 ┆V(L)=.FALSE. CALL PIVOT1 (┆
0x11ae0…11b00 41 44 55 42 2c 4d 44 49 4d 41 2c 4e 50 50 2c 4c 29 0a 20 20 33 33 30 20 43 4f 4e 54 49 4e 55 45 ┆ADUB,MDIMA,NPP,L) 330 CONTINUE┆
0x11b00…11b20 0a 43 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ C------------------------------┆
0x11b20…11b40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x11b40…11b60 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 43 20 20 49 46 20 41 4c 4c 20 45 4c 45 4d 45 4e 54 53 20 41 52 45 ┆--------- C IF ALL ELEMENTS ARE┆
0x11b60…11b80 20 53 4f 4d 45 48 4f 57 20 55 4e 50 49 56 4f 54 45 44 2c 20 54 41 4b 45 20 45 52 52 4f 52 20 45 ┆ SOMEHOW UNPIVOTED, TAKE ERROR E┆
0x11b80…11ba0 58 49 54 0a 43 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆XIT C---------------------------┆
0x11ba0…11bc0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x11bc0…11be0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 20 33 35 30 20 49 46 20 28 4e 50 49 56 20 2e 47 54 2e ┆------------ 350 IF (NPIV .GT.┆
0x11be0…11c00 20 30 29 20 47 4f 20 54 4f 20 33 39 30 0a 20 20 20 20 20 20 49 45 52 52 4f 52 3d 35 0a 20 20 20 ┆ 0) GO TO 390 IERROR=5 ┆
0x11c00…11c20 20 20 20 52 45 54 55 52 4e 0a 20 20 33 39 30 20 51 47 3d 41 4d 49 4e 31 28 44 55 4d 2c 31 2e 29 ┆ RETURN 390 QG=AMIN1(DUM,1.)┆
0x11c20…11c40 0a 20 20 20 20 20 20 51 4d 41 58 3d 44 55 4d 0a 20 20 34 30 30 20 41 4c 4c 50 49 56 3d 4e 50 49 ┆ QMAX=DUM 400 ALLPIV=NPI┆
0x11c40…11c60 56 20 2e 45 51 2e 20 4e 50 0a 20 20 20 20 20 20 49 46 20 28 4f 4e 4c 59 49 4e 29 20 52 45 54 55 ┆V .EQ. NP IF (ONLYIN) RETU┆
0x11c60…11c80 52 4e 0a 20 20 20 20 20 20 44 4f 20 34 33 30 20 4a 3d 31 2c 4e 50 0a 20 20 20 20 20 20 44 45 4c ┆RN DO 430 J=1,NP DEL┆
0x11c80…11ca0 54 41 50 28 4a 29 3d 30 2e 0a 20 20 34 33 30 20 49 46 20 28 50 49 56 28 4a 29 29 20 44 45 4c 54 ┆TAP(J)=0. 430 IF (PIV(J)) DELT┆
0x11ca0…11cc0 41 50 28 4a 29 3d 41 44 55 42 28 4a 2c 4e 50 50 29 0a 20 20 20 20 20 20 52 45 54 55 52 4e 0a 20 ┆AP(J)=ADUB(J,NPP) RETURN ┆
0x11cc0…11ce0 20 20 20 20 20 45 4e 44 0a 43 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ END C----------------------┆
0x11ce0…11d00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x11d00…11d20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 43 20 20 53 55 42 52 4f 55 54 49 4e 45 20 ┆----------------- C SUBROUTINE ┆
0x11d20…11d40 50 49 56 4f 54 31 2e 20 44 4f 45 53 20 41 20 47 41 55 53 53 2d 4a 4f 52 44 41 4e 20 50 49 56 4f ┆PIVOT1. DOES A GAUSS-JORDAN PIVO┆
0x11d40…11d60 54 20 4f 4e 20 44 49 41 47 4f 4e 41 4c 20 45 4c 45 4d 45 4e 54 20 4c 50 49 56 0a 43 20 20 4e 45 ┆T ON DIAGONAL ELEMENT LPIV C NE┆
0x11d60…11d80 45 44 53 20 4e 4f 20 43 4f 4d 4d 4f 4e 20 42 4c 4f 43 4b 53 2e 0a 43 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆EDS NO COMMON BLOCKS. C---------┆
0x11d80…11da0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x11da0…11dc0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 43 ┆------------------------------ C┆
0x11dc0…11de0 20 20 43 41 4c 4c 53 20 4e 4f 20 53 55 42 50 52 4f 47 52 41 4d 53 0a 43 2d 2d 2d 2d 2d 2d 2d 2d ┆ CALLS NO SUBPROGRAMS C--------┆
0x11de0…11e00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x11e00…11e20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ┆------------------------------- ┆
0x11e20…11e40 20 20 20 20 20 20 53 55 42 52 4f 55 54 49 4e 45 20 50 49 56 4f 54 31 20 28 41 44 55 42 2c 4d 44 ┆ SUBROUTINE PIVOT1 (ADUB,MD┆
0x11e40…11e60 49 4d 41 2c 4e 50 50 2c 4c 50 49 56 29 0a 20 20 20 20 20 20 44 49 4d 45 4e 53 49 4f 4e 20 41 44 ┆IMA,NPP,LPIV) DIMENSION AD┆
0x11e60…11e80 55 42 28 4d 44 49 4d 41 2c 4d 44 49 4d 41 29 0a 20 20 20 20 20 20 44 55 42 3d 31 2e 2f 41 44 55 ┆UB(MDIMA,MDIMA) DUB=1./ADU┆
0x11e80…11ea0 42 28 4c 50 49 56 2c 4c 50 49 56 29 0a 20 20 20 20 20 20 44 4f 20 31 31 30 20 4a 3d 31 2c 4e 50 ┆B(LPIV,LPIV) DO 110 J=1,NP┆
0x11ea0…11ec0 50 0a 20 20 20 20 20 20 49 46 20 28 4a 20 2e 45 51 2e 20 4c 50 49 56 29 20 47 4f 20 54 4f 20 31 ┆P IF (J .EQ. LPIV) GO TO 1┆
0x11ec0…11ee0 31 30 0a 20 20 20 20 20 20 44 44 55 42 3d 41 44 55 42 28 4a 2c 4c 50 49 56 29 2a 44 55 42 0a 20 ┆10 DDUB=ADUB(J,LPIV)*DUB ┆
0x11ee0…11f00 20 20 20 20 20 44 4f 20 31 32 30 20 4b 3d 31 2c 4e 50 50 0a 20 20 31 32 30 20 49 46 20 28 4b 20 ┆ DO 120 K=1,NPP 120 IF (K ┆
0x11f00…11f20 2e 4e 45 2e 20 4c 50 49 56 29 20 41 44 55 42 28 4a 2c 4b 29 3d 41 44 55 42 28 4a 2c 4b 29 2d 41 ┆.NE. LPIV) ADUB(J,K)=ADUB(J,K)-A┆
0x11f20…11f40 44 55 42 28 4c 50 49 56 2c 4b 29 2a 44 44 55 42 0a 20 20 31 31 30 20 43 4f 4e 54 49 4e 55 45 0a ┆DUB(LPIV,K)*DDUB 110 CONTINUE ┆
0x11f40…11f60 20 20 20 20 20 20 44 4f 20 31 33 30 20 4a 3d 31 2c 4e 50 50 0a 20 20 20 20 20 20 41 44 55 42 28 ┆ DO 130 J=1,NPP ADUB(┆
0x11f60…11f80 4a 2c 4c 50 49 56 29 3d 2d 41 44 55 42 28 4a 2c 4c 50 49 56 29 2a 44 55 42 0a 20 20 31 33 30 20 ┆J,LPIV)=-ADUB(J,LPIV)*DUB 130 ┆
0x11f80…11fa0 41 44 55 42 28 4c 50 49 56 2c 4a 29 3d 41 44 55 42 28 4c 50 49 56 2c 4a 29 2a 44 55 42 0a 20 20 ┆ADUB(LPIV,J)=ADUB(LPIV,J)*DUB ┆
0x11fa0…11fc0 20 20 20 20 41 44 55 42 28 4c 50 49 56 2c 4c 50 49 56 29 3d 44 55 42 0a 20 20 20 20 20 20 52 45 ┆ ADUB(LPIV,LPIV)=DUB RE┆
0x11fc0…11fe0 54 55 52 4e 0a 20 20 20 20 20 20 45 4e 44 0a 43 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆TURN END C----------------┆
0x11fe0…12000 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x12000…12020 (32,) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 43 20 20 53 55 42 52 4f ┆----------------------- C SUBRO┆
0x12020…12040 55 54 49 4e 45 20 41 4e 4c 45 52 52 2e 20 20 44 4f 45 53 20 46 49 4e 41 4c 20 45 52 52 4f 52 20 ┆UTINE ANLERR. DOES FINAL ERROR ┆
0x12040…12060 41 4e 41 4c 59 53 49 53 20 4f 46 20 46 49 54 20 41 4e 44 20 43 41 4c 43 55 4c 41 54 45 53 0a 43 ┆ANALYSIS OF FIT AND CALCULATES C┆
0x12060…12080 20 20 20 20 20 20 4e 4f 4e 4c 49 4e 45 41 52 49 54 59 20 54 45 52 4d 20 45 4e 50 48 49 20 4f 46 ┆ NONLINEARITY TERM ENPHI OF┆
0x12080…120a0 20 42 45 41 4c 45 20 46 4f 52 20 4c 41 54 45 52 20 55 53 45 2e 0a 43 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ BEALE FOR LATER USE. C---------┆
0x120a0…120c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x120c0…120e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 43 ┆------------------------------ C┆
0x120e0…12100 20 20 43 41 4c 4c 53 20 53 55 42 50 52 4f 47 52 41 4d 53 20 2d 20 50 49 56 4f 54 0a 43 20 20 57 ┆ CALLS SUBPROGRAMS - PIVOT C W┆
0x12100…12120 48 49 43 48 20 49 4e 20 54 55 52 4e 20 43 41 4c 4c 20 2d 20 50 49 56 4f 54 31 0a 43 2d 2d 2d 2d ┆HICH IN TURN CALL - PIVOT1 C----┆
0x12120…12140 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
[…0x1…]
0x12160…12180 2d 2d 2d 0a 20 20 20 20 20 20 53 55 42 52 4f 55 54 49 4e 45 20 41 4e 4c 45 52 52 20 28 4a 4c 41 ┆--- SUBROUTINE ANLERR (JLA┆
0x12180…121a0 4d 2c 54 2c 53 51 52 54 57 2c 4e 4d 41 58 2c 45 2c 4e 4c 49 4e 2c 4e 44 49 4d 45 2c 54 53 54 41 ┆M,T,SQRTW,NMAX,E,NLIN,NDIME,TSTA┆
0x121a0…121c0 52 54 2c 44 45 4c 54 41 54 2c 0a 20 20 20 20 20 31 20 4e 54 2c 4e 49 4e 54 2c 4e 2c 49 54 59 50 ┆RT,DELTAT, 1 NT,NINT,N,ITYP┆
0x121c0…121e0 45 2c 49 4e 54 45 52 2c 50 52 4c 53 51 29 0a 20 20 20 20 20 20 4c 4f 47 49 43 41 4c 20 4c 44 55 ┆E,INTER,PRLSQ) LOGICAL LDU┆
0x121e0…12200 4d 2c 20 4e 4f 42 41 53 45 2c 20 50 49 56 41 4c 50 2c 20 46 41 49 4c 45 44 2c 20 50 52 4c 53 51 ┆M, NOBASE, PIVALP, FAILED, PRLSQ┆
0x12200…12220 2c 20 52 45 47 49 4e 54 2c 0a 20 20 20 20 20 31 20 4c 42 4c 4f 4b 41 2c 20 4c 42 4c 4f 4b 42 2c ┆, REGINT, 1 LBLOKA, LBLOKB,┆
0x12220…12240 20 4c 42 4c 4f 4b 43 2c 20 49 4e 54 45 52 0a 20 20 20 20 20 20 43 4f 4d 4d 4f 4e 20 2f 42 4c 4f ┆ LBLOKC, INTER COMMON /BLO┆
0x12240…12260 4b 2f 20 52 42 4c 4f 4b 41 28 32 38 30 30 29 2c 20 53 55 4d 57 54 2c 20 52 42 4c 4f 4b 42 28 36 ┆K/ RBLOKA(2800), SUMWT, RBLOKB(6┆
0x12260…12280 34 29 2c 20 56 41 52 2c 20 52 42 4c 4f 4b 43 28 34 29 2c 0a 20 20 20 20 20 31 20 50 41 4c 50 48 ┆4), VAR, RBLOKC(4), 1 PALPH┆
0x12280…122a0 41 28 36 29 2c 20 50 4c 41 4d 28 36 29 2c 20 50 52 45 43 49 53 2c 20 53 49 47 59 59 2c 20 45 4e ┆A(6), PLAM(6), PRECIS, SIGYY, EN┆
0x122a0…122c0 50 48 49 2c 20 53 45 28 36 2c 36 29 2c 20 53 49 47 4d 41 50 28 31 31 29 2c 0a 20 20 20 20 20 32 ┆PHI, SE(6,6), SIGMAP(11), 2┆
0x122c0…122e0 20 50 43 45 52 52 28 31 31 29 2c 20 52 42 4c 4f 4b 44 28 32 36 38 29 2c 20 44 46 43 41 50 4c 28 ┆ PCERR(11), RBLOKD(268), DFCAPL(┆
0x122e0…12300 36 2c 35 29 2c 20 52 42 4c 4f 4b 45 28 35 29 2c 20 41 44 55 42 28 31 31 2c 31 31 29 2c 0a 20 20 ┆6,5), RBLOKE(5), ADUB(11,11), ┆
0x12300…12320 20 20 20 33 20 44 44 53 45 28 35 2c 35 29 2c 20 44 54 4f 4c 45 52 28 31 31 29 2c 20 52 42 4c 4f ┆ 3 DDSE(5,5), DTOLER(11), RBLO┆
0x12320…12340 4b 46 28 31 33 32 29 2c 20 49 42 4c 4f 4b 41 28 31 31 31 29 2c 20 4d 44 49 4d 41 2c 20 49 42 4c ┆KF(132), IBLOKA(111), MDIMA, IBL┆
0x12340…12360 4f 4b 42 2c 0a 20 20 20 20 20 34 20 49 57 54 53 47 4e 2c 20 49 42 4c 4f 4b 43 28 33 30 29 2c 20 ┆OKB, 4 IWTSGN, IBLOKC(30), ┆
0x12360…12380 4e 46 2c 20 49 42 4c 4f 4b 44 2c 20 49 57 52 49 54 45 2c 20 49 42 4c 4f 4b 45 28 36 29 2c 20 4a ┆NF, IBLOKD, IWRITE, IBLOKE(6), J┆
0x12380…123a0 4c 41 4d 50 31 2c 0a 20 20 20 20 20 35 20 49 42 4c 4f 4b 46 28 36 29 2c 20 52 45 47 49 4e 54 2c ┆LAMP1, 5 IBLOKF(6), REGINT,┆
0x123a0…123c0 20 46 41 49 4c 45 44 2c 20 4c 42 4c 4f 4b 41 2c 20 4e 4f 42 41 53 45 2c 20 4c 42 4c 4f 4b 42 28 ┆ FAILED, LBLOKA, NOBASE, LBLOKB(┆
0x123c0…123e0 31 34 29 2c 20 50 49 56 41 4c 50 28 31 31 29 0a 20 20 20 20 20 20 43 4f 4d 4d 4f 4e 20 2f 42 4c ┆14), PIVALP(11) COMMON /BL┆
0x123e0…12400 4f 4b 2f 20 4c 42 4c 4f 4b 43 0a 20 20 20 20 20 20 44 49 4d 45 4e 53 49 4f 4e 20 43 55 49 28 31 ┆OK/ LBLOKC DIMENSION CUI(1┆
0x12400…12420 31 29 2c 20 43 53 54 41 52 28 31 31 29 2c 20 41 4c 50 4c 41 4d 28 35 2c 32 29 2c 20 44 45 4c 54 ┆1), CSTAR(11), ALPLAM(5,2), DELT┆
0x12420…12440 28 31 30 2c 31 30 29 2c 0a 20 20 20 20 20 31 20 43 43 53 55 4d 28 31 31 2c 31 30 29 2c 20 41 44 ┆(10,10), 1 CCSUM(11,10), AD┆
0x12440…12460 55 4d 28 36 29 0a 20 20 20 20 20 20 44 49 4d 45 4e 53 49 4f 4e 20 53 55 4d 28 34 29 2c 20 54 28 ┆UM(6) DIMENSION SUM(4), T(┆
0x12460…12480 4e 4d 41 58 29 2c 20 45 28 4e 44 49 4d 45 2c 4e 4c 49 4e 29 2c 20 53 51 52 54 57 28 4e 4d 41 58 ┆NMAX), E(NDIME,NLIN), SQRTW(NMAX┆
0x12480…124a0 29 2c 0a 20 20 20 20 20 31 20 54 53 54 41 52 54 28 4e 49 4e 54 29 2c 20 44 45 4c 54 41 54 28 4e ┆), 1 TSTART(NINT), DELTAT(N┆
0x124a0…124c0 49 4e 54 29 2c 20 4e 54 28 4e 49 4e 54 29 0a 20 20 20 20 20 20 44 41 54 41 20 48 4f 4c 52 54 48 ┆INT), NT(NINT) DATA HOLRTH┆
0x124c0…124e0 2f 34 48 42 41 53 45 2f 2c 41 4c 50 4c 41 4d 2f 34 48 4c 41 4d 31 2c 20 34 48 4c 41 4d 32 2c 20 ┆/4HBASE/,ALPLAM/4HLAM1, 4HLAM2, ┆
0x124e0…12500 34 48 4c 41 4d 33 2c 20 34 48 4c 41 4d 34 2c 0a 20 20 20 20 20 31 20 34 48 4c 41 4d 35 2c 20 34 ┆4HLAM3, 4HLAM4, 1 4HLAM5, 4┆
0x12500…12520 48 41 4c 50 31 2c 20 34 48 41 4c 50 32 2c 20 34 48 41 4c 50 33 2c 20 34 48 41 4c 50 34 2c 20 34 ┆HALP1, 4HALP2, 4HALP3, 4HALP4, 4┆
0x12520…12540 48 41 4c 50 35 2f 0a 43 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆HALP5/ C------------------------┆
0x12540…12560 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x12560…12580 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 43 20 20 43 4f 4d 50 55 54 45 20 43 4f 52 52 45 ┆--------------- C COMPUTE CORRE┆
0x12580…125a0 4c 41 54 49 4f 4e 20 43 4f 45 46 46 49 43 49 45 4e 54 53 20 41 4e 44 20 53 54 41 4e 44 41 52 44 ┆LATION COEFFICIENTS AND STANDARD┆
0x125a0…125c0 20 45 52 52 4f 52 20 45 53 54 49 4d 41 54 45 53 0a 43 20 20 20 20 20 20 55 53 49 4e 47 20 46 55 ┆ ERROR ESTIMATES C USING FU┆
0x125c0…125e0 4c 4c 20 4e 4f 52 4d 41 4c 20 45 51 55 41 54 49 4f 4e 53 20 4d 41 54 52 49 58 20 28 41 44 55 42 ┆LL NORMAL EQUATIONS MATRIX (ADUB┆
0x125e0…12600 29 20 57 49 54 48 20 41 4c 4c 20 50 41 52 41 4d 45 54 45 52 53 0a 43 20 20 20 20 20 20 41 53 53 ┆) WITH ALL PARAMETERS C ASS┆
0x12600…12620 55 4d 45 44 20 49 4e 44 45 50 45 4e 44 45 4e 54 0a 43 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆UMED INDEPENDENT C--------------┆
0x12620…12640 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x12640…12660 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 20 20 20 20 20 ┆------------------------- ┆
0x12660…12680 44 4f 20 31 31 30 20 4b 3d 31 2c 4a 4c 41 4d 0a 20 20 20 20 20 20 4b 4b 3d 4b 2b 4a 4c 41 4d 0a ┆DO 110 K=1,JLAM KK=K+JLAM ┆
0x12680…126a0 20 20 20 20 20 20 44 4f 20 31 32 30 20 4a 3d 31 2c 4b 0a 20 20 20 20 20 20 4a 4a 3d 4a 2b 4a 4c ┆ DO 120 J=1,K JJ=J+JL┆
0x126a0…126c0 41 4d 0a 20 20 20 20 20 20 41 44 55 42 28 4a 2c 4b 29 3d 50 41 4c 50 48 41 28 4a 29 2a 50 41 4c ┆AM ADUB(J,K)=PALPHA(J)*PAL┆
0x126c0…126e0 50 48 41 28 4b 29 2a 44 44 53 45 28 4a 2c 4b 29 0a 20 20 20 20 20 20 41 44 55 42 28 4a 2c 4b 4b ┆PHA(K)*DDSE(J,K) ADUB(J,KK┆
0x126e0…12700 29 3d 2d 44 46 43 41 50 4c 28 4b 2c 4a 29 2a 50 41 4c 50 48 41 28 4a 29 0a 20 20 20 20 20 20 41 ┆)=-DFCAPL(K,J)*PALPHA(J) A┆
0x12700…12720 44 55 42 28 4b 2c 4a 4a 29 3d 2d 44 46 43 41 50 4c 28 4a 2c 4b 29 2a 50 41 4c 50 48 41 28 4b 29 ┆DUB(K,JJ)=-DFCAPL(J,K)*PALPHA(K)┆
0x12720…12740 0a 20 20 20 20 20 20 41 44 55 42 28 4a 4a 2c 4b 4b 29 3d 53 45 28 4a 2c 4b 29 0a 20 20 31 32 30 ┆ ADUB(JJ,KK)=SE(J,K) 120┆
0x12740…12760 20 43 4f 4e 54 49 4e 55 45 0a 20 20 20 20 20 20 44 54 4f 4c 45 52 28 4b 29 3d 41 44 55 42 28 4b ┆ CONTINUE DTOLER(K)=ADUB(K┆
0x12760…12780 2c 4b 29 2a 50 52 45 43 49 53 0a 20 20 20 20 20 20 44 54 4f 4c 45 52 28 4b 4b 29 3d 41 44 55 42 ┆,K)*PRECIS DTOLER(KK)=ADUB┆
0x12780…127a0 28 4b 4b 2c 4b 4b 29 2a 50 52 45 43 49 53 0a 20 20 20 20 20 20 49 46 20 28 4e 4f 42 41 53 45 29 ┆(KK,KK)*PRECIS IF (NOBASE)┆
0x127a0…127c0 20 47 4f 20 54 4f 20 31 31 30 0a 20 20 20 20 20 20 41 44 55 42 28 4b 2c 4e 46 29 3d 2d 44 46 43 ┆ GO TO 110 ADUB(K,NF)=-DFC┆
0x127c0…127e0 41 50 4c 28 4e 4c 49 4e 2c 4b 29 2a 50 41 4c 50 48 41 28 4b 29 0a 20 20 20 20 20 20 41 44 55 42 ┆APL(NLIN,K)*PALPHA(K) ADUB┆
0x127e0…12800 28 4b 4b 2c 4e 46 29 3d 53 45 28 4b 2c 4e 4c 49 4e 29 0a 20 20 31 31 30 20 43 4f 4e 54 49 4e 55 ┆(KK,NF)=SE(K,NLIN) 110 CONTINU┆
0x12800…12820 45 0a 20 20 20 20 20 20 49 46 20 28 4e 4f 42 41 53 45 29 20 47 4f 20 54 4f 20 31 35 30 0a 20 20 ┆E IF (NOBASE) GO TO 150 ┆
0x12820…12840 20 20 20 20 41 44 55 42 28 4e 46 2c 4e 46 29 3d 53 55 4d 57 54 0a 20 20 20 20 20 20 44 54 4f 4c ┆ ADUB(NF,NF)=SUMWT DTOL┆
0x12840…12860 45 52 28 4e 46 29 3d 53 55 4d 57 54 2a 50 52 45 43 49 53 0a 20 20 31 35 30 20 43 41 4c 4c 20 50 ┆ER(NF)=SUMWT*PRECIS 150 CALL P┆
0x12860…12880 49 56 4f 54 20 28 41 44 55 42 2c 4d 44 49 4d 41 2c 4e 46 2c 2e 54 52 55 45 2e 2c 2e 54 52 55 45 ┆IVOT (ADUB,MDIMA,NF,.TRUE.,.TRUE┆
0x12880…128a0 2e 2c 2e 46 41 4c 53 45 2e 2c 30 2e 2c 0a 20 20 20 20 20 31 20 30 2e 2c 43 55 49 2c 44 54 4f 4c ┆.,.FALSE.,0., 1 0.,CUI,DTOL┆
0x128a0…128c0 45 52 2c 43 53 54 41 52 2c 4c 44 55 4d 2c 44 55 4d 2c 50 49 56 41 4c 50 2c 4a 4c 41 4d 2c 44 44 ┆ER,CSTAR,LDUM,DUM,PIVALP,JLAM,DD┆
0x128c0…128e0 55 4d 2c 4a 29 0a 20 20 20 20 20 20 53 49 47 59 59 3d 53 51 52 54 28 56 41 52 2f 46 4c 4f 41 54 ┆UM,J) SIGYY=SQRT(VAR/FLOAT┆
0x128e0…12900 28 4e 2d 4e 46 29 29 0a 20 20 20 20 20 20 49 46 20 28 2e 4e 4f 54 2e 4c 44 55 4d 20 2e 4f 52 2e ┆(N-NF)) IF (.NOT.LDUM .OR.┆
0x12900…12920 (33,) 20 4a 2e 45 51 2e 35 29 20 47 4f 20 54 4f 20 31 37 32 0a 20 20 20 20 20 20 44 4f 20 31 37 30 20 ┆ J.EQ.5) GO TO 172 DO 170 ┆
0x12920…12940 4a 3d 31 2c 4e 46 0a 20 20 20 20 20 20 49 46 20 28 41 44 55 42 28 4a 2c 4a 29 20 2e 4c 45 2e 20 ┆J=1,NF IF (ADUB(J,J) .LE. ┆
0x12940…12960 30 2e 29 20 47 4f 20 54 4f 20 31 37 32 0a 20 20 20 20 20 20 43 53 54 41 52 28 4a 29 3d 31 2e 2f ┆0.) GO TO 172 CSTAR(J)=1./┆
0x12960…12980 53 51 52 54 28 41 44 55 42 28 4a 2c 4a 29 29 0a 20 20 20 20 20 20 53 49 47 4d 41 50 28 4a 29 3d ┆SQRT(ADUB(J,J)) SIGMAP(J)=┆
0x12980…129a0 53 49 47 59 59 2f 43 53 54 41 52 28 4a 29 0a 20 20 31 37 30 20 43 4f 4e 54 49 4e 55 45 0a 20 20 ┆SIGYY/CSTAR(J) 170 CONTINUE ┆
0x129a0…129c0 20 20 20 20 47 4f 20 54 4f 20 31 37 34 0a 20 20 31 37 32 20 46 41 49 4c 45 44 3d 2e 54 52 55 45 ┆ GO TO 174 172 FAILED=.TRUE┆
0x129c0…129e0 2e 0a 20 35 31 37 32 20 46 4f 52 4d 41 54 20 28 2f 2f 35 31 48 30 53 49 4e 47 55 4c 41 52 49 54 ┆. 5172 FORMAT (//51H0SINGULARIT┆
0x129e0…12a00 59 20 49 4e 20 49 4e 56 45 52 54 49 4e 47 20 46 55 4c 4c 20 4c 45 41 53 54 20 53 51 55 41 52 45 ┆Y IN INVERTING FULL LEAST SQUARE┆
0x12a00…12a20 53 20 4d 41 54 52 49 58 2c 0a 20 20 20 20 20 31 20 33 30 48 20 2d 20 4e 4f 20 43 4f 52 52 45 4c ┆S MATRIX, 1 30H - NO CORREL┆
0x12a20…12a40 41 54 49 4f 4e 53 20 43 41 4c 43 55 4c 41 54 45 44 2e 2c 33 58 2c 32 34 28 32 48 2a 2a 29 29 0a ┆ATIONS CALCULATED.,3X,24(2H**)) ┆
0x12a40…12a60 20 20 20 20 20 20 49 46 20 28 50 52 4c 53 51 29 20 57 52 49 54 45 20 28 49 57 52 49 54 45 2c 35 ┆ IF (PRLSQ) WRITE (IWRITE,5┆
0x12a60…12a80 31 37 32 29 0a 20 20 20 20 20 20 52 45 54 55 52 4e 0a 20 20 31 37 34 20 49 46 20 28 49 4e 54 45 ┆172) RETURN 174 IF (INTE┆
0x12a80…12aa0 52 29 20 52 45 54 55 52 4e 0a 20 20 20 20 20 20 4b 3d 4a 4c 41 4d 0a 20 20 20 20 20 20 44 4f 20 ┆R) RETURN K=JLAM DO ┆
0x12aa0…12ac0 31 37 36 20 4a 3d 31 2c 4a 4c 41 4d 0a 20 20 20 20 20 20 50 43 45 52 52 28 4a 29 3d 31 30 30 2e ┆176 J=1,JLAM PCERR(J)=100.┆
0x12ac0…12ae0 2a 53 49 47 4d 41 50 28 4a 29 2f 50 4c 41 4d 28 4a 29 0a 20 20 20 20 20 20 43 55 49 28 4a 29 3d ┆*SIGMAP(J)/PLAM(J) CUI(J)=┆
0x12ae0…12b00 41 4c 50 4c 41 4d 28 4a 2c 31 29 0a 20 20 20 20 20 20 4b 3d 4b 2b 31 0a 20 20 20 20 20 20 50 43 ┆ALPLAM(J,1) K=K+1 PC┆
0x12b00…12b20 45 52 52 28 4b 29 3d 31 30 30 2e 2a 53 49 47 4d 41 50 28 4b 29 2f 41 42 53 28 50 41 4c 50 48 41 ┆ERR(K)=100.*SIGMAP(K)/ABS(PALPHA┆
0x12b20…12b40 28 4a 29 29 0a 20 20 20 20 20 20 43 55 49 28 4b 29 3d 41 4c 50 4c 41 4d 28 4a 2c 32 29 0a 20 20 ┆(J)) CUI(K)=ALPLAM(J,2) ┆
0x12b40…12b60 31 37 36 20 43 4f 4e 54 49 4e 55 45 0a 20 20 20 20 20 20 49 46 20 28 4e 4f 42 41 53 45 29 20 47 ┆176 CONTINUE IF (NOBASE) G┆
0x12b60…12b80 4f 20 54 4f 20 31 37 38 0a 20 20 20 20 20 20 43 55 49 28 4e 46 29 3d 48 4f 4c 52 54 48 0a 20 20 ┆O TO 178 CUI(NF)=HOLRTH ┆
0x12b80…12ba0 20 20 20 20 50 43 45 52 52 28 4e 46 29 3d 31 30 30 2e 2a 53 49 47 4d 41 50 28 4e 46 29 2f 41 42 ┆ PCERR(NF)=100.*SIGMAP(NF)/AB┆
0x12ba0…12bc0 53 28 50 41 4c 50 48 41 28 4a 4c 41 4d 50 31 29 29 0a 20 35 31 37 36 20 46 4f 52 4d 41 54 20 28 ┆S(PALPHA(JLAMP1)) 5176 FORMAT (┆
0x12bc0…12be0 2f 2f 32 30 58 2c 32 34 48 43 4f 52 52 45 4c 41 54 49 4f 4e 20 43 4f 45 46 46 49 43 49 45 4e 54 ┆//20X,24HCORRELATION COEFFICIENT┆
0x12be0…12c00 53 2f 31 32 58 2c 31 30 28 38 58 2c 41 34 29 29 0a 20 20 31 37 38 20 49 46 20 28 2e 4e 4f 54 2e ┆S/12X,10(8X,A4)) 178 IF (.NOT.┆
0x12c00…12c20 50 52 4c 53 51 29 20 47 4f 20 54 4f 20 31 39 30 0a 20 20 20 20 20 20 4b 3d 4e 46 2d 31 0a 20 20 ┆PRLSQ) GO TO 190 K=NF-1 ┆
0x12c20…12c40 20 20 20 20 57 52 49 54 45 20 28 49 57 52 49 54 45 2c 35 31 37 36 29 20 28 43 55 49 28 4a 29 2c ┆ WRITE (IWRITE,5176) (CUI(J),┆
0x12c40…12c60 4a 3d 31 2c 4b 29 0a 20 20 20 20 20 20 44 4f 20 31 37 39 20 4a 3d 32 2c 4e 46 0a 20 20 20 20 20 ┆J=1,K) DO 179 J=2,NF ┆
0x12c60…12c80 20 44 55 4d 3d 43 53 54 41 52 28 4a 29 0a 20 20 20 20 20 20 4a 4b 3d 4a 2d 31 0a 20 20 20 20 20 ┆ DUM=CSTAR(J) JK=J-1 ┆
0x12c80…12ca0 20 44 4f 20 31 38 30 20 4b 3d 31 2c 4a 4b 0a 20 20 31 38 30 20 44 54 4f 4c 45 52 28 4b 29 3d 41 ┆ DO 180 K=1,JK 180 DTOLER(K)=A┆
0x12ca0…12cc0 44 55 42 28 4a 2c 4b 29 2a 44 55 4d 2a 43 53 54 41 52 28 4b 29 0a 20 35 31 38 30 20 46 4f 52 4d ┆DUB(J,K)*DUM*CSTAR(K) 5180 FORM┆
0x12cc0…12ce0 41 54 20 28 31 58 2c 41 34 2c 37 58 2c 31 30 46 31 32 2e 33 29 0a 20 20 20 20 20 20 57 52 49 54 ┆AT (1X,A4,7X,10F12.3) WRIT┆
0x12ce0…12d00 45 20 28 49 57 52 49 54 45 2c 35 31 38 30 29 20 43 55 49 28 4a 29 2c 28 44 54 4f 4c 45 52 28 4b ┆E (IWRITE,5180) CUI(J),(DTOLER(K┆
0x12d00…12d20 29 2c 4b 3d 31 2c 4a 4b 29 0a 20 20 31 37 39 20 43 4f 4e 54 49 4e 55 45 0a 43 2d 2d 2d 2d 2d 2d ┆),K=1,JK) 179 CONTINUE C------┆
0x12d20…12d40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
[…0x1…]
0x12d60…12d80 2d 0a 43 20 20 54 4f 20 50 52 45 56 45 4e 54 20 41 20 56 45 52 59 20 53 4d 41 4c 4c 20 43 4f 4d ┆- C TO PREVENT A VERY SMALL COM┆
0x12d80…12da0 50 4f 4e 45 4e 54 20 28 45 46 46 45 43 54 49 56 45 4c 59 20 41 20 53 45 43 4f 4e 44 20 42 41 53 ┆PONENT (EFFECTIVELY A SECOND BAS┆
0x12da0…12dc0 45 4c 49 4e 45 29 0a 43 20 20 20 20 20 20 54 48 41 54 20 49 53 20 48 49 47 48 4c 59 20 43 4f 52 ┆ELINE) C THAT IS HIGHLY COR┆
0x12dc0…12de0 52 45 4c 41 54 45 44 20 57 49 54 48 20 54 48 45 20 42 41 53 45 4c 49 4e 45 20 46 52 4f 4d 20 49 ┆RELATED WITH THE BASELINE FROM I┆
0x12de0…12e00 4e 54 45 52 46 45 52 49 4e 47 0a 43 20 20 20 20 20 20 57 49 54 48 20 54 48 45 20 43 41 4c 43 55 ┆NTERFERING C WITH THE CALCU┆
0x12e00…12e20 4c 41 54 49 4f 4e 20 4f 46 20 54 48 45 20 57 45 49 47 48 54 53 0a 43 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆LATION OF THE WEIGHTS C---------┆
0x12e20…12e40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x12e40…12e60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 ┆------------------------------ ┆
0x12e60…12e80 20 31 39 30 20 49 46 20 28 49 57 54 53 47 4e 2e 47 54 2e 30 20 2e 4f 52 2e 20 49 54 59 50 45 2e ┆ 190 IF (IWTSGN.GT.0 .OR. ITYPE.┆
0x12e80…12ea0 4e 45 2e 31 29 20 47 4f 20 54 4f 20 32 30 30 0a 20 20 20 20 20 20 44 55 4d 3d 31 2e 45 2b 32 30 ┆NE.1) GO TO 200 DUM=1.E+20┆
0x12ea0…12ec0 0a 20 20 20 20 20 20 44 4f 20 31 39 35 20 4a 3d 31 2c 4a 4c 41 4d 0a 20 20 20 20 20 20 49 46 20 ┆ DO 195 J=1,JLAM IF ┆
0x12ec0…12ee0 28 50 4c 41 4d 28 4a 29 20 2e 47 54 2e 20 44 55 4d 29 20 47 4f 20 54 4f 20 31 39 35 0a 20 20 20 ┆(PLAM(J) .GT. DUM) GO TO 195 ┆
0x12ee0…12f00 20 20 20 44 55 4d 3d 50 4c 41 4d 28 4a 29 0a 20 20 20 20 20 20 4c 3d 4a 0a 20 20 31 39 35 20 43 ┆ DUM=PLAM(J) L=J 195 C┆
0x12f00…12f20 4f 4e 54 49 4e 55 45 0a 20 20 20 20 20 20 49 46 20 28 50 43 45 52 52 28 4c 29 20 2e 4c 54 2e 20 ┆ONTINUE IF (PCERR(L) .LT. ┆
0x12f20…12f40 31 30 30 30 2e 29 20 47 4f 20 54 4f 20 32 30 30 0a 20 20 20 20 20 20 46 41 49 4c 45 44 3d 2e 54 ┆1000.) GO TO 200 FAILED=.T┆
0x12f40…12f60 52 55 45 2e 0a 20 35 31 39 35 20 46 4f 52 4d 41 54 20 28 2f 2f 34 37 48 20 53 4d 41 4c 4c 45 53 ┆RUE. 5195 FORMAT (//47H SMALLES┆
0x12f60…12f80 54 20 4c 41 4d 42 44 41 20 48 41 53 20 54 4f 4f 20 48 49 47 48 20 41 20 53 54 41 4e 44 41 52 44 ┆T LAMBDA HAS TOO HIGH A STANDARD┆
0x12f80…12fa0 20 45 52 52 4f 52 2e 2c 0a 20 20 20 20 20 31 20 36 30 48 20 20 54 48 49 53 20 43 4f 55 4c 44 20 ┆ ERROR., 1 60H THIS COULD ┆
0x12fa0…12fc0 4c 45 41 44 20 54 4f 20 49 4e 41 43 43 55 52 41 54 45 20 57 45 49 47 48 54 53 20 2d 20 53 4f 4c ┆LEAD TO INACCURATE WEIGHTS - SOL┆
0x12fc0…12fe0 55 54 49 4f 4e 20 52 45 4a 45 43 54 45 44 2e 2c 0a 20 20 20 20 20 32 20 33 58 2c 31 31 28 32 48 ┆UTION REJECTED., 2 3X,11(2H┆
0x12fe0…13000 2a 2a 29 29 0a 20 20 20 20 20 20 49 46 20 28 50 52 4c 53 51 29 20 57 52 49 54 45 20 28 49 57 52 ┆**)) IF (PRLSQ) WRITE (IWR┆
0x13000…13020 49 54 45 2c 35 31 39 35 29 0a 20 20 32 30 30 20 49 46 20 28 46 41 49 4c 45 44 20 2e 4f 52 2e 20 ┆ITE,5195) 200 IF (FAILED .OR. ┆
0x13020…13040 49 54 59 50 45 2e 4e 45 2e 34 29 20 47 4f 20 54 4f 20 32 38 32 0a 43 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ITYPE.NE.4) GO TO 282 C---------┆
0x13040…13060 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x13060…13080 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 43 ┆------------------------------ C┆
0x13080…130a0 20 20 43 41 4c 43 55 4c 41 54 49 4f 4e 20 4f 46 20 45 4e 50 48 49 20 28 45 51 2e 20 33 2e 32 35 ┆ CALCULATION OF ENPHI (EQ. 3.25┆
0x130a0…130c0 20 4f 46 20 45 2e 20 4d 2e 20 4c 2e 20 42 45 41 4c 45 20 46 4f 52 20 46 20 52 41 54 49 4f 0a 43 ┆ OF E. M. L. BEALE FOR F RATIO C┆
0x130c0…130e0 20 20 43 4f 52 52 45 43 54 49 4f 4e 20 46 41 43 54 4f 52 20 44 55 45 20 54 4f 20 4e 4f 4e 4c 49 ┆ CORRECTION FACTOR DUE TO NONLI┆
0x130e0…13100 4e 45 41 52 49 54 59 29 0a 43 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆NEARITY) C----------------------┆
0x13100…13120 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x13120…13140 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 20 20 20 20 20 4e 55 4a 3d 4a 4c 41 4d ┆----------------- NUJ=JLAM┆
0x13140…13160 0a 20 20 20 20 20 20 44 4f 20 32 31 30 20 4a 3d 31 2c 4a 4c 41 4d 0a 20 20 20 20 20 20 44 55 4d ┆ DO 210 J=1,JLAM DUM┆
0x13160…13180 3d 41 44 55 42 28 4a 2c 4a 29 0a 20 20 20 20 20 20 4e 55 4a 3d 4e 55 4a 2b 31 0a 20 20 20 20 20 ┆=ADUB(J,J) NUJ=NUJ+1 ┆
0x13180…131a0 20 4e 55 4b 3d 4a 4c 41 4d 0a 20 20 20 20 20 20 44 4f 20 32 32 30 20 4b 3d 31 2c 4a 4c 41 4d 0a ┆ NUK=JLAM DO 220 K=1,JLAM ┆
0x131a0…131c0 20 20 20 20 20 20 4e 55 4b 3d 4e 55 4b 2b 31 0a 20 20 20 20 20 20 44 45 4c 54 28 4a 2c 4b 29 3d ┆ NUK=NUK+1 DELT(J,K)=┆
0x131c0…131e0 44 55 4d 2a 41 44 55 42 28 4b 2c 4b 29 2b 32 2e 2a 41 44 55 42 28 4a 2c 4b 29 2a 41 44 55 42 28 ┆DUM*ADUB(K,K)+2.*ADUB(J,K)*ADUB(┆
0x131e0…13200 4a 2c 4b 29 0a 20 20 20 20 20 20 44 45 4c 54 28 4a 2c 4e 55 4b 29 3d 44 55 4d 2a 41 44 55 42 28 ┆J,K) DELT(J,NUK)=DUM*ADUB(┆
0x13200…13220 (34,) 4b 2c 4e 55 4b 29 2b 32 2e 2a 41 44 55 42 28 4a 2c 4b 29 2a 41 44 55 42 28 4a 2c 4e 55 4b 29 0a ┆K,NUK)+2.*ADUB(J,K)*ADUB(J,NUK) ┆
0x13220…13240 20 20 20 20 20 20 44 45 4c 54 28 4e 55 4a 2c 4b 29 3d 41 44 55 42 28 4a 2c 4e 55 4a 29 2a 41 44 ┆ DELT(NUJ,K)=ADUB(J,NUJ)*AD┆
0x13240…13260 55 42 28 4b 2c 4b 29 2b 32 2e 2a 41 44 55 42 28 4a 2c 4b 29 2a 41 44 55 42 28 4e 55 4a 2c 4b 29 ┆UB(K,K)+2.*ADUB(J,K)*ADUB(NUJ,K)┆
0x13260…13280 0a 20 20 20 20 20 20 44 45 4c 54 28 4e 55 4a 2c 4e 55 4b 29 3d 41 44 55 42 28 4a 2c 4e 55 4a 29 ┆ DELT(NUJ,NUK)=ADUB(J,NUJ)┆
0x13280…132a0 2a 41 44 55 42 28 4b 2c 4e 55 4b 29 2b 41 44 55 42 28 4a 2c 4b 29 2a 41 44 55 42 28 4e 55 4a 2c ┆*ADUB(K,NUK)+ADUB(J,K)*ADUB(NUJ,┆
0x132a0…132c0 4e 55 4b 29 0a 20 20 20 20 20 31 20 2b 41 44 55 42 28 4a 2c 4e 55 4b 29 2a 41 44 55 42 28 4e 55 ┆NUK) 1 +ADUB(J,NUK)*ADUB(NU┆
0x132c0…132e0 4a 2c 4b 29 0a 20 20 20 20 20 20 44 4f 20 32 33 30 20 4c 3d 31 2c 34 0a 20 20 32 33 30 20 53 55 ┆J,K) DO 230 L=1,4 230 SU┆
0x132e0…13300 4d 28 4c 29 3d 30 2e 0a 20 20 20 20 20 20 4e 55 3d 30 0a 20 20 20 20 20 20 44 4f 20 32 34 30 20 ┆M(L)=0. NU=0 DO 240 ┆
0x13300…13320 4c 3d 31 2c 4e 49 4e 54 0a 20 20 20 20 20 20 43 55 49 28 31 29 3d 45 58 50 28 2d 50 4c 41 4d 28 ┆L=1,NINT CUI(1)=EXP(-PLAM(┆
0x13320…13340 4a 29 2a 44 45 4c 54 41 54 28 4c 29 29 0a 20 20 20 20 20 20 43 55 49 28 32 29 3d 45 58 50 28 2d ┆J)*DELTAT(L)) CUI(2)=EXP(-┆
0x13340…13360 50 4c 41 4d 28 4b 29 2a 44 45 4c 54 41 54 28 4c 29 29 0a 20 20 20 20 20 20 43 55 49 28 33 29 3d ┆PLAM(K)*DELTAT(L)) CUI(3)=┆
0x13360…13380 45 58 50 28 2d 50 4c 41 4d 28 4a 29 2a 54 53 54 41 52 54 28 4c 29 29 0a 20 20 20 20 20 20 43 55 ┆EXP(-PLAM(J)*TSTART(L)) CU┆
0x13380…133a0 49 28 34 29 3d 45 58 50 28 2d 50 4c 41 4d 28 4b 29 2a 54 53 54 41 52 54 28 4c 29 29 0a 20 20 20 ┆I(4)=EXP(-PLAM(K)*TSTART(L)) ┆
0x133a0…133c0 20 20 20 49 49 3d 4e 54 28 4c 29 0a 20 20 20 20 20 20 44 4f 20 32 34 32 20 49 3d 31 2c 49 49 0a ┆ II=NT(L) DO 242 I=1,II ┆
0x133c0…133e0 20 20 20 20 20 20 4e 55 3d 4e 55 2b 31 0a 20 20 20 20 20 20 54 4e 55 3d 54 28 4e 55 29 0a 20 20 ┆ NU=NU+1 TNU=T(NU) ┆
0x133e0…13400 20 20 20 20 49 46 20 28 52 45 47 49 4e 54 29 20 47 4f 20 54 4f 20 32 34 34 0a 20 20 20 20 20 20 ┆ IF (REGINT) GO TO 244 ┆
0x13400…13420 53 53 3d 45 28 4e 55 2c 4a 29 0a 20 20 20 20 20 20 44 44 44 55 4d 3d 54 4e 55 2a 45 28 4e 55 2c ┆SS=E(NU,J) DDDUM=TNU*E(NU,┆
0x13420…13440 4b 29 0a 20 20 20 20 20 20 47 4f 20 54 4f 20 32 34 36 0a 20 20 32 34 34 20 53 53 3d 53 51 52 54 ┆K) GO TO 246 244 SS=SQRT┆
0x13440…13460 57 28 4e 55 29 2a 43 55 49 28 33 29 0a 20 20 20 20 20 20 44 44 44 55 4d 3d 54 4e 55 2a 53 51 52 ┆W(NU)*CUI(3) DDDUM=TNU*SQR┆
0x13460…13480 54 57 28 4e 55 29 2a 43 55 49 28 34 29 0a 20 20 20 20 20 20 43 55 49 28 33 29 3d 43 55 49 28 33 ┆TW(NU)*CUI(4) CUI(3)=CUI(3┆
0x13480…134a0 29 2a 43 55 49 28 31 29 0a 20 20 20 20 20 20 43 55 49 28 34 29 3d 43 55 49 28 34 29 2a 43 55 49 ┆)*CUI(1) CUI(4)=CUI(4)*CUI┆
0x134a0…134c0 28 32 29 0a 20 20 32 34 36 20 53 3d 50 41 4c 50 48 41 28 4a 29 2a 54 4e 55 2a 53 53 0a 20 20 20 ┆(2) 246 S=PALPHA(J)*TNU*SS ┆
0x134c0…134e0 20 20 20 44 44 55 4d 3d 50 41 4c 50 48 41 28 4b 29 2a 54 4e 55 2a 44 44 44 55 4d 0a 20 20 20 20 ┆ DDUM=PALPHA(K)*TNU*DDDUM ┆
0x134e0…13500 20 20 53 55 4d 28 31 29 3d 53 55 4d 28 31 29 2d 53 2a 44 44 55 4d 0a 20 20 20 20 20 20 53 55 4d ┆ SUM(1)=SUM(1)-S*DDUM SUM┆
0x13500…13520 28 32 29 3d 53 55 4d 28 32 29 2b 53 2a 44 44 44 55 4d 0a 20 20 20 20 20 20 53 55 4d 28 33 29 3d ┆(2)=SUM(2)+S*DDDUM SUM(3)=┆
0x13520…13540 53 55 4d 28 33 29 2b 53 53 2a 44 44 55 4d 0a 20 20 20 20 20 20 53 55 4d 28 34 29 3d 53 55 4d 28 ┆SUM(3)+SS*DDUM SUM(4)=SUM(┆
0x13540…13560 34 29 2d 53 53 2a 44 44 44 55 4d 0a 20 20 32 34 32 20 43 4f 4e 54 49 4e 55 45 0a 20 20 32 34 30 ┆4)-SS*DDDUM 242 CONTINUE 240┆
0x13560…13580 20 43 4f 4e 54 49 4e 55 45 0a 20 20 20 20 20 20 43 43 53 55 4d 28 4a 2c 4b 29 3d 53 55 4d 28 31 ┆ CONTINUE CCSUM(J,K)=SUM(1┆
0x13580…135a0 29 0a 20 20 20 20 20 20 43 43 53 55 4d 28 4a 2c 4e 55 4b 29 3d 53 55 4d 28 32 29 0a 20 20 20 20 ┆) CCSUM(J,NUK)=SUM(2) ┆
0x135a0…135c0 20 20 43 43 53 55 4d 28 4e 55 4a 2c 4b 29 3d 53 55 4d 28 33 29 0a 20 20 20 20 20 20 43 43 53 55 ┆ CCSUM(NUJ,K)=SUM(3) CCSU┆
0x135c0…135e0 4d 28 4e 55 4a 2c 4e 55 4b 29 3d 53 55 4d 28 34 29 0a 20 20 32 32 30 20 43 4f 4e 54 49 4e 55 45 ┆M(NUJ,NUK)=SUM(4) 220 CONTINUE┆
0x135e0…13600 0a 20 20 20 20 20 20 49 46 20 28 4e 4f 42 41 53 45 29 20 47 4f 20 54 4f 20 32 31 30 0a 20 20 20 ┆ IF (NOBASE) GO TO 210 ┆
0x13600…13620 20 20 20 53 3d 30 2e 0a 20 20 20 20 20 20 53 53 3d 30 2e 0a 20 20 20 20 20 20 4e 55 3d 30 0a 20 ┆ S=0. SS=0. NU=0 ┆
0x13620…13640 20 20 20 20 20 44 4f 20 32 35 30 20 4c 3d 31 2c 4e 49 4e 54 0a 20 20 20 20 20 20 44 55 4d 3d 45 ┆ DO 250 L=1,NINT DUM=E┆
0x13640…13660 58 50 28 2d 50 4c 41 4d 28 4a 29 2a 44 45 4c 54 41 54 28 4c 29 29 0a 20 20 20 20 20 20 44 44 55 ┆XP(-PLAM(J)*DELTAT(L)) DDU┆
0x13660…13680 4d 3d 45 58 50 28 2d 50 4c 41 4d 28 4a 29 2a 54 53 54 41 52 54 28 4c 29 29 0a 20 20 20 20 20 20 ┆M=EXP(-PLAM(J)*TSTART(L)) ┆
0x13680…136a0 49 49 3d 4e 54 28 4c 29 0a 20 20 20 20 20 20 44 4f 20 32 35 32 20 49 3d 31 2c 49 49 0a 20 20 20 ┆II=NT(L) DO 252 I=1,II ┆
0x136a0…136c0 20 20 20 4e 55 3d 4e 55 2b 31 0a 20 20 20 20 20 20 49 46 20 28 52 45 47 49 4e 54 29 20 47 4f 20 ┆ NU=NU+1 IF (REGINT) GO ┆
0x136c0…136e0 54 4f 20 32 35 34 0a 20 20 20 20 20 20 53 53 53 3d 45 28 4e 55 2c 4a 29 0a 20 20 20 20 20 20 47 ┆TO 254 SSS=E(NU,J) G┆
0x136e0…13700 4f 20 54 4f 20 32 35 36 0a 20 20 32 35 34 20 53 53 53 3d 44 44 55 4d 2a 53 51 52 54 57 28 4e 55 ┆O TO 256 254 SSS=DDUM*SQRTW(NU┆
0x13700…13720 29 0a 20 20 20 20 20 20 44 44 55 4d 3d 44 44 55 4d 2a 44 55 4d 0a 20 20 32 35 36 20 44 44 44 55 ┆) DDUM=DDUM*DUM 256 DDDU┆
0x13720…13740 4d 3d 54 28 4e 55 29 2a 53 53 53 2a 53 51 52 54 57 28 4e 55 29 0a 20 20 20 20 20 20 53 53 3d 53 ┆M=T(NU)*SSS*SQRTW(NU) SS=S┆
0x13740…13760 53 2d 44 44 44 55 4d 0a 20 20 20 20 20 20 53 3d 53 2b 50 41 4c 50 48 41 28 4a 29 2a 54 28 4e 55 ┆S-DDDUM S=S+PALPHA(J)*T(NU┆
0x13760…13780 29 2a 44 44 44 55 4d 0a 20 20 32 35 32 20 43 4f 4e 54 49 4e 55 45 0a 20 20 32 35 30 20 43 4f 4e ┆)*DDDUM 252 CONTINUE 250 CON┆
0x13780…137a0 54 49 4e 55 45 0a 20 20 20 20 20 20 43 43 53 55 4d 28 4e 46 2c 4a 29 3d 53 0a 20 20 20 20 20 20 ┆TINUE CCSUM(NF,J)=S ┆
0x137a0…137c0 43 43 53 55 4d 28 4e 46 2c 4e 55 4a 29 3d 53 53 0a 20 20 32 31 30 20 43 4f 4e 54 49 4e 55 45 0a ┆CCSUM(NF,NUJ)=SS 210 CONTINUE ┆
0x137c0…137e0 20 20 20 20 20 20 4c 44 55 4d 3d 2e 4e 4f 54 2e 4e 4f 42 41 53 45 0a 20 20 20 20 20 20 45 4e 50 ┆ LDUM=.NOT.NOBASE ENP┆
0x137e0…13800 48 49 3d 30 2e 0a 20 20 20 20 20 20 44 4f 20 32 36 30 20 4e 55 3d 31 2c 4e 0a 20 20 20 20 20 20 ┆HI=0. DO 260 NU=1,N ┆
0x13800…13820 54 4e 55 3d 54 28 4e 55 29 0a 20 20 20 20 20 20 44 4f 20 32 36 31 20 4a 3d 31 2c 4e 4c 49 4e 0a ┆TNU=T(NU) DO 261 J=1,NLIN ┆
0x13820…13840 20 20 32 36 31 20 41 44 55 4d 28 4a 29 3d 53 51 52 54 57 28 4e 55 29 2a 45 58 50 28 2d 50 4c 41 ┆ 261 ADUM(J)=SQRTW(NU)*EXP(-PLA┆
0x13840…13860 4d 28 4a 29 2a 54 4e 55 29 0a 20 20 20 20 20 20 4e 55 4a 3d 4a 4c 41 4d 0a 20 20 20 20 20 20 44 ┆M(J)*TNU) NUJ=JLAM D┆
0x13860…13880 4f 20 32 36 32 20 4a 3d 31 2c 4a 4c 41 4d 0a 20 20 20 20 20 20 4e 55 4a 3d 4e 55 4a 2b 31 0a 20 ┆O 262 J=1,JLAM NUJ=NUJ+1 ┆
0x13880…138a0 20 20 20 20 20 53 55 4d 28 31 29 3d 30 2e 0a 20 20 20 20 20 20 53 55 4d 28 32 29 3d 30 2e 0a 20 ┆ SUM(1)=0. SUM(2)=0. ┆
0x138a0…138c0 20 20 20 20 20 4e 55 4b 3d 4a 4c 41 4d 0a 20 20 20 20 20 20 44 4f 20 32 36 34 20 4b 3d 31 2c 4a ┆ NUK=JLAM DO 264 K=1,J┆
0x138c0…138e0 4c 41 4d 0a 20 20 20 20 20 20 53 3d 30 2e 0a 20 20 20 20 20 20 49 46 20 28 4c 44 55 4d 29 20 53 ┆LAM S=0. IF (LDUM) S┆
0x138e0…13900 3d 53 51 52 54 57 28 4e 55 29 2a 41 44 55 42 28 4b 2c 4e 46 29 0a 20 20 20 20 20 20 4e 55 49 3d ┆=SQRTW(NU)*ADUB(K,NF) NUI=┆
0x13900…13920 4a 4c 41 4d 0a 20 20 20 20 20 20 44 4f 20 32 36 36 20 49 3d 31 2c 4a 4c 41 4d 0a 20 20 20 20 20 ┆JLAM DO 266 I=1,JLAM ┆
0x13920…13940 20 4e 55 49 3d 4e 55 49 2b 31 0a 20 20 20 20 20 20 43 55 49 28 4e 55 49 29 3d 41 44 55 4d 28 49 ┆ NUI=NUI+1 CUI(NUI)=ADUM(I┆
0x13940…13960 29 0a 20 20 20 20 20 20 43 55 49 28 49 29 3d 2d 50 41 4c 50 48 41 28 49 29 2a 54 4e 55 2a 43 55 ┆) CUI(I)=-PALPHA(I)*TNU*CU┆
0x13960…13980 49 28 4e 55 49 29 0a 20 20 20 20 20 20 53 3d 53 2b 41 44 55 42 28 4b 2c 49 29 2a 43 55 49 28 49 ┆I(NUI) S=S+ADUB(K,I)*CUI(I┆
0x13980…139a0 29 2b 41 44 55 42 28 4b 2c 4e 55 49 29 2a 43 55 49 28 4e 55 49 29 0a 20 20 32 36 36 20 43 4f 4e ┆)+ADUB(K,NUI)*CUI(NUI) 266 CON┆
0x139a0…139c0 54 49 4e 55 45 0a 20 20 20 20 20 20 53 55 4d 28 31 29 3d 53 55 4d 28 31 29 2b 43 43 53 55 4d 28 ┆TINUE SUM(1)=SUM(1)+CCSUM(┆
0x139c0…139e0 4b 2c 4a 29 2a 53 0a 20 20 20 20 20 20 53 55 4d 28 32 29 3d 53 55 4d 28 32 29 2b 43 43 53 55 4d ┆K,J)*S SUM(2)=SUM(2)+CCSUM┆
0x139e0…13a00 28 4b 2c 4e 55 4a 29 2a 53 0a 20 20 20 20 20 20 4e 55 4b 3d 4e 55 4b 2b 31 0a 20 20 20 20 20 20 ┆(K,NUJ)*S NUK=NUK+1 ┆
0x13a00…13a20 53 3d 30 2e 0a 20 20 20 20 20 20 49 46 20 28 4c 44 55 4d 29 20 53 3d 53 51 52 54 57 28 4e 55 29 ┆S=0. IF (LDUM) S=SQRTW(NU)┆
0x13a20…13a40 2a 41 44 55 42 28 4e 55 4b 2c 4e 46 29 0a 20 20 20 20 20 20 4e 55 49 3d 4a 4c 41 4d 0a 20 20 20 ┆*ADUB(NUK,NF) NUI=JLAM ┆
0x13a40…13a60 20 20 20 44 4f 20 32 36 38 20 49 3d 31 2c 4a 4c 41 4d 0a 20 20 20 20 20 20 4e 55 49 3d 4e 55 49 ┆ DO 268 I=1,JLAM NUI=NUI┆
0x13a60…13a80 2b 31 0a 20 20 20 20 20 20 53 3d 53 2b 41 44 55 42 28 4e 55 4b 2c 49 29 2a 43 55 49 28 49 29 2b ┆+1 S=S+ADUB(NUK,I)*CUI(I)+┆
0x13a80…13aa0 41 44 55 42 28 4e 55 4b 2c 4e 55 49 29 2a 43 55 49 28 4e 55 49 29 0a 20 20 32 36 38 20 43 4f 4e ┆ADUB(NUK,NUI)*CUI(NUI) 268 CON┆
0x13aa0…13ac0 54 49 4e 55 45 0a 20 20 20 20 20 20 53 55 4d 28 31 29 3d 53 55 4d 28 31 29 2b 43 43 53 55 4d 28 ┆TINUE SUM(1)=SUM(1)+CCSUM(┆
0x13ac0…13ae0 4e 55 4b 2c 4a 29 2a 53 0a 20 20 20 20 20 20 53 55 4d 28 32 29 3d 53 55 4d 28 32 29 2b 43 43 53 ┆NUK,J)*S SUM(2)=SUM(2)+CCS┆
0x13ae0…13b00 55 4d 28 4e 55 4b 2c 4e 55 4a 29 2a 53 0a 20 20 32 36 34 20 43 4f 4e 54 49 4e 55 45 0a 20 20 20 ┆UM(NUK,NUJ)*S 264 CONTINUE ┆
0x13b00…13b20 (35,) 20 20 20 49 46 20 28 4e 4f 42 41 53 45 29 20 47 4f 20 54 4f 20 32 37 32 0a 20 20 20 20 20 20 53 ┆ IF (NOBASE) GO TO 272 S┆
0x13b20…13b40 3d 30 2e 0a 20 20 20 20 20 20 49 46 20 28 4c 44 55 4d 29 20 53 3d 53 51 52 54 57 28 4e 55 29 2a ┆=0. IF (LDUM) S=SQRTW(NU)*┆
0x13b40…13b60 41 44 55 42 28 4e 46 2c 4e 46 29 0a 20 20 20 20 20 20 4e 55 49 3d 4a 4c 41 4d 0a 20 20 20 20 20 ┆ADUB(NF,NF) NUI=JLAM ┆
0x13b60…13b80 20 44 4f 20 32 37 30 20 49 3d 31 2c 4a 4c 41 4d 0a 20 20 20 20 20 20 4e 55 49 3d 4e 55 49 2b 31 ┆ DO 270 I=1,JLAM NUI=NUI+1┆
0x13b80…13ba0 0a 20 20 20 20 20 20 53 3d 53 2b 41 44 55 42 28 4e 46 2c 49 29 2a 43 55 49 28 49 29 2b 41 44 55 ┆ S=S+ADUB(NF,I)*CUI(I)+ADU┆
0x13ba0…13bc0 42 28 4e 46 2c 4e 55 49 29 2a 43 55 49 28 4e 55 49 29 0a 20 20 32 37 30 20 43 4f 4e 54 49 4e 55 ┆B(NF,NUI)*CUI(NUI) 270 CONTINU┆
0x13bc0…13be0 45 0a 20 20 20 20 20 20 53 55 4d 28 31 29 3d 53 55 4d 28 31 29 2b 43 43 53 55 4d 28 4e 46 2c 4a ┆E SUM(1)=SUM(1)+CCSUM(NF,J┆
0x13be0…13c00 29 2a 53 0a 20 20 20 20 20 20 53 55 4d 28 32 29 3d 53 55 4d 28 32 29 2b 43 43 53 55 4d 28 4e 46 ┆)*S SUM(2)=SUM(2)+CCSUM(NF┆
0x13c00…13c20 2c 4e 55 4a 29 2a 53 0a 20 20 32 37 32 20 44 55 4d 3d 54 4e 55 2a 41 44 55 4d 28 4a 29 0a 20 20 ┆,NUJ)*S 272 DUM=TNU*ADUM(J) ┆
0x13c20…13c40 20 20 20 20 43 53 54 41 52 28 4a 29 3d 50 41 4c 50 48 41 28 4a 29 2a 54 4e 55 2a 44 55 4d 2d 53 ┆ CSTAR(J)=PALPHA(J)*TNU*DUM-S┆
0x13c40…13c60 55 4d 28 31 29 0a 20 20 20 20 20 20 43 53 54 41 52 28 4e 55 4a 29 3d 2d 32 2e 2a 28 44 55 4d 2b ┆UM(1) CSTAR(NUJ)=-2.*(DUM+┆
0x13c60…13c80 53 55 4d 28 32 29 29 0a 20 20 32 36 32 20 43 4f 4e 54 49 4e 55 45 0a 20 20 20 20 20 20 53 55 4d ┆SUM(2)) 262 CONTINUE SUM┆
0x13c80…13ca0 28 31 29 3d 30 2e 0a 20 20 20 20 20 20 4e 55 4a 3d 4a 4c 41 4d 0a 20 20 20 20 20 20 44 4f 20 32 ┆(1)=0. NUJ=JLAM DO 2┆
0x13ca0…13cc0 38 30 20 4a 3d 31 2c 4a 4c 41 4d 0a 20 20 20 20 20 20 4e 55 4a 3d 4e 55 4a 2b 31 0a 20 20 20 20 ┆80 J=1,JLAM NUJ=NUJ+1 ┆
0x13cc0…13ce0 20 20 53 3d 30 2e 0a 20 20 20 20 20 20 53 53 3d 30 2e 0a 20 20 20 20 20 20 4e 55 4b 3d 4a 4c 41 ┆ S=0. SS=0. NUK=JLA┆
0x13ce0…13d00 4d 0a 20 20 20 20 20 20 44 4f 20 32 38 31 20 4b 3d 31 2c 4a 4c 41 4d 0a 20 20 20 20 20 20 4e 55 ┆M DO 281 K=1,JLAM NU┆
0x13d00…13d20 4b 3d 4e 55 4b 2b 31 0a 20 20 20 20 20 20 53 3d 53 2b 43 53 54 41 52 28 4b 29 2a 44 45 4c 54 28 ┆K=NUK+1 S=S+CSTAR(K)*DELT(┆
0x13d20…13d40 4a 2c 4b 29 2b 43 53 54 41 52 28 4e 55 4b 29 2a 44 45 4c 54 28 4a 2c 4e 55 4b 29 0a 20 20 20 20 ┆J,K)+CSTAR(NUK)*DELT(J,NUK) ┆
0x13d40…13d60 20 20 53 53 3d 53 53 2b 43 53 54 41 52 28 4b 29 2a 44 45 4c 54 28 4e 55 4a 2c 4b 29 2b 43 53 54 ┆ SS=SS+CSTAR(K)*DELT(NUJ,K)+CST┆
0x13d60…13d80 41 52 28 4e 55 4b 29 2a 44 45 4c 54 28 4e 55 4a 2c 4e 55 4b 29 0a 20 20 32 38 31 20 43 4f 4e 54 ┆AR(NUK)*DELT(NUJ,NUK) 281 CONT┆
0x13d80…13da0 49 4e 55 45 0a 20 20 20 20 20 20 53 55 4d 28 31 29 3d 53 55 4d 28 31 29 2b 43 53 54 41 52 28 4a ┆INUE SUM(1)=SUM(1)+CSTAR(J┆
0x13da0…13dc0 29 2a 53 2b 43 53 54 41 52 28 4e 55 4a 29 2a 53 53 0a 20 20 32 38 30 20 43 4f 4e 54 49 4e 55 45 ┆)*S+CSTAR(NUJ)*SS 280 CONTINUE┆
0x13dc0…13de0 0a 20 20 20 20 20 20 45 4e 50 48 49 3d 45 4e 50 48 49 2b 53 55 4d 28 31 29 0a 20 20 32 36 30 20 ┆ ENPHI=ENPHI+SUM(1) 260 ┆
0x13de0…13e00 43 4f 4e 54 49 4e 55 45 0a 20 20 20 20 20 20 45 4e 50 48 49 3d 45 4e 50 48 49 2a 53 49 47 59 59 ┆CONTINUE ENPHI=ENPHI*SIGYY┆
0x13e00…13e20 2a 2a 32 2f 46 4c 4f 41 54 28 4e 46 2b 32 29 0a 20 35 32 38 32 20 46 4f 52 4d 41 54 20 28 33 36 ┆**2/FLOAT(NF+2) 5282 FORMAT (36┆
0x13e20…13e40 48 20 53 54 41 4e 44 41 52 44 20 44 45 56 49 41 54 49 4f 4e 20 4f 46 20 46 49 54 20 3d 20 53 49 ┆H STANDARD DEVIATION OF FIT = SI┆
0x13e40…13e60 47 59 59 20 3d 2c 31 50 45 31 32 2e 35 2f 2f 0a 20 20 20 20 20 31 20 31 34 58 2c 33 32 48 4c 41 ┆GYY =,1PE12.5// 1 14X,32HLA┆
0x13e60…13e80 4d 42 44 41 20 20 2b 2d 20 20 53 54 44 2e 20 45 52 52 4f 52 20 20 20 50 45 52 43 45 4e 54 2c 31 ┆MBDA +- STD. ERROR PERCENT,1┆
0x13e80…13ea0 35 58 2c 0a 20 20 20 20 20 32 20 33 31 48 41 4c 50 48 41 20 20 2b 2d 20 20 53 54 44 2e 20 45 52 ┆5X, 2 31HALPHA +- STD. ER┆
0x13ea0…13ec0 52 4f 52 20 20 20 50 45 52 43 45 4e 54 29 0a 20 35 30 30 32 20 46 4f 52 4d 41 54 20 28 2f 31 58 ┆ROR PERCENT) 5002 FORMAT (/1X┆
0x13ec0…13ee0 29 0a 20 20 32 38 32 20 49 46 20 28 2e 4e 4f 54 2e 50 52 4c 53 51 29 20 52 45 54 55 52 4e 0a 20 ┆) 282 IF (.NOT.PRLSQ) RETURN ┆
0x13ee0…13f00 20 20 20 20 20 57 52 49 54 45 20 28 49 57 52 49 54 45 2c 35 30 30 32 29 0a 20 20 20 20 20 20 49 ┆ WRITE (IWRITE,5002) I┆
0x13f00…13f20 46 20 28 2e 4e 4f 54 2e 20 28 46 41 49 4c 45 44 20 2e 4f 52 2e 20 49 54 59 50 45 2e 4e 45 2e 34 ┆F (.NOT. (FAILED .OR. ITYPE.NE.4┆
0x13f20…13f40 29 29 20 57 52 49 54 45 20 28 49 57 52 49 54 45 2c 35 32 38 33 29 20 45 4e 50 48 49 0a 20 35 32 ┆)) WRITE (IWRITE,5283) ENPHI 52┆
0x13f40…13f60 38 33 20 46 4f 52 4d 41 54 20 28 20 37 48 20 4e 50 48 49 20 3d 2c 31 50 45 31 30 2e 33 29 0a 20 ┆83 FORMAT ( 7H NPHI =,1PE10.3) ┆
0x13f60…13f80 20 20 20 20 20 57 52 49 54 45 20 28 49 57 52 49 54 45 2c 35 32 38 32 29 20 53 49 47 59 59 0a 20 ┆ WRITE (IWRITE,5282) SIGYY ┆
0x13f80…13fa0 20 20 20 20 20 4b 3d 4a 4c 41 4d 0a 20 20 20 20 20 20 44 4f 20 32 38 34 20 4a 3d 31 2c 4a 4c 41 ┆ K=JLAM DO 284 J=1,JLA┆
0x13fa0…13fc0 4d 0a 20 20 20 20 20 20 4b 3d 4b 2b 31 0a 20 35 32 38 34 20 46 4f 52 4d 41 54 20 28 32 28 31 50 ┆M K=K+1 5284 FORMAT (2(1P┆
0x13fc0…13fe0 45 32 30 2e 34 2c 34 48 20 20 2b 2d 2c 45 31 32 2e 33 2c 30 50 46 31 30 2e 33 29 29 0a 20 20 20 ┆E20.4,4H +-,E12.3,0PF10.3)) ┆
0x13fe0…14000 20 20 20 57 52 49 54 45 20 28 49 57 52 49 54 45 2c 35 32 38 34 29 20 50 4c 41 4d 28 4a 29 2c 53 ┆ WRITE (IWRITE,5284) PLAM(J),S┆
0x14000…14020 49 47 4d 41 50 28 4a 29 2c 50 43 45 52 52 28 4a 29 2c 50 41 4c 50 48 41 28 4a 29 2c 0a 20 20 20 ┆IGMAP(J),PCERR(J),PALPHA(J), ┆
0x14020…14040 20 20 31 20 53 49 47 4d 41 50 28 4b 29 2c 50 43 45 52 52 28 4b 29 0a 20 20 32 38 34 20 43 4f 4e ┆ 1 SIGMAP(K),PCERR(K) 284 CON┆
0x14040…14060 54 49 4e 55 45 0a 20 35 32 38 36 20 46 4f 52 4d 41 54 20 28 31 32 58 2c 38 48 42 41 53 45 4c 49 ┆TINUE 5286 FORMAT (12X,8HBASELI┆
0x14060…14080 4e 45 2c 32 36 58 2c 31 50 45 32 30 2e 34 2c 34 48 20 20 2b 2d 2c 45 31 32 2e 33 2c 30 50 46 31 ┆NE,26X,1PE20.4,4H +-,E12.3,0PF1┆
0x14080…140a0 30 2e 33 29 0a 20 20 20 20 20 20 49 46 20 28 2e 4e 4f 54 2e 4e 4f 42 41 53 45 29 20 57 52 49 54 ┆0.3) IF (.NOT.NOBASE) WRIT┆
0x140a0…140c0 45 28 49 57 52 49 54 45 2c 35 32 38 36 29 20 50 41 4c 50 48 41 28 4a 4c 41 4d 50 31 29 2c 53 49 ┆E(IWRITE,5286) PALPHA(JLAMP1),SI┆
0x140c0…140e0 47 4d 41 50 28 4e 46 29 2c 0a 20 20 20 20 20 31 20 50 43 45 52 52 28 4e 46 29 0a 20 20 20 20 20 ┆GMAP(NF), 1 PCERR(NF) ┆
0x140e0…14100 20 52 45 54 55 52 4e 0a 20 20 20 20 20 20 45 4e 44 0a 43 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ RETURN END C-------------┆
0x14100…14120 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 56 45 52 53 49 4f 4e 20 31 41 20 4f 52 20 31 42 20 2d ┆------------- VERSION 1A OR 1B -┆
0x14120…14140 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 43 20 20 46 55 ┆-------------------------- C FU┆
0x14140…14160 4e 43 54 49 4f 4e 20 46 49 53 48 45 52 2e 20 20 43 41 4c 43 55 4c 41 54 45 53 20 50 52 4f 42 41 ┆NCTION FISHER. CALCULATES PROBA┆
0x14160…14180 42 49 4c 49 54 59 20 54 48 41 54 20 46 53 28 4e 55 31 2c 4e 55 32 29 20 49 53 20 4c 45 53 53 0a ┆BILITY THAT FS(NU1,NU2) IS LESS ┆
0x14180…141a0 43 20 20 54 48 41 4e 20 46 20 46 4f 52 20 46 49 53 48 45 52 20 46 2d 54 45 53 54 2e 0a 43 20 20 ┆C THAN F FOR FISHER F-TEST. C ┆
0x141a0…141c0 4e 55 32 20 4d 55 53 54 20 42 45 20 2e 47 45 2e 20 33 0a 43 20 20 53 55 4d 53 20 55 4e 54 49 4c ┆NU2 MUST BE .GE. 3 C SUMS UNTIL┆
0x141c0…141e0 20 41 20 54 45 52 4d 20 49 53 20 46 4f 55 4e 44 20 4c 45 53 53 20 54 48 41 4e 20 54 4f 4c 2a 28 ┆ A TERM IS FOUND LESS THAN TOL*(┆
0x141e0…14200 43 55 52 52 45 4e 54 20 56 41 4c 55 45 20 4f 46 20 53 55 4d 29 2e 0a 43 20 20 45 51 55 41 54 49 ┆CURRENT VALUE OF SUM). C EQUATI┆
0x14200…14220 4f 4e 20 4e 55 4d 42 45 52 53 20 52 45 46 45 52 20 54 4f 20 41 42 52 41 4d 4f 57 49 54 5a 20 41 ┆ON NUMBERS REFER TO ABRAMOWITZ A┆
0x14220…14240 4e 44 20 53 54 45 47 55 4e 2c 20 50 2e 20 39 34 36 2e 0a 43 20 20 4e 4f 20 43 4f 4d 4d 4f 4e 20 ┆ND STEGUN, P. 946. C NO COMMON ┆
0x14240…14260 42 4c 4f 43 4b 53 20 4e 45 45 44 45 44 2e 0a 43 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆BLOCKS NEEDED. C----------------┆
0x14260…14280 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x14280…142a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 43 20 20 43 41 4c 4c 53 ┆----------------------- C CALLS┆
0x142a0…142c0 20 4e 4f 20 53 55 42 50 52 4f 47 52 41 4d 53 2e 0a 43 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ NO SUBPROGRAMS. C--------------┆
0x142c0…142e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x142e0…14300 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 20 20 20 20 20 ┆------------------------- ┆
0x14300…14320 46 55 4e 43 54 49 4f 4e 20 46 49 53 48 45 52 20 28 46 53 2c 4e 55 31 2c 4e 55 32 29 0a 20 20 20 ┆FUNCTION FISHER (FS,NU1,NU2) ┆
0x14320…14340 20 20 20 44 41 54 41 20 54 4f 4c 2f 31 2e 45 2d 39 2f 0a 20 20 20 20 20 20 52 4e 55 31 3d 46 4c ┆ DATA TOL/1.E-9/ RNU1=FL┆
0x14340…14360 4f 41 54 28 4e 55 31 29 0a 20 20 20 20 20 20 52 4e 55 32 3d 46 4c 4f 41 54 28 4e 55 32 29 0a 20 ┆OAT(NU1) RNU2=FLOAT(NU2) ┆
0x14360…14380 20 20 20 20 20 58 3d 52 4e 55 32 2f 28 52 4e 55 32 2b 52 4e 55 31 2a 46 53 29 0a 20 20 20 20 20 ┆ X=RNU2/(RNU2+RNU1*FS) ┆
0x14380…143a0 20 49 46 20 28 58 2e 4c 54 2e 31 2e 20 2e 4f 52 2e 20 46 53 2e 4c 54 2e 30 2e 29 20 47 4f 20 54 ┆ IF (X.LT.1. .OR. FS.LT.0.) GO T┆
0x143a0…143c0 4f 20 31 30 35 0a 20 20 20 20 20 20 46 49 53 48 45 52 3d 30 2e 0a 20 20 20 20 20 20 52 45 54 55 ┆O 105 FISHER=0. RETU┆
0x143c0…143e0 52 4e 0a 20 20 31 30 35 20 49 46 20 28 4d 4f 44 28 4e 55 31 2c 32 29 20 2e 4e 45 2e 20 30 29 20 ┆RN 105 IF (MOD(NU1,2) .NE. 0) ┆
0x143e0…14400 47 4f 20 54 4f 20 32 30 30 0a 43 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆GO TO 200 C---------------------┆
0x14400…14420 (36,) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x14420…14440 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 43 20 20 45 56 41 4c 55 41 54 45 53 20 ┆------------------ C EVALUATES ┆
0x14440…14460 45 51 2e 20 32 36 2e 36 2e 34 0a 43 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆EQ. 26.6.4 C--------------------┆
0x14460…14480 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x14480…144a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 20 20 20 20 20 51 3d 31 2e 0a 20 ┆------------------- Q=1. ┆
0x144a0…144c0 20 20 20 20 20 49 46 20 28 4e 55 31 20 2e 45 51 2e 20 32 29 20 47 4f 20 54 4f 20 31 35 30 0a 20 ┆ IF (NU1 .EQ. 2) GO TO 150 ┆
0x144c0…144e0 20 20 20 20 20 54 45 52 4d 3d 31 2e 0a 20 20 20 20 20 20 54 58 3d 31 2e 2d 58 0a 20 20 20 20 20 ┆ TERM=1. TX=1.-X ┆
0x144e0…14500 20 54 4e 3d 52 4e 55 32 2d 32 2e 0a 20 20 20 20 20 20 4b 3d 4e 55 31 2d 32 0a 20 20 20 20 20 20 ┆ TN=RNU2-2. K=NU1-2 ┆
0x14500…14520 44 4f 20 31 31 30 20 4a 3d 32 2c 4b 2c 32 0a 20 20 20 20 20 20 54 4e 3d 54 4e 2b 32 2e 0a 20 20 ┆DO 110 J=2,K,2 TN=TN+2. ┆
0x14520…14540 20 20 20 20 54 45 52 4d 3d 54 45 52 4d 2a 54 4e 2a 54 58 2f 46 4c 4f 41 54 28 4a 29 0a 20 20 20 ┆ TERM=TERM*TN*TX/FLOAT(J) ┆
0x14540…14560 20 20 20 51 3d 51 2b 54 45 52 4d 0a 20 20 20 20 20 20 49 46 20 28 54 45 52 4d 20 2e 4c 45 2e 20 ┆ Q=Q+TERM IF (TERM .LE. ┆
0x14560…14580 54 4f 4c 2a 51 29 20 47 4f 20 54 4f 20 31 35 30 0a 20 20 31 31 30 20 43 4f 4e 54 49 4e 55 45 0a ┆TOL*Q) GO TO 150 110 CONTINUE ┆
0x14580…145a0 20 20 31 35 30 20 46 49 53 48 45 52 3d 31 2e 2d 58 2a 2a 28 2e 35 2a 52 4e 55 32 29 2a 51 0a 20 ┆ 150 FISHER=1.-X**(.5*RNU2)*Q ┆
0x145a0…145c0 20 20 20 20 20 52 45 54 55 52 4e 0a 20 20 32 30 30 20 49 46 20 28 4d 4f 44 28 4e 55 32 2c 32 29 ┆ RETURN 200 IF (MOD(NU2,2)┆
0x145c0…145e0 20 2e 45 51 2e 20 30 29 20 47 4f 20 54 4f 20 33 30 30 0a 43 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ .EQ. 0) GO TO 300 C------------┆
0x145e0…14600 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x14600…14620 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 43 20 20 45 ┆--------------------------- C E┆
0x14620…14640 56 41 4c 55 41 54 45 53 20 45 51 2e 20 32 36 2e 36 2e 38 0a 43 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆VALUATES EQ. 26.6.8 C-----------┆
0x14640…14660 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x14660…14680 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 20 20 ┆---------------------------- ┆
0x14680…146a0 20 20 20 54 48 3d 41 54 41 4e 28 53 51 52 54 28 52 4e 55 31 2a 46 53 2f 52 4e 55 32 29 29 0a 20 ┆ TH=ATAN(SQRT(RNU1*FS/RNU2)) ┆
0x146a0…146c0 20 20 20 20 20 43 54 48 3d 43 4f 53 28 54 48 29 0a 20 20 20 20 20 20 43 43 3d 43 54 48 2a 43 54 ┆ CTH=COS(TH) CC=CTH*CT┆
0x146c0…146e0 48 0a 20 20 20 20 20 20 53 54 48 3d 53 49 4e 28 54 48 29 0a 20 20 20 20 20 20 53 53 3d 53 54 48 ┆H STH=SIN(TH) SS=STH┆
0x146e0…14700 2a 53 54 48 0a 20 20 20 20 20 20 54 45 52 4d 3d 31 2e 0a 20 20 20 20 20 20 51 3d 31 2e 0a 20 20 ┆*STH TERM=1. Q=1. ┆
0x14700…14720 20 20 20 20 4b 3d 4e 55 32 2d 32 0a 20 20 20 20 20 20 50 52 3d 31 2e 0a 20 20 20 20 20 20 54 4e ┆ K=NU2-2 PR=1. TN┆
0x14720…14740 3d 30 2e 0a 20 20 20 20 20 20 49 46 20 28 4b 20 2e 4c 54 2e 20 33 29 20 47 4f 20 54 4f 20 32 32 ┆=0. IF (K .LT. 3) GO TO 22┆
0x14740…14760 30 0a 20 20 20 20 20 20 44 4f 20 32 31 30 20 4a 3d 33 2c 4b 2c 32 0a 20 20 20 20 20 20 54 4e 3d ┆0 DO 210 J=3,K,2 TN=┆
0x14760…14780 54 4e 2b 32 2e 0a 20 20 20 20 20 20 44 55 4d 3d 54 4e 2f 46 4c 4f 41 54 28 4a 29 0a 20 20 20 20 ┆TN+2. DUM=TN/FLOAT(J) ┆
0x14780…147a0 20 20 50 52 3d 50 52 2a 44 55 4d 0a 20 20 20 20 20 20 54 45 52 4d 3d 54 45 52 4d 2a 43 43 2a 44 ┆ PR=PR*DUM TERM=TERM*CC*D┆
0x147a0…147c0 55 4d 0a 20 20 20 20 20 20 51 3d 51 2b 54 45 52 4d 0a 20 20 20 20 20 20 49 46 20 28 54 45 52 4d ┆UM Q=Q+TERM IF (TERM┆
0x147c0…147e0 20 2e 4c 45 2e 20 54 4f 4c 2a 51 29 20 47 4f 20 54 4f 20 32 32 30 0a 20 20 32 31 30 20 43 4f 4e ┆ .LE. TOL*Q) GO TO 220 210 CON┆
0x147e0…14800 54 49 4e 55 45 0a 20 20 20 20 20 20 4a 3d 4b 0a 20 20 32 32 30 20 46 49 53 48 45 52 3d 54 48 2b ┆TINUE J=K 220 FISHER=TH+┆
0x14800…14820 53 54 48 2a 43 54 48 2a 51 0a 20 20 20 20 20 20 51 3d 30 2e 0a 20 20 20 20 20 20 49 46 20 28 4e ┆STH*CTH*Q Q=0. IF (N┆
0x14820…14840 55 31 20 2e 45 51 2e 20 31 29 20 47 4f 20 54 4f 20 32 39 30 0a 20 20 20 20 20 20 54 4e 3d 54 4e ┆U1 .EQ. 1) GO TO 290 TN=TN┆
0x14840…14860 2b 32 2e 0a 20 20 20 20 20 20 50 52 3d 50 52 2a 54 4e 0a 20 20 20 20 20 20 49 46 20 28 4a 20 2e ┆+2. PR=PR*TN IF (J .┆
0x14860…14880 45 51 2e 20 4b 29 20 47 4f 20 54 4f 20 32 34 30 0a 20 20 20 20 20 20 4c 3d 4a 2b 32 0a 20 20 20 ┆EQ. K) GO TO 240 L=J+2 ┆
0x14880…148a0 20 20 20 44 4f 20 32 33 30 20 4a 3d 4c 2c 4b 2c 32 0a 20 20 20 20 20 20 54 4e 3d 54 4e 2b 32 2e ┆ DO 230 J=L,K,2 TN=TN+2.┆
0x148a0…148c0 0a 20 20 32 33 30 20 50 52 3d 50 52 2a 54 4e 2f 46 4c 4f 41 54 28 4a 29 0a 20 20 32 34 30 20 54 ┆ 230 PR=PR*TN/FLOAT(J) 240 T┆
0x148c0…148e0 4e 3d 52 4e 55 32 2d 31 2e 0a 20 20 20 20 20 20 51 3d 31 2e 0a 20 20 20 20 20 20 54 45 52 4d 3d ┆N=RNU2-1. Q=1. TERM=┆
0x148e0…14900 31 2e 0a 20 20 20 20 20 20 4b 3d 4e 55 31 2d 32 0a 20 20 20 20 20 20 49 46 20 28 4b 20 2e 4c 54 ┆1. K=NU1-2 IF (K .LT┆
0x14900…14920 2e 20 33 29 20 47 4f 20 54 4f 20 32 36 30 0a 20 20 20 20 20 20 44 4f 20 32 35 30 20 4a 3d 33 2c ┆. 3) GO TO 260 DO 250 J=3,┆
0x14920…14940 4b 2c 32 0a 20 20 20 20 20 20 54 4e 3d 54 4e 2b 32 2e 0a 20 20 20 20 20 20 54 45 52 4d 3d 54 45 ┆K,2 TN=TN+2. TERM=TE┆
0x14940…14960 52 4d 2a 54 4e 2a 53 53 2f 46 4c 4f 41 54 28 4a 29 0a 20 20 20 20 20 20 51 3d 51 2b 54 45 52 4d ┆RM*TN*SS/FLOAT(J) Q=Q+TERM┆
0x14960…14980 0a 20 20 20 20 20 20 49 46 20 28 54 45 52 4d 20 2e 4c 45 2e 20 54 4f 4c 2a 51 29 20 47 4f 20 54 ┆ IF (TERM .LE. TOL*Q) GO T┆
0x14980…149a0 4f 20 32 36 30 0a 20 20 32 35 30 20 43 4f 4e 54 49 4e 55 45 0a 20 20 32 36 30 20 46 49 53 48 45 ┆O 260 250 CONTINUE 260 FISHE┆
0x149a0…149c0 52 3d 46 49 53 48 45 52 2d 51 2a 50 52 2a 53 54 48 2a 43 54 48 2a 2a 4e 55 32 0a 20 20 32 39 30 ┆R=FISHER-Q*PR*STH*CTH**NU2 290┆
0x149c0…149e0 20 46 49 53 48 45 52 3d 46 49 53 48 45 52 2a 2e 36 33 36 36 31 39 38 0a 20 20 20 20 20 20 52 45 ┆ FISHER=FISHER*.6366198 RE┆
0x149e0…14a00 54 55 52 4e 0a 43 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆TURN C--------------------------┆
0x14a00…14a20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x14a20…14a40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 43 20 20 45 56 41 4c 55 41 54 45 53 20 45 51 2e 20 32 ┆------------- C EVALUATES EQ. 2┆
0x14a40…14a60 36 2e 36 2e 35 0a 43 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆6.6.5 C-------------------------┆
0x14a60…14a80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x14a80…14aa0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 20 33 30 30 20 54 45 52 4d 3d 31 2e 0a 20 20 20 ┆-------------- 300 TERM=1. ┆
0x14aa0…14ac0 20 20 20 51 3d 31 2e 0a 20 20 20 20 20 20 4b 3d 4e 55 32 2d 32 0a 20 20 20 20 20 20 54 4e 3d 52 ┆ Q=1. K=NU2-2 TN=R┆
0x14ac0…14ae0 4e 55 31 2d 32 2e 0a 20 20 20 20 20 20 44 4f 20 33 31 30 20 4a 3d 32 2c 4b 2c 32 0a 20 20 20 20 ┆NU1-2. DO 310 J=2,K,2 ┆
0x14ae0…14b00 20 20 54 4e 3d 54 4e 2b 32 2e 0a 20 20 20 20 20 20 54 45 52 4d 3d 54 45 52 4d 2a 54 4e 2a 58 2f ┆ TN=TN+2. TERM=TERM*TN*X/┆
0x14b00…14b20 46 4c 4f 41 54 28 4a 29 0a 20 20 20 20 20 20 51 3d 51 2b 54 45 52 4d 0a 20 20 20 20 20 20 49 46 ┆FLOAT(J) Q=Q+TERM IF┆
0x14b20…14b40 20 28 54 45 52 4d 20 2e 4c 45 2e 20 54 4f 4c 2a 51 29 20 47 4f 20 54 4f 20 33 32 30 0a 20 20 33 ┆ (TERM .LE. TOL*Q) GO TO 320 3┆
0x14b40…14b60 31 30 20 43 4f 4e 54 49 4e 55 45 0a 20 20 33 32 30 20 46 49 53 48 45 52 3d 53 51 52 54 28 31 2e ┆10 CONTINUE 320 FISHER=SQRT(1.┆
0x14b60…14b80 2d 58 29 2a 51 0a 20 20 20 20 20 20 52 45 54 55 52 4e 0a 20 20 20 20 20 20 45 4e 44 0a 43 2d 2d ┆-X)*Q RETURN END C--┆
0x14b80…14ba0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
[…0x1…]
0x14bc0…14be0 2d 2d 2d 2d 2d 0a 43 20 20 53 55 42 52 4f 55 54 49 4e 45 20 52 45 53 49 44 55 2e 20 43 41 4c 43 ┆----- C SUBROUTINE RESIDU. CALC┆
0x14be0…14c00 55 4c 41 54 45 53 20 57 45 49 47 48 54 45 44 20 52 45 53 49 44 55 41 4c 53 20 46 52 4f 4d 20 41 ┆ULATES WEIGHTED RESIDUALS FROM A┆
0x14c00…14c20 53 41 56 45 28 4a 2c 4a 4c 41 4d 2c 31 29 0a 43 20 20 20 20 20 20 41 4e 44 20 41 53 41 56 45 28 ┆SAVE(J,JLAM,1) C AND ASAVE(┆
0x14c20…14c40 4a 2c 4a 4c 41 4d 2c 32 29 2c 20 57 48 49 43 48 20 43 4f 52 52 45 53 50 4f 4e 44 20 54 4f 20 41 ┆J,JLAM,2), WHICH CORRESPOND TO A┆
0x14c40…14c60 4c 50 48 41 20 41 4e 44 20 4c 41 4d 42 44 41 2c 0a 43 20 20 20 20 20 20 52 45 54 55 52 4e 53 20 ┆LPHA AND LAMBDA, C RETURNS ┆
0x14c60…14c80 50 55 4e 43 4f 52 20 28 41 50 50 52 4f 58 2e 20 50 52 4f 42 41 42 49 4c 49 54 59 20 54 48 41 54 ┆PUNCOR (APPROX. PROBABILITY THAT┆
0x14c80…14ca0 20 54 48 45 20 52 45 53 49 44 55 41 4c 53 20 41 52 45 0a 43 20 20 20 20 20 20 55 4e 43 4f 52 52 ┆ THE RESIDUALS ARE C UNCORR┆
0x14ca0…14cc0 45 4c 41 54 45 44 20 46 4f 52 20 4c 41 47 53 20 31 20 54 48 52 55 20 35 29 20 41 4e 44 20 57 45 ┆ELATED FOR LAGS 1 THRU 5) AND WE┆
0x14cc0…14ce0 49 47 48 54 45 44 20 41 56 45 52 41 47 45 20 49 4e 0a 43 20 20 20 20 20 20 50 55 4e 43 4f 52 28 ┆IGHTED AVERAGE IN C PUNCOR(┆
0x14ce0…14d00 36 29 2c 20 41 4e 44 2c 20 49 46 20 50 4c 4f 54 3d 2e 54 52 55 45 2e 2c 20 43 41 4c 4c 53 20 50 ┆6), AND, IF PLOT=.TRUE., CALLS P┆
0x14d00…14d20 (37,) 4c 50 52 45 53 20 54 4f 20 50 4c 4f 54 20 57 45 49 47 48 54 45 44 0a 43 20 20 20 20 20 20 52 45 ┆LPRES TO PLOT WEIGHTED C RE┆
0x14d20…14d40 53 49 44 55 41 4c 53 20 4f 4e 20 50 52 49 4e 54 45 52 2e 0a 43 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆SIDUALS ON PRINTER. C-----------┆
0x14d40…14d60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x14d60…14d80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 43 20 20 ┆---------------------------- C ┆
0x14d80…14da0 43 41 4c 4c 53 20 53 55 42 50 52 4f 47 52 41 4d 53 20 2d 20 46 49 53 48 45 52 2c 20 50 4c 50 52 ┆CALLS SUBPROGRAMS - FISHER, PLPR┆
0x14da0…14dc0 45 53 0a 43 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ES C----------------------------┆
0x14dc0…14de0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x14de0…14e00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 20 20 20 20 20 53 55 42 52 4f 55 54 49 4e 45 20 52 45 53 ┆----------- SUBROUTINE RES┆
0x14e00…14e20 49 44 55 20 28 4a 4c 41 4d 2c 50 4c 4f 54 2c 54 2c 59 2c 53 51 52 54 57 2c 59 4c 59 46 49 54 2c ┆IDU (JLAM,PLOT,T,Y,SQRTW,YLYFIT,┆
0x14e20…14e40 4e 4d 41 58 2c 50 55 4e 43 4f 52 2c 41 53 41 56 45 29 0a 20 20 20 20 20 20 4c 4f 47 49 43 41 4c ┆NMAX,PUNCOR,ASAVE) LOGICAL┆
0x14e40…14e60 20 50 4c 4f 54 2c 20 4e 4f 42 41 53 45 2c 20 57 54 45 44 2c 20 4c 44 55 4d 2c 20 4c 42 4c 4f 4b ┆ PLOT, NOBASE, WTED, LDUM, LBLOK┆
0x14e60…14e80 41 2c 20 4c 42 4c 4f 4b 42 0a 20 20 20 20 20 20 43 4f 4d 4d 4f 4e 20 2f 42 4c 4f 4b 2f 20 52 42 ┆A, LBLOKB COMMON /BLOK/ RB┆
0x14e80…14ea0 4c 4f 4b 41 28 33 35 33 35 29 2c 20 49 42 4c 4f 4b 41 28 31 34 35 29 2c 20 4e 2c 20 49 57 52 49 ┆LOKA(3535), IBLOKA(145), N, IWRI┆
0x14ea0…14ec0 54 45 2c 20 49 42 4c 4f 4b 42 2c 0a 20 20 20 20 20 31 20 4c 49 4e 45 50 47 2c 20 49 42 4c 4f 4b ┆TE, IBLOKB, 1 LINEPG, IBLOK┆
0x14ec0…14ee0 43 28 31 31 29 2c 20 4c 42 4c 4f 4b 41 28 33 29 2c 20 4e 4f 42 41 53 45 2c 20 57 54 45 44 2c 20 ┆C(11), LBLOKA(3), NOBASE, WTED, ┆
0x14ee0…14f00 4c 42 4c 4f 4b 42 28 32 35 29 0a 20 20 20 20 20 20 44 49 4d 45 4e 53 49 4f 4e 20 41 53 41 56 45 ┆LBLOKB(25) DIMENSION ASAVE┆
0x14f00…14f20 28 36 2c 35 2c 36 29 0a 20 20 20 20 20 20 44 49 4d 45 4e 53 49 4f 4e 20 54 28 4e 4d 41 58 29 2c ┆(6,5,6) DIMENSION T(NMAX),┆
0x14f20…14f40 20 59 28 4e 4d 41 58 29 2c 20 53 51 52 54 57 28 4e 4d 41 58 29 2c 20 59 4c 59 46 49 54 28 4e 4d ┆ Y(NMAX), SQRTW(NMAX), YLYFIT(NM┆
0x14f40…14f60 41 58 29 2c 20 50 55 4e 43 4f 52 28 36 29 0a 20 20 20 20 20 20 4a 4c 41 4d 50 31 3d 4a 4c 41 4d ┆AX), PUNCOR(6) JLAMP1=JLAM┆
0x14f60…14f80 2b 31 0a 20 20 20 20 20 20 4c 44 55 4d 3d 2e 4e 4f 54 2e 4e 4f 42 41 53 45 0a 20 20 20 20 20 20 ┆+1 LDUM=.NOT.NOBASE ┆
0x14f80…14fa0 49 46 20 28 4c 44 55 4d 29 20 44 55 4d 3d 41 53 41 56 45 28 4a 4c 41 4d 50 31 2c 4a 4c 41 4d 2c ┆IF (LDUM) DUM=ASAVE(JLAMP1,JLAM,┆
0x14fa0…14fc0 31 29 0a 20 20 20 20 20 20 44 4f 20 31 31 30 20 4b 3d 31 2c 4e 0a 20 20 20 20 20 20 59 4c 59 46 ┆1) DO 110 K=1,N YLYF┆
0x14fc0…14fe0 49 54 28 4b 29 3d 59 28 4b 29 0a 20 20 31 31 30 20 49 46 20 28 4c 44 55 4d 29 20 59 4c 59 46 49 ┆IT(K)=Y(K) 110 IF (LDUM) YLYFI┆
0x14fe0…15000 54 28 4b 29 3d 59 4c 59 46 49 54 28 4b 29 2d 44 55 4d 2a 53 51 52 54 57 28 4b 29 0a 20 20 20 20 ┆T(K)=YLYFIT(K)-DUM*SQRTW(K) ┆
0x15000…15020 20 20 44 4f 20 31 32 30 20 4a 3d 31 2c 4a 4c 41 4d 0a 20 20 20 20 20 20 44 55 4d 3d 41 53 41 56 ┆ DO 120 J=1,JLAM DUM=ASAV┆
0x15020…15040 45 28 4a 2c 4a 4c 41 4d 2c 31 29 0a 20 20 20 20 20 20 44 44 55 4d 3d 41 53 41 56 45 28 4a 2c 4a ┆E(J,JLAM,1) DDUM=ASAVE(J,J┆
0x15040…15060 4c 41 4d 2c 32 29 0a 20 20 20 20 20 20 44 4f 20 31 32 35 20 4b 3d 31 2c 4e 0a 20 20 31 32 35 20 ┆LAM,2) DO 125 K=1,N 125 ┆
0x15060…15080 59 4c 59 46 49 54 28 4b 29 3d 59 4c 59 46 49 54 28 4b 29 2d 44 55 4d 2a 45 58 50 28 2d 44 44 55 ┆YLYFIT(K)=YLYFIT(K)-DUM*EXP(-DDU┆
0x15080…150a0 4d 2a 54 28 4b 29 29 2a 53 51 52 54 57 28 4b 29 0a 20 20 31 32 30 20 43 4f 4e 54 49 4e 55 45 0a ┆M*T(K))*SQRTW(K) 120 CONTINUE ┆
0x150a0…150c0 20 20 20 20 20 20 52 53 55 4d 53 54 3d 30 2e 0a 20 20 20 20 20 20 49 46 20 28 4c 44 55 4d 29 20 ┆ RSUMST=0. IF (LDUM) ┆
0x150c0…150e0 47 4f 20 54 4f 20 31 34 30 0a 20 20 20 20 20 20 44 4f 20 31 33 30 20 4b 3d 31 2c 4e 0a 20 20 31 ┆GO TO 140 DO 130 K=1,N 1┆
0x150e0…15100 33 30 20 52 53 55 4d 53 54 3d 52 53 55 4d 53 54 2b 59 4c 59 46 49 54 28 4b 29 0a 20 20 31 34 30 ┆30 RSUMST=RSUMST+YLYFIT(K) 140┆
0x15100…15120 20 52 53 55 4d 45 4e 3d 52 53 55 4d 53 54 0a 43 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ RSUMEN=RSUMST C----------------┆
0x15120…15140 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x15140…15160 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 43 20 20 43 41 4c 43 55 ┆----------------------- C CALCU┆
0x15160…15180 4c 41 54 45 20 41 55 54 4f 43 4f 56 41 52 49 41 4e 43 45 53 20 41 4e 44 20 50 52 4f 42 41 42 49 ┆LATE AUTOCOVARIANCES AND PROBABI┆
0x15180…151a0 4c 49 54 49 45 53 20 54 48 41 54 20 52 45 53 49 44 55 41 4c 53 20 41 52 45 0a 43 20 20 55 4e 43 ┆LITIES THAT RESIDUALS ARE C UNC┆
0x151a0…151c0 4f 52 52 45 4c 41 54 45 44 20 28 48 41 4d 49 4c 54 4f 4e 2c 20 50 2e 20 31 38 33 29 0a 43 2d 2d ┆ORRELATED (HAMILTON, P. 183) C--┆
0x151c0…151e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
[…0x1…]
0x15200…15220 2d 2d 2d 2d 2d 0a 20 20 20 20 20 20 50 55 4e 43 4f 52 28 36 29 3d 30 2e 0a 20 20 20 20 20 20 44 ┆----- PUNCOR(6)=0. D┆
0x15220…15240 4f 20 31 35 30 20 4c 3d 31 2c 35 0a 20 20 20 20 20 20 4e 45 4e 44 3d 4e 2d 4c 0a 20 20 20 20 20 ┆O 150 L=1,5 NEND=N-L ┆
0x15240…15260 20 52 53 55 4d 53 54 3d 52 53 55 4d 53 54 2d 59 4c 59 46 49 54 28 4e 45 4e 44 2b 31 29 0a 20 20 ┆ RSUMST=RSUMST-YLYFIT(NEND+1) ┆
0x15260…15280 20 20 20 20 52 53 55 4d 45 4e 3d 52 53 55 4d 45 4e 2d 59 4c 59 46 49 54 28 4c 29 0a 20 20 20 20 ┆ RSUMEN=RSUMEN-YLYFIT(L) ┆
0x15280…152a0 20 20 53 54 42 41 52 3d 52 53 55 4d 53 54 2f 46 4c 4f 41 54 28 4e 45 4e 44 29 0a 20 20 20 20 20 ┆ STBAR=RSUMST/FLOAT(NEND) ┆
0x152a0…152c0 20 45 4e 42 41 52 3d 52 53 55 4d 45 4e 2f 46 4c 4f 41 54 28 4e 45 4e 44 29 0a 20 20 20 20 20 20 ┆ ENBAR=RSUMEN/FLOAT(NEND) ┆
0x152c0…152e0 53 53 3d 30 2e 0a 20 20 20 20 20 20 53 45 3d 30 2e 0a 20 20 20 20 20 20 45 45 3d 30 2e 0a 20 20 ┆SS=0. SE=0. EE=0. ┆
0x152e0…15300 20 20 20 20 4a 3d 4c 0a 20 20 20 20 20 20 44 4f 20 31 35 32 20 4b 3d 31 2c 4e 45 4e 44 0a 20 20 ┆ J=L DO 152 K=1,NEND ┆
0x15300…15320 20 20 20 20 53 3d 59 4c 59 46 49 54 28 4b 29 2d 53 54 42 41 52 0a 20 20 20 20 20 20 4a 3d 4a 2b ┆ S=YLYFIT(K)-STBAR J=J+┆
0x15320…15340 31 0a 20 20 20 20 20 20 45 3d 59 4c 59 46 49 54 28 4a 29 2d 45 4e 42 41 52 0a 20 20 20 20 20 20 ┆1 E=YLYFIT(J)-ENBAR ┆
0x15340…15360 53 53 3d 53 53 2b 53 2a 53 0a 20 20 20 20 20 20 53 45 3d 53 45 2b 53 2a 45 0a 20 20 20 20 20 20 ┆SS=SS+S*S SE=SE+S*E ┆
0x15360…15380 45 45 3d 45 45 2b 45 2a 45 0a 20 20 31 35 32 20 43 4f 4e 54 49 4e 55 45 0a 20 20 20 20 20 20 52 ┆EE=EE+E*E 152 CONTINUE R┆
0x15380…153a0 53 51 3d 53 45 2a 53 45 2f 28 53 53 2a 45 45 29 0a 20 20 20 20 20 20 50 55 4e 43 4f 52 28 4c 29 ┆SQ=SE*SE/(SS*EE) PUNCOR(L)┆
0x153a0…153c0 3d 31 2e 2d 46 49 53 48 45 52 28 46 4c 4f 41 54 28 4e 45 4e 44 2d 32 29 2a 52 53 51 2f 28 31 2e ┆=1.-FISHER(FLOAT(NEND-2)*RSQ/(1.┆
0x153c0…153e0 2d 52 53 51 29 2c 31 2c 4e 45 4e 44 2d 32 29 0a 20 20 20 20 20 20 50 55 4e 43 4f 52 28 36 29 3d ┆-RSQ),1,NEND-2) PUNCOR(6)=┆
0x153e0…15400 50 55 4e 43 4f 52 28 36 29 2b 50 55 4e 43 4f 52 28 4c 29 2f 46 4c 4f 41 54 28 4c 29 0a 20 20 31 ┆PUNCOR(6)+PUNCOR(L)/FLOAT(L) 1┆
0x15400…15420 35 30 20 43 4f 4e 54 49 4e 55 45 0a 20 20 20 20 20 20 50 55 4e 43 4f 52 28 36 29 3d 50 55 4e 43 ┆50 CONTINUE PUNCOR(6)=PUNC┆
0x15420…15440 4f 52 28 36 29 2f 32 2e 32 38 33 33 33 33 0a 20 20 20 20 20 20 49 46 20 28 50 4c 4f 54 29 20 43 ┆OR(6)/2.283333 IF (PLOT) C┆
0x15440…15460 41 4c 4c 20 50 4c 50 52 45 53 20 28 59 4c 59 46 49 54 2c 4e 4d 41 58 2c 4e 2c 57 54 45 44 2c 49 ┆ALL PLPRES (YLYFIT,NMAX,N,WTED,I┆
0x15460…15480 57 52 49 54 45 2c 4c 49 4e 45 50 47 29 0a 20 20 20 20 20 20 52 45 54 55 52 4e 0a 20 20 20 20 20 ┆WRITE,LINEPG) RETURN ┆
0x15480…154a0 20 45 4e 44 0a 43 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ END C--------------------------┆
0x154a0…154c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x154c0…154e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 43 20 20 53 55 42 52 4f 55 54 49 4e 45 20 50 4c 50 52 ┆------------- C SUBROUTINE PLPR┆
0x154e0…15500 45 53 2e 20 50 4c 4f 54 53 20 52 45 53 49 44 55 41 4c 53 20 4f 4e 20 50 52 49 4e 54 45 52 20 57 ┆ES. PLOTS RESIDUALS ON PRINTER W┆
0x15500…15520 49 54 48 20 58 2d 41 58 49 53 20 48 4f 52 49 5a 4f 4e 54 41 4c 2e 0a 43 20 20 4e 45 45 44 53 20 ┆ITH X-AXIS HORIZONTAL. C NEEDS ┆
0x15520…15540 4e 4f 20 43 4f 4d 4d 4f 4e 20 42 4c 4f 43 4b 53 0a 43 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆NO COMMON BLOCKS C--------------┆
0x15540…15560 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x15560…15580 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 43 20 20 43 41 4c ┆------------------------- C CAL┆
0x15580…155a0 4c 53 20 4e 4f 20 45 58 54 45 52 4e 41 4c 20 53 55 42 50 52 4f 47 52 41 4d 53 2e 0a 43 2d 2d 2d ┆LS NO EXTERNAL SUBPROGRAMS. C---┆
0x155a0…155c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
[…0x1…]
0x155e0…15600 2d 2d 2d 2d 0a 20 20 20 20 20 20 53 55 42 52 4f 55 54 49 4e 45 20 50 4c 50 52 45 53 20 28 59 4c ┆---- SUBROUTINE PLPRES (YL┆
0x15600…15620 (38,) 59 46 49 54 2c 4e 4d 41 58 2c 4e 2c 57 54 45 44 2c 49 57 52 49 54 45 2c 4c 49 4e 45 50 47 29 0a ┆YFIT,NMAX,N,WTED,IWRITE,LINEPG) ┆
0x15620…15640 20 20 20 20 20 20 4c 4f 47 49 43 41 4c 20 57 54 45 44 0a 20 20 20 20 20 20 44 49 4d 45 4e 53 49 ┆ LOGICAL WTED DIMENSI┆
0x15640…15660 4f 4e 20 59 4c 59 46 49 54 28 4e 4d 41 58 29 2c 20 4a 43 48 41 52 28 38 29 2c 20 4c 49 4e 45 28 ┆ON YLYFIT(NMAX), JCHAR(8), LINE(┆
0x15660…15680 31 33 31 29 2c 20 4c 41 42 45 4c 28 36 29 2c 20 42 4f 55 4e 44 28 32 31 29 2c 0a 20 20 20 20 20 ┆131), LABEL(6), BOUND(21), ┆
0x15680…156a0 31 20 4c 43 48 41 52 4a 28 32 30 29 2c 20 4c 49 4e 45 31 28 32 30 29 0a 20 20 20 20 20 20 44 41 ┆1 LCHARJ(20), LINE1(20) DA┆
0x156a0…156c0 54 41 20 4a 43 48 41 52 2f 31 48 2a 2c 20 31 48 2d 2c 20 32 48 30 55 2c 20 32 48 20 4c 2c 20 32 ┆TA JCHAR/1H*, 1H-, 2H0U, 2H L, 2┆
0x156c0…156e0 48 20 20 2c 20 32 48 20 30 2c 20 31 48 3d 2c 20 31 48 2b 2f 0a 20 20 20 20 20 20 49 46 20 28 4c ┆H , 2H 0, 1H=, 1H+/ IF (L┆
0x156e0…15700 49 4e 45 50 47 20 2e 47 45 2e 20 31 37 29 20 47 4f 20 54 4f 20 31 30 30 0a 20 35 31 30 30 20 46 ┆INEPG .GE. 17) GO TO 100 5100 F┆
0x15700…15720 4f 52 4d 41 54 20 28 2f 2f 2f 2f 2f 34 37 48 20 4e 4f 20 50 4c 4f 54 20 4f 46 20 52 45 53 49 44 ┆ORMAT (/////47H NO PLOT OF RESID┆
0x15720…15740 55 41 4c 53 20 50 4f 53 53 49 42 4c 45 20 42 45 43 41 55 53 45 20 4c 49 4e 45 50 47 20 3d 2c 0a ┆UALS POSSIBLE BECAUSE LINEPG =, ┆
0x15740…15760 20 20 20 20 20 31 20 49 32 2c 32 58 2c 34 30 28 32 48 2a 2a 29 2f 2f 29 0a 20 20 20 20 20 20 57 ┆ 1 I2,2X,40(2H**)//) W┆
0x15760…15780 52 49 54 45 20 28 49 57 52 49 54 45 2c 35 31 30 30 29 20 4c 49 4e 45 50 47 0a 20 20 20 20 20 20 ┆RITE (IWRITE,5100) LINEPG ┆
0x15780…157a0 52 45 54 55 52 4e 0a 20 20 31 30 30 20 4d 50 4c 4f 54 3d 28 4c 49 4e 45 50 47 2d 31 29 2f 31 36 ┆RETURN 100 MPLOT=(LINEPG-1)/16┆
0x157a0…157c0 0a 20 20 20 20 20 20 4d 4c 49 4e 45 3d 4d 49 4e 30 28 32 30 2c 28 4c 49 4e 45 50 47 2d 31 29 2f ┆ MLINE=MIN0(20,(LINEPG-1)/┆
0x157c0…157e0 4d 50 4c 4f 54 2d 33 29 0a 20 20 20 20 20 20 52 4d 49 4e 3d 31 2e 45 2b 32 30 0a 20 20 20 20 20 ┆MPLOT-3) RMIN=1.E+20 ┆
0x157e0…15800 20 52 4d 41 58 3d 2d 31 2e 45 2b 32 30 0a 20 20 20 20 20 20 44 4f 20 31 31 30 20 4a 3d 31 2c 4e ┆ RMAX=-1.E+20 DO 110 J=1,N┆
0x15800…15820 0a 20 20 20 20 20 20 52 4d 49 4e 3d 41 4d 49 4e 31 28 52 4d 49 4e 2c 59 4c 59 46 49 54 28 4a 29 ┆ RMIN=AMIN1(RMIN,YLYFIT(J)┆
0x15820…15840 29 0a 20 20 31 31 30 20 52 4d 41 58 3d 41 4d 41 58 31 28 52 4d 41 58 2c 59 4c 59 46 49 54 28 4a ┆) 110 RMAX=AMAX1(RMAX,YLYFIT(J┆
0x15840…15860 29 29 0a 20 35 32 30 30 20 46 4f 52 4d 41 54 28 35 35 48 31 50 4c 4f 54 20 4f 46 20 52 45 53 49 ┆)) 5200 FORMAT(55H1PLOT OF RESI┆
0x15860…15880 44 55 41 4c 53 20 4d 55 4c 54 49 50 4c 49 45 44 20 42 59 20 53 51 55 41 52 45 2d 52 4f 4f 54 20 ┆DUALS MULTIPLIED BY SQUARE-ROOT ┆
0x15880…158a0 4f 46 20 57 45 49 47 48 54 53 0a 20 20 20 20 20 31 20 2c 32 31 48 20 2d 20 46 4f 52 20 42 45 53 ┆OF WEIGHTS 1 ,21H - FOR BES┆
0x158a0…158c0 54 20 53 4f 4c 55 54 49 4f 4e 2e 2c 34 58 2c 31 35 48 4d 41 58 20 52 45 53 49 44 55 41 4c 3d 55 ┆T SOLUTION.,4X,15HMAX RESIDUAL=U┆
0x158c0…158e0 3d 2c 31 50 45 38 2e 31 2c 34 58 2c 0a 20 20 20 20 20 32 20 31 35 48 4d 49 4e 20 52 45 53 49 44 ┆=,1PE8.1,4X, 2 15HMIN RESID┆
0x158e0…15900 55 41 4c 3d 4c 3d 2c 31 50 45 38 2e 31 29 0a 20 20 20 20 20 20 49 46 20 28 57 54 45 44 29 20 57 ┆UAL=L=,1PE8.1) IF (WTED) W┆
0x15900…15920 52 49 54 45 20 28 49 57 52 49 54 45 2c 35 32 30 30 29 20 52 4d 41 58 2c 52 4d 49 4e 0a 20 35 32 ┆RITE (IWRITE,5200) RMAX,RMIN 52┆
0x15920…15940 30 32 20 46 4f 52 4d 41 54 20 28 31 38 48 31 50 4c 4f 54 20 4f 46 20 52 45 53 49 44 55 41 4c 53 ┆02 FORMAT (18H1PLOT OF RESIDUALS┆
0x15940…15960 0a 20 20 20 20 20 31 20 2c 32 31 48 20 2d 20 46 4f 52 20 42 45 53 54 20 53 4f 4c 55 54 49 4f 4e ┆ 1 ,21H - FOR BEST SOLUTION┆
0x15960…15980 2e 2c 34 58 2c 31 35 48 4d 41 58 20 52 45 53 49 44 55 41 4c 3d 55 3d 2c 31 50 45 38 2e 31 2c 34 ┆.,4X,15HMAX RESIDUAL=U=,1PE8.1,4┆
0x15980…159a0 58 2c 0a 20 20 20 20 20 32 20 31 35 48 4d 49 4e 20 52 45 53 49 44 55 41 4c 3d 4c 3d 2c 31 50 45 ┆X, 2 15HMIN RESIDUAL=L=,1PE┆
0x159a0…159c0 38 2e 31 29 0a 20 20 20 20 20 20 49 46 20 28 2e 4e 4f 54 2e 57 54 45 44 29 20 57 52 49 54 45 20 ┆8.1) IF (.NOT.WTED) WRITE ┆
0x159c0…159e0 28 49 57 52 49 54 45 2c 35 32 30 32 29 20 52 4d 41 58 2c 52 4d 49 4e 0a 20 20 20 20 20 20 44 45 ┆(IWRITE,5202) RMAX,RMIN DE┆
0x159e0…15a00 4c 54 41 3d 28 52 4d 41 58 2d 52 4d 49 4e 29 2f 46 4c 4f 41 54 28 4d 4c 49 4e 45 2d 31 29 0a 20 ┆LTA=(RMAX-RMIN)/FLOAT(MLINE-1) ┆
0x15a00…15a20 20 20 20 20 20 42 4f 55 4e 44 28 31 29 3d 52 4d 41 58 2b 2e 35 2a 44 45 4c 54 41 0a 20 20 20 20 ┆ BOUND(1)=RMAX+.5*DELTA ┆
0x15a20…15a40 20 20 4b 3d 4d 4c 49 4e 45 2b 31 0a 20 20 20 20 20 20 44 4f 20 31 32 30 20 4a 3d 32 2c 4b 0a 20 ┆ K=MLINE+1 DO 120 J=2,K ┆
0x15a40…15a60 20 20 20 20 20 42 4f 55 4e 44 28 4a 29 3d 42 4f 55 4e 44 28 4a 2d 31 29 2d 44 45 4c 54 41 0a 20 ┆ BOUND(J)=BOUND(J-1)-DELTA ┆
0x15a60…15a80 20 31 32 30 20 49 46 20 28 42 4f 55 4e 44 28 4a 29 2a 42 4f 55 4e 44 28 4a 2d 31 29 20 2e 4c 54 ┆ 120 IF (BOUND(J)*BOUND(J-1) .LT┆
0x15a80…15aa0 2e 20 30 2e 29 20 4a 41 58 49 53 3d 4a 2d 31 0a 20 20 20 20 20 20 4c 41 42 45 4c 28 31 29 3d 2d ┆. 0.) JAXIS=J-1 LABEL(1)=-┆
0x15aa0…15ac0 31 31 30 0a 20 20 20 20 20 20 44 4f 20 31 33 30 20 4a 3d 32 2c 36 0a 20 20 31 33 30 20 4c 41 42 ┆110 DO 130 J=2,6 130 LAB┆
0x15ac0…15ae0 45 4c 28 4a 29 3d 4c 41 42 45 4c 28 4a 2d 31 29 2b 32 30 0a 20 20 20 20 20 20 4b 3d 4d 4c 49 4e ┆EL(J)=LABEL(J-1)+20 K=MLIN┆
0x15ae0…15b00 45 2d 31 0a 20 20 20 20 20 20 44 4f 20 31 34 30 20 4a 3d 32 2c 4b 0a 20 20 20 20 20 20 4c 49 4e ┆E-1 DO 140 J=2,K LIN┆
0x15b00…15b20 45 31 28 4a 29 3d 4a 43 48 41 52 28 35 29 0a 20 20 31 34 30 20 4c 43 48 41 52 4a 28 4a 29 3d 35 ┆E1(J)=JCHAR(5) 140 LCHARJ(J)=5┆
0x15b20…15b40 0a 20 20 20 20 20 20 4c 49 4e 45 31 28 31 29 3d 4a 43 48 41 52 28 33 29 0a 20 20 20 20 20 20 4c ┆ LINE1(1)=JCHAR(3) L┆
0x15b40…15b60 49 4e 45 31 28 4a 41 58 49 53 29 3d 4a 43 48 41 52 28 36 29 0a 20 20 20 20 20 20 4c 49 4e 45 31 ┆INE1(JAXIS)=JCHAR(6) LINE1┆
0x15b60…15b80 28 4d 4c 49 4e 45 29 3d 4a 43 48 41 52 28 34 29 0a 20 20 20 20 20 20 4c 43 48 41 52 4a 28 31 29 ┆(MLINE)=JCHAR(4) LCHARJ(1)┆
0x15b80…15ba0 3d 37 0a 20 20 20 20 20 20 4c 43 48 41 52 4a 28 4a 41 58 49 53 29 3d 32 0a 20 20 20 20 20 20 4c ┆=7 LCHARJ(JAXIS)=2 L┆
0x15ba0…15bc0 43 48 41 52 4a 28 4d 4c 49 4e 45 29 3d 37 0a 20 20 20 20 20 20 4e 50 4f 49 4e 54 3d 30 0a 20 20 ┆CHARJ(MLINE)=7 NPOINT=0 ┆
0x15bc0…15be0 20 20 20 20 44 4f 20 32 30 30 20 4e 50 41 47 45 3d 31 2c 33 30 0a 20 20 20 20 20 20 49 46 20 28 ┆ DO 200 NPAGE=1,30 IF (┆
0x15be0…15c00 4e 50 41 47 45 20 2e 47 54 2e 20 31 29 20 57 52 49 54 45 28 49 57 52 49 54 45 2c 35 39 39 39 29 ┆NPAGE .GT. 1) WRITE(IWRITE,5999)┆
0x15c00…15c20 0a 20 35 39 39 39 20 46 4f 52 4d 41 54 20 28 31 48 31 29 0a 20 20 20 20 20 20 44 4f 20 32 31 30 ┆ 5999 FORMAT (1H1) DO 210┆
0x15c20…15c40 20 4e 50 4c 4f 54 3d 31 2c 4d 50 4c 4f 54 0a 20 20 20 20 20 20 4e 53 54 3d 4e 50 4f 49 4e 54 2b ┆ NPLOT=1,MPLOT NST=NPOINT+┆
0x15c40…15c60 31 0a 20 20 20 20 20 20 4e 45 4e 44 3d 4e 50 4f 49 4e 54 2b 31 33 30 0a 20 20 20 20 20 20 4e 50 ┆1 NEND=NPOINT+130 NP┆
0x15c60…15c80 4f 49 4e 54 3d 4e 45 4e 44 0a 20 20 20 20 20 20 4e 4c 49 4d 3d 4d 49 4e 30 28 4e 45 4e 44 2c 4e ┆OINT=NEND NLIM=MIN0(NEND,N┆
0x15c80…15ca0 29 0a 20 20 20 20 20 20 44 4f 20 32 32 30 20 4e 4c 49 4e 45 3d 31 2c 4d 4c 49 4e 45 0a 20 20 20 ┆) DO 220 NLINE=1,MLINE ┆
0x15ca0…15cc0 20 20 20 4c 43 48 41 52 3d 4c 43 48 41 52 4a 28 4e 4c 49 4e 45 29 0a 20 20 20 20 20 20 4c 49 4e ┆ LCHAR=LCHARJ(NLINE) LIN┆
0x15cc0…15ce0 45 28 31 29 3d 4c 49 4e 45 31 28 4e 4c 49 4e 45 29 0a 20 20 20 20 20 20 42 4d 41 58 3d 42 4f 55 ┆E(1)=LINE1(NLINE) BMAX=BOU┆
0x15ce0…15d00 4e 44 28 4e 4c 49 4e 45 29 0a 20 20 20 20 20 20 42 4d 49 4e 3d 42 4f 55 4e 44 28 4e 4c 49 4e 45 ┆ND(NLINE) BMIN=BOUND(NLINE┆
0x15d00…15d20 2b 31 29 0a 20 20 20 20 20 20 4b 3d 31 0a 20 20 20 20 20 20 44 4f 20 32 33 30 20 4a 3d 4e 53 54 ┆+1) K=1 DO 230 J=NST┆
0x15d20…15d40 2c 4e 4c 49 4d 0a 20 20 20 20 20 20 4b 3d 4b 2b 31 0a 20 20 20 20 20 20 4c 49 4e 45 28 4b 29 3d ┆,NLIM K=K+1 LINE(K)=┆
0x15d40…15d60 4a 43 48 41 52 28 4c 43 48 41 52 29 0a 20 20 20 20 20 20 49 46 20 28 59 4c 59 46 49 54 28 4a 29 ┆JCHAR(LCHAR) IF (YLYFIT(J)┆
0x15d60…15d80 2e 4c 54 2e 42 4d 41 58 20 2e 41 4e 44 2e 20 59 4c 59 46 49 54 28 4a 29 2e 47 45 2e 42 4d 49 4e ┆.LT.BMAX .AND. YLYFIT(J).GE.BMIN┆
0x15d80…15da0 29 20 4c 49 4e 45 28 4b 29 3d 4a 43 48 41 52 28 31 29 0a 20 20 32 33 30 20 43 4f 4e 54 49 4e 55 ┆) LINE(K)=JCHAR(1) 230 CONTINU┆
0x15da0…15dc0 45 0a 20 20 20 20 20 20 4b 3d 4e 4c 49 4d 2d 4e 53 54 2b 32 0a 20 20 20 20 20 20 49 46 20 28 4e ┆E K=NLIM-NST+2 IF (N┆
0x15dc0…15de0 4c 49 4e 45 20 2e 4e 45 2e 20 4d 4c 49 4e 45 29 20 47 4f 20 54 4f 20 32 33 35 0a 20 20 20 20 20 ┆LINE .NE. MLINE) GO TO 235 ┆
0x15de0…15e00 20 44 4f 20 32 33 32 20 4a 3d 32 31 2c 4b 2c 32 30 0a 20 20 32 33 32 20 49 46 20 28 4c 49 4e 45 ┆ DO 232 J=21,K,20 232 IF (LINE┆
0x15e00…15e20 28 4a 29 20 2e 4e 45 2e 20 4a 43 48 41 52 28 31 29 29 20 4c 49 4e 45 28 4a 29 3d 4a 43 48 41 52 ┆(J) .NE. JCHAR(1)) LINE(J)=JCHAR┆
0x15e20…15e40 28 38 29 0a 20 35 32 33 30 20 46 4f 52 4d 41 54 20 28 41 32 2c 31 33 30 41 31 29 0a 20 20 32 33 ┆(8) 5230 FORMAT (A2,130A1) 23┆
0x15e40…15e60 35 20 57 52 49 54 45 20 28 49 57 52 49 54 45 2c 35 32 33 30 29 20 28 4c 49 4e 45 28 4a 29 2c 4a ┆5 WRITE (IWRITE,5230) (LINE(J),J┆
0x15e60…15e80 3d 31 2c 4b 29 0a 20 20 32 32 30 20 43 4f 4e 54 49 4e 55 45 0a 20 20 20 20 20 20 44 4f 20 32 34 ┆=1,K) 220 CONTINUE DO 24┆
0x15e80…15ea0 30 20 4a 3d 31 2c 36 0a 20 20 32 34 30 20 4c 41 42 45 4c 28 4a 29 3d 4c 41 42 45 4c 28 4a 29 2b ┆0 J=1,6 240 LABEL(J)=LABEL(J)+┆
0x15ea0…15ec0 31 33 30 0a 20 35 32 34 30 20 46 4f 52 4d 41 54 20 28 33 58 2c 36 28 31 36 58 2c 49 34 29 2f 29 ┆130 5240 FORMAT (3X,6(16X,I4)/)┆
0x15ec0…15ee0 0a 20 20 20 20 20 20 57 52 49 54 45 20 28 49 57 52 49 54 45 2c 35 32 34 30 29 20 4c 41 42 45 4c ┆ WRITE (IWRITE,5240) LABEL┆
0x15ee0…15f00 0a 20 20 20 20 20 20 49 46 20 28 4e 4c 49 4d 20 2e 45 51 2e 20 4e 29 20 52 45 54 55 52 4e 0a 20 ┆ IF (NLIM .EQ. N) RETURN ┆
0x15f00…15f20 (39,) 20 32 31 30 20 43 4f 4e 54 49 4e 55 45 0a 20 20 32 30 30 20 43 4f 4e 54 49 4e 55 45 0a 20 35 32 ┆ 210 CONTINUE 200 CONTINUE 52┆
0x15f20…15f40 35 30 20 46 4f 52 4d 41 54 20 28 34 39 48 20 4e 4f 20 4d 4f 52 45 20 54 48 41 4e 20 33 30 20 50 ┆50 FORMAT (49H NO MORE THAN 30 P┆
0x15f40…15f60 41 47 45 53 20 4f 46 20 52 45 53 49 44 55 41 4c 20 50 4c 4f 54 53 20 41 4c 4c 4f 57 45 44 2e 2c ┆AGES OF RESIDUAL PLOTS ALLOWED.,┆
0x15f60…15f80 0a 20 20 20 20 20 31 20 32 58 2c 33 38 28 32 48 2a 2a 29 29 0a 20 20 20 20 20 20 57 52 49 54 45 ┆ 1 2X,38(2H**)) WRITE┆
0x15f80…15fa0 20 28 49 57 52 49 54 45 2c 35 32 35 30 29 0a 20 20 20 20 20 20 52 45 54 55 52 4e 0a 20 20 20 20 ┆ (IWRITE,5250) RETURN ┆
0x15fa0…15fc0 20 20 45 4e 44 0a 19 00 3d 4c 43 48 41 52 4a 28 4e 4c 49 4e 45 29 0a 20 20 20 20 20 20 4c 49 4e ┆ END =LCHARJ(NLINE) LIN┆
0x15fc0…15fe0 45 28 31 29 3d 4c 49 4e 45 31 28 4e 4c 49 4e 45 29 0a 20 20 20 20 20 20 42 4d 41 58 3d 42 4f 55 ┆E(1)=LINE1(NLINE) BMAX=BOU┆
0x15fe0…16000 4e 44 28 4e 4c 49 4e 45 29 0a 20 20 20 20 20 20 42 4d 49 4e 3d 42 4f 55 4e 44 28 4e 4c 49 4e 45 ┆ND(NLINE) BMIN=BOUND(NLINE┆
0x16000…16020 2b 31 29 0a 20 20 20 20 20 20 4b 3d 31 0a 20 20 20 20 20 20 44 4f 20 32 33 30 20 4a 3d 4e 53 54 ┆+1) K=1 DO 230 J=NST┆
0x16020…16040 2c 4e 4c 49 4d 0a 20 20 20 20 20 20 4b 3d 4b 2b 31 0a 20 20 20 20 20 20 4c 49 4e 45 28 4b 29 3d ┆,NLIM K=K+1 LINE(K)=┆
0x16040…16060 4a 43 48 41 52 28 4c 43 48 41 52 29 0a 20 20 20 20 20 20 49 46 20 28 59 4c 59 46 49 54 28 4a 29 ┆JCHAR(LCHAR) IF (YLYFIT(J)┆
0x16060…16080 2e 4c 54 2e 42 4d 41 58 20 2e 41 4e 44 2e 20 59 4c 59 46 49 54 28 4a 29 2e 47 45 2e 42 4d 49 4e ┆.LT.BMAX .AND. YLYFIT(J).GE.BMIN┆
0x16080…160a0 29 20 4c 49 4e 45 28 4b 29 3d 4a 43 48 41 52 28 31 29 0a 20 20 32 33 30 20 43 4f 4e 54 49 4e 55 ┆) LINE(K)=JCHAR(1) 230 CONTINU┆
0x160a0…160c0 45 0a 20 20 20 20 20 20 4b 3d 4e 4c 49 4d 2d 4e 53 54 2b 32 0a 20 20 20 20 20 20 49 46 20 28 4e ┆E K=NLIM-NST+2 IF (N┆
0x160c0…160e0 4c 49 4e 45 20 2e 4e 45 2e 20 4d 4c 49 4e 45 29 20 47 4f 20 54 4f 20 32 33 35 0a 20 20 20 20 20 ┆LINE .NE. MLINE) GO TO 235 ┆
0x160e0…16100 20 44 4f 20 32 33 32 20 4a 3d 32 31 2c 4b 2c 32 30 0a 20 20 32 33 32 20 49 46 20 28 4c 49 4e 45 ┆ DO 232 J=21,K,20 232 IF (LINE┆
0x16100…16120 28 4a 29 20 2e 4e 45 2e 20 4a 43 48 41 52 28 31 29 29 20 4c 49 4e 45 28 4a 29 3d 4a 43 48 41 52 ┆(J) .NE. JCHAR(1)) LINE(J)=JCHAR┆
0x16120…16140 28 38 29 0a 20 35 32 33 30 20 46 4f 52 4d 41 54 20 28 41 32 2c 31 33 30 41 31 29 0a 20 20 32 33 ┆(8) 5230 FORMAT (A2,130A1) 23┆
0x16140…16160 35 20 57 52 49 54 45 20 28 49 57 52 49 54 45 2c 35 32 33 30 29 20 28 4c 49 4e 45 28 4a 29 2c 4a ┆5 WRITE (IWRITE,5230) (LINE(J),J┆
0x16160…16180 3d 31 2c 4b 29 0a 20 20 32 32 30 20 43 4f 4e 54 49 4e 55 45 0a 20 20 20 20 20 20 44 4f 20 32 34 ┆=1,K) 220 CONTINUE DO 24┆
0x16180…161a0 30 20 4a 3d 31 2c 36 0a 20 20 32 34 30 20 4c 41 42 45 4c 28 4a 29 3d 4c 41 42 45 4c 28 4a 29 2b ┆0 J=1,6 240 LABEL(J)=LABEL(J)+┆
0x161a0…161c0 31 33 30 0a 20 35 32 34 30 20 46 4f 52 4d 41 54 20 28 33 58 2c 36 28 31 36 58 2c 49 34 29 2f 29 ┆130 5240 FORMAT (3X,6(16X,I4)/)┆
0x161c0…161e0 0a 20 20 20 20 20 20 57 52 49 54 45 20 28 49 57 52 49 54 45 2c 35 32 34 30 29 20 4c 41 42 45 4c ┆ WRITE (IWRITE,5240) LABEL┆
0x161e0…16200 0a 20 20 20 20 20 20 49 46 20 28 4e 4c 49 4d 20 2e 45 51 2e 20 4e 29 20 52 45 54 55 52 4e 0a 20 ┆ IF (NLIM .EQ. N) RETURN ┆
0x16200…16220 20 20 20 20 20 20 20 20 66 69 6c 65 20 70 72 6f 63 65 73 73 6f 72 2c 20 6c 6f 61 64 2c 20 70 61 ┆ file processor, load, pa┆
0x16220…16240 67 65 20 32 0a 0a 65 33 3a 20 20 20 72 73 2e 20 77 31 20 20 68 31 39 2e 2b 68 33 2b 34 20 20 3b ┆ge 2 e3: rs. w1 h19.+h3+4 ;┆
0x16240…16260 20 74 65 73 74 20 72 6f 6f 6d 3a 0a 20 20 20 20 20 20 61 63 2e 20 77 33 20 20 68 35 35 2e 2b 30 ┆ test room: ac. w3 h55.+0┆
0x16260…16280 20 20 20 20 20 3b 20 20 20 74 6f 70 20 6c 65 6e 67 74 68 3a 3d 20 63 75 72 20 63 6f 6d 6d 61 6e ┆ ; top length:= cur comman┆
0x16280…162a0 64 20 70 6f 69 6e 74 65 72 0a 20 20 20 20 20 20 77 61 2e 20 77 33 20 20 68 38 2e 20 20 20 20 20 ┆d pointer wa. w3 h8. ┆
0x162a0…162c0 20 20 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 20 62 61 73 65 20 6f 66 20 74 72 61 6e ┆ ; - base of tran┆
0x162c0…162e0 73 69 65 6e 74 3b 0a 20 20 20 20 20 20 73 6c 20 20 77 31 20 20 78 33 20 20 20 20 20 20 20 20 20 ┆sient; sl w1 x3 ┆
0x162e0…16300 3b 20 20 20 69 66 20 6c 65 6e 67 74 68 3e 3d 74 6f 70 20 6c 65 6e 67 74 68 0a 20 20 20 20 20 20 ┆; if length>=top length ┆
0x16300…16320 6a 6c 2e 20 20 20 20 20 65 34 36 2e 20 20 20 20 20 20 20 3b 20 20 20 74 68 65 6e 20 67 6f 74 6f ┆jl. e46. ; then goto┆
0x16320…16340 20 73 69 7a 65 20 74 72 6f 75 62 6c 65 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 31 20 20 78 31 2d ┆ size trouble; al w1 x1-┆
0x16340…16360 31 20 20 20 20 20 20 20 3b 20 20 20 69 6e 63 72 65 6d 65 6e 74 3a 3d 20 28 6c 65 6e 67 74 68 2d ┆1 ; increment:= (length-┆
0x16360…16380 31 29 2f 2f 32 2a 32 3b 0a 20 20 20 20 20 20 6c 73 20 20 77 31 20 20 2d 31 20 20 20 20 20 20 20 ┆1)//2*2; ls w1 -1 ┆
0x16380…163a0 20 20 3b 20 61 64 6a 75 73 74 20 73 68 61 72 65 3a 0a 20 20 20 20 20 20 6c 73 20 20 77 31 20 20 ┆ ; adjust share: ls w1 ┆
0x163a0…163c0 2b 31 20 20 20 20 20 20 20 20 20 3b 20 20 20 66 69 72 73 74 20 73 68 61 72 65 64 3a 3d 20 66 69 ┆+1 ; first shared:= fi┆
0x163c0…163e0 72 73 74 20 61 64 64 72 65 73 73 3a 3d 0a 20 20 20 20 20 20 61 6c 2e 20 77 30 20 20 68 35 35 2e ┆rst address:= al. w0 h55.┆
0x163e0…16400 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 62 61 73 65 20 6f 66 20 74 72 61 6e 73 69 65 6e 74 3b ┆ ; base of transient;┆
0x16400…16420 0a 20 20 20 20 20 20 61 6c 2e 20 77 31 20 20 78 31 2b 68 35 35 2e 20 20 20 20 3b 20 20 20 6c 61 ┆ al. w1 x1+h55. ; la┆
0x16420…16440 73 74 20 61 64 64 72 3a 3d 20 66 69 72 73 74 20 61 64 64 72 2b 69 6e 63 72 65 6d 65 6e 74 3b 0a ┆st addr:= first addr+increment; ┆
0x16440…16460 20 20 20 20 20 20 64 73 2e 20 77 31 20 20 68 38 30 2e 2b 31 30 20 20 20 20 3b 20 20 20 6c 61 73 ┆ ds. w1 h80.+10 ; las┆
0x16460…16480 74 20 73 68 61 72 65 64 3a 3d 20 63 75 72 20 63 6f 6d 6d 61 6e 64 20 70 6f 69 6e 74 65 72 2d 32 ┆t shared:= cur command pointer-2┆
0x16480…164a0 3b 0a 20 20 20 20 20 20 72 6c 2e 20 77 31 20 20 68 38 2e 20 20 20 20 20 20 20 20 3b 20 73 65 74 ┆; rl. w1 h8. ; set┆
0x164a0…164c0 20 64 75 6d 70 20 72 61 6e 67 65 3a 0a 20 20 20 20 20 20 61 6c 20 20 77 31 20 20 78 31 2d 32 20 ┆ dump range: al w1 x1-2 ┆
0x164c0…164e0 20 20 20 20 20 20 3b 20 20 20 62 61 73 65 2e 70 72 6f 67 3a 3d 20 66 69 72 73 74 20 61 64 64 72 ┆ ; base.prog:= first addr┆
0x164e0…16500 2e 70 72 6f 63 2d 31 3b 0a 20 20 20 20 20 20 64 73 2e 20 77 31 20 20 68 38 30 2e 2b 34 20 20 20 ┆.proc-1; ds. w1 h80.+4 ┆
0x16500…16520 20 20 3b 20 20 20 6c 61 73 74 2e 70 72 6f 67 3a 3d 20 74 6f 70 20 61 64 64 72 2e 70 72 6f 63 2d ┆ ; last.prog:= top addr.proc-┆
0x16520…16540 31 3b 0a 20 20 20 20 20 20 72 6c 2e 20 77 33 20 20 68 31 36 2e 20 20 20 20 20 20 20 3b 0a 20 20 ┆1; rl. w3 h16. ; ┆
0x16540…16560 20 20 20 20 64 6c 20 20 77 32 20 20 78 33 2b 32 34 20 20 20 20 20 20 3b 20 20 20 69 66 20 6c 69 ┆ dl w2 x3+24 ; if li┆
0x16560…16580 73 74 20 6d 6f 64 65 20 0a 20 20 20 20 20 20 61 6c 20 20 77 31 20 20 78 31 2d 31 20 20 20 20 20 ┆st mode al w1 x1-1 ┆
0x16580…165a0 20 20 3b 20 20 20 74 68 65 6e 20 6c 69 73 74 20 63 75 72 20 63 6f 6d 6d 61 6e 64 3b 0a 20 20 20 ┆ ; then list cur command; ┆
0x165a0…165c0 20 20 20 61 6c 20 20 77 32 20 20 78 32 2d 31 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 64 73 ┆ al w2 x2-1 ; ds┆
0x165c0…165e0 2e 20 77 32 20 20 68 31 39 2e 2b 68 30 2b 32 20 20 3b 20 20 20 66 6c 6f 61 74 69 6e 67 20 70 72 ┆. w2 h19.+h0+2 ; floating pr┆
0x165e0…16600 65 63 69 73 69 6f 6e 3a 3d 20 6c 6f 6e 67 3b 0a 20 20 20 20 20 20 72 6c 2e 20 77 33 20 20 68 35 ┆ecision:= long; rl. w3 h5┆
0x16600…16620 31 2e 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 73 7a 20 20 77 33 20 20 31 3c 30 20 20 20 20 ┆1. ; sz w3 1<0 ┆
0x16620…16640 20 20 20 20 3b 20 20 20 7a 6f 6e 65 3a 3d 20 70 72 6f 67 72 61 6d 20 7a 6f 6e 65 3b 0a 20 20 20 ┆ ; zone:= program zone; ┆
0x16640…16660 20 20 20 6a 6c 2e 20 77 33 20 20 65 32 36 2e 20 20 20 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 6c ┆ jl. w3 e26. ; goto l┆
0x16660…16680 6f 61 64 20 61 6e 64 20 65 6e 74 65 72 3b 0a 20 20 20 20 20 20 61 6c 2e 20 77 31 20 20 68 31 39 ┆oad and enter; al. w1 h19┆
0x16680…166a0 2e 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 78 6c 2e 20 20 20 20 20 20 30 20 20 20 20 20 20 ┆. ; xl. 0 ┆
0x166a0…166c0 20 20 20 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 68 31 38 2e 20 20 20 20 20 20 20 3b 0a ┆ ; jl. h18. ; ┆
0x166c0…166e0 0a 65 38 3a 20 20 20 30 20 20 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 63 75 72 72 ┆ e8: 0 ; ; curr┆
0x166e0…16700 65 6e 74 20 70 61 72 61 6d 65 74 65 72 20 70 6f 69 6e 74 65 72 0a 65 31 30 3a 20 20 31 30 20 20 ┆ent parameter pointer e10: 10 ┆
0x16700…16720 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 63 6f 6e 73 74 61 6e 74 20 31 30 0a 65 33 31 ┆; ; constant 10 e31┆
0x16720…16740 3a 20 20 30 20 20 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 63 6f 75 6e 74 0a 65 33 ┆: 0 ; ; count e3┆
0x16740…16760 32 3a 20 20 31 20 20 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 73 65 70 0a 65 33 33 ┆2: 1 ; ; sep e33┆
0x16760…16780 3a 20 20 31 20 20 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 6b 69 6e 64 0a 65 33 34 ┆: 1 ; ; kind e34┆
0x16780…167a0 3a 20 20 30 20 20 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 73 61 76 65 64 20 70 61 ┆: 0 ; ; saved pa┆
0x167a0…167c0 72 61 6d 20 70 6f 69 6e 74 65 72 0a 65 33 35 3a 20 20 30 20 20 20 3b 20 77 32 20 20 20 20 20 20 ┆ram pointer e35: 0 ; w2 ┆
0x167c0…167e0 20 20 20 20 20 3b 20 73 61 76 65 64 20 77 32 0a 65 33 36 3a 20 20 30 20 20 20 3b 20 77 33 20 20 ┆ ; saved w2 e36: 0 ; w3 ┆
0x167e0…16800 20 20 20 20 20 20 20 20 20 3b 20 73 61 76 65 64 20 77 33 0a 0a 65 32 36 3a 20 20 64 73 2e 20 77 ┆ ; saved w3 e26: ds. w┆
0x16800…16820 (40,) 33 20 20 65 33 36 2e 20 20 20 20 20 20 20 3b 20 6c 69 73 74 20 63 75 72 20 63 6f 6d 6d 61 6e 64 ┆3 e36. ; list cur command┆
0x16820…16840 3a 0a 20 20 20 20 20 20 64 6c 2e 20 77 31 20 20 65 33 33 2e 20 20 20 20 20 20 20 3b 20 20 20 73 ┆: dl. w1 e33. ; s┆
0x16840…16860 61 76 65 20 28 77 32 2c 77 33 29 3b 0a 20 20 20 20 20 20 72 6c 2e 20 77 32 20 20 68 38 2e 20 20 ┆ave (w2,w3); rl. w2 h8. ┆
0x16860…16880 20 20 20 20 20 20 3b 20 20 20 72 65 73 74 6f 72 65 20 70 61 72 61 6d 73 20 66 6f 72 20 66 69 72 ┆ ; restore params for fir┆
0x16880…168a0 73 74 20 6e 61 6d 65 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 33 20 20 20 30 20 20 20 20 20 20 20 ┆st name; al w3 0 ┆
0x168a0…168c0 20 20 3b 20 20 20 63 6f 75 6e 74 3a 3d 20 30 3b 0a 20 20 20 20 20 20 72 73 2e 20 77 33 20 20 65 ┆ ; count:= 0; rs. w3 e┆
0x168c0…168e0 33 31 2e 20 20 20 20 20 20 20 3b 0a 65 32 37 3a 20 20 64 73 2e 20 77 32 20 20 65 33 34 2e 20 20 ┆31. ; e27: ds. w2 e34. ┆
0x168e0…16900 20 20 20 20 20 3b 20 70 72 69 6e 74 20 70 61 72 61 6d 3a 0a 20 20 20 20 20 20 73 68 20 20 77 30 ┆ ; print param: sh w0┆
0x16900…16920 20 20 20 33 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 32 20 20 34 32 20 ┆ 3 ; al w2 42 ┆
0x16920…16940 20 20 20 20 20 20 20 20 3b 20 20 20 63 68 61 72 3a 3d 20 63 61 73 65 20 73 65 70 61 72 61 74 6f ┆ ; char:= case separato┆
0x16940…16960 72 20 6f 66 0a 20 20 20 20 20 20 73 6e 20 20 77 30 20 20 20 34 20 20 20 20 20 20 20 20 20 3b 20 ┆r of sn w0 4 ; ┆
0x16960…16980 20 20 28 3c 34 3a 20 61 73 74 65 72 69 73 6b 2c 0a 20 20 20 20 20 20 61 6c 20 20 77 32 20 20 33 ┆ (<4: asterisk, al w2 3┆
0x16980…169a0 32 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 34 3a 20 20 20 73 70 61 63 65 20 2c 0a 20 20 20 ┆2 ; 4: space , ┆
0x169a0…169c0 20 20 20 73 6e 20 20 77 30 20 20 20 36 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 36 3a 20 20 ┆ sn w0 6 ; 6: ┆
0x169c0…169e0 20 65 71 75 61 6c 20 2c 0a 20 20 20 20 20 20 61 6c 20 20 77 32 20 20 36 31 20 20 20 20 20 20 20 ┆ equal , al w2 61 ┆
0x169e0…16a00 20 20 3b 20 20 20 20 20 38 3a 20 20 20 20 64 6f 74 20 29 3b 0a 20 20 20 20 20 20 73 6e 20 20 77 ┆ ; 8: dot ); sn w┆
0x16a00…16a20 30 20 20 20 38 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 32 20 20 34 36 ┆0 8 ; al w2 46┆
0x16a20…16a40 20 20 20 20 20 20 20 20 20 3b 20 20 20 69 66 20 63 68 61 72 3d 73 70 61 63 65 0a 20 20 20 20 20 ┆ ; if char=space ┆
0x16a40…16a60 20 72 6c 2e 20 77 31 20 20 65 33 31 2e 20 20 20 20 20 20 20 3b 20 20 20 61 6e 64 20 63 6f 75 6e ┆ rl. w1 e31. ; and coun┆
0x16a60…16a80 74 3e 31 30 0a 20 20 20 20 20 20 61 6c 20 20 77 31 20 20 78 31 2b 31 20 20 20 20 20 20 20 3b 20 ┆t>10 al w1 x1+1 ; ┆
0x16a80…16aa0 20 20 74 68 65 6e 20 62 65 67 69 6e 0a 20 20 20 20 20 20 72 73 2e 20 77 31 20 20 65 33 31 2e 20 ┆ then begin rs. w1 e31. ┆
0x16aa0…16ac0 20 20 20 20 20 20 3b 20 20 20 20 20 20 6f 75 74 74 65 78 74 20 28 63 75 72 20 6f 75 74 2c 3c 3a ┆ ; outtext (cur out,<:┆
0x16ac0…16ae0 2c 3c 31 30 3e 20 20 20 3a 3e 29 3b 0a 20 20 20 20 20 20 73 6e 20 20 77 32 20 20 33 32 20 20 20 ┆,<10> :>); sn w2 32 ┆
0x16ae0…16b00 20 20 20 20 20 20 3b 20 20 20 20 20 20 63 6f 75 6e 74 3a 3d 20 30 3b 0a 20 20 20 20 20 20 73 68 ┆ ; count:= 0; sh┆
0x16b00…16b20 20 20 77 31 20 20 31 30 20 20 20 20 20 20 20 20 20 3b 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 ┆ w1 10 ; end; ┆
0x16b20…16b40 6a 6c 2e 20 20 20 20 20 65 32 38 2e 20 20 20 20 20 20 20 3b 20 20 20 63 6f 75 6e 74 3a 3d 20 63 ┆jl. e28. ; count:= c┆
0x16b40…16b60 6f 75 6e 74 2b 31 3b 0a 0a 0c 0a 0a 3b 20 72 63 20 31 32 2e 30 37 2e 37 39 20 20 20 20 20 20 20 ┆ount+1; ; rc 12.07.79 ┆
0x16b60…16b80 20 20 20 20 20 20 20 66 69 6c 65 20 70 72 6f 63 65 73 73 6f 72 2c 20 6c 6f 61 64 2c 20 70 61 67 ┆ file processor, load, pag┆
0x16b80…16ba0 65 20 33 0a 0a 20 20 20 20 20 20 61 6c 20 20 77 31 20 20 20 30 20 20 20 20 20 20 20 20 20 3b 0a ┆e 3 al w1 0 ; ┆
0x16ba0…16bc0 20 20 20 20 20 20 72 73 2e 20 77 31 20 20 65 33 31 2e 20 20 20 20 20 20 20 3b 20 20 20 6f 75 74 ┆ rs. w1 e31. ; out┆
0x16bc0…16be0 63 68 61 72 20 28 63 75 72 20 6f 75 74 2c 20 63 68 61 72 29 3b 0a 20 20 20 20 20 20 61 6c 2e 20 ┆char (cur out, char); al. ┆
0x16be0…16c00 77 30 20 20 65 33 37 2e 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 68 ┆w0 e37. ; jl. w3 h┆
0x16c00…16c20 33 31 2e 2d 32 20 20 20 20 20 3b 20 20 20 69 66 20 6b 69 6e 64 2e 70 61 72 61 6d 3d 31 30 0a 65 ┆31.-2 ; if kind.param=10 e┆
0x16c20…16c40 32 38 3a 20 20 6a 6c 2e 20 77 33 20 20 68 32 36 2e 2d 32 20 20 20 20 20 3b 20 20 20 74 68 65 6e ┆28: jl. w3 h26.-2 ; then┆
0x16c40…16c60 0a 20 20 20 20 20 20 64 6c 2e 20 77 32 20 20 65 33 34 2e 20 20 20 20 20 20 20 3b 20 20 20 6f 75 ┆ dl. w2 e34. ; ou┆
0x16c60…16c80 74 74 65 78 74 20 28 63 75 72 20 6f 75 74 2c 70 61 72 61 6d 20 6e 61 6d 65 29 0a 20 20 20 20 20 ┆ttext (cur out,param name) ┆
0x16c80…16ca0 20 61 6c 2e 20 77 33 20 20 65 32 39 2e 20 20 20 20 20 20 20 3b 20 20 20 65 6c 73 65 0a 20 20 20 ┆ al. w3 e29. ; else ┆
0x16ca0…16cc0 20 20 20 61 6c 20 20 77 30 20 20 78 32 2b 32 20 20 20 20 20 20 20 3b 20 20 20 6f 75 74 69 6e 74 ┆ al w0 x2+2 ; outint┆
0x16cc0…16ce0 65 67 65 72 20 28 63 75 72 20 6f 75 74 2c 0a 20 20 20 20 20 20 73 6e 20 20 77 31 20 20 31 30 20 ┆eger (cur out, sn w1 10 ┆
0x16ce0…16d00 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 3c 3c 64 3e 2c 70 61 72 61 6d 20 ┆ ; <<d>,param ┆
0x16d00…16d20 69 6e 74 65 67 65 72 29 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 68 33 31 2e 2d 32 20 20 ┆integer); jl. h31.-2 ┆
0x16d20…16d40 20 20 20 3b 0a 20 20 20 20 20 20 72 6c 20 20 77 30 20 20 78 32 2b 32 20 20 20 20 20 20 20 3b 0a ┆ ; rl w0 x2+2 ; ┆
0x16d40…16d60 20 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 68 33 32 2e 2d 32 20 20 20 20 20 3b 0a 20 20 20 20 20 ┆ jl. w3 h32.-2 ; ┆
0x16d60…16d80 20 30 3c 32 33 20 2b 20 33 32 3c 31 32 20 2b 20 31 20 20 20 3b 0a 65 32 39 3a 20 20 64 6c 2e 20 ┆ 0<23 + 32<12 + 1 ; e29: dl. ┆
0x16d80…16da0 77 32 20 20 65 33 34 2e 20 20 20 20 20 20 20 3b 20 74 61 6b 65 20 6e 65 78 74 20 70 61 72 61 6d ┆w2 e34. ; take next param┆
0x16da0…16dc0 3a 0a 20 20 20 20 20 20 77 61 20 20 77 32 20 20 20 32 20 20 20 20 20 20 20 20 20 3b 20 20 20 70 ┆: wa w2 2 ; p┆
0x16dc0…16de0 61 72 61 6d 20 70 6f 69 6e 74 65 72 3a 3d 20 70 6f 69 6e 74 65 72 2b 73 69 7a 65 3b 0a 20 20 20 ┆aram pointer:= pointer+size; ┆
0x16de0…16e00 20 20 20 62 6c 20 20 77 30 20 20 78 32 2b 30 20 20 20 20 20 20 20 3b 20 20 20 73 65 70 61 72 61 ┆ bl w0 x2+0 ; separa┆
0x16e00…16e20 74 6f 72 3a 3d 20 6e 65 77 20 73 65 70 61 72 61 74 6f 72 3b 0a 20 20 20 20 20 20 62 7a 20 20 77 ┆tor:= new separator; bz w┆
0x16e20…16e40 31 20 20 78 32 2b 31 20 20 20 20 20 20 20 3b 20 20 20 6b 69 6e 64 3a 3d 20 6e 65 77 20 6b 69 6e ┆1 x2+1 ; kind:= new kin┆
0x16e40…16e60 64 3b 0a 20 20 20 20 20 20 73 6c 20 20 77 30 20 20 20 34 20 20 20 20 20 20 20 20 20 3b 20 20 20 ┆d; sl w0 4 ; ┆
0x16e60…16e80 69 66 20 73 65 70 61 72 61 74 6f 72 20 3e 20 33 20 74 68 65 6e 0a 20 20 20 20 20 20 6a 6c 2e 20 ┆if separator > 3 then jl. ┆
0x16e80…16ea0 20 20 20 20 65 32 37 2e 20 20 20 20 20 20 20 3b 20 20 20 67 6f 74 6f 20 70 72 69 6e 74 20 70 61 ┆ e27. ; goto print pa┆
0x16ea0…16ec0 72 61 6d 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 68 33 39 2e 20 20 20 20 20 20 20 3b 0a ┆ram; jl. w3 h39. ; ┆
0x16ec0…16ee0 20 20 20 20 20 20 64 6c 2e 20 77 33 20 20 65 33 36 2e 20 20 20 20 20 20 20 3b 20 20 20 6f 75 74 ┆ dl. w3 e36. ; out┆
0x16ee0…16f00 65 6e 64 20 28 63 75 72 20 6f 75 74 2c 6e 65 77 20 6c 69 6e 65 29 3b 0a 20 20 20 20 20 20 6a 6c ┆end (cur out,new line); jl┆
0x16f00…16f20 20 20 20 20 20 20 78 33 20 20 20 20 20 20 20 20 20 3b 20 20 20 72 65 74 75 72 6e 3b 0a 0a 65 33 ┆ x3 ; return; e3┆
0x16f20…16f40 37 3a 20 20 3c 3a 2c 3c 31 30 3e 20 20 3a 3e 20 20 20 20 20 20 20 20 3b 20 65 6e 64 20 6c 69 73 ┆7: <:,<10> :> ; end lis┆
0x16f40…16f60 74 3b 0a 65 33 38 3a 20 20 3c 3a 2a 2a 2a 66 70 20 6e 61 6d 65 3c 33 32 3e 3c 30 3e 3a 3e 20 20 ┆t; e38: <:***fp name<32><0>:> ┆
0x16f60…16f80 20 20 3b 20 6e 6f 74 20 66 6f 75 6e 64 20 69 6e 20 63 61 74 61 6c 6f 67 0a 65 33 39 3a 20 20 3c ┆ ; not found in catalog e39: <┆
0x16f80…16fa0 3a 2a 2a 2a 66 70 20 63 6f 6e 6e 65 63 74 3c 33 32 3e 3c 30 3e 3a 3e 20 3b 20 69 6f 20 74 72 6f ┆:***fp connect<32><0>:> ; io tro┆
0x16fa0…16fc0 75 62 6c 65 20 64 75 72 69 6e 67 20 63 6f 6e 6e 65 63 74 69 6f 6e 0a 65 34 30 3a 20 20 3c 3a 2a ┆uble during connection e40: <:*┆
0x16fc0…16fe0 2a 2a 66 70 20 73 69 7a 65 3c 33 32 3e 3c 30 3e 3a 3e 20 20 20 20 3b 20 70 72 6f 67 72 61 6d 20 ┆**fp size<32><0>:> ; program ┆
0x16fe0…17000 74 6f 20 62 69 67 0a 65 34 31 3a 20 20 3c 3a 2a 2a 2a 66 70 20 63 61 6c 6c 3c 33 32 3e 3c 30 3e ┆to big e41: <:***fp call<32><0>┆
0x17000…17020 3a 3e 20 20 20 20 3b 20 63 61 6c 6c 20 63 6f 6e 76 65 6e 74 69 6f 6e 20 65 72 72 6f 72 0a 0a 0a ┆:> ; call convention error ┆
0x17020…17040 65 34 34 3a 20 20 73 6e 20 20 77 30 20 20 20 33 20 20 20 20 20 20 20 20 20 3b 20 63 6f 6e 6e 65 ┆e44: sn w0 3 ; conne┆
0x17040…17060 63 74 20 74 72 6f 75 62 6c 65 3a 0a 20 20 20 20 20 20 61 6d 20 20 20 20 65 33 38 2d 65 33 39 20 ┆ct trouble: am e38-e39 ┆
0x17060…17080 20 20 20 20 20 3b 20 20 20 74 65 78 74 3a 3d 20 69 66 20 72 65 73 75 6c 74 20 3c 3e 20 33 20 74 ┆ ; text:= if result <> 3 t┆
0x17080…170a0 68 65 6e 20 3c 6e 61 6d 65 3e 0a 20 20 20 20 20 20 61 6d 20 20 20 20 65 33 39 2d 65 34 30 20 20 ┆hen <name> am e39-e40 ┆
0x170a0…170c0 20 20 20 20 3b 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 20 20 20 20 3c 63 6f 6e 6e 65 63 74 ┆ ; else <connect┆
0x170c0…170e0 3e 0a 65 34 36 3a 20 20 61 6d 20 20 20 20 65 34 30 2d 65 34 31 20 20 20 20 20 20 3b 20 73 69 7a ┆> e46: am e40-e41 ; siz┆
0x170e0…17100 65 20 74 72 6f 75 62 6c 65 3a 20 6f 72 20 20 3c 73 69 7a 65 3e 0a 65 34 37 3a 20 20 61 6c 2e 20 ┆e trouble: or <size> e47: al. ┆
0x17100…17120 (41,) 77 30 20 20 65 34 31 2e 20 20 20 20 20 20 20 3b 20 63 61 6c 6c 20 74 72 6f 75 62 6c 65 3a 20 6f ┆w0 e41. ; call trouble: o┆
0x17120…17140 72 20 20 3c 63 61 6c 6c 3e 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 68 33 31 2e 2d 32 20 ┆r <call>; jl. w3 h31.-2 ┆
0x17140…17160 20 20 20 20 3b 20 20 20 6f 75 74 74 65 78 74 20 28 63 75 72 20 6f 75 74 2c 20 74 65 78 74 29 3b ┆ ; outtext (cur out, text);┆
0x17160…17180 0a 20 20 20 20 20 20 72 6c 2e 20 77 33 20 20 65 31 32 2e 20 20 20 20 20 20 20 3b 20 20 20 6f 75 ┆ rl. w3 e12. ; ou┆
0x17180…171a0 74 74 65 78 74 28 63 75 72 72 20 6f 75 74 2c 70 72 6f 67 2e 6e 61 6d 65 29 3b 0a 20 20 20 20 20 ┆ttext(curr out,prog.name); ┆
0x171a0…171c0 20 61 6c 20 20 77 30 20 20 78 33 2b 32 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 ┆ al w0 x3+2 ; jl. ┆
0x171c0…171e0 77 33 20 20 68 33 31 2e 2d 32 20 20 20 20 20 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 77 33 20 20 68 ┆w3 h31.-2 ; jl. w3 h┆
0x171e0…17200 33 39 2e 20 20 20 20 20 20 20 3b 20 20 20 6f 75 74 65 6e 64 20 28 63 75 72 20 6f 75 74 2c 20 6e ┆39. ; outend (cur out, n┆
0x17200…17220 65 77 20 6c 69 6e 65 29 3b 0a 20 20 20 20 20 20 61 6c 20 20 77 32 20 20 20 33 20 20 20 20 20 20 ┆ew line); al w2 3 ┆
0x17220…17240 20 20 20 3b 20 20 20 77 61 72 6e 69 6e 67 3a 3d 74 72 75 65 3b 20 6f 6b 3a 3d 20 66 61 6c 73 65 ┆ ; warning:=true; ok:= false┆
0x17240…17260 3b 0a 20 20 20 20 20 20 6a 6c 2e 20 20 20 20 20 68 37 2e 20 20 20 20 20 20 20 20 3b 20 20 20 67 ┆; jl. h7. ; g┆
0x17260…17280 6f 74 6f 20 65 6e 64 20 70 72 6f 67 72 61 6d 3b 0a 65 34 3a 20 20 20 30 20 20 20 20 20 20 20 20 ┆oto end program; e4: 0 ┆
0x17280…172a0 20 20 20 20 20 20 20 20 20 20 3b 20 6f 77 6e 20 66 69 6c 65 64 65 73 63 72 69 70 74 6f 72 3a 20 ┆ ; own filedescriptor: ┆
0x172a0…172c0 6d 6f 64 65 2e 6b 69 6e 64 0a 65 39 3d 65 34 2b 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆mode.kind e9=e4+1 ┆
0x172c0…172e0 20 20 20 3b 20 20 20 6d 6f 64 65 0a 20 20 20 20 20 20 30 2c 72 2e 37 0a 65 35 3a 20 20 20 30 20 ┆ ; mode 0,r.7 e5: 0 ┆
0x172e0…17300 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 63 6f 6e 74 65 6e 74 0a 65 36 3d ┆ ; content e6=┆
0x17300…17320 65 35 2b 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 65 6e 74 72 79 0a ┆e5+1 ; entry ┆
0x17320…17340 65 37 3a 20 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 6c 65 6e ┆e7: 0 ; len┆
0x17340…17360 67 74 68 0a 65 31 32 3a 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 ┆gth e12: 0 ; ┆
0x17360…17380 20 62 61 73 65 20 6f 66 20 6c 6f 61 64 65 72 20 6e 61 6d 65 20 6f 72 20 70 72 6f 67 20 6e 61 6d ┆ base of loader name or prog nam┆
0x17380…173a0 65 20 70 61 72 61 6d 0a 20 20 20 20 20 20 3c 3a 73 79 73 6c 64 72 3a 3e 20 20 20 20 20 20 20 20 ┆e param <:sysldr:> ┆
0x173a0…173c0 20 3b 20 20 20 73 70 61 63 65 20 66 6f 72 20 6c 6f 61 64 65 72 20 6e 61 6d 65 0a 20 20 20 20 20 ┆ ; space for loader name ┆
0x173c0…173e0 20 30 2c 72 2e 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 73 70 61 63 65 20 66 6f ┆ 0,r.2 ; space fo┆
0x173e0…17400 72 20 6e 75 6d 62 65 72 20 70 61 72 74 20 6f 66 20 6c 6f 61 64 65 72 20 6e 61 6d 65 0a 65 31 33 ┆r number part of loader name e13┆
0x17400…17420 3d 65 31 32 2b 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 61 64 64 72 65 73 ┆=e12+6 ; addres┆
0x17420…17440 73 20 6f 66 20 6e 75 6d 62 65 72 20 70 61 72 74 20 6f 66 20 6c 6f 61 64 65 72 20 6e 61 6d 65 0a ┆s of number part of loader name ┆
0x17440…17460 0a 0a 62 2e 20 20 20 20 67 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 62 65 67 ┆ b. g1 ; beg┆
0x17460…17480 69 6e 0a 67 31 3d 20 20 28 3a 68 35 35 2b 35 31 32 2d 6b 3a 29 2f 32 20 20 20 20 20 3b 20 66 69 ┆in g1= (:h55+512-k:)/2 ; fi┆
0x17480…174a0 6c 6c 20 75 70 20 73 65 67 6d 65 6e 74 20 74 6f 20 35 31 32 20 62 79 74 65 73 3b 0a 63 2e 20 20 ┆ll up segment to 512 bytes; c. ┆
0x174a0…174c0 20 2d 67 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 2e 6c 65 6e 67 74 68 20 65 72 ┆ -g1 m.length er┆
0x174c0…174e0 72 6f 72 20 6f 6e 20 66 70 20 73 65 67 6d 65 6e 74 20 31 33 0a 7a 2e 77 2e 20 20 30 2c 20 72 2e ┆ror on fp segment 13 z.w. 0, r.┆
0x174e0…17500 67 31 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 7a 65 72 6f 20 66 69 6c 6c 0a 65 2e 20 20 20 20 ┆g1 ; zero fill e. ┆
0x17500…17520 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 65 6e 64 20 66 69 6c 6c 20 75 70 ┆ ; end fill up┆
0x17520…17540 3b 0a 0a 6d 2e 66 70 20 70 72 6f 67 72 61 6d 20 6c 6f 61 64 20 31 32 2e 30 37 2e 37 39 0a 69 2e ┆; m.fp program load 12.07.79 i.┆
0x17540…17560 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 6d 61 79 62 65 20 6e ┆ ; maybe n┆
0x17560…17580 61 6d 65 73 0a 65 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 ┆ames e. ; ┆
0x17580…175a0 65 6e 64 20 6c 6f 61 64 3b 0a 0a 0c 0a 3b 20 72 63 20 30 39 2e 30 33 2e 37 33 20 20 20 20 20 20 ┆end load; ; rc 09.03.73 ┆
0x175a0…175c0 20 20 20 20 20 20 20 66 69 6c 65 20 70 72 6f 63 65 73 73 6f 72 2c 20 65 6e 64 20 70 72 6f 67 72 ┆ file processor, end progr┆
0x175c0…175e0 61 6d 2c 20 70 61 67 65 20 31 0a 0a 3b 74 68 69 73 20 73 65 67 6d 65 6e 74 20 69 73 20 65 6e 74 ┆am, page 1 ;this segment is ent┆
0x175e0…17600 65 72 65 64 20 77 68 65 6e 20 61 20 75 74 69 6c 69 74 79 20 70 72 6f 67 72 61 6d 20 74 65 72 6d ┆ered when a utility program term┆
0x17600…17620 69 6e 61 74 65 73 20 62 79 0a 3b 65 6e 74 65 72 69 6e 67 20 65 6e 64 20 70 72 6f 67 72 61 6d 20 ┆inates by ;entering end program ┆
0x17620…17640 65 6e 74 72 79 20 68 37 2e 20 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 74 6f 20 73 74 ┆entry h7. the function is to st┆
0x17640…17660 6f 70 20 74 68 65 0a 3b 63 75 72 72 65 6e 74 20 6f 75 74 20 7a 6f 6e 65 2c 20 74 6f 20 73 65 74 ┆op the ;current out zone, to set┆
0x17660…17680 20 74 68 65 20 6f 6b 20 62 69 74 20 61 6e 64 20 74 6f 20 72 65 6d 6f 76 65 20 73 75 2d 0a 3b 70 ┆ the ok bit and to remove su- ;p┆
0x17680…176a0 65 72 66 6c 75 6f 73 20 61 72 65 61 20 70 72 6f 63 65 73 73 65 73 20 61 6e 64 20 6d 65 73 73 61 ┆erfluos area processes and messa┆
0x176a0…176c0 67 65 73 20 62 75 66 66 65 72 73 2e 0a 3b 74 68 65 20 73 65 67 6d 65 6e 74 20 63 61 6c 6c 73 20 ┆ges buffers. ;the segment calls ┆
0x176c0…176e0 65 69 74 68 65 72 20 74 68 65 20 6c 6f 61 64 20 70 72 6f 67 72 61 6d 20 73 65 67 6d 65 6e 74 2c ┆either the load program segment,┆
0x176e0…17700 20 74 68 65 20 64 65 76 69 63 65 0a 3b 73 74 61 74 75 73 20 73 65 67 6d 65 6e 74 20 6f 72 20 74 ┆ the device ;status segment or t┆
0x17700…17720 68 65 20 62 72 65 61 6b 20 61 63 74 69 6f 6e 2e 0a 3b 69 66 20 6c 6f 61 64 20 70 72 6f 67 72 61 ┆he break action. ;if load progra┆
0x17720…17740 6d 20 69 73 20 65 6e 74 65 72 65 64 20 74 68 65 20 63 75 72 72 65 6e 74 20 69 6e 20 7a 6f 6e 65 ┆m is entered the current in zone┆
0x17740…17760 20 77 69 6c 6c 20 62 65 66 6f 72 65 20 62 65 0a 3b 75 6e 73 74 61 63 6b 65 64 20 74 6f 20 74 68 ┆ will before be ;unstacked to th┆
0x17760…17780 65 20 66 69 72 73 74 20 69 2d 62 69 74 2e 0a 3b 69 66 20 64 65 76 69 63 65 20 73 74 61 74 75 73 ┆e first i-bit. ;if device status┆
0x17780…177a0 20 69 73 20 65 6e 74 65 72 65 64 20 74 68 65 20 63 75 72 72 65 6e 74 20 7a 6f 6e 65 20 69 73 20 ┆ is entered the current zone is ┆
0x177a0…177c0 75 6e 73 74 61 63 6b 65 64 20 74 6f 0a 3b 74 68 65 20 69 2d 62 69 74 20 75 6e 6c 65 73 73 20 74 ┆unstacked to ;the i-bit unless t┆
0x177c0…177e0 68 65 72 65 20 69 73 20 68 61 72 64 20 65 72 72 6f 72 20 6f 6e 20 74 68 65 20 73 74 61 63 6b 65 ┆here is hard error on the stacke┆
0x177e0…17800 64 20 63 75 72 72 20 69 6e 0a 3b 7a 6f 6e 65 2e 0a 3b 69 6e 20 63 61 73 65 20 6f 66 20 68 61 72 ┆d curr in ;zone. ;in case of har┆
0x17800…17820 64 20 65 72 72 6f 72 20 6f 6e 20 63 75 72 72 65 6e 74 20 6f 75 74 20 6f 72 20 6f 6e 20 61 20 63 ┆d error on current out or on a c┆
0x17820…17840 75 72 72 20 69 6e 20 7a 6f 6e 65 0a 3b 77 69 74 68 20 69 2d 62 69 74 20 74 68 65 20 63 75 72 72 ┆urr in zone ;with i-bit the curr┆
0x17840…17860 65 6e 74 20 6f 75 74 20 7a 6f 6e 65 20 69 73 20 63 6f 6e 6e 65 63 74 65 64 20 74 6f 20 70 72 69 ┆ent out zone is connected to pri┆
0x17860…17880 6d 61 72 79 20 6f 75 74 2e 0a 3b 69 66 20 74 68 69 73 20 69 73 20 69 6d 70 6f 73 73 69 62 6c 65 ┆mary out. ;if this is impossible┆
0x17880…178a0 20 74 68 65 20 62 72 65 61 6b 20 61 63 74 69 6f 6e 20 69 73 20 65 6e 74 65 72 65 64 2e 0a 0a 0a ┆ the break action is entered. ┆
0x178a0…178c0 73 2e 20 6b 3d 68 35 35 2c 20 61 38 2c 20 65 37 2c 20 66 37 0a 77 2e 0a 20 20 20 20 20 20 35 31 ┆s. k=h55, a8, e7, f7 w. 51┆
0x178c0…178e0 32 0a 20 20 20 20 20 20 61 6c 20 20 77 30 20 20 30 20 20 20 20 20 20 20 20 20 20 3b 20 65 6e 74 ┆2 al w0 0 ; ent┆
0x178e0…17900 72 79 3a 0a 20 20 20 20 20 20 61 6c 2e 20 77 33 20 20 68 31 30 2e 20 20 20 20 20 20 20 3b 20 20 ┆ry: al. w3 h10. ; ┆
0x17900…17920 20 73 65 74 20 69 6e 74 65 72 72 75 70 74 3b 0a 20 20 20 20 20 20 6a 64 20 20 20 20 20 20 31 3c ┆ set interrupt; jd 1<┆
0x17920…17940 31 31 2b 30 20 20 20 20 20 3b 0a 0a 20 20 20 20 20 20 61 6c 2e 20 77 33 20 20 68 36 38 2e 20 20 ┆11+0 ; al. w3 h68. ┆
0x17940…17960 20 20 20 20 20 3b 20 72 65 73 74 6f 72 65 20 67 69 76 65 20 75 70 20 61 63 74 69 6f 6e 20 69 6e ┆ ; restore give up action in┆
0x17960…17980 3a 0a 20 20 20 20 20 20 61 6c 20 20 77 32 20 20 30 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 ┆: al w2 0 ; ┆
0x17980…179a0 20 20 20 72 73 2e 20 77 33 20 20 68 31 39 2e 2b 68 32 2b 32 20 20 3b 20 20 20 70 72 6f 67 72 61 ┆ rs. w3 h19.+h2+2 ; progra┆
0x179a0…179c0 6d 20 7a 6f 6e 65 3b 0a 20 20 20 20 20 20 72 73 2e 20 77 33 20 20 68 32 30 2e 2b 68 32 2b 32 20 ┆m zone; rs. w3 h20.+h2+2 ┆
0x179c0…179e0 20 3b 20 20 20 63 75 72 72 20 69 6e 20 7a 6f 6e 65 3b 0a 20 20 20 20 20 20 64 73 2e 20 77 33 20 ┆ ; curr in zone; ds. w3 ┆
0x179e0…17a00 20 68 32 31 2e 2b 68 32 2b 32 20 20 3b 20 20 20 63 75 72 72 20 6f 75 74 20 7a 6f 6e 65 3b 20 67 ┆ h21.+h2+2 ; curr out zone; g┆