home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 223.dms / in.adf / Source / srchtabs.c < prev    next >
Encoding:
C/C++ Source or Header  |  1988-07-26  |  23.6 KB  |  880 lines
  1. /*=========================================================================
  2.   SrchTabs.c -- This module contains initialized structures that are used
  3.   as indexes to the startable (see star5.c for the search algorithms).
  4.  
  5.   Copyright (c) 1986 by Ray R. Larson
  6.   
  7.   This program may be freely distributed and copied, but may not be sold
  8.   without the permission of the author. If you modify or enhance it, 
  9.   please include the above credits (and please send me a copy!).
  10.  
  11. Ray R. Larson
  12. 6425 Central Ave. #304
  13. El Cerrito, CA 94530
  14.  
  15. BitNet  LARSON@UCBCMSA
  16. =========================================================================*/
  17. /*------------Header file for all of the standard stuff----*/ 
  18. /*-------------plus definitions of global structures-------*/
  19. #include "star.h"
  20.  
  21. extern struct star_rec StarTable[];
  22.  
  23. SHORT StarIndex[MAXSTARS] = {
  24. /* ACAMAR        */  52,
  25. /* ACHERNAR        */  30,
  26. /* ACHIRD        */  17,
  27. /* ACRUX        */  285,
  28. /* ACUBENS        */  209,
  29. /* ADHARA        */  161,
  30. /* AIN        */  88,
  31. /* AKRAB        */  390,
  32. /* AL BALI        */  543,
  33. /* AL DHANAB      */  582,
  34. /* AL GEIBA        */  235,
  35. /* AL GIEDI        */  529,
  36. /* AL NAIR        */  570,
  37. /* AL NIYAT        */  399,
  38. /* AL RAKIS        */  424,
  39. /* AL RISCHA    */  38,
  40. /* ALADFAR        */  507,
  41. /* ALBALDAH        */  506,
  42. /* ALBIREO        */  515,
  43. /* ALCHIBA        */  270,
  44. /* ALCOR        */  322,
  45. /* ALCYONE        */  74,
  46. /* ALDEBARAN    */  89,
  47. /* ALDERAMIN    */  552,
  48. /* ALDHAFERA    */  233,
  49. /* ALDHIBAIN    */  403,
  50. /* ALDIB        */  508,
  51. /* ALDIBAH        */  427,
  52. /* ALFIRK        */  554,
  53. /* ALGENIB        */  3,
  54. /* ALGOL        */  56,
  55. /* ALGORAB        */  287,
  56. /* ALHENA        */  149,
  57. /* ALIFA        */  384,
  58. /* ALIOTH        */  306,
  59. /* ALKAFZAH        */  263,
  60. /* ALKAID        */  331,
  61. /* ALKALUROPS   */  370,
  62. /* ALMACH        */  39,
  63. /* ALNILAM        */  123,
  64. /* ALNITAK        */  127,
  65. /* ALPHA CAM    */  92,
  66. /* ALPHA TUC    */  575,
  67. /* ALPHARD        */  219,
  68. /* ALPHECCA        */  374,
  69. /* ALPHERATZ    */  1,
  70. /* ALSCHAIN        */  524,
  71. /* ALSCIAUKAT   */  215,
  72. /* ALSUHAIL        */  211,
  73. /* ALTAIR        */  522,
  74. /* ALTERF        */  220,
  75. /* ALTHALIMAIN  */  503,
  76. /* ALUDRA        */  173,
  77. /* ALULA AUSTRALIS */  254,
  78. /* ALULA BOREALIS  */  255,
  79. /* ALYA        */  497,
  80. /* ALZIRR        */  154,
  81. /* ANCHA        */  574,
  82. /* ANGETENAR    */  59,
  83. /* ANKAA        */  6,
  84. /* ANTARES        */  404,
  85. /* ARCTURUS        */  342,
  86. /* ARKAB        */  511,
  87. /* ARKAP        */  473,
  88. /* ARNEB        */  114,
  89. /* ASCELLA        */  501,
  90. /* ASELLUS        */  344,
  91. /* ASELLUS AUSTRALIS */  201,
  92. /* ASELLUS BOREALIS  */  200,
  93. /* ASMIDISKE    */  187,
  94. /* ATI        */  66,
  95. /* ATIK        */  76,
  96. /* ATLAS        */  75,
  97. /* AVIOR        */  197,
  98. /* AZELFAFAGE   */  565,
  99. /* AZHA        */  51,
  100. /* BATEN KAITOS */  34,
  101. /* BEID        */  84,
  102. /* BELLATRIX    */  107,
  103. /* BETA ARA        */  436,
  104. /* BETA CAM        */  95,
  105. /* BETA CNC        */  196,
  106. /* BETA DOR        */  122,
  107. /* BETA MON        */  147,
  108. /* BETA PAV        */  538,
  109. /* BETA PSA        */  580,
  110. /* BETA SER        */  382,
  111. /* BETELGEUSE   */  135,
  112. /* BIHAM        */  571,
  113. /* BOTEIN        */  58,
  114. /* CANOPUS        */  146,
  115. /* CAPELLA        */  104,
  116. /* CAPH        */  2,
  117. /* CASTOR        */  177,
  118. /* CHELEB        */  451,
  119. /* CHI 1 ORI    */  116,
  120. /* CHI CAR        */  189,
  121. /* CHI HYA        */  248,
  122. /* CHI LEO        */  247,
  123. /* CHOO        */  440,
  124. /* COMA CLUSTER */  280,
  125. /* COR CAROLI   */  308,
  126. /* COXA        */  251,
  127. /* CRUCIS        */  273,
  128. /* CUJAM        */  402,
  129. /* CURSA        */  101,
  130. /* DABIH        */  530,
  131. /* DELTA AND    */  8,
  132. /* DELTA AQL    */  514,
  133. /* DELTA BOO    */  361,
  134. /* DELTA CEN    */  269,
  135. /* DELTA CEP    */  578,
  136. /* DELTA LIB    */  356,
  137. /* DELTA LUP    */  365,
  138. /* DELTA LYR    */  495,
  139. /* DELTA PER    */  64,
  140. /* DELTA PSA    */  589,
  141. /* DELTA SCT    */  486,
  142. /* DELTA SER    */  375,
  143. /* DELTA TAU    */  86,
  144. /* DENEB        */  537,
  145. /* DENEB AL OKAB*/  502,
  146. /* DENEB AL SCHEMALI*/  4,
  147. /* DENEB ALGIEDI*/  566,
  148. /* DENEBOLA        */  264,
  149. /* DIADEM        */  312,
  150. /* DIPHDA        */  13,
  151. /* DSCHUBBA        */  388,
  152. /* DSIBAN        */  452,
  153. /* DUBHE        */  246,
  154. /* E GEM        */  159,
  155. /* ED ASICH        */  371,
  156. /* EL NASL        */  465,
  157. /* EL NATH        */  108,
  158. /* ELECTRA        */  69,
  159. /* ELTANIN        */  458,
  160. /* ENIF        */  561,
  161. /* EPSILON AQL  */  499,
  162. /* EPSILON CEN  */  327,
  163. /* EPSILON CEP  */  573,
  164. /* EPSILON CRV  */  271,
  165. /* EPSILON ERI  */  62,
  166. /* EPSILON HER  */  422,
  167. /* EPSILON HYA  */  203,
  168. /* EPSILON LEP  */  100,
  169. /* EPSILON LUP  */  366,
  170. /* EPSILON LYR  */  489,
  171. /* EPSILON PER  */  77,
  172. /* EPSILON UMI  */  416,
  173. /* ER RAI        */  598,
  174. /* ETA AQL        */  523,
  175. /* ETA CAR        */  240,
  176. /* ETA CEN        */  346,
  177. /* ETA CEP        */  541,
  178. /* ETA CET        */  21,
  179. /* ETA CRB        */  369,
  180. /* ETA CYG        */  525,
  181. /* ETA HER        */  411,
  182. /* ETA LEO        */  230,
  183. /* ETA LUP        */  386,
  184. /* ETA ORI        */  106,
  185. /* ETA PER        */  49,
  186. /* ETA PSC        */  26,
  187. /* ETA SCO        */  426,
  188. /* ETA SER        */  477,
  189. /* ETA UMI        */  397,
  190. /* FOMALHUAT    */  590,
  191. /* FURUD        */  142,
  192. /* GAMMA ARA    */  437,
  193. /* GAMMA CET    */  48,
  194. /* GAMMA CRB    */  379,
  195. /* GAMMA CRU    */  288,
  196. /* GAMMA DEL    */  539,
  197. /* GAMMA GRU    */  567,
  198. /* GAMMA HYA    */  316,
  199. /* GAMMA LEP    */  129,
  200. /* GAMMA LUP    */  373,
  201. /* GAMMA PER    */  54,
  202. /* GAMMA PSA    */  587,
  203. /* GEMINI 1        */  138,
  204. /* GIANSAR        */  260,
  205. /* GIENA        */  540,
  206. /* GIENAH        */  275,
  207. /* GIRTAB        */  450,
  208. /* GOMEISA        */  174,
  209. /* GRAFFIAS        */  417,
  210. /* HADAR        */  339,
  211. /* HAMAL        */  40,
  212. /* HAN        */  408,
  213. /* HASSALEH        */  93,
  214. /* HATSYA        */  121,
  215. /* HEKA        */  117,
  216. /* HEZE        */  325,
  217. /* HOEDUS        */  98,
  218. /* HOMAM        */  583,
  219. /* HYADUM        */  85,
  220. /* IC-1396        */  558,
  221. /* IC-342        */  68,
  222. /* IC-4681        */  468,
  223. /* IOTA CAS        */  44,
  224. /* IOTA CEN        */  317,
  225. /* IOTA CNC        */  204,
  226. /* IOTA LEO        */  258,
  227. /* IOTA LIB        */  360,
  228. /* IOTA PER        */  57,
  229. /* IOTA SCO        */  455,
  230. /* IOTA SER        */  378,
  231. /* IZAR        */  349,
  232. /* JABBAH        */  392,
  233. /* JUZA        */  472,
  234. /* KAPPA CEN    */  355,
  235. /* KAPPA GEM    */  184,
  236. /* KAPPA LEO    */  217,
  237. /* KAPPA OPH    */  420,
  238. /* KAPPA PEG    */  563,
  239. /* KAPPA UMA    */  210,
  240. /* KAUS AUSTRALIS*/  479,
  241. /* KAUS BOREALIS*/  481,
  242. /* KERB        */  50,
  243. /* KOCHAB        */  353,
  244. /* KOO SHE        */  202,
  245. /* KORNEPHORUS  */  406,
  246. /* KRAZ        */  291,
  247. /* KUMA        */  443,
  248. /* KURDAH        */  568,
  249. /* KW KOUAN        */  354,
  250. /* LAMBDA AND   */  597,
  251. /* LAMBDA CEN   */  261,
  252. /* LAMBDA GEM   */  168,
  253. /* LAMBDA PEG   */  585,
  254. /* LAMBDA TAU   */  80,
  255. /* LESUTH        */  439,
  256. /* M-1        */  115,
  257. /* M-10        */  419,
  258. /* M-100        */  279,
  259. /* M-101        */  337,
  260. /* M-103        */  27,
  261. /* M-104        */  297,
  262. /* M-11        */  492,
  263. /* M-12        */  412,
  264. /* M-13        */  410,
  265. /* M-14        */  447,
  266. /* M-15        */  553,
  267. /* M-16        */  474,
  268. /* M-17        */  478,
  269. /* M-18        */  475,
  270. /* M-19        */  423,
  271. /* M-2        */  557,
  272. /* M-20        */  460,
  273. /* M-21        */  464,
  274. /* M-22        */  484,
  275. /* M-23        */  457,
  276. /* M-26        */  490,
  277. /* M-27        */  526,
  278. /* M-28        */  480,
  279. /* M-3        */  328,
  280. /* M-30        */  560,
  281. /* M-31        */  11,
  282. /* M-32        */  12,
  283. /* M-34        */  45,
  284. /* M-35        */  140,
  285. /* M-36        */  118,
  286. /* M-37        */  134,
  287. /* M-38        */  110,
  288. /* M-39        */  556,
  289. /* M-4        */  400,
  290. /* M-41        */  156,
  291. /* M-42        */  120,
  292. /* M-44        */  199,
  293. /* M-45        */  73,
  294. /* M-46        */  183,
  295. /* M-47        */  179,
  296. /* M-48        */  195,
  297. /* M-49        */  286,
  298. /* M-5        */  364,
  299. /* M-50        */  162,
  300. /* M-51        */  324,
  301. /* M-52        */  596,
  302. /* M-53        */  313,
  303. /* M-54        */  494,
  304. /* M-55        */  517,
  305. /* M-56        */  509,
  306. /* M-57        */  493,
  307. /* M-58        */  295,
  308. /* M-59        */  300,
  309. /* M-6        */  448,
  310. /* M-60        */  301,
  311. /* M-61        */  278,
  312. /* M-62        */  421,
  313. /* M-63        */  315,
  314. /* M-64        */  309,
  315. /* M-65        */  256,
  316. /* M-66        */  257,
  317. /* M-67        */  205,
  318. /* M-68        */  296,
  319. /* M-69        */  482,
  320. /* M-7        */  456,
  321. /* M-70        */  487,
  322. /* M-72        */  544,
  323. /* M-73        */  546,
  324. /* M-74        */  29,
  325. /* M-75        */  527,
  326. /* M-76        */  31,
  327. /* M-77        */  47,
  328. /* M-78        */  130,
  329. /* M-79        */  105,
  330. /* M-8        */  462,
  331. /* M-80        */  395,
  332. /* M-81        */  228,
  333. /* M-82        */  229,
  334. /* M-83        */  326,
  335. /* M-84        */  283,
  336. /* M-85        */  281,
  337. /* M-86        */  284,
  338. /* M-87        */  289,
  339. /* M-88        */  290,
  340. /* M-89        */  292,
  341. /* M-9        */  432,
  342. /* M-90        */  294,
  343. /* M-92        */  431,
  344. /* M-93        */  185,
  345. /* M-94        */  304,
  346. /* M-95        */  238,
  347. /* M-96        */  242,
  348. /* M-97        */  253,
  349. /* M-98        */  272,
  350. /* M-99        */  277,
  351. /* MAAZ        */  96,
  352. /* MAIA        */  71,
  353. /* MARFAK        */  20,
  354. /* MARFIC        */  405,
  355. /* MARFIK        */  391,
  356. /* MARKAB        */  593,
  357. /* MARKEB        */  216,
  358. /* MASYM        */  445,
  359. /* MATAR        */  584,
  360. /* MEBSUTA        */  153,
  361. /* MEDIA        */  476,
  362. /* MEGREZ        */  274,
  363. /* MEKBUDA        */  164,
  364. /* MEN        */  348,
  365. /* MENKALINAN   */  136,
  366. /* MENKAR        */  53,
  367. /* MENKENT        */  340,
  368. /* MENKIB        */  78,
  369. /* MERAK        */  245,
  370. /* MEROPE        */  72,
  371. /* MESARTHIM    */  35,
  372. /* MIAPLACIDUS  */  213,
  373. /* MIMOSA        */  302,
  374. /* MINELAUVA       */  307,
  375. /* MINTAKA        */  113,
  376. /* MIRA        */  42,
  377. /* MIRACH        */  22,
  378. /* MIRFAK        */  60,
  379. /* MIZAR        */  319,
  380. /* MU CEN        */  332,
  381. /* MU CEP        */  564,
  382. /* MU COL        */  131,
  383. /* MU CYG        */  562,
  384. /* MU HER        */  454,
  385. /* MU LEP        */  102,
  386. /* MU LIB        */  350,
  387. /* MU PER        */  83,
  388. /* MU SCO        */  414,
  389. /* MU SGR        */  471,
  390. /* MU VELA        */  243,
  391. /* MUHLIFAIN       */  298,
  392. /* MULIPHEN        */  165,
  393. /* MUPHRID        */  335,
  394. /* MURZAM        */  144,
  395. /* MUSCIDA        */  198,
  396. /* NASHIRA        */  559,
  397. /* NAVI        */  19,
  398. /* NEBECULA MAJOR*/  112,
  399. /* NEKKAR        */  357,
  400. /* NEMBUS        */  67,
  401. /* NGC-104        */  5,
  402. /* NGC-1501        */  81,
  403. /* NGC-1502        */  82,
  404. /* NGC-1784        */  99,
  405. /* NGC-188        */  10,
  406. /* NGC-2070        */  128,
  407. /* NGC-2158        */  139,
  408. /* NGC-2237        */  148,
  409. /* NGC-2261        */  150,
  410. /* NGC-2264        */  152,
  411. /* NGC-2362        */  171,
  412. /* NGC-2392        */  175,
  413. /* NGC-2403        */  178,
  414. /* NGC-2419        */  180,
  415. /* NGC-2420        */  181,
  416. /* NGC-246        */  15,
  417. /* NGC-247        */  16,
  418. /* NGC-2477        */  188,
  419. /* NGC-2516        */  190,
  420. /* NGC-2683        */  206,
  421. /* NGC-2903        */  221,
  422. /* NGC-3242        */  237,
  423. /* NGC-3372        */  241,
  424. /* NGC-3532        */  249,
  425. /* NGC-3766        */  262,
  426. /* NGC-3918        */  265,
  427. /* NGC-4038        */  268,
  428. /* NGC-4258        */  276,
  429. /* NGC-4394        */  282,
  430. /* NGC-4565        */  293,
  431. /* NGC-4755        */  305,
  432. /* NGC-4945        */  311,
  433. /* NGC-5053        */  314,
  434. /* NGC-5102        */  318,
  435. /* NGC-5128        */  321,
  436. /* NGC-5139        */  323,
  437. /* NGC-5286        */  329,
  438. /* NGC-5316        */  334,
  439. /* NGC-5897        */  363,
  440. /* NGC-5921        */  367,
  441. /* NGC-615        */  28,
  442. /* NGC-6231        */  415,
  443. /* NGC-6530        */  463,
  444. /* NGC-6544        */  466,
  445. /* NGC-6553        */  469,
  446. /* NGC-6559        */  470,
  447. /* NGC-6642        */  483,
  448. /* NGC-6752        */  505,
  449. /* NGC-6791        */  513,
  450. /* NGC-6822        */  518,
  451. /* NGC-6939        */  533,
  452. /* NGC-6946        */  534,
  453. /* NGC-6992        */  545,
  454. /* NGC-7000        */  547,
  455. /* NGC-7009        */  548,
  456. /* NGC-7023        */  549,
  457. /* NGC-7293        */  579,
  458. /* NGC-7331        */  581,
  459. /* NGC-7635        */  595,
  460. /* NGC-869        */  41,
  461. /* NGC-884        */  43,
  462. /* NIHAL        */  111,
  463. /* NU CEN        */  333,
  464. /* NU HYA        */  244,
  465. /* NU OPH        */  459,
  466. /* NU PUP        */  151,
  467. /* NU SER        */  434,
  468. /* NUBECULA MINOR*/  18,
  469. /* NUNKI        */  496,
  470. /* NUSAKAN        */  372,
  471. /* OMEGA AND    */  25,
  472. /* OMEGA CAR    */  232,
  473. /* OMEGA CMA    */  167,
  474. /* OMEGA LEO    */  218,
  475. /* OMICRON AND  */  591,
  476. /* OMICRON CMA  */  163,
  477. /* OMICRON HER  */  467,
  478. /* OMICRON SER  */  449,
  479. /* PEACOCK        */  532,
  480. /* PHACT        */  126,
  481. /* PHECDA        */  267,
  482. /* PHERKAD        */  368,
  483. /* PHI SGR        */  488,
  484. /* PHI UMA        */  226,
  485. /* PI AND        */  7,
  486. /* PI CMA        */  160,
  487. /* PI HER        */  430,
  488. /* PI HYA        */  341,
  489. /* PI ORI        */  91,
  490. /* PI PUP        */  169,
  491. /* PI SCO        */  385,
  492. /* POLARIS        */  33,
  493. /* POLLUX        */  186,
  494. /* PORRIMA        */  299,
  495. /* PROCYON        */  182,
  496. /* PROPUS        */  145,
  497. /* PSI AQR        */  594,
  498. /* PSI SER        */  381,
  499. /* PSI UMA        */  250,
  500. /* R LEP        */  94,
  501. /* RANA        */  65,
  502. /* RAS ALGETHI  */  428,
  503. /* RAS ALHAGUE  */  444,
  504. /* RAS ELASED   */  224,
  505. /* RASALAS        */  227,
  506. /* RASTABAN        */  441,
  507. /* REGULUS        */  231,
  508. /* RHO HER        */  438,
  509. /* RHO OPH        */  401,
  510. /* RHO PER        */  55,
  511. /* RIGEL        */  103,
  512. /* RIGEL KENTAURUS*/  347,
  513. /* ROTANEV        */  535,
  514. /* RUCHBAH        */  24,
  515. /* RUKBAT        */  512,
  516. /* RUTILICUS    */  409,
  517. /* SABIK        */  425,
  518. /* SAD AL BARI  */  586,
  519. /* SADACHBIA    */  576,
  520. /* SADALMELIK   */  569,
  521. /* SADALSUND    */  555,
  522. /* SADATONI        */  97,
  523. /* SADOR        */  520,
  524. /* SADR        */  531,
  525. /* SAIPH        */  132,
  526. /* SARGAS        */  446,
  527. /* SARIN        */  429,
  528. /* SCHEAT        */  592,
  529. /* SCHEDAR        */  9,
  530. /* SEGIN        */  36,
  531. /* SEGINUS        */  345,
  532. /* SHAULA        */  442,
  533. /* SHELIAK        */  491,
  534. /* SHERATAN        */  37,
  535. /* SIGMA AQL    */  516,
  536. /* SIGMA CRB    */  394,
  537. /* SIGMA ORI    */  125,
  538. /* SIGMA PUP    */  176,
  539. /* SIGMA UMA    */  212,
  540. /* SIRIUS        */  155,
  541. /* SITULA        */  542,
  542. /* SKAT        */  588,
  543. /* SPICA        */  320,
  544. /* SUALOCIN        */  536,
  545. /* SUBRA        */  223,
  546. /* SUHAIL        */  193,
  547. /* SUHAIL HADAR */  191,
  548. /* SULAFAT        */  500,
  549. /* SYRMA        */  343,
  550. /* T CRB        */  387,
  551. /* TALITHA        */  208,
  552. /* TANIA AUSTRALIS*/  236,
  553. /* TANIA BOREALIS*/  234,
  554. /* TARAZED        */  519,
  555. /* TAU BOO        */  330,
  556. /* TAU CET        */  32,
  557. /* TAU CYG        */  551,
  558. /* TAU HER        */  398,
  559. /* TAU LEO        */  259,
  560. /* TAU OPH        */  461,
  561. /* TAU PUP        */  158,
  562. /* TAU SCO        */  407,
  563. /* TAU SGR        */  504,
  564. /* TAU TAU        */  90,
  565. /* TAYGATE        */  70,
  566. /* TEGMENI        */  194,
  567. /* TEJAT POSTERIOR*/  143,
  568. /* TEJAT PRIOR  */  141,
  569. /* THABIT        */  109,
  570. /* THEEMINI        */  63,
  571. /* THETA AQL    */  528,
  572. /* THETA AUR    */  137,
  573. /* THETA CAR    */  239,
  574. /* THETA GEM    */  157,
  575. /* THETA OPH    */  435,
  576. /* THETA ORI    */  119,
  577. /* THETA PER    */  46,
  578. /* THETA TAU    */  87,
  579. /* THETA UMA    */  222,
  580. /* THUBAN        */  338,
  581. /* TURAIS        */  192,
  582. /* TUREIS        */  214,
  583. /* TYL        */  521,
  584. /* UNUK AL HAI  */  380,
  585. /* UPSILON CAR  */  225,
  586. /* UPSILON LIB  */  377,
  587. /* UPSILON SGR  */  510,
  588. /* UW CMA        */  170,
  589. /* VEGA        */  485,
  590. /* VINDEMIATRIX */  310,
  591. /* WASAT        */  172,
  592. /* WEI        */  413,
  593. /* WESEN        */  166,
  594. /* WEZN        */  133,
  595. /* XI BOO        */  352,
  596. /* XI OPH        */  433,
  597. /* XI SCO        */  389,
  598. /* XI SGR        */  498,
  599. /* XI TAU        */  61,
  600. /* XI UMI        */  383,
  601. /* YED POSTERIOR*/  396,
  602. /* YED PRIOR    */  393,
  603. /* YILDUN        */  453,
  604. /* ZANIAH        */  303,
  605. /* ZAWIJAH        */  266,
  606. /* ZETA AND        */  14,
  607. /* ZETA AQR        */  577,
  608. /* ZETA ARA        */  418,
  609. /* ZETA CEN        */  336,
  610. /* ZETA CEP        */  572,
  611. /* ZETA CYG        */  550,
  612. /* ZETA HYA        */  207,
  613. /* ZETA LUP        */  359,
  614. /* ZETA PSC        */  23,
  615. /* ZETA TAU        */  124,
  616. /* ZOSMA        */  252,
  617. /* ZUARAK        */  79,
  618. /* ZUBEN ALGUBI */  358,
  619. /* ZUBEN EL AKRAB*/  376,
  620. /* ZUBEN EL GENUBI*/  351,
  621. /* ZUBEN ESCHAMALI*/  362,
  622.  
  623. };
  624.  
  625.  
  626. SHORT cons0[] =
  627. { /* n =     */ 0};
  628. SHORT cons1[] =
  629. { /* n =     */ 11, 1, 7, 8, 11, 12, 14, 22, 25, 39, 591, 597};
  630. SHORT cons2[] =
  631. { /* n =     */ 14, 542, 543, 544, 546, 548, 555, 557, 569, 574, 576, 577, 579, 
  632. 588, 594};
  633. SHORT cons3[] =
  634. { /* n =     */ 10, 499, 502, 503, 514, 516, 519, 522, 523, 524, 528};
  635. SHORT cons4[] =
  636. { /* n =     */ 4, 418, 436, 437, 440};
  637. SHORT cons5[] =
  638. { /* n =     */ 4, 35, 37, 40, 58};
  639. SHORT cons6[] =
  640. { /* n =     */ 10, 93, 96, 97, 98, 104, 110, 118, 134, 136, 137};
  641. SHORT cons7[] =
  642. { /* n =     */ 10, 330, 335, 342, 344, 345, 349, 352, 357, 361, 370};
  643. SHORT cons8[] =
  644. { /* n =     */ 7, 68, 81, 82, 92, 95, 178, 194};
  645. SHORT cons9[] =
  646. { /* n =     */ 7, 196, 199, 200, 201, 204, 205, 209};
  647. SHORT cons10[] =
  648. { /* n =     */ 6, 276, 304, 308, 315, 324, 328};
  649. SHORT cons11[] =
  650. { /* n =     */ 13, 142, 144, 155, 156, 160, 161, 163, 165, 166, 167, 170, 171, 
  651. 173};
  652. SHORT cons12[] =
  653. { /* n =     */ 2, 174, 182};
  654. SHORT cons13[] =
  655. { /* n =     */ 5, 529, 530, 559, 560, 566};
  656. SHORT cons14[] =
  657. { /* n =     */ 12, 146, 189, 190, 197, 213, 214, 225, 232, 239, 240, 241, 249};
  658. SHORT cons15[] =
  659. { /* n =     */ 11, 2, 9, 17, 19, 20, 24, 27, 36, 44, 595, 596};
  660. SHORT cons16[] =
  661. { /* n =     */ 21, 261, 262, 265, 269, 298, 311, 317, 318, 321, 323, 327, 329, 
  662. 332, 333, 334, 336, 339, 340, 346, 347, 355};
  663. SHORT cons17[] =
  664. { /* n =     */ 14, 10, 533, 534, 541, 549, 552, 554, 558, 564, 568, 572, 573, 
  665. 578, 598};
  666. SHORT cons18[] =
  667. { /* n =     */ 12, 4, 13, 15, 16, 21, 28, 32, 34, 42, 47, 48, 53};
  668. SHORT cons19[] =
  669. { /* n =     */ 3, 126, 131, 133};
  670. SHORT cons20[] =
  671. { /* n =     */ 12, 272, 277, 279, 280, 281, 282, 290, 293, 309, 312, 313, 314};
  672. SHORT cons21[] =
  673. { /* n =     */ 6, 369, 372, 374, 379, 387, 394};
  674. SHORT cons22[] =
  675. { /* n =     */ 6, 268, 270, 271, 275, 287, 291};
  676. SHORT cons23[] =
  677. { /* n =     */ 5, 273, 285, 288, 302, 305};
  678. SHORT cons24[] =
  679. { /* n =     */ 13, 515, 520, 525, 531, 537, 540, 545, 547, 550, 551, 556, 562, 
  680. 565};
  681. SHORT cons25[] =
  682. { /* n =     */ 3, 535, 536, 539};
  683. SHORT cons26[] =
  684. { /* n =     */ 3, 112, 122, 128};
  685. SHORT cons27[] =
  686. { /* n =     */ 13, 260, 338, 371, 403, 424, 427, 441, 443, 452, 458, 472, 508, 
  687. 521};
  688. SHORT cons28[] =
  689. { /* n =     */ 10, 30, 51, 52, 59, 62, 63, 65, 79, 84, 101};
  690. SHORT cons29[] =
  691. { /* n =     */ 19, 138, 139, 140, 141, 143, 145, 149, 153, 154, 157, 159, 164, 
  692. 168, 172, 175, 177, 181, 184, 186};
  693. SHORT cons30[] =
  694. { /* n =     */ 3, 567, 570, 582};
  695. SHORT cons31[] =
  696. { /* n =     */ 16, 391, 398, 402, 406, 409, 410, 411, 422, 428, 429, 430, 431, 
  697. 438, 445, 454, 467};
  698. SHORT cons32[] =
  699. { /* n =     */ 11, 195, 203, 207, 219, 237, 244, 248, 296, 316, 326, 341};
  700. SHORT cons33[] =
  701. { /* n =     */ 21, 217, 218, 220, 221, 223, 224, 227, 230, 231, 233, 235, 238, 
  702. 242, 247, 251, 252, 256, 257, 258, 259, 264};
  703. SHORT cons34[] =
  704. { /* n =     */ 8, 94, 99, 100, 102, 105, 111, 114, 129};
  705. SHORT cons35[] =
  706. { /* n =     */ 9, 350, 351, 356, 358, 360, 362, 363, 376, 377};
  707. SHORT cons36[] =
  708. { /* n =     */ 7, 348, 354, 359, 365, 366, 373, 386};
  709. SHORT cons37[] =
  710. { /* n =     */ 3, 180, 206, 215};
  711. SHORT cons38[] =
  712. { /* n =     */ 9, 485, 489, 491, 493, 495, 500, 507, 509, 513};
  713. SHORT cons39[] =
  714. { /* n =     */ 5, 147, 148, 150, 152, 162};
  715. SHORT cons40[] =
  716. { /* n =     */ 18, 393, 396, 401, 405, 408, 412, 419, 420, 423, 425, 432, 433, 
  717. 435, 444, 447, 451, 459, 461};
  718. SHORT cons41[] =
  719. { /* n =     */ 17, 91, 103, 106, 107, 109, 113, 116, 117, 119, 120, 121, 123, 
  720. 125, 127, 130, 132, 135};
  721. SHORT cons42[] =
  722. { /* n =     */ 3, 505, 532, 538};
  723. SHORT cons43[] =
  724. { /* n =     */ 12, 3, 553, 561, 563, 571, 581, 583, 584, 585, 586, 592, 593};
  725. SHORT cons44[] =
  726. { /* n =     */ 19, 31, 41, 43, 45, 46, 49, 50, 54, 55, 56, 57, 60, 64, 66, 67, 
  727. 76, 77, 78, 83};
  728. SHORT cons45[] =
  729. { /* n =     */ 1, 6};
  730. SHORT cons46[] =
  731. { /* n =     */ 4, 23, 26, 29, 38};
  732. SHORT cons47[] =
  733. { /* n =     */ 4, 580, 587, 589, 590};
  734. SHORT cons48[] =
  735. { /* n =     */ 11, 151, 158, 169, 176, 179, 183, 185, 187, 188, 191, 192};
  736. SHORT cons49[] =
  737. { /* n =     */ 35, 457, 460, 462, 463, 464, 465, 466, 468, 469, 470, 471, 473, 
  738. 475, 476, 478, 479, 480, 481, 482, 483, 484, 487, 488, 494, 496, 498, 501, 
  739. 504, 506, 510, 511, 512, 517, 518, 527};
  740. SHORT cons50[] =
  741. { /* n =     */ 23, 385, 388, 389, 390, 392, 395, 399, 400, 404, 407, 413, 414, 
  742. 415, 417, 421, 426, 439, 442, 446, 448, 450, 455, 456};
  743. SHORT cons51[] =
  744. { /* n =     */ 3, 486, 490, 492};
  745. SHORT cons52[] =
  746. { /* n =     */ 7, 364, 367, 375, 378, 380, 381, 382};
  747. SHORT cons53[] =
  748. { /* n =     */ 5, 434, 449, 474, 477, 497};
  749. SHORT cons54[] =
  750. { /* n =     */ 18, 61, 69, 70, 71, 72, 73, 74, 75, 80, 85, 86, 87, 88, 89, 90, 
  751. 108, 115, 124};
  752. SHORT cons55[] =
  753. { /* n =     */ 3, 5, 18, 575};
  754. SHORT cons56[] =
  755. { /* n =     */ 24, 198, 208, 210, 212, 222, 226, 228, 229, 234, 236, 245, 246, 
  756. 250, 253, 254, 255, 263, 267, 274, 306, 319, 322, 331, 337};
  757. SHORT cons57[] =
  758. { /* n =     */ 8, 33, 353, 368, 383, 384, 397, 416, 453};
  759. SHORT cons58[] =
  760. { /* n =     */ 5, 193, 202, 211, 216, 243};
  761. SHORT cons59[] =
  762. { /* n =     */ 19, 266, 278, 283, 284, 286, 289, 292, 294, 295, 297, 299, 300, 
  763. 301, 303, 307, 310, 320, 325, 343};
  764. SHORT cons60[] =
  765. { /* n =     */ 1, 526};
  766. SHORT cons61[] =
  767. { /* n =     */ 0};
  768. SHORT cons62[] =
  769. { /* n =     */ 0};
  770. SHORT cons63[] =
  771. { /* n =     */ 0};
  772. SHORT cons64[] =
  773. { /* n =     */ 0};
  774.  
  775.  
  776. SHORT *ConstList[MAXCONS] = {
  777. &cons0[0],&cons1[0],&cons2[0],&cons3[0],&cons4[0],&cons5[0],&cons6[0],
  778. &cons7[0],&cons8[0],&cons9[0],&cons10[0],&cons11[0],&cons12[0],&cons13[0],
  779. &cons14[0],&cons15[0],&cons16[0],&cons17[0],&cons18[0],&cons19[0],&cons20[0],
  780. &cons21[0],&cons22[0],&cons23[0],&cons24[0],&cons25[0],&cons26[0],&cons27[0],
  781. &cons28[0],&cons29[0],&cons30[0],&cons31[0],&cons32[0],&cons33[0],&cons34[0],
  782. &cons35[0],&cons36[0],&cons37[0],&cons38[0],&cons39[0],&cons40[0],&cons41[0],
  783. &cons42[0],&cons43[0],&cons44[0],&cons45[0],&cons46[0],&cons47[0],&cons48[0],
  784. &cons49[0],&cons50[0],&cons51[0],&cons52[0],&cons53[0],&cons54[0],&cons55[0],
  785. &cons56[0],&cons57[0],&cons58[0],&cons59[0],&cons60[0],&cons61[0],&cons62[0],
  786. &cons63[0],&cons64[0]
  787. };
  788.  
  789.  
  790. SHORT Greek0[] =
  791. { /* n =     */ 0};
  792. SHORT Greek1[] =
  793. { /* n =     */ 51, 1, 6, 9, 30, 33, 38, 40, 53, 60, 89, 92,104, 114, 126,
  794. 135, 146, 155, 177, 182, 209, 215, 219, 231, 246, 270, 285, 308, 312, 320, 338, 
  795. 342, 347, 348, 351, 374, 380, 404, 428, 440, 444, 485, 512, 522, 529, 536, 
  796. 537, 552, 569, 570, 575, 590, 593};
  797. SHORT Greek2[] =
  798. { /* n =     */ 50, 2, 13, 22, 37, 56, 95, 101, 103, 108, 111, 122, 133, 
  799. 136, 144, 147, 174, 186, 196, 213, 245, 264, 266, 291, 302, 339, 353, 354, 
  800. 357, 362, 372, 382, 390, 406, 436, 441, 451, 491, 511, 515, 524, 530, 532, 
  801. 535, 538, 554, 555, 580, 582, 592};
  802. SHORT Greek3[] =
  803. { /* n =     */ 38, 3, 19, 35, 39, 48, 54, 79, 85, 107, 129, 149, 165, 193, 
  804. 200, 235, 267, 275, 288, 298, 299, 316, 345, 368, 373, 376, 379, 437, 458, 
  805. 465, 500, 519, 531, 539, 559, 567, 576, 587, 598};
  806. SHORT Greek4[] =
  807. { /* n =     */ 35, 8, 24, 58, 64, 65, 86, 113, 166, 172, 201, 202, 252, 269, 
  808. 273, 274, 287, 307, 356, 361, 365, 375, 388, 393, 429, 453, 476, 486, 495, 
  809. 508, 514, 520, 566, 578, 588, 589};
  810. SHORT Greek5[] =
  811. { /* n =     */ 30, 36, 62, 77, 88, 96, 100, 123, 153, 161, 197, 203, 224, 271, 
  812. 306, 310, 327, 349, 366, 396, 413, 416, 422, 479, 489, 499, 521, 540, 543, 
  813. 561, 573};
  814. SHORT Greek6[] =
  815. { /* n =     */ 29, 14, 23, 34, 76, 97, 124, 127, 142, 164, 191, 194, 207, 233, 
  816. 319, 325, 336, 359, 384, 408, 409, 417, 418, 427, 501, 502, 550, 572, 577, 
  817. 583};
  818. SHORT Greek7[] =
  819. { /* n =     */ 31, 17, 21, 26, 49, 51, 74, 98, 106, 141, 145, 173, 230, 240, 
  820. 303, 331, 335, 346, 369, 386, 397, 403, 411, 425, 426, 473, 477, 507, 523, 
  821. 525, 541, 584};
  822. SHORT Greek8[] =
  823. { /* n =     */ 17, 46, 52, 87, 119, 137, 157, 222, 239, 251, 340, 344, 435, 
  824. 446, 497, 528, 571, 574};
  825. SHORT Greek9[] =
  826. { /* n =     */ 15, 4, 44, 57, 93, 121, 204, 208, 214, 258, 317, 343, 360, 371, 
  827. 378, 455};
  828. SHORT Greek10[] =
  829. { /* n =     */ 11, 132, 184, 210, 216, 217, 355, 391, 420, 450, 542, 563};
  830. SHORT Greek11[] =
  831. { /* n =     */ 15, 80, 117, 168, 211, 220, 234, 260, 261, 405, 442, 445, 481, 
  832. 503, 585, 597};
  833. SHORT Greek12[] =
  834. { /* n =     */ 18, 20, 83, 102, 131, 143, 227, 236, 243, 332, 350, 370, 414, 
  835. 424, 454, 471, 562, 564, 586};
  836. SHORT Greek13[] =
  837. { /* n =     */ 8, 151, 244, 255, 333, 392, 434, 443, 459};
  838. SHORT Greek14[] =
  839. { /* n =     */ 12, 61, 78, 154, 187, 254, 352, 383, 389, 433, 472, 498, 568};
  840. SHORT Greek15[] =
  841. { /* n =     */ 9, 42, 66, 84, 163, 198, 223, 449, 467, 591};
  842. SHORT Greek16[] =
  843. { /* n =     */ 9, 7, 91, 160, 169, 341, 385, 430, 506, 565};
  844. SHORT Greek17[] =
  845. { /* n =     */ 4, 55, 192, 401, 438};
  846. SHORT Greek18[] =
  847. { /* n =     */ 8, 125, 176, 212, 358, 394, 399, 496, 516};
  848. SHORT Greek19[] =
  849. { /* n =     */ 12, 32, 50, 59, 90, 158, 259, 330, 398, 407, 461, 504, 551};
  850. SHORT Greek20[] =
  851. { /* n =     */ 7, 63, 67, 109, 225, 377, 439, 510};
  852. SHORT Greek21[] =
  853. { /* n =     */ 2, 226, 488};
  854. SHORT Greek22[] =
  855. { /* n =     */ 5, 116, 189, 247, 248, 263};
  856. SHORT Greek23[] =
  857. { /* n =     */ 4, 250, 381, 452, 594};
  858. SHORT Greek24[] =
  859. { /* n =     */ 5, 25, 167, 218, 232, 402};
  860. SHORT Greek25[] =
  861. { /* n =     */ 0};
  862. SHORT Greek26[] =
  863. { /* n =     */ 0};
  864. SHORT Greek27[] =
  865. { /* n =     */ 0};
  866. SHORT Greek28[] =
  867. { /* n =     */ 0};
  868. SHORT Greek29[] =
  869. { /* n =     */ 0};
  870.  
  871.  
  872. SHORT *GreekList[MAXGREEK] = {
  873. &Greek0[0],&Greek1[0],&Greek2[0],&Greek3[0],&Greek4[0],&Greek5[0],&Greek6[0],
  874. &Greek7[0],&Greek8[0],&Greek9[0],&Greek10[0],&Greek11[0],&Greek12[0],&Greek13[0],
  875. &Greek14[0],&Greek15[0],&Greek16[0],&Greek17[0],&Greek18[0],&Greek19[0],&Greek20[0],
  876. &Greek21[0],&Greek22[0],&Greek23[0],&Greek24[0],&Greek25[0],&Greek26[0],&Greek27[0],
  877. &Greek28[0],&Greek29[0]
  878. };
  879.  
  880.