Quelltext: /work/Her/Arigfh/s07/doc/format.id
     
     
       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.id     
       ==================================
      
       lrec = 34    unformatiert
     
       die Datei enthaelt 11 header-Zeilen (mit Titel etc.), die zu ueberlesen sind.
     
       dist      r8      Ablage des Sterns (Master zu Beob.kat)
       arinr     i4      Nummer des Sterns im Masterkatalog  
       dcomp     i2      Doppelsternkomponente aus Master (numerisch)
       iq        i2      Qualitaet der Ident. (2 = das Beste)
       csort     i2      Katalogart (Beobachtung, Kompilation)
       cat       i2      Teleki-Nummer des Kataloges
       catpv     i2      Katalog-Teil
       catan     i4      Nummer des Sterns nach ARI-Zaehlung
       catcn     i4      Nummer des Sterns im Originalkatalog
       catca     i2      Appendix zu catcn (numerisch)
       catdc     i2      Doppelsternbezeichnung im Originalkatalog
     
       
     
       zu lesen mit:
        
       
           character*34 stri
           REAL*8 DIST
           INTEGER ARINR,CATAN,CATCN
           INTEGER*2 CATCA,CSORT,CAT,CATPV,DCOMP,CATDC,IQ
      
      
           DO 10 L = 1,11
           READ(lun) STRI
        10 CONTINUE
      
      
           READ(lun,END=99) STRI
           READ(STRI,'(A8,A4,5A2,2A4,2A2)')
          *DIST,ARINR,DCOMP,IQ,CSORT,CAT,
          *CATPV,CATAN,CATCN,CATCA,CATDC
           ICOMP=DCOMP
      
           will man dcomp als Buchstabe haben: char(icomp)  verwenden