Quelltext: /work/Her/Arigfh/s07/doc/format.nid Adresse der Identifizierungsergebnisse: /work/Her/Arigfh/s07/archiv/tnnnnnpnn.tar.gz Diese Dateien sind aber gepackt gespeichert und sind daher erst mit dem Skript restorekat tnnnnpnn zurueckzuholen. Das Verzeichnis tnnnnpnn enthaelt dann folgende Dateien: 1. bem.n eventuelle Bemerkungen 2. idn.id identifizierte Sterne (unformatiert) 3. idn.nid nicht-identifizierte Sterne (unformatiert) 4. input Hilfsdatei zum Identifizieren 5. katalog Originalkatalog 6. eventuell korrektur eventuell angebrachte Korrekturen 7. lies.f Leseprogramm des Originalkataloges 8. proto.n Protokolldatei Format der Dateien tnnnnpnn/idn.nid =================================== lrec = 320 unformatiert die Datei enthaelt 11 header-Zeilen (mit Titel etc.), die zu ueberlesen sind. eqras r8 Aequinoktium der RA xstar8(01) epras r8 Epoche der RA, fuer die die Pos. gilt xstar8(02) ras r8 RA xstar8(03) eqdec r8 Aequinoktium der Deklination xstar8(04) epdec r8 Epoche der Deklination, fuer die die Pos. gilt xstar8(05) dec r8 Deklination xstar8(06) eqpma r8 Aequinoktium der PM RA xstar8(07) eppma r8 Epoche der PM RA xstar8(08) pma r8 PM RA xstar8(09) eqpmd r8 Aequinoktium der PM Dekl. xstar8(10) eppmd r8 Epoche der PM Dekl. xstar8(11) pmd r8 PM Dekl. xstar8(12) epmras r8 Mittlere Epoche der RA xstar8(13) epmdec r8 Mittlere Epoche der Deklination xstar8(14) ------ r8 blank xstar8(15) ------ r8 blank xstar8(16) ------ r8 blank xstar8(17) ------ r8 blank xstar8(18) ------ r8 blank xstar8(19) ------ r8 blank xstar8(20) catmag r4 Mag. des Beobachungskatalogs xstar4(01) merasc r4 Mittlerer Fehler der RA xstar4(02) nobras r4 Anzahl der Beob. der RA xstar4(03) medec r4 Mittlerer Fehler der Dekl. xstar4(04) nobdec r4 Anzahl der Beob. der Dekl. xstar4(05) mepmra r4 Mittlerer Fehler der PM RA xstar4(06) nobpma r4 Anzahl der Beob. der PM RA xstar4(07) mepmdc r4 Mittlerer Fehler der PM Dekl. xstar4(08) nobpmd r4 Anzahl der Beob. der PM Dekl. xstar4(09) ------ r4 blank xstar4(10) ------ r4 blank xstar4(11) ------ r4 blank xstar4(12) ------ r4 blank xstar4(13) ------ r4 blank xstar4(14) ------ r4 blank xstar4(15) catan i4 Laufende Nummer der records, ARI-Zaehlung istar4(01) catcn i4 Nummer des Sterns im Beobachtungskatalog istar4(02) ------ i4 blank istar4(03) ------ i4 blank istar4(04) ------ i4 blank istar4(05) ------ i4 blank istar4(06) ------ i4 blank istar4(07) ------ i4 blank istar4(08) ------ i4 blank istar4(09) ------ i4 blank istar4(10) csort i2 Katalogart (Beobachtung, Kompilation) istar2(01) cat i2 Teleki-Nummer des Kataloges istar2(02) catpv i2 Katalog-Teil istar2(03) catca i2 Appendix zu catcn (numerisch) istar2(04) catdc i2 Doppelsternbezeichnung im Originalkatalog istar2(05) quse i2 Benutzungskennzeichen, noch nicht vergeben = -8888 istar2(06) indvar i2 Veraenderlichen-Kennzeichen im Katalog istar2(07) indmag i2 Kennzeichen fuer Catmag istar2(08) sysmag i2 Helligkeitssystem fuer Catmag istar2(09) ieras i2 Kennzeichen fuer Ep. und Aequ. von RA istar2(10) qras i2 Eignung der RA fuer Benutzung istar2(11) sysras i2 Kennzeichen fuer System von RA istar2(12) iedec i2 Kennzeichen fuer Ep. und Aequ. von Dekl. istar2(13) qdec i2 Eignung der Dekl. fuer Benutzung istar2(14) sysdec i2 Kennzeichen fuer System von Dekl. istar2(15) iepma i2 Kennzeichen fuer Ep. und Aequ. von PM RA istar2(16) qpma i2 Eignung der PM RA fuer Benutzung istar2(17) syspma i2 Kennzeichen fuer System von PM RA istar2(18) iepmd i2 Kennzeichen fuer Ep. und Aequ. von PM Dekl. istar2(19) qpmd i2 Eignung der PM Dekl. fuer Benutzung istar2(20) syspmd i2 Kennzeichen fuer System von PM Dekl. istar2(21) idflag i2 0 = nicht id. wegen Pos., 1 = wegen Mag. istar2(22) ------ i2 blank istar2(23) ------ i2 blank istar2(24) ------ i2 blank istar2(25) ------ i2 blank istar2(26) ------ i2 blank istar2(27) ------ i2 blank istar2(28) ------ i2 blank istar2(29) ------ i2 blank istar2(30) zu lesen mit: character stri*320,hstr*34 real *8 xstar8(20) real *4 xstar4(15) integer istar4(10) integer*2 istar2(30) C do i=1,11 read(lun) hstr end do C read(lun,END=99) stri read(stri,'(20a8,25a4,30a2)') * (xstar8(i),i=1,20),(xstar4(i),i=1,15), & (istar4(i),i=1,10),(istar2(i),i=1,30)