4.11.99
     Quelltext: /work/Her/Arigfh/s07/doc/format.master.2




                            Masterkatalog II-ARIGFH: Identifizierungsversion
                            ================================================



                    ARI-Code: 436/4         Band-Adresse: ARC019/26 MASTER2D         612 627 rec.

                    Platten-Adresse am URZ: /u/ari/s07/ari/master.2
                    Platten-Adresse am ARI: /work/Her/Arigfh/s07/ari/master.2


                    binaere Direktzugriffs-Datei   conv = data    lrecl = 45




      Feld     Spalten          Format         Var. Name      Inhalt

                           Read / Deklaration


       1.      1 -  4        A4   /   I4         num          Master Nr.

       2.      5 - 12        A8   /   R8         delta        Decl. Aequ. und Epoche 2000 in Rad.

       3.     13 - 20        A8   /   R8         alpha        RA Aequ. und Epoche 2000 in Rad.

       4.     21 - 28        A8   /   R8         mudel        EB (Dekl.) in Rad. pro Jahr

       5.     29 - 36        A8   /   R8         mualp        EB (RA) in Rad. pro Jahr

       6.     37 - 40        A4   /   R4         mv           Mag. vis.

       7.     41 - 44        A4   /   R4         mb           Mag. blau

       8.     45             A1   /   A1         komp         Komponente

       9.     46 - 49        A4   /   R4         par          Parallaxe aus HIPPARCOS

      10.     50 - 53        A4   /   R4         vel          Radialbeschwindigkeit aus Dettbarn-File

      11.     54 - 57        A4   /   R4         col          Farbindex  B-V (-8888. falls nicht gegeben)

      12.     58 - 61        A4   /   I4         icol         Kennung des Farbindex (0 = nichts gegeben,
                   .     58 - 61        A4   /   I4                                  1 = aus HIPPARCOS Katalog,
                                                                                     2 = aus KHARCHENKO Katalog (SimbadI280) )





        Lesen mit:

          character*61 mast,komp*1
          integer      num,icol
          real*8       alpha,delta,mualp,mudel
          real*4       mv,mb,par,vel,col


          open(lun,file='master.2',form='unformatted',access='direct'
         *,recl=61)

     100  i = i + 1
          if (i.gt.612627) go to 900

          read(lun,rec=i)mast
          read(mast,'(a4,4a8,2a4,a1)')
         *num,delta,alpha,mudel,mualp,mv,mb,komp,par,vel,col,icol