|
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: 258048 (0x3f000)
Types: Rc489kSubCat
Names: »gobib«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦this⟧ »gobib«
0x00000…00033 (0,) Rc489kSubCatEnt {f00=0x0045ea, f01=0x00c382, f02=0x00c38b, filename=»gopage «, entry_tail=0-4-0-2-1983-01-27T12:39-disc-0x0-0x0-0x0-0x0}
0x00033…00066 Rc489kSubCatEnt {f00=0x0060ab, f01=0x00c382, f02=0x00c38b, filename=»gotest «, entry_tail=0-4-0-2-1982-11-08T13:16-disc-0x0-0x0-0x0-0x0}
0x00066…00099 Rc489kSubCatEnt {f00=0x00848a, f01=0x00c382, f02=0x00c38b, filename=»govariables «, entry_tail=0-4-0-1-1982-11-04T13:37-disc5-0x0-0x0-0x0-0x0}
0x00099…000cc Rc489kSubCatEnt {f00=0x009000, f01=0x000000, f02=0x000000, filename=»goasm «, entry_tail=0-4-0-1-1982-11-01T14:36--0x0-0x0-0x0-0x0}
0x000cc…000ff Rc489kSubCatEnt {f00=0x00a000, f01=0x000000, f02=0x000000, filename=»mbfev «, entry_tail=0-4-0-5-1982-11-01T14:12--0x0-0x0-0x0-0x1bf}
0x000ff…00132 Rc489kSubCatEnt {f00=0x00f000, f01=0x000000, f02=0x000000, filename=»nimevh3 «, entry_tail=0-4-0-20-1982-11-01T14:12--0x0-0x0-0x0-0x7bf}
0x00132…00165 Rc489kSubCatEnt {f00=0x023000, f01=0x000000, f02=0x000000, filename=»nimevd3 «, entry_tail=0-4-0-1-1982-11-01T14:12--0x0-0x0-0x0-0x831}
0x00165…00198 Rc489kSubCatEnt {f00=0x024000, f01=0x000000, f02=0x000000, filename=»nimevd3fit «, entry_tail=0-4-0-5-1982-11-01T14:12--0x0-0x0-0x0-0x1c1}
0x00198…001cb Rc489kSubCatEnt {f00=0x029000, f01=0x000000, f02=0x000000, filename=»goozon «, entry_tail=0-4-0-6-1982-11-01T14:12--0x0-0x0-0x0-0x0}
0x001cb…001fe Rc489kSubCatEnt {f00=0x02f000, f01=0x000000, f02=0x000000, filename=»gorf «, entry_tail=0-4-0-2-1982-11-01T14:12--0x0-0x0-0x0-0x0}
0x001fe…00231 Rc489kSubCatEnt {f00=0x031000, f01=0x000000, f02=0x000000, filename=»gorf2 «, entry_tail=0-4-0-2-1982-11-01T14:12--0x0-0x0-0x0-0x0}
0x00231…00264 Rc489kSubCatEnt {f00=0x033000, f01=0x000000, f02=0x000000, filename=»gork3 «, entry_tail=0-4-0-4-1982-11-01T14:12--0x0-0x0-0x0-0x0}
0x00264…00297 Rc489kSubCatEnt {f00=0x037000, f01=0x000000, f02=0x000000, filename=»gorotcpl «, entry_tail=0-4-0-13-1982-11-01T14:12--0x0-0x0-0x0-0x0}
0x00297…002ca Rc489kSubCatEnt {f00=0x044000, f01=0x000000, f02=0x000000, filename=»gorotfitz «, entry_tail=0-4-0-3-1982-11-01T14:12--0x0-0x0-0x0-0x0}
0x002ca…002fd Rc489kSubCatEnt {f00=0x047000, f01=0x000000, f02=0x000000, filename=»gorotfrek2 «, entry_tail=0-4-0-1-1982-11-01T14:12--0x0-0x0-0x0-0x0}
0x002fd…00300 0x000036
0x00300…00333 Rc489kSubCatEnt {f00=0x048000, f01=0x000000, f02=0x000000, filename=»gotdo «, entry_tail=0-4-0-4-1982-11-01T14:12--0x0-0x0-0x0-0x0}
0x00333…00366 Rc489kSubCatEnt {f00=0x04c000, f01=0x000000, f02=0x000000, filename=»gotdomat «, entry_tail=0-4-0-12-1982-11-01T14:12--0x0-0x0-0x0-0x0}
0x00366…00399 Rc489kSubCatEnt {f00=0x058000, f01=0x000000, f02=0x000000, filename=»gotdosc «, entry_tail=0-4-0-8-1982-11-01T14:12--0x0-0x0-0x0-0x0}
0x00399…003cc Rc489kSubCatEnt {f00=0x060000, f01=0x000000, f02=0x000000, filename=»gozeta «, entry_tail=0-4-0-10-1982-11-01T14:12--0x0-0x0-0x0-0x0}
0x003cc…003ff Rc489kSubCatEnt {f00=0x06a000, f01=0x000000, f02=0x000000, filename=»gonimstark «, entry_tail=0-4-0-1-1982-11-01T14:12--0x0-0x0-0x0-0x0}
0x003ff…00432 Rc489kSubCatEnt {f00=0x06b000, f01=0x000000, f02=0x000000, filename=»gonimstr «, entry_tail=0-4-0-5-1982-11-01T14:12--0x0-0x0-0x0-0x0}
0x00432…00465 Rc489kSubCatEnt {f00=0x070000, f01=0x000000, f02=0x000000, filename=»gonimtridql «, entry_tail=0-4-0-8-1982-11-01T14:12--0x0-0x0-0x0-0x0}
0x00465…00498 Rc489kSubCatEnt {f00=0x078000, f01=0x000000, f02=0x000000, filename=»gonitrometh «, entry_tail=0-4-0-7-1982-11-01T14:12--0x0-0x0-0x0-0x0}
0x00498…004cb Rc489kSubCatEnt {f00=0x07f000, f01=0x000000, f02=0x000000, filename=»gonimfit2 «, entry_tail=0-4-0-7-1982-11-01T14:12--0x0-0x0-0x0-0x0}
0x004cb…004fe Rc489kSubCatEnt {f00=0x086000, f01=0x000000, f02=0x000000, filename=»gonimfit3 «, entry_tail=0-4-0-7-1982-11-01T14:12--0x0-0x0-0x0-0x0}
0x004fe…00531 Rc489kSubCatEnt {f00=0x08d000, f01=0x000000, f02=0x000000, filename=»gonimedit16 «, entry_tail=0-4-0-7-1982-11-01T14:12--0x0-0x0-0x0-0x0}
0x00531…00564 Rc489kSubCatEnt {f00=0x094000, f01=0x000000, f02=0x000000, filename=»gonimedit17 «, entry_tail=0-4-0-6-1982-11-01T14:12--0x0-0x0-0x0-0x0}
0x00564…00597 Rc489kSubCatEnt {f00=0x09a000, f01=0x000000, f02=0x000000, filename=»gonimedit18 «, entry_tail=0-4-0-7-1982-11-01T14:12--0x0-0x0-0x0-0x0}
0x00597…005ca Rc489kSubCatEnt {f00=0x0a1000, f01=0x000000, f02=0x000000, filename=»gonimedit19 «, entry_tail=0-4-0-7-1982-11-01T14:12--0x0-0x0-0x0-0x0}
0x005ca…005fd Rc489kSubCatEnt {f00=0x0a8000, f01=0x000000, f02=0x000000, filename=»gonimedit20 «, entry_tail=0-4-0-7-1982-11-01T14:12--0x0-0x0-0x0-0x0}
0x005fd…00600 00 00 00 ┆ ┆
0x00600…00633 Rc489kSubCatEnt {f00=0x0af000, f01=0x000000, f02=0x000000, filename=»gonimedit21 «, entry_tail=0-4-0-8-1982-11-01T14:12--0x0-0x0-0x0-0x0}
0x00633…00666 Rc489kSubCatEnt {f00=0x0b7000, f01=0x000000, f02=0x000000, filename=»gonimeditd «, entry_tail=0-4-0-2-1982-11-01T14:12--0x0-0x0-0x0-0x0}
0x00666…00699 Rc489kSubCatEnt {f00=0x0b9000, f01=0x000000, f02=0x000000, filename=»gobenzene «, entry_tail=0-4-0-13-1982-11-01T14:12--0x0-0x0-0x0-0x0}
0x00699…006cc Rc489kSubCatEnt {f00=0x0c6000, f01=0x000000, f02=0x000000, filename=»goekappa «, entry_tail=0-4-0-2-1982-11-01T14:12--0x0-0x0-0x0-0x0}
0x006cc…006ff Rc489kSubCatEnt {f00=0x0c8000, f01=0x000000, f02=0x000000, filename=»gofortrat «, entry_tail=0-4-0-4-1982-11-01T14:12--0x0-0x0-0x0-0x0}
0x006ff…00732 Rc489kSubCatEnt {f00=0x0cc000, f01=0x000000, f02=0x000000, filename=»gofuncfit «, entry_tail=0-4-0-3-1982-11-01T14:12--0x0-0x0-0x0-0x0}
0x00732…00765 Rc489kSubCatEnt {f00=0x0cf000, f01=0x000000, f02=0x000000, filename=»gok3 «, entry_tail=0-4-0-6-1982-11-01T14:12--0x0-0x0-0x0-0x0}
0x00765…00798 Rc489kSubCatEnt {f00=0x0d5000, f01=0x000000, f02=0x000000, filename=»gombfedit2 «, entry_tail=0-4-0-3-1982-11-01T14:12--0x0-0x0-0x0-0x0}
0x00798…007cb Rc489kSubCatEnt {f00=0x0d8000, f01=0x000000, f02=0x000000, filename=»gonimd «, entry_tail=0-4-0-1-1982-11-01T14:12--0x0-0x0-0x0-0x0}
0x007cb…007fe Rc489kSubCatEnt {f00=0x0d9000, f01=0x000000, f02=0x000000, filename=»gonimedit13 «, entry_tail=0-4-0-2-1982-11-01T14:12--0x0-0x0-0x0-0x0}
0x007fe…00831 Rc489kSubCatEnt {f00=0x0db000, f01=0x000000, f02=0x000000, filename=»gonimedit14 «, entry_tail=0-4-0-2-1982-11-01T14:12--0x0-0x0-0x0-0x0}
0x00831…00864 Rc489kSubCatEnt {f00=0x0dd000, f01=0x000000, f02=0x000000, filename=»gonimedit15 «, entry_tail=0-4-0-4-1982-11-01T14:12--0x0-0x0-0x0-0x0}
0x00864…00897 Rc489kSubCatEnt {f00=0x0e1000, f01=0x000000, f02=0x000000, filename=»go1 «, entry_tail=0-4-0-32-1982-11-01T14:12--0x0-0x0-0x0-0x0}
0x00897…008ca Rc489kSubCatEnt {f00=0x101000, f01=0x000000, f02=0x000000, filename=»go2 «, entry_tail=0-4-0-1-1982-11-01T14:12--0x0-0x0-0x0-0x0}
0x008ca…008fd Rc489kSubCatEnt {f00=0x102000, f01=0x000000, f02=0x000000, filename=»go3 «, entry_tail=0-4-0-1-1982-11-01T14:12--0x0-0x0-0x0-0x0}
0x008fd…00900 00 00 00 ┆ ┆
0x00900…00933 Rc489kSubCatEnt {f00=0x103000, f01=0x000000, f02=0x000000, filename=»go4 «, entry_tail=0-4-0-6-1982-11-01T14:12--0x0-0x0-0x0-0x0}
0x00933…00966 Rc489kSubCatEnt {f00=0x109000, f01=0x000000, f02=0x000000, filename=»go5 «, entry_tail=0-4-0-4-1982-11-01T14:12--0x0-0x0-0x0-0x0}
0x00966…00999 Rc489kSubCatEnt {f00=0x10d000, f01=0x000000, f02=0x000000, filename=»go6 «, entry_tail=0-4-0-5-1982-11-01T14:12--0x0-0x0-0x0-0x0}
0x00999…009cc Rc489kSubCatEnt {f00=0x112000, f01=0x000000, f02=0x000000, filename=»go7 «, entry_tail=0-4-0-4-1982-11-01T14:12--0x0-0x0-0x0-0x0}
0x009cc…009ff Rc489kSubCatEnt {f00=0x116000, f01=0x000000, f02=0x000000, filename=»go8 «, entry_tail=0-4-0-1-1982-11-01T14:12--0x0-0x0-0x0-0x0}
0x009ff…00a32 Rc489kSubCatEnt {f00=0x117000, f01=0x000000, f02=0x000000, filename=»go9 «, entry_tail=0-4-0-4-1982-11-01T14:12--0x0-0x0-0x0-0x0}
0x00a32…00a65 Rc489kSubCatEnt {f00=0x11b000, f01=0x000000, f02=0x000000, filename=»go10 «, entry_tail=0-4-0-4-1982-11-01T14:12--0x0-0x0-0x0-0x0}
0x00a65…00a98 Rc489kSubCatEnt {f00=0x11f000, f01=0x000000, f02=0x000000, filename=»go11 «, entry_tail=0-4-0-23-1982-11-01T14:12--0x0-0x0-0x0-0x0}
0x00a98…00acb Rc489kSubCatEnt {f00=0x136000, f01=0x000000, f02=0x000000, filename=»go12 «, entry_tail=0-4-0-15-1982-11-01T14:12--0x0-0x0-0x0-0x0}
0x00acb…00ae0 0d 90 00 00 00 00 00 00 00 67 6f 6e 69 6d 65 64 69 74 31 33 00 ┆ gonimedit13 ┆
0x00ae0…00b00 00 00 02 00 00 00 00 00 00 00 00 00 00 00 00 88 41 1c 00 00 00 00 00 00 00 00 00 00 00 00 0d b0 ┆ A ┆
0x00b00…00b20 00 00 00 00 00 00 00 67 6f 6e 69 6d 65 64 69 74 31 34 00 00 00 02 00 00 00 00 00 00 00 00 00 00 ┆ gonimedit14 ┆
0x00b20…00b40 00 00 88 41 1c 00 00 00 00 00 00 00 00 00 00 00 00 0d d0 00 00 00 00 00 00 00 67 6f 6e 69 6d 65 ┆ A gonime┆
0x00b40…00b60 64 69 74 31 35 00 00 00 04 00 00 00 00 00 00 00 00 00 00 00 00 88 41 1c 00 00 00 00 00 00 00 00 ┆dit15 A ┆
0x00b60…00b80 00 00 00 00 0e 10 00 00 00 00 00 00 00 67 6f 31 00 00 00 00 00 00 00 00 00 00 00 20 00 00 00 00 ┆ go1 ┆
0x00b80…00ba0 00 00 00 00 00 00 00 00 88 41 1c 00 00 00 00 00 00 00 00 00 00 00 00 10 10 00 00 00 00 00 00 00 ┆ A ┆
0x00ba0…00bc0 67 6f 32 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 88 41 1c 00 00 ┆go2 A ┆
0x00bc0…00be0 00 00 00 00 00 00 00 00 00 00 10 20 00 00 00 00 00 00 00 67 6f 33 00 00 00 00 00 00 00 00 00 00 ┆ go3 ┆
0x00be0…00c00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 88 41 1c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ A ┆
0x00c00…01200 (1,) Data for gopage
0x01200…01800 Data for gotest
0x01800…01b00 (2,) Data for govariables
0x01b00…01e00 Data for goasm
0x01e00…02d00 Data for mbfev
0x02d00…06900 Data for nimevh3
0x06900…06c00 Data for nimevd3
0x06c00…07b00 (9,) Data for nimevd3fit
0x07b00…08d00 Data for goozon
0x08d00…09300 Data for gorf
0x09300…09900 Data for gorf2
0x09900…0a500 Data for gork3
0x0a500…0cc00 Data for gorotcpl
0x0cc00…0d500 (17,) Data for gorotfitz
0x0d500…0d800 Data for gorotfrek2
0x0d800…0e400 (18,) Data for gotdo
0x0e400…10800 (19,) Data for gotdomat
0x10800…12000 (22,) Data for gotdosc
0x12000…13e00 (24,) Data for gozeta
0x13e00…14100 Data for gonimstark
0x14100…15000 Data for gonimstr
0x15000…16800 (28,) Data for gonimtridql
0x16800…17d00 (30,) Data for gonitrometh
0x17d00…19200 Data for gonimfit2
0x19200…1a700 Data for gonimfit3
0x1a700…1bc00 Data for gonimedit16
0x1bc00…1ce00 (37,) Data for gonimedit17
0x1ce00…1e300 Data for gonimedit18
0x1e300…1f800 Data for gonimedit19
0x1f800…20d00 (42,) Data for gonimedit20
0x20d00…22500 Data for gonimedit21
0x22500…22b00 Data for gonimeditd
0x22b00…25200 Data for gobenzene
0x25200…25800 Data for goekappa
0x25800…26400 (50,) Data for gofortrat
0x26400…26d00 (51,) Data for gofuncfit
0x26d00…27f00 Data for gok3
0x27f00…28800 Data for gombfedit2
0x28800…28b00 (54,) Data for gonimd
0x28b00…29100 Data for gonimedit13
0x29100…29700 Data for gonimedit14
0x29700…2a300 Data for gonimedit15
0x2a300…30300 Data for go1
0x30300…30600 Data for go2
0x30600…30900 Data for go3
0x30900…31b00 Data for go4
0x31b00…32700 Data for go5
0x32700…33600 Data for go6
0x33600…34200 Data for go7
0x34200…34500 Data for go8
0x34500…35100 Data for go9
0x35100…35d00 Data for go10
0x35d00…3a200 Data for go11
0x3a200…3cf00 Data for go12
0x3cf00…3cf20 51 29 3a 3d 20 4c 69 20 2d 20 64 45 3b 20 69 74 3a 3d 20 30 3b 20 20 73 3a 3d 20 73 20 2b 20 64 ┆Q):= Li - dE; it:= 0; s:= s + d┆
0x3cf20…3cf40 45 2a 64 45 0a 65 6e 64 20 65 6c 73 65 20 62 65 67 69 6e 0a 20 20 20 69 74 3a 3d 20 4c 69 3b 20 ┆E*dE end else begin it:= Li; ┆
0x3cf40…3cf60 20 4c 69 3a 3d 20 64 45 3b 20 20 64 45 3a 3d 20 30 20 65 6e 64 3b 0a 69 66 20 68 61 20 74 68 65 ┆ Li:= dE; dE:= 0 end; if ha the┆
0x3cf60…3cf80 6e 20 62 65 67 69 6e 20 48 3a 3d 20 30 3b 0a 20 20 20 66 6f 72 20 6a 3a 3d 51 2d 31 20 73 74 65 ┆n begin H:= 0; for j:=Q-1 ste┆
0x3cf80…3cfa0 70 20 2d 31 20 75 6e 74 69 6c 20 31 20 64 6f 0a 20 20 20 66 6f 72 20 6b 3a 3d 51 2d 31 20 73 74 ┆p -1 until 1 do for k:=Q-1 st┆
0x3cfa0…3cfc0 65 70 20 2d 31 20 75 6e 74 69 6c 20 6a 20 64 6f 20 48 3a 3d 20 48 20 2b 20 61 69 28 6a 29 2a 61 ┆ep -1 until j do H:= H + ai(j)*a┆
0x3cfc0…3cfe0 69 28 6b 29 2a 63 6f 6c 28 6a 2c 6b 29 3b 0a 20 20 20 69 66 20 69 74 65 72 65 72 20 74 68 65 6e ┆i(k)*col(j,k); if iterer then┆
0x3cfe0…3d000 20 48 3a 3d 20 69 66 20 31 2d 48 3c 3d 30 20 6f 72 20 6d 31 3d 31 20 74 68 65 6e 20 39 2e 39 0a ┆ H:= if 1-H<=0 or m1=1 then 9.9 ┆
0x3d000…3d020 20 20 20 20 20 20 65 6c 73 65 20 64 45 2f 73 71 72 74 28 73 6f 2a 28 31 2d 48 29 29 20 65 6c 73 ┆ else dE/sqrt(so*(1-H)) els┆
0x3d020…3d040 65 20 64 45 3a 3d 20 73 71 72 74 28 48 2a 73 29 0a 65 6e 64 3b 0a 46 3a 3d 20 47 3a 3d 20 30 3b ┆e dE:= sqrt(H*s) end; F:= G:= 0;┆
0x3d040…3d060 0a 69 66 20 71 75 61 72 74 69 63 20 74 68 65 6e 0a 20 20 20 66 6f 72 20 6a 3a 3d 34 20 73 74 65 ┆ if quartic then for j:=4 ste┆
0x3d060…3d080 70 20 31 20 75 6e 74 69 6c 20 51 31 20 64 6f 20 46 3a 3d 20 46 20 2b 20 61 69 28 6a 29 2a 44 52 ┆p 1 until Q1 do F:= F + ai(j)*DR┆
0x3d080…3d0a0 28 6a 29 3b 0a 69 66 20 73 65 78 74 69 63 20 74 68 65 6e 0a 20 20 20 66 6f 72 20 6a 3a 3d 51 31 ┆(j); if sextic then for j:=Q1┆
0x3d0a0…3d0c0 2b 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 51 2d 31 20 64 6f 20 47 3a 3d 20 47 20 2b 20 61 ┆+1 step 1 until Q-1 do G:= G + a┆
0x3d0c0…3d0e0 69 28 6a 29 2a 44 52 28 6a 29 3b 0a 77 72 69 74 65 63 72 3b 20 77 72 69 74 65 28 72 65 73 2c 3c ┆i(j)*DR(j); writecr; write(res,<┆
0x3d0e0…3d100 3c 64 64 64 3e 2c 4a 31 2c 6b 31 31 2c 6b 31 32 2c 3c 3a 20 3a 3e 2c 4a 32 2c 6b 32 31 2c 6b 32 ┆<ddd>,J1,k11,k12,<: :>,J2,k21,k2┆
0x3d100…3d120 32 2c 3c 3a 20 3a 3e 2c 0a 20 20 20 3c 3c 64 64 64 64 64 64 2e 64 64 64 3e 2c 4c 69 2c 3c 3c 2d ┆2,<: :>, <<dddddd.ddd>,Li,<<-┆
0x3d120…3d140 64 64 64 2e 64 64 64 3e 2c 64 45 29 3b 0a 69 66 20 2d 2c 68 61 20 74 68 65 6e 20 77 72 69 74 65 ┆ddd.ddd>,dE); if -,ha then write┆
0x3d140…3d160 28 72 65 73 2c 3c 3a 20 20 20 20 20 3a 3e 29 20 65 6c 73 65 0a 69 66 20 69 74 65 72 65 72 20 61 ┆(res,<: :>) else if iterer a┆
0x3d160…3d180 6e 64 20 6d 31 3e 31 20 74 68 65 6e 20 62 65 67 69 6e 20 69 66 20 61 62 73 20 48 3c 31 30 20 6f ┆nd m1>1 then begin if abs H<10 o┆
0x3d180…3d1a0 72 20 64 45 2a 64 45 3c 73 6f 2a 31 30 30 0a 20 20 20 74 68 65 6e 20 77 72 69 74 65 28 72 65 73 ┆r dE*dE<so*100 then write(res┆
0x3d1a0…3d1c0 2c 3c 3c 20 2d 64 2e 64 3e 2c 48 29 20 65 6c 73 65 20 62 65 67 69 6e 0a 20 20 20 20 20 20 66 6f ┆,<< -d.d>,H) else begin fo┆
0x3d1c0…3d1e0 72 20 6a 3a 3d 6c 2b 31 20 73 74 65 70 20 2d 31 20 75 6e 74 69 6c 20 31 20 64 6f 20 61 74 6f 74 ┆r j:=l+1 step -1 until 1 do atot┆
0x3d1e0…3d200 28 6c 63 2c 6a 29 3a 3d 20 30 3b 0a 20 20 20 20 20 20 77 72 69 74 65 28 72 65 73 2c 3c 3c 20 2d ┆(lc,j):= 0; write(res,<< -┆
0x3d200…3d220 64 64 64 3e 2c 48 2c 3c 3a 20 20 2a 2a 2a 65 78 63 6c 75 64 65 64 3a 3e 29 3b 0a 20 20 20 20 20 ┆ddd>,H,<: ***excluded:>); ┆
0x3d220…3d240 20 6d 31 3a 3d 20 6d 31 2d 31 3b 20 73 3a 3d 20 73 2d 64 45 2a 64 45 3b 20 67 6f 74 6f 20 65 6e ┆ m1:= m1-1; s:= s-dE*dE; goto en┆
0x3d240…3d260 64 6c 69 6e 65 0a 65 6e 64 20 65 6e 64 20 65 6c 73 65 0a 69 66 20 69 74 3c 27 35 20 61 6e 64 20 ┆dline end end else if it<'5 and ┆
0x3d260…3d280 69 74 3e 30 20 74 68 65 6e 20 77 72 69 74 65 28 72 65 73 2c 3c 3c 5f 64 64 64 64 64 3e 2c 69 74 ┆it>0 then write(res,<<_ddddd>,it┆
0x3d280…3d2a0 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 77 72 69 74 65 28 72 ┆) else write(r┆
0x3d2a0…3d2c0 65 73 2c 3c 3a 20 20 20 20 20 20 3a 3e 29 3b 0a 69 66 20 46 2b 47 3c 3e 30 20 74 68 65 6e 20 62 ┆es,<: :>); if F+G<>0 then b┆
0x3d2c0…3d2e0 65 67 69 6e 0a 20 20 20 77 72 69 74 65 28 72 65 73 2c 3c 3c 2d 64 64 64 64 64 2e 64 64 64 3e 2c ┆egin write(res,<<-ddddd.ddd>,┆
0x3d2e0…3d300 46 2b 47 29 3b 0a 20 20 20 69 66 20 64 65 6c 72 65 73 20 74 68 65 6e 20 62 65 67 69 6e 0a 20 20 ┆F+G); if delres then begin ┆
0x3d300…3d320 20 20 20 20 4a 31 3a 3d 20 2d 31 3b 20 6b 3a 3d 20 69 66 20 73 65 78 74 69 63 20 74 68 65 6e 20 ┆ J1:= -1; k:= if sextic then ┆
0x3d320…3d340 51 2d 31 20 65 6c 73 65 20 51 31 3b 0a 20 20 20 20 20 20 66 6c 65 72 65 3a 20 20 4a 31 3a 3d 20 ┆Q-1 else Q1; flere: J1:= ┆
0x3d340…3d360 4a 31 2b 35 3b 20 20 4a 32 3a 3d 20 4a 31 2b 34 3b 20 20 69 66 20 4a 32 3e 6b 20 74 68 65 6e 20 ┆J1+5; J2:= J1+4; if J2>k then ┆
0x3d360…3d380 4a 32 3a 3d 20 6b 3b 0a 20 20 20 20 20 20 77 72 69 74 65 63 72 3b 20 77 72 69 74 65 28 72 65 73 ┆J2:= k; writecr; write(res┆
0x3d380…3d3a0 2c 73 70 2c 32 35 29 3b 0a 20 20 20 20 20 20 66 6f 72 20 6a 3a 3d 4a 31 20 73 74 65 70 20 31 20 ┆,sp,25); for j:=J1 step 1 ┆
0x3d3a0…3d3c0 75 6e 74 69 6c 20 4a 32 20 64 6f 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 70 3a 3d 20 61 ┆until J2 do begin p:= a┆
0x3d3c0…3d3e0 69 28 6a 29 2a 44 52 28 6a 29 3b 0a 20 20 20 20 20 20 20 20 20 69 66 20 70 3d 30 20 74 68 65 6e ┆i(j)*DR(j); if p=0 then┆
0x3d3e0…3d400 20 77 72 69 74 65 28 72 65 73 2c 3c 3a 20 20 20 20 30 20 20 20 20 3a 3e 29 0a 20 20 20 20 20 20 ┆ write(res,<: 0 :>) ┆
0x3d400…3d420 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 20 20 20 20 20 77 72 69 74 65 28 72 65 73 2c 3c 3c ┆ else write(res,<<┆
0x3d420…3d440 2d 64 64 64 64 2e 64 64 64 3e 2c 70 29 20 65 6e 64 3b 0a 20 20 20 20 20 20 69 66 20 4a 32 3c 3e ┆-dddd.ddd>,p) end; if J2<>┆
0x3d440…3d460 6b 20 74 68 65 6e 20 67 6f 74 6f 20 66 6c 65 72 65 3b 0a 20 20 20 20 20 20 77 72 69 74 65 63 72 ┆k then goto flere; writecr┆
0x3d460…3d480 0a 20 20 20 65 6e 64 20 65 6c 73 65 20 62 65 67 69 6e 0a 20 20 20 20 20 20 69 66 20 47 3c 3e 30 ┆ end else begin if G<>0┆
0x3d480…3d4a0 20 74 68 65 6e 20 62 65 67 69 6e 0a 20 20 20 20 20 20 69 66 20 61 62 73 28 47 29 3c 27 2d 32 20 ┆ then begin if abs(G)<'-2 ┆
0x3d4a0…3d4c0 74 68 65 6e 20 77 72 69 74 65 28 72 65 73 2c 3c 3c 5f 5f 2d 64 2e 64 27 2d 64 3e 2c 47 29 0a 20 ┆then write(res,<<__-d.d'-d>,G) ┆
0x3d4c0…3d4e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6c 73 65 20 77 72 69 74 65 28 72 65 ┆ else write(re┆
0x3d4e0…3d500 73 2c 3c 3c 2d 64 64 64 2e 64 64 64 3e 2c 47 2c 3c 3a 20 3a 3e 29 20 65 6e 64 3b 0a 20 20 20 20 ┆s,<<-ddd.ddd>,G,<: :>) end; ┆
0x3d500…3d520 20 20 70 3a 3d 20 30 3b 0a 20 20 20 20 20 20 66 6f 72 20 6a 3a 3d 31 20 73 74 65 70 20 31 20 75 ┆ p:= 0; for j:=1 step 1 u┆
0x3d520…3d540 6e 74 69 6c 20 6d 20 64 6f 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 6b 3a 3d 20 6e 66 28 ┆ntil m do begin k:= nf(┆
0x3d540…3d560 6a 29 3b 20 69 66 20 6b 3e 33 20 74 68 65 6e 20 70 3a 3d 20 70 2b 61 69 28 6b 29 2a 44 52 28 6b ┆j); if k>3 then p:= p+ai(k)*DR(k┆
0x3d560…3d580 29 20 65 6e 64 3b 0a 20 20 20 20 20 20 69 66 20 70 3c 3e 30 20 74 68 65 6e 20 62 65 67 69 6e 0a ┆) end; if p<>0 then begin ┆
0x3d580…3d5a0 20 20 20 20 20 20 69 66 20 61 62 73 28 70 29 3c 27 2d 32 20 74 68 65 6e 20 20 77 72 69 74 65 28 ┆ if abs(p)<'-2 then write(┆
0x3d5a0…3d5c0 72 65 73 2c 3c 3c 5f 5f 2d 64 2e 64 27 2d 64 3e 2c 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆res,<<__-d.d'-d>,p) ┆
0x3d5c0…3d5e0 20 20 20 20 20 20 20 20 65 6c 73 65 20 20 77 72 69 74 65 28 72 65 73 2c 3c 3c 2d 64 64 64 2e 64 ┆ else write(res,<<-ddd.d┆
0x3d5e0…3d600 64 64 3e 2c 70 2c 3c 3a 20 3a 3e 29 20 65 6e 64 20 65 6e 64 0a 65 6e 64 20 3b 0a 69 66 20 61 69 ┆dd>,p,<: :>) end end end ; if ai┆
0x3d600…3d620 72 65 73 20 74 68 65 6e 20 62 65 67 69 6e 20 77 72 69 74 65 63 72 3b 0a 20 20 20 77 72 69 74 65 ┆res then begin writecr; write┆
0x3d620…3d640 63 72 3b 20 77 72 69 74 65 28 72 65 73 2c 3c 3a 64 45 3a 64 41 20 20 6c 2e 3a 3a 3e 29 3b 0a 20 ┆cr; write(res,<:dE:dA l.::>); ┆
0x3d640…3d660 20 20 66 6f 72 20 6a 3a 3d 20 31 2c 32 2c 33 20 64 6f 0a 20 20 20 20 77 72 69 74 65 28 72 65 73 ┆ for j:= 1,2,3 do write(res┆
0x3d660…3d680 2c 3c 3c 20 20 20 2d 64 2e 64 64 64 20 64 64 64 27 2d 64 3e 2c 69 6d 70 28 31 2c 6a 29 29 3b 0a ┆,<< -d.ddd ddd'-d>,imp(1,j)); ┆
0x3d680…3d6a0 20 20 20 77 72 69 74 65 63 72 3b 20 77 72 69 74 65 28 72 65 73 2c 3c 3a 64 45 3a 64 41 20 20 75 ┆ writecr; write(res,<:dE:dA u┆
0x3d6a0…3d6c0 2e 3a 3a 3e 29 3b 0a 20 20 20 66 6f 72 20 6a 3a 3d 20 31 2c 32 2c 33 20 64 6f 0a 20 20 20 20 77 ┆.::>); for j:= 1,2,3 do w┆
0x3d6c0…3d6e0 72 69 74 65 28 72 65 73 2c 3c 3c 20 20 20 2d 64 2e 64 64 64 20 64 64 64 27 2d 64 3e 2c 69 6d 70 ┆rite(res,<< -d.ddd ddd'-d>,imp┆
0x3d6e0…3d700 28 32 2c 6a 29 29 3b 0a 20 20 20 77 72 69 74 65 63 72 3b 20 77 72 69 74 65 28 72 65 73 2c 3c 3a ┆(2,j)); writecr; write(res,<:┆
0x3d700…3d720 20 75 2e 20 2d 20 6c 2e 20 3a 3a 3e 29 3b 0a 20 20 20 66 6f 72 20 6a 3a 3d 20 31 2c 32 2c 33 20 ┆ u. - l. ::>); for j:= 1,2,3 ┆
0x3d720…3d740 64 6f 0a 20 20 20 20 77 72 69 74 65 28 72 65 73 2c 3c 3c 20 20 20 2d 64 2e 64 64 64 20 64 64 64 ┆do write(res,<< -d.ddd ddd┆
0x3d740…3d760 27 2d 64 3e 2c 69 6d 70 28 32 2c 6a 29 2d 69 6d 70 28 31 2c 6a 29 29 3b 0a 20 20 20 77 72 69 74 ┆'-d>,imp(2,j)-imp(1,j)); writ┆
0x3d760…3d780 65 63 72 3b 20 77 72 69 74 65 28 72 65 73 2c 3c 3a 20 75 2e 20 2b 20 6c 2e 20 3a 3a 3e 29 3b 0a ┆ecr; write(res,<: u. + l. ::>); ┆
0x3d780…3d7a0 20 20 20 66 6f 72 20 6a 3a 3d 20 31 2c 32 2c 33 20 64 6f 0a 20 20 20 20 77 72 69 74 65 28 72 65 ┆ for j:= 1,2,3 do write(re┆
0x3d7a0…3d7c0 73 2c 3c 3c 20 20 20 2d 64 2e 64 64 64 20 64 64 64 27 2d 64 3e 2c 69 6d 70 28 32 2c 6a 29 2b 69 ┆s,<< -d.ddd ddd'-d>,imp(2,j)+i┆
0x3d7c0…3d7e0 6d 70 28 31 2c 6a 29 29 3b 0a 20 20 20 77 72 69 74 65 63 72 3b 20 77 72 69 74 65 28 72 65 73 2c ┆mp(1,j)); writecr; write(res,┆
0x3d7e0…3d800 3c 3a 50 7a 34 2c 20 75 2e 20 2b 20 6c 2e 20 2c 20 75 2e 20 2d 20 6c 2e 20 3a 20 20 3a 3e 2c 0a ┆<:Pz4, u. + l. , u. - l. : :>, ┆
0x3d800…3d820 (82,) 20 20 20 20 20 20 20 20 20 20 20 20 3c 3c 20 20 20 2d 64 2e 64 64 64 20 64 64 64 27 2d 64 3e 2c ┆ << -d.ddd ddd'-d>,┆
0x3d820…3d840 69 6d 70 28 31 2c 34 29 2c 69 6d 70 28 32 2c 34 29 29 3b 0a 20 20 20 20 77 72 69 74 65 63 72 3b ┆imp(1,4),imp(2,4)); writecr;┆
0x3d840…3d860 20 77 72 69 74 65 28 72 65 73 2c 3c 3a 45 6e 65 72 67 69 65 73 3a 20 20 20 3a 3e 2c 0a 20 20 20 ┆ write(res,<:Energies: :>, ┆
0x3d860…3d880 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3c 20 20 20 64 2e 64 64 64 64 64 64 64 64 27 ┆ << d.dddddddd'┆
0x3d880…3d8a0 2d 64 64 3e 2c 69 6d 70 28 31 2c 35 29 2c 69 6d 70 28 32 2c 35 29 29 3b 0a 77 72 69 74 65 63 72 ┆-dd>,imp(1,5),imp(2,5)); writecr┆
0x3d8a0…3d8c0 20 65 6e 64 3b 0a 69 66 20 69 74 65 72 65 72 20 74 68 65 6e 20 62 65 67 69 6e 0a 20 20 20 66 6f ┆ end; if iterer then begin fo┆
0x3d8c0…3d8e0 72 20 6a 3a 3d 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 6d 20 64 6f 0a 20 20 20 66 6f 72 20 ┆r j:=1 step 1 until m do for ┆
0x3d8e0…3d900 6b 3a 3d 6e 66 28 6a 29 2b 31 2d 6a 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 51 2d 6a 20 64 6f ┆k:=nf(j)+1-j step 1 until Q-j do┆
0x3d900…3d920 20 61 69 28 6b 29 3a 3d 20 61 69 28 6b 2b 31 29 3b 0a 20 20 20 66 6f 72 20 6a 3a 3d 31 20 73 74 ┆ ai(k):= ai(k+1); for j:=1 st┆
0x3d920…3d940 65 70 20 31 20 75 6e 74 69 6c 20 6c 2b 31 20 64 6f 20 61 74 6f 74 28 6c 63 2c 6a 29 3a 3d 20 61 ┆ep 1 until l+1 do atot(lc,j):= a┆
0x3d940…3d960 69 28 6a 29 0a 65 6e 64 3b 0a 65 6e 64 6c 69 6e 65 3a 20 65 6e 64 20 73 74 65 70 20 6f 76 65 72 ┆i(j) end; endline: end step over┆
0x3d960…3d980 20 6f 62 73 65 72 76 65 64 20 74 72 61 6e 73 69 74 69 6f 6e 73 2c 20 6c 69 6e 65 3b 0a 69 66 20 ┆ observed transitions, line; if ┆
0x3d980…3d9a0 49 44 20 74 68 65 6e 20 52 6f 74 28 31 29 3a 3d 20 49 6e 74 28 34 29 3b 0a 0a 69 66 20 2d 2c 68 ┆ID then Rot(1):= Int(4); if -,h┆
0x3d9a0…3d9c0 61 20 74 68 65 6e 20 62 65 67 69 6e 0a 66 6f 72 20 69 3a 3d 31 20 73 74 65 70 20 31 20 75 6e 74 ┆a then begin for i:=1 step 1 unt┆
0x3d9c0…3d9e0 69 6c 20 4e 31 20 64 6f 20 62 65 67 69 6e 0a 20 20 20 70 3a 3d 20 61 74 6f 74 28 69 2c 6c 2b 31 ┆il N1 do begin p:= atot(i,l+1┆
0x3d9e0…3da00 29 2a 2a 32 3b 0a 20 20 20 69 66 20 6d 31 3e 31 20 61 6e 64 20 28 73 2d 70 29 2f 6d 31 20 3c 20 ┆)**2; if m1>1 and (s-p)/m1 < ┆
0x3da00…3da20 70 2a 27 2d 34 20 74 68 65 6e 20 62 65 67 69 6e 0a 20 20 20 20 20 20 66 6f 72 20 6a 3a 3d 6c 2b ┆p*'-4 then begin for j:=l+┆
0x3da20…3da40 31 20 73 74 65 70 20 2d 31 20 75 6e 74 69 6c 20 31 20 64 6f 20 61 74 6f 74 28 69 2c 6a 29 3a 3d ┆1 step -1 until 1 do atot(i,j):=┆
0x3da40…3da60 20 30 3b 0a 20 20 20 20 20 20 73 3a 3d 20 73 2d 70 3b 20 6d 31 3a 3d 20 6d 31 2d 31 0a 65 6e 64 ┆ 0; s:= s-p; m1:= m1-1 end┆
0x3da60…3da80 20 65 6e 64 20 65 6e 64 3b 0a 73 3a 3d 20 73 2f 6d 31 3b 20 20 68 62 3a 3d 20 73 6f 20 3d 20 32 ┆ end end; s:= s/m1; hb:= so = 2┆
0x3da80…3daa0 2a 2a 36 34 3b 20 20 51 3a 3d 20 51 2d 31 3b 0a 69 66 20 73 6f 3e 3d 73 20 74 68 65 6e 20 62 65 ┆**64; Q:= Q-1; if so>=s then be┆
0x3daa0…3dac0 67 69 6e 20 66 6f 72 20 6a 3a 3d 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 6c 20 64 6f 20 62 ┆gin for j:=1 step 1 until l do b┆
0x3dac0…3dae0 65 67 69 6e 0a 20 20 20 70 3a 3d 20 30 3b 0a 20 20 20 66 6f 72 20 69 3a 3d 31 20 73 74 65 70 20 ┆egin p:= 0; for i:=1 step ┆
0x3dae0…3db00 31 20 75 6e 74 69 6c 20 4e 31 20 64 6f 20 62 65 67 69 6e 0a 20 20 20 20 20 20 71 64 3a 3d 20 61 ┆1 until N1 do begin qd:= a┆
0x3db00…3db20 62 73 20 61 74 6f 74 28 69 2c 6a 29 3b 20 69 66 20 71 64 3e 70 20 74 68 65 6e 20 70 3a 3d 20 71 ┆bs atot(i,j); if qd>p then p:= q┆
0x3db20…3db40 64 0a 20 20 20 65 6e 64 3b 0a 20 20 20 6c 6f 28 6a 29 3a 3d 20 70 0a 65 6e 64 20 65 6e 64 3b 0a ┆d end; lo(j):= p end end; ┆
0x3db40…3db60 5a 3a 3d 20 6f 72 74 68 6f 28 61 74 6f 74 2c 61 6e 2c 4e 31 2c 6c 29 0a 65 6e 64 20 61 74 6f 74 ┆Z:= ortho(atot,an,N1,l) end atot┆
0x3db60…3db80 3b 0a 0a 63 6f 6d 6d 65 6e 74 20 54 68 65 20 70 72 6f 63 65 64 75 72 65 6e 20 6f 72 74 68 6f 20 ┆; comment The proceduren ortho ┆
0x3db80…3dba0 73 6f 6c 76 65 73 20 74 68 65 20 65 71 75 61 74 69 6f 6e 20 61 20 78 20 3d 20 62 2c 0a 20 20 20 ┆solves the equation a x = b, ┆
0x3dba0…3dbc0 77 68 65 72 65 20 74 68 65 20 72 65 63 74 61 6e 67 75 6c 61 72 20 6d 61 74 72 69 78 20 61 20 61 ┆where the rectangular matrix a a┆
0x3dbc0…3dbe0 73 20 77 65 6c 6c 20 61 73 20 62 20 69 73 20 73 74 6f 72 65 64 20 69 6e 0a 20 20 20 61 74 6f 74 ┆s well as b is stored in atot┆
0x3dbe0…3dc00 2e 20 61 6e 20 69 73 20 61 20 6c 2a 28 6c 2b 31 29 20 61 72 72 61 79 20 63 6f 6e 74 61 69 6e 69 ┆. an is a l*(l+1) array containi┆
0x3dc00…3dc20 6e 67 20 62 79 20 72 65 74 75 72 6e 20 74 68 65 20 73 6f 6c 75 2d 0a 20 20 20 74 69 6f 6e 20 78 ┆ng by return the solu- tion x┆
0x3dc20…3dc40 20 28 69 6e 20 63 6f 6c 75 6d 6e 20 6e 6f 2e 20 6c 2b 31 29 20 61 6e 64 20 74 68 65 20 63 6f 76 ┆ (in column no. l+1) and the cov┆
0x3dc40…3dc60 61 72 69 61 6e 63 65 20 6d 61 74 72 69 78 3b 0a 0a 68 61 3a 3d 20 73 6f 3c 73 3b 20 20 77 72 69 ┆ariance matrix; ha:= so<s; wri┆
0x3dc60…3dc80 74 65 28 72 65 73 2c 3c 3a 3c 31 30 3e 3a 3e 29 3b 0a 69 66 20 68 61 20 74 68 65 6e 20 62 65 67 ┆te(res,<:<10>:>); if ha then beg┆
0x3dc80…3dca0 69 6e 0a 20 20 20 77 72 69 74 65 28 72 65 73 2c 3c 3a 3c 31 30 3e 53 74 6f 70 20 6f 6e 20 64 69 ┆in write(res,<:<10>Stop on di┆
0x3dca0…3dcc0 76 65 72 67 65 6e 63 79 3a 3e 29 3b 0a 20 20 20 66 6f 72 20 69 3a 3d 31 20 73 74 65 70 20 31 20 ┆vergency:>); for i:=1 step 1 ┆
0x3dcc0…3dce0 75 6e 74 69 6c 20 33 20 64 6f 20 52 6f 74 28 69 29 3a 3d 20 52 6f 74 28 69 29 2d 41 4f 28 69 29 ┆until 3 do Rot(i):= Rot(i)-AO(i)┆
0x3dce0…3dd00 3b 0a 20 20 20 66 6f 72 20 69 3a 3d 34 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 51 20 64 6f 20 ┆; for i:=4 step 1 until Q do ┆
0x3dd00…3dd20 20 44 52 28 69 29 3a 3d 20 20 44 52 28 69 29 2d 41 4f 28 69 29 0a 65 6e 64 20 65 6c 73 65 20 62 ┆ DR(i):= DR(i)-AO(i) end else b┆
0x3dd20…3dd40 65 67 69 6e 0a 20 20 20 6b 3a 3d 20 51 3b 20 20 70 3a 3d 20 6c 2f 28 69 66 20 4e 31 3d 6c 20 74 ┆egin k:= Q; p:= l/(if N1=l t┆
0x3dd40…3dd60 68 65 6e 20 30 2e 31 20 65 6c 73 65 20 73 71 72 74 28 73 29 29 3b 0a 20 20 20 66 6f 72 20 69 3a ┆hen 0.1 else sqrt(s)); for i:┆
0x3dd60…3dd80 3d 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 6c 20 64 6f 20 6c 6f 28 69 29 3a 3d 20 6c 6f 28 ┆=1 step 1 until l do lo(i):= lo(┆
0x3dd80…3dda0 69 29 2a 70 3b 0a 20 20 20 66 6f 72 20 6a 3a 3d 6d 20 73 74 65 70 20 2d 31 20 75 6e 74 69 6c 20 ┆i)*p; for j:=m step -1 until ┆
0x3dda0…3ddc0 30 20 64 6f 20 62 65 67 69 6e 0a 20 20 20 20 20 20 66 6f 72 20 69 3a 3d 6e 66 28 6a 29 2b 31 20 ┆0 do begin for i:=nf(j)+1 ┆
0x3ddc0…3dde0 73 74 65 70 20 31 20 75 6e 74 69 6c 20 6b 20 64 6f 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 ┆step 1 until k do begin ┆
0x3dde0…3de00 20 70 3a 3d 20 41 4f 28 69 29 3a 3d 20 61 6e 28 69 2d 6a 2c 6c 2b 31 29 3b 0a 20 20 20 20 20 20 ┆ p:= AO(i):= an(i-j,l+1); ┆
0x3de00…3de20 20 20 20 68 62 3a 3d 20 68 62 20 6f 72 20 6c 6f 28 69 2d 6a 29 2a 61 62 73 20 70 20 3e 20 31 3b ┆ hb:= hb or lo(i-j)*abs p > 1;┆
0x3de20…3de40 0a 20 20 20 20 20 20 20 20 20 63 69 66 28 69 29 3a 3d 20 2d 65 6e 74 69 65 72 28 2d 6c 6e 28 6c ┆ cif(i):= -entier(-ln(l┆
0x3de40…3de60 6f 28 69 2d 6a 29 2a 32 29 2f 6c 6e 31 30 29 2b 31 3b 0a 20 20 20 20 20 20 20 20 20 69 66 20 69 ┆o(i-j)*2)/ln10)+1; if i┆
0x3de60…3de80 3c 3d 33 20 74 68 65 6e 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 52 6f 74 28 69 ┆<=3 then begin Rot(i┆
0x3de80…3dea0 29 3a 3d 20 41 4f 28 69 29 2b 52 6f 74 28 69 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 69 ┆):= AO(i)+Rot(i); ci┆
0x3dea0…3dec0 66 28 69 29 3a 3d 20 65 6e 74 69 65 72 28 6c 6e 28 61 62 73 20 52 6f 74 28 69 29 29 2f 6c 6e 31 ┆f(i):= entier(ln(abs Rot(i))/ln1┆
0x3dec0…3dee0 30 29 2b 63 69 66 28 69 29 0a 20 20 20 20 20 20 20 20 20 65 6e 64 20 65 6c 73 65 20 62 65 67 69 ┆0)+cif(i) end else begi┆
0x3dee0…3df00 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 44 52 28 69 29 3a 3d 20 41 4f 28 69 29 2b 44 52 28 69 ┆n DR(i):= AO(i)+DR(i┆
0x3df00…3df20 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 69 66 28 69 29 3a 3d 20 65 6e 74 69 65 72 28 6c ┆); cif(i):= entier(l┆
0x3df20…3df40 6e 28 61 62 73 20 44 52 28 69 29 29 2f 6c 6e 31 30 29 2b 63 69 66 28 69 29 0a 20 20 20 20 20 20 ┆n(abs DR(i))/ln10)+cif(i) ┆
0x3df40…3df60 65 6e 64 20 65 6e 64 3b 0a 20 20 20 20 20 20 6b 3a 3d 20 6e 66 28 6a 29 2d 31 0a 20 20 20 65 6e ┆end end; k:= nf(j)-1 en┆
0x3df60…3df80 64 3b 0a 20 20 20 6a 30 3a 3d 20 51 3b 0a 20 20 20 66 6f 72 20 6b 30 3a 3d 6d 20 73 74 65 70 20 ┆d; j0:= Q; for k0:=m step ┆
0x3df80…3dfa0 2d 31 20 75 6e 74 69 6c 20 30 20 64 6f 20 62 65 67 69 6e 0a 20 20 20 20 20 20 66 6f 72 20 69 3a ┆-1 until 0 do begin for i:┆
0x3dfa0…3dfc0 3d 6e 66 28 6b 30 29 2b 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 6a 30 20 64 6f 20 62 65 67 ┆=nf(k0)+1 step 1 until j0 do beg┆
0x3dfc0…3dfe0 69 6e 0a 20 20 20 20 20 20 20 20 20 4a 32 3a 3d 20 51 3b 0a 20 20 20 20 20 20 20 20 20 66 6f 72 ┆in J2:= Q; for┆
0x3dfe0…3e000 20 4b 32 3a 3d 6d 20 73 74 65 70 20 2d 31 20 75 6e 74 69 6c 20 6b 30 20 64 6f 20 62 65 67 69 6e ┆ K2:=m step -1 until k0 do begin┆
0x3e000…3e020 0a 20 20 20 20 20 20 20 20 20 20 20 20 6b 3a 3d 20 69 66 20 69 3e 6e 66 28 4b 32 29 20 74 68 65 ┆ k:= if i>nf(K2) the┆
0x3e020…3e040 6e 20 69 20 65 6c 73 65 20 6e 66 28 4b 32 29 2b 31 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 ┆n i else nf(K2)+1; f┆
0x3e040…3e060 6f 72 20 6a 3a 3d 6b 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 4a 32 20 64 6f 0a 20 20 20 20 20 ┆or j:=k step 1 until J2 do ┆
0x3e060…3e080 20 20 20 20 20 20 20 63 6f 6c 28 69 2c 6a 29 3a 3d 20 61 6e 28 69 2d 6b 30 2c 6a 2d 4b 32 29 2a ┆ col(i,j):= an(i-k0,j-K2)*┆
0x3e080…3e0a0 28 69 66 20 69 3d 6a 20 74 68 65 6e 20 31 20 65 6c 73 65 20 32 29 3b 0a 20 20 20 20 20 20 20 20 ┆(if i=j then 1 else 2); ┆
0x3e0a0…3e0c0 20 20 20 20 4a 32 3a 3d 20 6e 66 28 4b 32 29 2d 31 0a 20 20 20 20 20 20 65 6e 64 20 4b 32 20 65 ┆ J2:= nf(K2)-1 end K2 e┆
0x3e0c0…3e0e0 6e 64 20 69 3b 0a 20 20 20 20 20 20 69 3a 3d 20 6e 66 28 6b 30 29 3b 20 66 6f 72 20 6a 3a 3d 69 ┆nd i; i:= nf(k0); for j:=i┆
0x3e0e0…3e100 20 73 74 65 70 20 2d 31 20 75 6e 74 69 6c 20 31 20 64 6f 20 63 6f 6c 28 6a 2c 69 29 3a 3d 20 30 ┆ step -1 until 1 do col(j,i):= 0┆
0x3e100…3e120 3b 0a 20 20 20 20 20 20 69 66 20 69 3c 3e 30 20 74 68 65 6e 20 62 65 67 69 6e 20 63 69 66 28 69 ┆; if i<>0 then begin cif(i┆
0x3e120…3e140 29 3a 3d 20 30 3b 0a 20 20 20 20 20 20 66 6f 72 20 6a 3a 3d 69 2b 31 20 73 74 65 70 20 31 20 75 ┆):= 0; for j:=i+1 step 1 u┆
0x3e140…3e160 6e 74 69 6c 20 51 20 64 6f 20 63 6f 6c 28 69 2c 6a 29 3a 3d 20 30 0a 20 20 20 20 20 20 65 6e 64 ┆ntil Q do col(i,j):= 0 end┆
0x3e160…3e180 3b 20 20 6a 30 3a 3d 20 69 2d 31 0a 65 6e 64 20 6b 30 20 65 6e 64 3b 0a 79 3a 3d 20 73 79 73 74 ┆; j0:= i-1 end k0 end; y:= syst┆
0x3e180…3e1a0 69 6d 65 28 31 2c 73 74 61 72 74 74 69 6d 65 2c 70 29 3b 20 71 64 3a 3d 20 70 2d 74 69 6d 65 3b ┆ime(1,starttime,p); qd:= p-time;┆
0x3e1a0…3e1c0 20 74 69 6d 65 3a 3d 20 70 3b 0a 69 74 65 72 65 72 3a 3d 20 28 68 62 20 6f 72 20 73 6f 3e 73 2b ┆ time:= p; iterer:= (hb or so>s+┆
0x3e1c0…3e1e0 73 29 20 61 6e 64 20 70 2b 71 64 3c 73 74 6f 70 74 69 6d 65 3b 0a 69 66 20 2d 2c 69 74 65 72 65 ┆s) and p+qd<stoptime; if -,itere┆
0x3e1e0…3e200 72 20 61 6e 64 20 4e 31 3d 6c 20 74 68 65 6e 20 73 3a 3d 20 31 3b 20 20 73 6f 3a 3d 20 73 3b 0a ┆r and N1=l then s:= 1; so:= s; ┆
0x3e200…3e220 77 72 69 74 65 28 72 65 73 2c 3c 3a 3c 31 30 3e 72 6d 73 20 64 65 76 69 61 74 69 6f 6e 3a 20 3a ┆write(res,<:<10>rms deviation: :┆
0x3e220…3e240 3e 2c 3c 3c 64 64 2e 64 64 64 64 3e 2c 73 71 72 74 28 73 29 2c 0a 20 20 20 20 20 20 3c 3a 20 20 ┆>,<<dd.dddd>,sqrt(s), <: ┆
0x3e240…3e260 20 74 69 6d 65 2c 20 63 70 75 3a 20 3a 3e 2c 28 79 2d 63 70 75 29 2f 36 30 2c 3c 3a 20 2c 20 72 ┆ time, cpu: :>,(y-cpu)/60,<: , r┆
0x3e260…3e280 65 61 6c 3a 20 3a 3e 2c 70 2f 36 30 29 3b 0a 69 66 20 2d 2c 68 61 20 74 68 65 6e 20 77 72 69 74 ┆eal: :>,p/60); if -,ha then writ┆
0x3e280…3e2a0 65 28 72 65 73 2c 3c 3a 0a 47 72 61 6d 64 65 74 2e 3a 20 3a 3e 2c 3c 3c 64 2e 64 27 2d 64 64 3e ┆e(res,<: Gramdet.: :>,<<d.d'-dd>┆
0x3e2a0…3e2c0 2c 5a 29 3b 0a 69 66 20 63 6c 6f 73 65 72 65 73 20 74 68 65 6e 20 62 65 67 69 6e 0a 20 20 20 77 ┆,Z); if closeres then begin w┆
0x3e2c0…3e2e0 72 69 74 65 28 6f 75 74 2c 3c 3a 72 6d 73 3a 3a 3e 2c 3c 3c 5f 5f 64 64 2e 64 64 64 64 3e 2c 73 ┆rite(out,<:rms::>,<<__dd.dddd>,s┆
0x3e2e0…3e300 71 72 74 28 73 29 2c 3c 3a 20 20 74 69 64 3a 3a 3e 2c 0a 20 20 20 74 69 6d 65 2f 36 30 2c 3c 3a ┆qrt(s),<: tid::>, time/60,<:┆
0x3e300…3e320 3c 31 30 3e 3a 3e 29 3b 20 66 6f 72 63 65 6f 75 74 28 6f 75 74 29 0a 65 6e 64 3b 0a 77 72 69 74 ┆<10>:>); forceout(out) end; writ┆
0x3e320…3e340 65 70 61 67 65 20 65 6e 64 3b 0a 67 6f 74 6f 20 69 67 65 6e 3b 0a 0a 73 74 6f 70 3a 0a 69 66 20 ┆epage end; goto igen; stop: if ┆
0x3e340…3e360 2d 2c 73 6c 75 74 20 74 68 65 6e 20 67 6f 74 6f 20 64 61 74 61 69 6e 64 20 65 6e 64 3b 0a 77 72 ┆-,slut then goto dataind end; wr┆
0x3e360…3e380 69 74 65 28 72 65 73 2c 3c 3a 3c 31 30 3e 3c 31 32 3e 3c 32 35 3e 3a 3e 29 3b 20 63 6c 6f 73 65 ┆ite(res,<:<10><12><25>:>); close┆
0x3e380…3e3a0 28 72 65 73 2c 63 6c 6f 73 65 72 65 73 29 20 65 6e 64 0a 19 29 2c 79 2c 6c 6f 28 69 29 29 2c 79 ┆(res,closeres) end ),y,lo(i)),y┆
0x3e3a0…3e3c0 29 20 65 6e 64 3b 0a 20 20 20 6a 3a 3d 20 6a 2b 35 3b 0a 20 20 20 69 66 20 68 61 20 74 68 65 6e ┆) end; j:= j+5; if ha then┆
0x3e3c0…3e3e0 20 62 65 67 69 6e 20 20 77 72 69 74 65 28 72 65 73 2c 3c 3a 0a 2b 2d 3a 3e 29 3b 20 20 20 66 6f ┆ begin write(res,<: +-:>); fo┆
0x3e3e0…3e400 72 20 69 3a 3d 34 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 51 31 20 64 6f 20 62 65 67 69 6e 20 ┆r i:=4 step 1 until Q1 do begin ┆
0x3e400…3e420 (83,) 3b 67 6f 73 61 76 0a 6c 6f 6f 6b 75 70 20 72 6f 74 66 72 65 6b 76 65 6e 73 0a 69 66 20 6f 6b 2e ┆;gosav lookup rotfrekvens if ok.┆
0x3e420…3e440 6e 6f 0a 28 72 6f 74 66 72 65 6b 76 65 6e 73 3d 73 65 74 20 38 35 0a 70 65 72 6d 61 6e 65 6e 74 ┆no (rotfrekvens=set 85 permanent┆
0x3e440…3e460 20 72 6f 74 66 72 65 6b 76 65 6e 73 2e 31 37 0a 72 6f 74 66 72 65 6b 76 65 6e 73 3d 61 6c 67 6f ┆ rotfrekvens.17 rotfrekvens=algo┆
0x3e460…3e480 6c 20 69 6e 64 65 78 2e 6e 6f 20 6c 69 73 74 2e 6e 6f 20 78 72 65 66 2e 6e 6f 29 0a 0c 0a 0a 43 ┆l index.no list.no xref.no) C┆
0x3e480…3e4a0 41 4c 43 55 4c 41 54 49 4f 4e 20 4f 46 20 4d 49 43 52 4f 57 41 56 45 20 46 52 45 51 55 45 4e 43 ┆ALCULATION OF MICROWAVE FREQUENC┆
0x3e4a0…3e4c0 49 45 53 2c 0a 52 45 4c 41 54 49 56 45 20 49 4e 54 45 4e 53 49 54 49 45 53 20 28 6f 72 20 53 54 ┆IES, RELATIVE INTENSITIES (or ST┆
0x3e4c0…3e4e0 41 52 4b 2d 43 4f 45 46 46 49 43 49 45 4e 54 53 29 0a 41 4e 44 20 51 55 41 44 52 55 50 4f 4c 45 ┆ARK-COEFFICIENTS) AND QUADRUPOLE┆
0x3e4e0…3e500 20 53 50 4c 49 54 54 49 4e 47 53 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ SPLITTINGS. ┆
0x3e500…3e520 20 20 20 20 31 2d 32 2d 31 39 38 30 2c 20 47 4f 53 2e 0a 0a 62 65 67 69 6e 0a 63 6f 6d 6d 65 6e ┆ 1-2-1980, GOS. begin commen┆
0x3e520…3e540 74 20 51 75 61 64 72 75 70 6f 6c 65 20 73 70 6c 69 74 74 69 6e 67 73 20 63 61 6e 20 62 65 20 63 ┆t Quadrupole splittings can be c┆
0x3e540…3e560 61 6c 63 75 6c 61 74 65 64 20 6f 6e 6c 79 20 66 6f 72 20 61 0a 20 20 20 20 73 69 6e 67 6c 65 20 ┆alculated only for a single ┆
0x3e560…3e580 6e 75 63 6c 65 75 73 20 77 69 74 68 20 49 3d 31 2e 20 20 41 73 20 69 6e 70 75 74 20 69 73 20 67 ┆nucleus with I=1. As input is g┆
0x3e580…3e5a0 69 76 65 6e 3a 0a 20 20 20 20 31 29 20 20 41 20 68 65 61 64 69 6e 67 20 69 6e 20 6f 6e 65 20 6c ┆iven: 1) A heading in one l┆
0x3e5a0…3e5c0 69 6e 65 20 77 69 74 68 20 64 65 6c 69 6d 69 74 65 72 73 20 3c 20 3e 2e 0a 20 20 20 20 20 20 20 ┆ine with delimiters < >. ┆
0x3e5c0…3e5e0 20 20 20 20 20 20 54 68 65 20 6c 69 6e 65 20 77 69 6c 6c 20 61 70 70 65 61 72 20 6f 6e 20 74 6f ┆ The line will appear on to┆
0x3e5e0…3e600 70 20 6f 66 20 65 76 65 72 79 20 6f 75 74 70 75 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 70 ┆p of every output p┆
0x3e600…3e620 61 67 65 20 61 6e 64 20 6d 75 73 74 20 6e 6f 74 20 65 78 63 65 65 64 20 37 32 20 63 68 61 72 61 ┆age and must not exceed 72 chara┆
0x3e620…3e640 63 74 65 72 73 2e 0a 20 20 20 20 32 29 20 20 41 6e 20 69 6e 74 65 67 65 72 20 6d 20 77 69 74 68 ┆cters. 2) An integer m with┆
0x3e640…3e660 20 75 70 20 74 6f 20 66 6f 75 72 20 64 69 67 69 74 73 20 66 6f 72 20 6f 70 74 69 6f 6e 73 0a 20 ┆ up to four digits for options ┆
0x3e660…3e680 20 20 20 20 20 20 20 20 20 20 20 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 74 68 65 20 66 6f 6c ┆ according to the fol┆
0x3e680…3e6a0 6c 6f 77 69 6e 67 20 72 75 6c 65 73 3a 0a 20 20 20 20 20 20 20 20 6d 3d 31 30 30 30 20 63 61 75 ┆lowing rules: m=1000 cau┆
0x3e6a0…3e6c0 73 65 73 20 61 20 63 65 6e 74 72 69 66 75 67 61 6c 20 64 69 73 74 6f 72 74 69 6f 6e 20 63 6f 72 ┆ses a centrifugal distortion cor┆
0x3e6c0…3e6e0 72 65 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 66 20 74 68 65 20 66 72 65 71 ┆rection of the freq┆
0x3e6e0…3e700 75 65 6e 63 69 65 73 20 74 6f 20 62 65 20 6d 61 64 65 2e 0a 20 20 20 20 20 20 20 20 6d 3d 20 31 ┆uencies to be made. m= 1┆
0x3e700…3e720 30 30 20 72 65 73 75 6c 74 73 20 69 6e 20 61 20 63 61 6c 63 75 6c 61 74 69 6f 6e 20 6f 66 20 53 ┆00 results in a calculation of S┆
0x3e720…3e740 74 61 72 6b 20 63 6f 65 66 66 69 63 69 65 6e 74 73 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆tark coefficients. ┆
0x3e740…3e760 49 73 20 6d 3c 3e 31 30 30 20 72 65 6c 61 74 69 76 65 20 69 6e 74 65 6e 73 69 74 69 65 73 20 61 ┆Is m<>100 relative intensities a┆
0x3e760…3e780 72 65 20 63 61 6c 63 75 6c 61 74 65 64 2e 0a 20 20 20 20 20 20 20 20 6d 3d 20 20 31 30 20 63 61 ┆re calculated. m= 10 ca┆
0x3e780…3e7a0 75 73 65 73 20 2d 20 70 72 6f 76 69 64 65 64 20 6d 3c 3e 31 30 30 20 2d 20 74 68 61 74 20 71 75 ┆uses - provided m<>100 - that qu┆
0x3e7a0…3e7c0 61 64 72 75 70 6f 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 73 70 6c 69 74 74 69 6e 67 73 ┆adrupole splittings┆
0x3e7c0…3e7e0 20 61 72 65 20 63 61 6c 63 75 6c 61 74 65 64 2e 0a 20 20 20 20 20 20 20 20 6d 3d 20 20 20 31 20 ┆ are calculated. m= 1 ┆
0x3e7e0…3e800 6f 72 20 32 20 63 61 75 73 65 73 20 61 74 20 74 68 65 20 65 6e 64 20 61 20 73 6f 72 74 69 6e 67 ┆or 2 causes at the end a sorting┆
0x3e800…3e820 20 6f 66 20 74 68 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 65 73 20 61 63 63 6f 72 ┆ of the lines accor┆
0x3e820…3e840 64 69 6e 67 20 74 6f 20 69 6e 63 72 65 61 73 69 6e 67 20 66 72 65 71 75 65 6e 63 79 2e 0a 20 20 ┆ding to increasing frequency. ┆
0x3e840…3e860 20 20 20 20 20 20 20 20 20 20 20 49 66 20 6d 3d 32 20 74 68 65 20 73 6f 72 74 65 64 20 66 72 65 ┆ If m=2 the sorted fre┆
0x3e860…3e880 71 75 65 6e 63 79 20 6c 69 73 74 20 69 73 20 74 72 61 6e 73 66 6f 72 6d 65 64 0a 20 20 20 20 20 ┆quency list is transformed ┆
0x3e880…3e8a0 20 20 20 20 20 20 20 20 69 6e 74 6f 20 61 6e 20 69 6e 70 75 74 20 6c 69 73 74 20 66 6f 72 20 70 ┆ into an input list for p┆
0x3e8a0…3e8c0 72 65 63 61 6c 63 75 6c 74 69 6f 6e 20 62 79 20 52 4f 54 46 49 54 2e 0a 20 20 20 20 20 20 20 20 ┆recalcultion by ROTFIT. ┆
0x3e8c0…3e8e0 20 20 20 20 20 54 68 65 20 6c 69 73 74 20 69 73 20 73 74 6f 72 65 64 20 6f 6e 20 64 69 73 63 20 ┆ The list is stored on disc ┆
0x3e8e0…3e900 28 6b 65 79 20 31 35 29 20 77 69 74 68 20 74 68 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 6e ┆(key 15) with the n┆
0x3e900…3e920 61 6d 65 20 3c 3a 73 61 76 65 6c 69 73 74 3a 3e 2e 0a 20 20 20 20 20 20 20 20 6d 3d 20 20 20 33 ┆ame <:savelist:>. m= 3┆
0x3e920…3e940 20 6f 72 20 34 20 68 61 76 65 20 74 68 65 20 73 61 6d 65 20 65 66 66 65 63 74 73 20 61 73 20 31 ┆ or 4 have the same effects as 1┆
0x3e940…3e960 20 6f 72 20 32 2c 20 62 75 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 75 74 70 75 74 20 6f ┆ or 2, but output o┆
0x3e960…3e980 66 20 75 6e 73 6f 72 74 65 64 20 74 72 61 6e 73 69 74 69 6f 6e 73 20 69 73 20 73 75 70 70 72 65 ┆f unsorted transitions is suppre┆
0x3e980…3e9a0 73 73 65 64 2e 0a 20 20 20 20 20 20 20 20 41 20 63 6f 6d 62 69 6e 61 74 69 6f 6e 20 6f 66 20 74 ┆ssed. A combination of t┆
0x3e9a0…3e9c0 68 65 73 65 20 6f 70 74 69 6f 6e 73 20 6d 61 79 20 62 65 20 6f 62 74 61 69 6e 65 64 0a 20 20 20 ┆hese options may be obtained ┆
0x3e9c0…3e9e0 20 20 20 20 20 62 79 20 61 6e 20 61 70 70 72 6f 70 72 69 61 74 65 20 73 75 6d 20 6f 66 20 74 68 ┆ by an appropriate sum of th┆
0x3e9e0…3ea00 65 20 69 6e 74 65 67 65 72 73 2e 0a 20 20 20 20 33 29 20 20 54 68 65 20 6d 61 78 69 6d 61 6c 20 ┆e integers. 3) The maximal ┆
0x3ea00…3ea20 63 6f 6d 70 75 74 61 74 69 6f 6e 20 74 69 6d 65 20 69 6e 20 6d 69 6e 75 74 65 73 2e 0a 20 20 20 ┆computation time in minutes. ┆
0x3ea20…3ea40 20 20 20 20 20 49 66 20 74 69 6d 65 3c 30 20 74 68 65 6e 20 74 68 65 20 74 65 6d 70 65 72 61 74 ┆ If time<0 then the temperat┆
0x3ea40…3ea60 75 72 65 20 63 61 6e 20 62 65 20 73 70 65 63 69 66 69 65 64 2e 0a 20 20 20 20 34 29 20 20 54 68 ┆ure can be specified. 4) Th┆
0x3ea60…3ea80 72 65 65 20 72 6f 74 61 74 69 6f 6e 61 6c 20 63 6f 6e 73 74 61 6e 74 73 20 28 4d 48 7a 2e 29 20 ┆ree rotational constants (MHz.) ┆
0x3ea80…3eaa0 69 6e 20 61 72 62 69 74 72 61 72 79 20 6f 72 64 65 72 2e 0a 20 20 20 20 35 29 20 20 49 66 20 6d ┆in arbitrary order. 5) If m┆
0x3eaa0…3eac0 3d 31 30 30 30 20 3a 20 53 69 78 20 63 65 6e 74 72 69 66 75 67 61 6c 20 64 69 73 74 6f 72 74 69 ┆=1000 : Six centrifugal distorti┆
0x3eac0…3eae0 6f 6e 20 63 6f 6e 73 74 61 6e 74 73 20 28 6b 48 7a 29 2e 0a 20 20 20 20 36 29 20 20 53 6d 61 6c ┆on constants (kHz). 6) Smal┆
0x3eae0…3eb00 6c 65 73 74 20 4a 2d 76 61 6c 75 65 20 66 6f 72 20 74 68 65 20 63 61 6c 63 75 6c 61 74 69 6f 6e ┆lest J-value for the calculation┆
0x3eb00…3eb20 73 2e 0a 20 20 20 20 37 29 20 20 4c 61 72 67 65 73 74 20 4a 2d 76 61 6c 75 65 20 66 6f 72 20 63 ┆s. 7) Largest J-value for c┆
0x3eb20…3eb40 61 6c 63 75 6c 61 74 69 6f 6e 20 6f 66 20 51 2d 6c 69 6e 65 73 20 28 3c 20 38 30 29 2e 0a 20 20 ┆alculation of Q-lines (< 80). ┆
0x3eb40…3eb60 20 20 38 29 20 20 4c 61 72 67 65 73 74 20 4a 2d 76 61 6c 75 65 20 66 6f 72 20 63 61 6c 63 75 6c ┆ 8) Largest J-value for calcul┆
0x3eb60…3eb80 61 74 69 6f 6e 20 6f 66 20 50 2d 20 6f 72 20 52 2d 6c 69 6e 65 73 2e 0a 20 20 20 20 39 29 20 20 ┆ation of P- or R-lines. 9) ┆
0x3eb80…3eba0 54 68 65 20 66 72 65 71 75 65 6e 63 79 20 6c 69 6d 69 74 73 2c 20 74 77 6f 20 6e 75 6d 62 65 72 ┆The frequency limits, two number┆
0x3eba0…3ebc0 73 20 69 6e 20 61 72 62 69 74 72 61 72 79 20 6f 72 64 65 72 2e 0a 20 20 20 31 30 29 20 20 54 68 ┆s in arbitrary order. 10) Th┆
0x3ebc0…3ebe0 65 20 73 6d 61 6c 6c 65 73 74 20 72 65 6c 2e 20 69 6e 74 65 6e 73 69 74 79 20 28 6f 72 20 53 74 ┆e smallest rel. intensity (or St┆
0x3ebe0…3ec00 61 72 6b 20 63 6f 65 66 2e 2a 4a 2a 2a 32 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 66 20 ┆ark coef.*J**2) of ┆
0x3ec00…3ec20 6c 69 6e 65 73 20 69 6e 63 6c 75 64 65 64 20 69 6e 20 74 68 65 20 6f 75 74 70 75 74 2e 0a 20 20 ┆lines included in the output. ┆
0x3ec20…3ec40 20 31 31 29 20 20 41 6e 20 69 6e 74 65 67 65 72 20 62 65 74 77 65 65 6e 20 31 20 61 6e 64 20 4a ┆ 11) An integer between 1 and J┆
0x3ec40…3ec60 6d 61 78 20 67 69 76 69 6e 67 20 74 68 65 20 6d 61 78 69 6d 61 6c 0a 20 20 20 20 20 20 20 20 20 ┆max giving the maximal ┆
0x3ec60…3ec80 20 20 20 20 63 68 61 6e 67 65 2c 20 64 4b 6d 61 78 2c 20 6f 66 20 4b 2d 71 75 61 6e 74 75 6d 20 ┆ change, dKmax, of K-quantum ┆
0x3ec80…3eca0 6e 75 6d 62 65 72 73 20 72 65 66 65 72 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 74 ┆numbers referring t┆
0x3eca0…3ecc0 6f 20 74 68 65 20 6e 65 61 72 65 73 74 20 73 79 6d 6d 65 74 72 69 63 20 74 6f 70 20 6c 69 6d 69 ┆o the nearest symmetric top limi┆
0x3ecc0…3ece0 74 2e 0a 20 20 20 31 32 29 20 20 54 68 65 20 74 68 72 65 65 20 64 69 70 6f 6c 65 20 6d 6f 6d 65 ┆t. 12) The three dipole mome┆
0x3ece0…3ed00 6e 74 20 63 6f 6d 70 6f 6e 65 6e 74 73 20 61 6c 6f 6e 67 20 74 68 65 20 70 72 69 6e 2d 0a 20 20 ┆nt components along the prin- ┆
0x3ed00…3ed20 20 20 20 20 20 20 20 20 20 20 20 63 69 70 61 6c 20 61 78 65 73 20 69 6e 20 74 68 65 20 6f 72 64 ┆ cipal axes in the ord┆
0x3ed20…3ed40 65 72 20 61 2c 62 2c 63 2e 0a 20 20 20 31 33 29 20 20 49 66 20 6d 3d 31 30 20 3a 20 51 75 61 64 ┆er a,b,c. 13) If m=10 : Quad┆
0x3ed40…3ed60 72 75 70 6f 6c 65 20 63 6f 75 70 6c 69 6e 67 20 63 6f 6e 73 74 61 6e 74 73 20 6f 66 20 74 68 65 ┆rupole coupling constants of the┆
0x3ed60…3ed80 20 61 78 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 20 74 68 65 20 6f 72 64 65 72 20 ┆ axes in the order ┆
0x3ed80…3eda0 61 61 2c 20 62 62 2c 20 63 63 20 28 4d 48 7a 29 2e 0a 20 20 20 31 34 29 20 20 49 66 20 6d 3c 3e ┆aa, bb, cc (MHz). 14) If m<>┆
0x3eda0…3edc0 31 30 30 20 3a 20 57 69 74 68 20 6f 6e 6c 79 20 61 20 73 69 6e 67 6c 65 20 6e 6f 6e 76 61 6e 69 ┆100 : With only a single nonvani┆
0x3edc0…3ede0 73 68 69 6e 67 20 64 69 70 6f 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 6d 65 6e 74 ┆shing dipole moment┆
0x3ede0…3ee00 20 63 6f 6d 70 6f 6e 65 6e 74 20 74 68 65 20 6d 6f 6c 65 63 75 6c 65 20 69 73 20 72 65 67 61 72 ┆ component the molecule is regar┆
0x3ee00…3ee20 64 65 64 20 74 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 70 6f 73 73 65 73 73 20 61 20 73 79 ┆ded to possess a sy┆
0x3ee20…3ee40 6d 6d 65 74 72 79 20 61 78 69 73 2e 20 54 77 6f 20 6e 75 6d 62 65 72 73 20 61 72 65 20 74 68 65 ┆mmetry axis. Two numbers are the┆
0x3ee40…3ee60 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 71 69 72 65 64 20 66 6f 72 20 74 68 65 20 73 ┆n reqired for the s┆
0x3ee60…3ee80 74 61 74 69 73 74 69 63 61 6c 20 77 65 69 67 68 74 73 20 6f 66 20 73 79 6d 6d 65 74 72 69 63 0a ┆tatistical weights of symmetric ┆
0x3ee80…3eea0 20 20 20 20 20 20 20 20 20 20 20 20 20 61 6e 64 20 61 6e 74 69 73 79 6d 6d 65 74 72 69 63 20 6c ┆ and antisymmetric l┆
0x3eea0…3eec0 65 76 65 6c 73 20 72 65 73 70 65 63 74 69 76 65 6c 79 3b 0a 0a 69 6e 74 65 67 65 72 20 69 2c 6a ┆evels respectively; integer i,j┆
0x3eec0…3eee0 2c 6b 2c 6c 2c 6d 2c 6e 2c 70 2c 71 2c 4a 2c 4a 6d 69 6e 2c 73 70 61 63 65 2c 73 69 64 65 2c 6f ┆,k,l,m,n,p,q,J,Jmin,space,side,o┆
0x3eee0…3ef00 76 65 72 67 61 6e 67 65 3b 0a 72 65 61 6c 20 74 65 6d 70 2c 20 73 74 61 72 74 74 69 6d 65 2c 20 ┆vergange; real temp, starttime, ┆
0x3ef00…3ef20 73 74 6f 70 74 69 6d 65 2c 20 74 69 6d 65 2c 20 63 70 75 2c 20 51 72 2c 20 51 72 6a 2c 20 51 72 ┆stoptime, time, cpu, Qr, Qrj, Qr┆
0x3ef20…3ef40 61 3b 0a 7a 6f 6e 65 20 4c 28 31 32 38 2a 32 2c 20 32 2c 20 73 74 64 65 72 72 6f 72 29 2c 20 72 ┆a; zone L(128*2, 2, stderror), r┆
0x3ef40…3ef60 65 73 28 31 32 38 2c 31 2c 73 74 64 65 72 72 6f 72 29 3b 0a 69 6e 74 65 67 65 72 20 61 72 72 61 ┆es(128,1,stderror); integer arra┆
0x3ef60…3ef80 79 20 4c 74 61 69 6c 2c 20 57 74 61 69 6c 28 31 3a 31 30 29 3b 0a 62 6f 6f 6c 65 61 6e 20 68 61 ┆y Ltail, Wtail(1:10); boolean ha┆
0x3ef80…3efa0 2c 68 62 2c 63 65 6e 74 72 69 66 75 67 61 6c 2c 71 75 61 64 72 75 70 6f 6c 2c 69 6e 74 65 6e 73 ┆,hb,centrifugal,quadrupol,intens┆
0x3efa0…3efc0 69 74 65 74 2c 73 6f 72 74 65 72 2c 0a 20 20 20 20 20 20 20 20 73 61 76 65 73 6f 72 74 2c 6f 75 ┆itet,sorter, savesort,ou┆
0x3efc0…3efe0 74 70 75 74 2c 63 6c 6f 73 65 72 65 73 2c 6e 6c 3b 0a 61 72 72 61 79 20 68 6f 76 65 64 28 31 3a ┆tput,closeres,nl; array hoved(1:┆
0x3efe0…3f000 31 32 29 3b 0a 70 72 6f 63 65 64 75 72 65 20 6e 79 6c 69 6e 69 65 3b 0a 62 65 67 69 6e 0a 6c 3a ┆12); procedure nylinie; begin l:┆