FORTRAN Generation
(/./ftp/cats/I/264)

Conversion of standardized ReadMe file for file /./ftp/cats/I/264 into FORTRAN code for loading all data files into arrays.

Note that special values are assigned to unknown or unspecified numbers (also called NULL numbers); when necessary, the coordinate components making up the right ascension and declination are converted into floating-point numbers representing these angles in degrees.



      program load_ReadMe
C=============================================================================
C  F77-compliant program generated by readme2f_1.8, on 2014-Sep-20
C=============================================================================
*  This code was generated from the ReadMe file documenting a catalogue
*  according to the "Standard for Documentation of Astronomical Catalogues"
*  currently in use by the Astronomical Data Centers (CDS, ADC, A&A)
*  (see full documentation at URL http://vizier.u-strasbg.fr/doc/catstd.htx)
*  Please report problems or questions to   
C=============================================================================

      implicit none
*  Unspecified or NULL values, generally corresponding to blank columns,
*  are assigned one of the following special values:
*     rNULL__    for unknown or NULL floating-point values
*     iNULL__    for unknown or NULL   integer      values
      real*4     rNULL__
      integer*4  iNULL__
      parameter  (rNULL__=-1.e37)     	! NULL real number
      parameter  (iNULL__=-2147483647)	! NULL int  number

C=============================================================================
Cat. I/264          Sixth Catalogue of Fundamental Stars (FK6)        (Wielen+ 2000)
*================================================================================
*Sixth Catalogue of Fundamental Stars (FK6).
*Part I: Basic Fundamental Stars with Direct Solutions
*Sixth Catalogue of Fundamental Stars (FK6) , Parts I and III
*     Wielen R., Schwan H., Dettbarn C., Lenhardt H., Jahreiss H., Jahrling R.
*    <Veroeff. Astron. Rechen-Inst. Heidelberg 35, 1 (1999)>
*    =1999VeARI..35....1W
C=============================================================================

C  Internal variables

      integer*4 i__

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'fk6_1.dat'	! FK6(I)   File version 01

      integer*4 nr__
      parameter (nr__=878)	! Number of records
      character*842 ar__   	! Full-size record

      real*8        RA_        (nr__) ! (deg) Right Ascension J2000, Epoch=J2000
      real*8        Dec        (nr__) ! (deg)     Declination J2000, Epoch=J2000
      integer*4     FK6        (nr__) ! FK6 number of the star
*                                     (identical with its FK5 number)
      integer*4     HIP        (nr__) ! Hipparcos (<I/239>) number of the star
      character*19  Name       (nr__) ! Name of the star
      integer*4     RAh        (nr__) ! (h) Right ascension (ICRS, Ep=J2000) (G1)
      integer*4     RAm        (nr__) ! (min) Right ascension (ICRS, Ep=J2000) (G1)
      real*8        RAs        (nr__) ! (s) Right ascension (ICRS, Ep=J2000) (G1)
      character*1   DE_        (nr__) ! Declination sign (ICRS, Ep=J2000) (G1)
      integer*4     DEd        (nr__) ! (deg) Declination (ICRS, Ep=J2000) (G1)
      integer*4     DEm        (nr__) ! (arcmin) Declination (ICRS, Ep=J2000) (G1)
      real*8        DEs        (nr__) ! (arcsec) Declination (ICRS, Ep=J2000) (G1)
      real*8        pmRA_      (nr__) ! (mas/yr) Proper motion in right ascension (SI mode)
*                                     (pmRA* = mu_alpha*cos(delta)) (G1)
      real*8        pmDE       (nr__) ! (mas/yr) Proper motion in declination (G1)
      real*8        TRA        (nr__) ! (yr) Central epoch in RA of the star (SI mode)
      real*4        e_RA_      (nr__) ! (mas) rms uncertainty on alpha*cos(delta) at
*                                     the central epoch TRA (SI mode)
      real*4        e_pmRA_    (nr__) ! (mas/yr) rms uncertainty on pmRA* (SI mode)
      real*8        TDE        (nr__) ! (yr) Central epoch in DE of the star (SI mode)
      real*4        e_DEs      (nr__) ! (mas) rms uncertainty on DE at the central
*                                     epoch TDE (SI mode)
      real*4        e_pmDE     (nr__) ! (mas/yr) rms uncertainty on pm DE (SI mode)
      real*4        plx        (nr__) ! (mas) Resulting parallax of the star (G3)
      real*4        e_plx      (nr__) ! (mas) rms uncertainty on plx
      character*1   f_plx      (nr__) ! [HPC] Parallax origin, H=Hipparcos (G4)
      real*4        RV         (nr__) ! (km/s) Radial velocity, used in calculating the
*                                     foreshortening effect
      real*4        Vmag       (nr__) ! (mag) Apparent visual magnitude of the star
*                                     (taken from the HIPPARCOS Catalogue)
      integer*4     f_Vmag     (nr__) ! [1/3]? Variability flag, from Hipparcos (G5)
      integer*4     Kbin1      (nr__) ! Double-star nature of the object flag (G6)
      integer*4     Kbin2      (nr__) ! ? Double-star nature from pm differences (G7)
      integer*4     Kae        (nr__) ! ? Astrometrically excellent star flag (G8)
      real*8        DRA_LTP    (nr__) ! (mas) Difference in alpha*cos(delta) between
*                                     long-term prediction (LTP) and SI modes
      real*8        DRA_STP    (nr__) ! (mas) Difference in alpha*cos(delta) between
*                                     short-term prediction (STP) and SI modes
      real*8        DRA_HIP    (nr__) ! (mas) Difference in alpha*cos(delta) between
*                                     HIP and SI modes
      real*8        DRA_FK5    (nr__) ! (mas) Difference in alpha*cos(delta) between
*                                     FK5 and SI modes
      real*8        DDE_LTP    (nr__) ! (mas) Difference in declination between
*                                     long-term prediction (LTP) and SI modes
      real*8        DDE_STP    (nr__) ! (mas) Difference in declination between
*                                     short-term prediction (STP) and SI modes
      real*8        DDE_HIP    (nr__) ! (mas) Difference in declination between
*                                     HIP and SI modes
      real*8        DDE_FK5    (nr__) ! (mas) Difference in declination between
*                                     FK5 and SI modes
      real*8        DpmRA_LTP  (nr__) ! (mas/yr) Difference in proper motion in RA between
*                                     long-term prediction (LTP) and SI modes
      real*8        DpmRA_STP  (nr__) ! (mas/yr) Difference in proper motion in RA between
*                                     short-term prediction (STP) and SI modes
      real*8        DpmRA_HIP  (nr__) ! (mas/yr) Difference in proper motion in RA between
*                                     HIP and SI modes
      real*8        DpmRA_FK5  (nr__) ! (mas/yr) Difference in proper motion in RA between
*                                     FK5 and SI modes
      real*8        DpmRA_mu0  (nr__) ! (mas/yr) Difference in proper motion in RA between
*                                     mu0 (HIP-FK5) and SI modes
      real*8        DpmDE_LTP  (nr__) ! (mas/yr) Difference in proper motion in DE between
*                                     long-term prediction (LTP) and SI modes
      real*8        DpmDE_STP  (nr__) ! (mas/yr) Difference in proper motion in DE between
*                                     short-term prediction (STP) and SI modes
      real*8        DpmDE_HIP  (nr__) ! (mas/yr) Difference in proper motion in DE between
*                                     HIP and SI modes
      real*8        DpmDE_FK5  (nr__) ! (mas/yr) Difference in proper motion in DE between
*                                     FK5 and SI modes
      real*8        DpmDE_mu0  (nr__) ! (mas/yr) Difference in proper motion in DE between
*                                     mu0 and SI modes
      real*8        TRALTP     (nr__) ! (yr) RA central epoch in LTP solution
      real*8        TRASTP     (nr__) ! (yr) RA central epoch in STP solution
      real*8        TRAHIP     (nr__) ! (yr) RA central epoch in HIP solution
      real*8        TRAFK5     (nr__) ! (yr) RA central epoch in FK5 solution
      real*4        e_RA_LTP   (nr__) ! (mas) rms uncertainty on RA at central epoch TRA
*                                     in long-term prediction (LTP) solution
      real*4        e_RA_STP   (nr__) ! (mas) rms uncertainty on RA at central epoch TRA
*                                     in short-term prediction (STP) solution
      real*4        e_RA_HIP   (nr__) ! (mas) rms uncertainty on RA at central epoch TRA
*                                     in HIP solution
      real*4        e_RA_FK5   (nr__) ! (mas) rms uncertainty on RA at central epoch TRA
*                                     in FK5 solution
      real*4        e_pmRA_LTP (nr__) ! (mas/yr) rms uncertainty on pmRA* in LTP solution
      real*4        e_pmRA_STP (nr__) ! (mas/yr) rms uncertainty on pmRA* in STP solution
      real*4        e_pmRA_HIP (nr__) ! (mas/yr) rms uncertainty on pmRA* in HIP solution
      real*4        e_pmRA_FK5 (nr__) ! (mas/yr) rms uncertainty on pmRA* in FK5 solution
      real*4        e_pmRA_mu0 (nr__) ! (mas/yr) rms uncertainty on pmRA* in mu0 solution
      real*8        TDELTP     (nr__) ! (yr) DE central epoch in LTP solution
      real*8        TDESTP     (nr__) ! (yr) DE central epoch in LTP solution
      real*8        TDEHIP     (nr__) ! (yr) DE central epoch in HIP solution
      real*8        TDEFK5     (nr__) ! (yr) DE central epoch in FK5 solution
      real*4        e_DE_LTP   (nr__) ! (mas) rms uncertainty on DE at central epoch TDE
*                                     in long-term prediction (LTP) solution
      real*4        e_DE_STP   (nr__) ! (mas) rms uncertainty on DE at central epoch TDE
*                                     in Short-term prediction (STP) solution
      real*4        e_DE_HIP   (nr__) ! (mas) rms uncertainty on DE at central epoch TDE
*                                     in HIP solution
      real*4        e_DE_FK5   (nr__) ! (mas) rms uncertainty on DE at central epoch TDE
*                                     in FK5 solution
      real*4        e_pmDE_LTP (nr__) ! (mas/yr) rms uncertainty on pmDE in LTP solution
      real*4        e_pmDE_STP (nr__) ! (mas/yr) rms uncertainty on pmDE in STP solution
      real*4        e_pmDE_HIP (nr__) ! (mas/yr) rms uncertainty on pmDE in HIP solution
      real*4        e_pmDE_FK5 (nr__) ! (mas/yr) rms uncertainty on pmDE in FK5 solution
      real*4        e_pmDE_mu0 (nr__) ! (mas/yr) rms uncertainty on pmDE in mu0 solution
      real*4        plxSI      (nr__) ! (mas) Parallax derived in the SI mode
      real*4        plxSTP     (nr__) ! (mas) Parallax derived in the STP mode
      real*4        plxHIP     (nr__) ! (mas) Parallax from HIP
      real*4        e_plxSI    (nr__) ! (mas) rms uncertainty on plxSI
      real*4        e_plxSTP   (nr__) ! (mas) rms uncertainty on plxSTP
      real*4        e_plxHIP   (nr__) ! (mas) rms uncertainty on plxHIP
      real*8        DRAsys     (nr__) ! (mas) FK5-HIP difference in alpha*cos(delta) (9)
      real*8        DDEsys     (nr__) ! (mas) FK5-HIP difference in declination (9)
      real*8        DpmRA_sys  (nr__) ! (mas/yr) FK5-HIP difference in pm_RA*cos(DE) (9)
      real*8        DpmDE_sys  (nr__) ! (mas/yr) FK5-HIP difference in pmDE  (9)
      real*4        e_RA_sys   (nr__) ! (mas) rms uncertainty on RA*sys
      real*4        e_DE_sys   (nr__) ! (mas) rms uncertainty on DE:sys
      real*4        e_pmRA_sys (nr__) ! (mas/yr) rms uncertainty on pmRA*sys
      real*4        e_pmDE_sys (nr__) ! (mas/yr) rms uncertainty on pmDE:sys
      integer*4     Ksys       (nr__) ! ? FK5/HIP systematic differences flag (10)
      real*4        FFH        (nr__) ! F parameter based on FK5/HIP data (G11)
      real*4        F0H        (nr__) ! F parameter based on FK5/HIP data (G11)
      real*4        F0_GC_H    (nr__) ! ? F parameter based on GC/HIP data (G11)
      real*4        F0F        (nr__) ! F parameter based on Fk5/HIP data (G11)
      integer*4     Note       (nr__) ! ? Number of the note in notes1.dat file
*Note (9): Systematic differences between the FK5 system and ICRS/HIPPARCOS
*    system (in the sense FK5-HIP), for the star under consideration at
*    the epoch J1949.4 .
*
*    The differences have to be subtracted from the FK5 data at epoch
*    J1949.4 in order to obtain the FK5 quantities at epoch J1949.4 in the
*    HIPPARCOS reference system. The systematic differences given include
*    both the rotational and regional systematic differences between the
*    FK5 system and the HIPPARCOS system. The mean errors of the systematic
*    differences at epoch J1949.4 are given.
*Note (10): Flag for the use of the star in determining the systematic
*    differences between the FK5 system and the HIPPARCOS system in
*    position and proper motion:
*      1 = used for positions and proper motions
*  blank = not used

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'fk6_3.dat'	! FK6(III) File version 01

      integer*4 nr__1
      parameter (nr__1=3272)	! Number of records
      character*483 ar__1  	! Full-size record

      real*8        RA__1      (nr__1) ! (deg) Right Ascension J2000, Epoch=J2000
      real*8        Dec_1      (nr__1) ! (deg)     Declination J2000, Epoch=J2000
      integer*4     FK6_1      (nr__1) ! FK6 number of the star
*                                    (identical with its FK5 number)
      integer*4     HIP_1      (nr__1) ! Hipparcos (<I/239>) number of the star
      character*2   Flag       (nr__1) ! Flag for the subsample of FK6(III) stars (1)
      character*19  Name_1     (nr__1) ! Name of the star
      integer*4     RAh_1      (nr__1) ! (h) Right ascension (ICRS, Ep=J2000) (G1)
      integer*4     RAm_1      (nr__1) ! (min) Right ascension (ICRS, Ep=J2000) (G1)
      real*8        RAs_1      (nr__1) ! (s) Right ascension (ICRS, Ep=J2000) (G1)
      character*1   DE__1      (nr__1) ! Declination sign (ICRS, Ep=J2000) (G1)
      integer*4     DEd_1      (nr__1) ! (deg) Declination (ICRS, Ep=J2000) (G1)
      integer*4     DEm_1      (nr__1) ! (arcmin) Declination (ICRS, Ep=J2000) (G1)
      real*8        DEs_1      (nr__1) ! (arcsec) Declination (ICRS, Ep=J2000) (G1)
      real*8        pmRA__1    (nr__1) ! (mas/yr) Proper motion in right ascension
*                                   (pmRA* = mu_alpha*cos(delta)) (G1)
      real*8        pmDE_1     (nr__1) ! (mas/yr) Proper motion in declination (G1)
      real*8        TRA_1      (nr__1) ! (yr) Central epoch in RA of the star (SI mode)
      real*4        e_RA__1    (nr__1) ! (mas) rms uncertainty on alpha*cos(delta) at
*                                    the central epoch TRA (SI mode)
      real*4        e_pmRA__1  (nr__1) ! (mas/yr) rms uncertainty on pmRA* (SI mode)
      real*8        TDE_1      (nr__1) ! (yr) Central epoch in DE of the star (SI mode)
      real*4        e_DEs_1    (nr__1) ! (mas) rms uncertainty on DE at the central
*                                    epoch TDE (SI mode)
      real*4        e_pmDE_1   (nr__1) ! (mas/yr) rms uncertainty on pmDE (SI mode)
      real*4        plx_1      (nr__1) ! (mas) Resulting parallax of the star (G3)
      real*4        e_plx_1    (nr__1) ! (mas) rms uncertainty on plx
      character*1   f_plx_1    (nr__1) ! [HP] Parallax origin, H=Hipparcos (G4)
      real*8        RV_1       (nr__1) ! (km/s) ? Radial velocity, used in calculating the
*                                      foreshortening effect
      real*4        Vmag_1     (nr__1) ! (mag) Apparent visual magnitude of the star
*                                    (taken from the HIPPARCOS Catalogue)
      integer*4     f_Vmag_1   (nr__1) ! [1/3]? Variability flag, from Hipparcos (G5)
      integer*4     Kbin1_1    (nr__1) ! Double-star nature of the object flag (G6)
      integer*4     Kbin2_1    (nr__1) ! ? Double-star nature from pm differences (G7)
      integer*4     Kae_1      (nr__1) ! ? Astrometrically excellent star flag (G8)
      real*8        DpmRA_LTP_1(nr__1) ! (mas/yr) Difference in proper motion in RA between
*                                     long-term prediction (LTP) and SI mode
      real*8        DpmRA_STP_1(nr__1) ! (mas/yr) Difference in proper motion in RA between
*                                     short-term prediction (STP) and SI mode
      real*8        DpmRA_HIP_1(nr__1) ! (mas/yr) Difference in proper motion in RA between
*                                     HIP and SI mode
      real*8        DpmRA_FK5_1(nr__1) ! (mas/yr) Difference in proper motion in RA between
*                                     FK5 and SI mode
      real*8        DpmRA_mu0_1(nr__1) ! (mas/yr) Difference in proper motion in RA between
*                                     mu0 and SI mode
      real*8        DpmDE_LTP_1(nr__1) ! (mas/yr) Difference in proper motion in DE between
*                                     long-term prediction (LTP) and SI mode
      real*8        DpmDE_STP_1(nr__1) ! (mas/yr) Difference in proper motion in DE between
*                                     short-term prediction (STP) and SI mode
      real*8        DpmDE_HIP_1(nr__1) ! (mas/yr) Difference in proper motion in DE between
*                                     HIP and SI mode
      real*8        DpmDE_FK5_1(nr__1) ! (mas/yr) Difference in proper motion in DE between
*                                     FK5 and SI mode
      real*8        DpmDE_mu0_1(nr__1) ! (mas/yr) Difference in proper motion in DE between
*                                     mu0 and SI mode
      real*4        e_DpmRA_LTP(nr__1) ! (mas/yr) rms uncertainty on DpmRA*LTP
      real*4        e_DpmRA_STP(nr__1) ! (mas/yr) rms uncertainty on DpmRA*STP
      real*4        e_DpmRA_HIP(nr__1) ! (mas/yr) rms uncertainty on DpmRA*HIP
      real*4        e_DpmRA_FK5(nr__1) ! (mas/yr) rms uncertainty on DpmRA*FK5
      real*4        e_DpmRA_mu0(nr__1) ! (mas/yr) rms uncertainty on DpmRA*mu0
      real*4        e_DpmDE_LTP(nr__1) ! (mas/yr) rms uncertainty on DpmDELTP
      real*4        e_DpmDE_STP(nr__1) ! (mas/yr) rms uncertainty on DpmDESTP
      real*4        e_DpmDE_HIP(nr__1) ! (mas/yr) rms uncertainty on DpmDEHIP
      real*4        e_DpmDE_FK5(nr__1) ! (mas/yr) rms uncertainty on DpmDEFK5
      real*4        e_DpmDE_mu0(nr__1) ! (mas/yr) rms uncertainty on DpmDEmu0
      real*4        FFH_1      (nr__1) ! F parameter based on FK5/HIP data (G11)
      real*4        F0H_1      (nr__1) ! F parameter based on FK5/HIP data (G11)
      real*4        F0_GC_H_1  (nr__1) ! ? F parameter based on GC/HIP data (G11)
      real*4        F0F_1      (nr__1) ! F parameter based on Fk5/HIP data (G11)
      real*4        FTH        (nr__1) ! ? F parameter based on TYCHO2/HIP (12)
      character*1   tNote      (nr__1) ! [t] indicates a note in tabnote3.dat
      integer*4     Note_1     (nr__1) ! ? Number of the note in file notes3.dat
*Note (1):  Flag for the subsample of FK6(III) stars:
*     BX = star from the bright extension of the FK5
*     FX = star from the faint extension of the FK5
*     RS = star from the RSup (Schwan et al., 1993, Cat. <I/210>).
*Note (12): F parameter based on the difference Delta_mu_{TH} = mu_T_ - mu_H_
*    between the proper motion mu_T_ given in TYCHO2 Catalogue (Hoeg et al.,
*    2000, Cat. <I/259>) and the proper motion mu_H_ given by HIPPARCOS.

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'notes1.dat'	! Individual notes to FK6(I) stars

      integer*4 nr__2
      parameter (nr__2=1310)	! Number of records
      character*80 ar__2  	! Full-size record

      integer*4     Note_2     (nr__2) ! [1/3024]=+ Number of the note
      character*75  Text       (nr__2) ! Text of the note (1)
*Note (1): Abbreviations for flags:
*  optical companion because of:
*    af = approximately fixed
*    nc = no common proper motion
*    hv = high relative velocity
*    pc = large separation in pc
*  other flags:
*    no = no relative position given
*    oo = only one observation given in CCDM or WDS
*         (hence no relative proper motion available)

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'tabnote3.dat'	! `Tabular Notes' about Binarity in FK6(III)

      integer*4 nr__3
      parameter (nr__3=1144)	! Number of records
      character*56 ar__3  	! Full-size record

      integer*4     FK6_2      (nr__3) ! FK6 number
      integer*4     HIP_2      (nr__3) ! HIPPARCOS (Cat. <I/239>) number
      character*1   H          (nr__3) ! *[sdt.] HIPPARCOS indicators for suspected binarity
      integer*4     U          (nr__3) ! (%) *HIPPARCOS percentage of rejected data
      integer*4     F          (nr__3) ! *? HIPPARCOS goodness-of-fit parameter
      character*1   K          (nr__3) ! *[bun.] Binarity from speckle observations
      character*1   C          (nr__3) ! *[ctwr.] Existence of a companion at large distance
      character*1   G          (nr__3) ! *[vu2bd.] Binarity from Wilson's GCRV <III/21>
      character*1   B          (nr__3) ! *[vu2bd.] Binarity from Bright Star Cat. <V/50>
      character*1   S          (nr__3) ! *[vu2bd.] Binarity from 'oRV' data in SIMBAD (CDS)
      character*1   T          (nr__3) ! *[bu.] Binarity from 'MK' data in SIMBAD (CDS)
      character*1   A          (nr__3) ! *[vu2db.] Binarity from Barbier-Brossat+ <III/184>
      character*1   M          (nr__3) ! *[vu2dbf.] Binarity from Malaroda+ <III/216>
      character*1   L          (nr__3) ! *[vu2dbc.] Binarity from additional radial velocities
      character*1   V          (nr__3) ! *[abew.] Binarity from photometric variability.
      character*1   P          (nr__3) ! *[csb.]
      character*1   I          (nr__3) ! [i.] individual note is given in file notes3.dat
      integer*4     Note_3     (nr__3) ! ?Individual note in notes3.dat file
*Note on H: HIP indicators for a suspected visual binary:
*    s = Flag S in HIP Field H61.
*    d = Flag D in HIP Field H52, based on photometry.
*         This could be an indication of duplicity.
*    t = HIP Flags S and D (t = s+d).
*Note on U: HIP percentage of rejected data (HIP Field H29 (F1)).
*    one digit only (less than 10%)
*    A high percentage of rejected data may be caused by a duplicity of the
*    object, but other reasons cannot be excluded.
*Note on F: HIPPARCOS goodness-of-fit parameter (HIP Field H30, F2)
*    -        F2 < 0
*    0   0 <= F2 < 1
*    1   1 <= F2 < 2
*    2   2 <= F2 < 3
*    3   3 <= F2 < 4
*        etc.
*    A large value of F2 (e.g. larger than 3) may be caused by a duplicity
*    of the object, but other reasons cannot be excluded.
*Note on K: Indications on binarity from the catalogue of speckle
*    observations (Hartkopf et al., 1999AJ....118..509H).
*    b = binary resolved by speckle (or other interferometric) observations
*        (such objects are generally excluded from the FK6(III))
*    u = possibly resolved
*    n = object observed, but not resolved (i.e. not hint to binarity)
*Note on C: Indicator for a star which has one (or more) visual
*   component(s) with a separation {rho} of at least 60".
*   Source of information:
*    c = CCDM (Dommanget and Nys, 1994, Cat. <I/211>)
*    t = TYCHO2 (Hoeg et al., 2000, Cat. <I/259>)
*    w = WDS (Worley and Douglass, 1997 (Cat. <I/237>), and updated versions
*        under the given URL)
*    r = other sources
*    Visual binaries with {rho}<60" are generally excluded from the FK6(III).
*Note on G, B, S, A, M, L: Binarity from radial velocities.
*    v = radial velocity is variable
*    u = radial velocity may be variable
*    2 = variable radial velocities for two stellar components
*    b = (other) indications of binarity
*    d = (other) indications of binarity are doubtful
*  Remarks about the binarity flag:
*    f = probably erroneous indication on binarity.
*    c = radial velocity is probably constant.
*Note on T: Indication of binarity from spectral classification:
*    b = binary
*    u = possibly a binary
*Note on V: Indication of binarity from photometric variability
*    a = eclipsing binary, Algol type
*    b = eclipsing binary, beta Lyrae type
*    e = eclipsing binary, type uncertain
*    w = eclipsing binary, W Ursae Majoris type
*Note on P: Indication for a variability of the radial velocity V_rad_
*    due to stellar pulsation (which may be confused with a variability of
*    V_rad_ due to spectroscopic binarity).
*    c = Cepheid
*    s = delta Scuti star
*    b = beta Cephei star

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'notes3.dat'	! Individual notes to FK6(III) stars

      integer*4 nr__4
      parameter (nr__4=56)	! Number of records
      character*80 ar__4  	! Full-size record

      integer*4     Note_4     (nr__4) ! [1/3024]=+ Number of the note
      character*75  Text_1     (nr__4) ! Text of the note (1)
*Note (1): Abbreviations for flags:
*  optical companion because of:
*    af = approximately fixed
*    nc = no common proper motion
*    hv = high relative velocity
*    pc = large separation in pc
*  other flags:
*    no = no relative position given
*    oo = only one observation given in CCDM or WDS
*         (hence no relative proper motion available)

C=============================================================================

C  Loading file 'fk6_1.dat'	! FK6(I)   File version 01

C  Format for file interpretation

    1 format(
     +  1X,I5,3X,I6,3X,A19,2X,I2,1X,I2,1X,F9.6,4X,A1,I2,1X,I2,1X,F8.5,
     +  3X,F9.2,3X,F9.2,2X,F7.2,4X,F5.2,4X,F5.2,2X,F7.2,4X,F5.2,4X,
     +  F5.2,3X,F6.2,4X,F5.2,4X,A1,4X,F6.1,4X,F5.2,4X,I1,5X,I2,5X,I1,
     +  5X,I1,4X,F8.2,3X,F8.2,3X,F8.2,3X,F8.2,3X,F8.2,3X,F8.2,3X,F8.2,
     +  3X,F8.2,3X,F8.2,3X,F8.2,3X,F8.2,3X,F8.2,3X,F8.2,3X,F8.2,3X,
     +  F8.2,3X,F8.2,3X,F8.2,3X,F8.2,2X,F7.2,2X,F7.2,2X,F7.2,2X,F7.2,
     +  4X,F5.2,4X,F5.2,4X,F5.2,4X,F5.2,4X,F5.2,4X,F5.2,4X,F5.2,4X,
     +  F5.2,4X,F5.2,2X,F7.2,2X,F7.2,2X,F7.2,2X,F7.2,4X,F5.2,4X,F5.2,
     +  4X,F5.2,4X,F5.2,4X,F5.2,4X,F5.2,4X,F5.2,4X,F5.2,4X,F5.2,3X,
     +  F6.2,3X,F6.2,3X,F6.2,5X,F4.2,5X,F4.2,5X,F4.2,3X,F8.2,3X,F8.2,
     +  3X,F8.2,3X,F8.2,6X,F5.2,6X,F5.2,7X,F4.2,7X,F4.2,4X,I1,5X,F5.2,
     +  4X,F5.2,4X,F5.2,4X,F5.2,3X,I3)

C  Effective file loading

      open(unit=1,file='fk6_1.dat', status='old')
      write(6,*) '....Loading file: fk6_1.dat'
      do i__=1,878
        read(1,'(A842)')ar__
        read(ar__,1)
     +  FK6(i__),HIP(i__),Name(i__),RAh(i__),RAm(i__),RAs(i__),
     +  DE_(i__),DEd(i__),DEm(i__),DEs(i__),pmRA_(i__),pmDE(i__),
     +  TRA(i__),e_RA_(i__),e_pmRA_(i__),TDE(i__),e_DEs(i__),
     +  e_pmDE(i__),plx(i__),e_plx(i__),f_plx(i__),RV(i__),Vmag(i__),
     +  f_Vmag(i__),Kbin1(i__),Kbin2(i__),Kae(i__),DRA_LTP(i__),
     +  DRA_STP(i__),DRA_HIP(i__),DRA_FK5(i__),DDE_LTP(i__),
     +  DDE_STP(i__),DDE_HIP(i__),DDE_FK5(i__),DpmRA_LTP(i__),
     +  DpmRA_STP(i__),DpmRA_HIP(i__),DpmRA_FK5(i__),DpmRA_mu0(i__),
     +  DpmDE_LTP(i__),DpmDE_STP(i__),DpmDE_HIP(i__),DpmDE_FK5(i__),
     +  DpmDE_mu0(i__),TRALTP(i__),TRASTP(i__),TRAHIP(i__),
     +  TRAFK5(i__),e_RA_LTP(i__),e_RA_STP(i__),e_RA_HIP(i__),
     +  e_RA_FK5(i__),e_pmRA_LTP(i__),e_pmRA_STP(i__),e_pmRA_HIP(i__),
     +  e_pmRA_FK5(i__),e_pmRA_mu0(i__),TDELTP(i__),TDESTP(i__),
     +  TDEHIP(i__),TDEFK5(i__),e_DE_LTP(i__),e_DE_STP(i__),
     +  e_DE_HIP(i__),e_DE_FK5(i__),e_pmDE_LTP(i__),e_pmDE_STP(i__),
     +  e_pmDE_HIP(i__),e_pmDE_FK5(i__),e_pmDE_mu0(i__),plxSI(i__),
     +  plxSTP(i__),plxHIP(i__),e_plxSI(i__),e_plxSTP(i__),
     +  e_plxHIP(i__),DRAsys(i__),DDEsys(i__),DpmRA_sys(i__),
     +  DpmDE_sys(i__),e_RA_sys(i__),e_DE_sys(i__),e_pmRA_sys(i__),
     +  e_pmDE_sys(i__),Ksys(i__),FFH(i__),F0H(i__),F0_GC_H(i__),
     +  F0F(i__),Note(i__)
        if(ar__(198:198) .EQ. '') f_Vmag(i__) = iNULL__
        if(ar__(211:211) .EQ. '') Kbin2(i__) = iNULL__
        if(ar__(217:217) .EQ. '') Kae(i__) = iNULL__
        if(ar__(797:797) .EQ. '') Ksys(i__) = iNULL__
        if(ar__(821:825) .EQ. '') F0_GC_H(i__) = rNULL__
        if(ar__(838:840) .EQ. '') Note(i__) = iNULL__
c       Derive coordinates RA_ and Dec from input data
c       (RA_ and Dec are set to rNULL_ when unknown)
        RA_(i__) = RAh(i__)
        if(RAh(i__) .GE. 0) RA_(i__)=RAh(i__)*15.
        if(RAm(i__) .GE. 0) RA_(i__)=RA_(i__)+RAm(i__)/4.
        if(RAs(i__) .GE. 0) RA_(i__)=RA_(i__)+RAs(i__)/240.
        Dec(i__) = DEd(i__)
        if(DEm(i__) .GE. 0) Dec(i__)=Dec(i__)+DEm(i__)/60.
        if(DEs(i__) .GE. 0) Dec(i__)=Dec(i__)+DEs(i__)/3600.
        if(DE_(i__).EQ.'-'.AND.Dec(i__).GE.0) Dec(i__)=-Dec(i__)
c    ..............Just test output...........
        write(6,1)
     +  FK6(i__),HIP(i__),Name(i__),RAh(i__),RAm(i__),RAs(i__),
     +  DE_(i__),DEd(i__),DEm(i__),DEs(i__),pmRA_(i__),pmDE(i__),
     +  TRA(i__),e_RA_(i__),e_pmRA_(i__),TDE(i__),e_DEs(i__),
     +  e_pmDE(i__),plx(i__),e_plx(i__),f_plx(i__),RV(i__),Vmag(i__),
     +  f_Vmag(i__),Kbin1(i__),Kbin2(i__),Kae(i__),DRA_LTP(i__),
     +  DRA_STP(i__),DRA_HIP(i__),DRA_FK5(i__),DDE_LTP(i__),
     +  DDE_STP(i__),DDE_HIP(i__),DDE_FK5(i__),DpmRA_LTP(i__),
     +  DpmRA_STP(i__),DpmRA_HIP(i__),DpmRA_FK5(i__),DpmRA_mu0(i__),
     +  DpmDE_LTP(i__),DpmDE_STP(i__),DpmDE_HIP(i__),DpmDE_FK5(i__),
     +  DpmDE_mu0(i__),TRALTP(i__),TRASTP(i__),TRAHIP(i__),
     +  TRAFK5(i__),e_RA_LTP(i__),e_RA_STP(i__),e_RA_HIP(i__),
     +  e_RA_FK5(i__),e_pmRA_LTP(i__),e_pmRA_STP(i__),e_pmRA_HIP(i__),
     +  e_pmRA_FK5(i__),e_pmRA_mu0(i__),TDELTP(i__),TDESTP(i__),
     +  TDEHIP(i__),TDEFK5(i__),e_DE_LTP(i__),e_DE_STP(i__),
     +  e_DE_HIP(i__),e_DE_FK5(i__),e_pmDE_LTP(i__),e_pmDE_STP(i__),
     +  e_pmDE_HIP(i__),e_pmDE_FK5(i__),e_pmDE_mu0(i__),plxSI(i__),
     +  plxSTP(i__),plxHIP(i__),e_plxSI(i__),e_plxSTP(i__),
     +  e_plxHIP(i__),DRAsys(i__),DDEsys(i__),DpmRA_sys(i__),
     +  DpmDE_sys(i__),e_RA_sys(i__),e_DE_sys(i__),e_pmRA_sys(i__),
     +  e_pmDE_sys(i__),Ksys(i__),FFH(i__),F0H(i__),F0_GC_H(i__),
     +  F0F(i__),Note(i__)
        write(6,'(6H Pos: 2F8.4)') RA_(i__),Dec(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'fk6_3.dat'	! FK6(III) File version 01

C  Format for file interpretation

    2 format(
     +  1X,I5,3X,I6,3X,A2,3X,A19,2X,I2,1X,I2,1X,F9.6,4X,A1,I2,1X,I2,
     +  1X,F8.5,3X,F9.2,3X,F9.2,2X,F7.2,5X,F4.2,5X,F4.2,2X,F7.2,5X,
     +  F4.2,5X,F4.2,4X,F5.1,5X,F4.2,4X,A1,4X,F8.1,4X,F4.2,5X,I1,5X,
     +  I2,5X,I1,5X,I1,4X,F8.2,3X,F8.2,3X,F8.2,3X,F8.2,3X,F8.2,3X,
     +  F8.2,3X,F8.2,3X,F8.2,3X,F8.2,3X,F8.2,3X,F5.2,4X,F5.2,4X,F5.2,
     +  4X,F5.2,4X,F5.2,4X,F5.2,4X,F5.2,4X,F5.2,4X,F5.2,4X,F5.2,4X,
     +  F5.2,4X,F5.2,4X,F5.2,5X,F4.2,4X,F5.2,5X,A1,1X,I4)

C  Effective file loading

      open(unit=1,file='fk6_3.dat', status='old')
      write(6,*) '....Loading file: fk6_3.dat'
      do i__=1,3272
        read(1,'(A483)')ar__1
        read(ar__1,2)
     +  FK6_1(i__),HIP_1(i__),Flag(i__),Name_1(i__),RAh_1(i__),
     +  RAm_1(i__),RAs_1(i__),DE__1(i__),DEd_1(i__),DEm_1(i__),
     +  DEs_1(i__),pmRA__1(i__),pmDE_1(i__),TRA_1(i__),e_RA__1(i__),
     +  e_pmRA__1(i__),TDE_1(i__),e_DEs_1(i__),e_pmDE_1(i__),
     +  plx_1(i__),e_plx_1(i__),f_plx_1(i__),RV_1(i__),Vmag_1(i__),
     +  f_Vmag_1(i__),Kbin1_1(i__),Kbin2_1(i__),Kae_1(i__),
     +  DpmRA_LTP_1(i__),DpmRA_STP_1(i__),DpmRA_HIP_1(i__),
     +  DpmRA_FK5_1(i__),DpmRA_mu0_1(i__),DpmDE_LTP_1(i__),
     +  DpmDE_STP_1(i__),DpmDE_HIP_1(i__),DpmDE_FK5_1(i__),
     +  DpmDE_mu0_1(i__),e_DpmRA_LTP(i__),e_DpmRA_STP(i__),
     +  e_DpmRA_HIP(i__),e_DpmRA_FK5(i__),e_DpmRA_mu0(i__),
     +  e_DpmDE_LTP(i__),e_DpmDE_STP(i__),e_DpmDE_HIP(i__),
     +  e_DpmDE_FK5(i__),e_DpmDE_mu0(i__),FFH_1(i__),F0H_1(i__),
     +  F0_GC_H_1(i__),F0F_1(i__),FTH(i__),tNote(i__),Note_1(i__)
        if(ar__1(184:191) .EQ. '') RV_1(i__) = rNULL__
        if(ar__1(205:205) .EQ. '') f_Vmag_1(i__) = iNULL__
        if(ar__1(218:218) .EQ. '') Kbin2_1(i__) = iNULL__
        if(ar__1(224:224) .EQ. '') Kae_1(i__) = iNULL__
        if(ar__1(447:451) .EQ. '') F0_GC_H_1(i__) = rNULL__
        if(ar__1(465:469) .EQ. '') FTH(i__) = rNULL__
        if(ar__1(477:480) .EQ. '') Note_1(i__) = iNULL__
c       Derive coordinates RA__1 and Dec_1 from input data
c       (RA__1 and Dec_1 are set to rNULL_ when unknown)
        RA__1(i__) = RAh_1(i__)
        if(RAh_1(i__) .GE. 0) RA__1(i__)=RAh_1(i__)*15.
        if(RAm_1(i__) .GE. 0) RA__1(i__)=RA__1(i__)+RAm_1(i__)/4.
        if(RAs_1(i__) .GE. 0) RA__1(i__)=RA__1(i__)+RAs_1(i__)/240.
        Dec_1(i__) = DEd_1(i__)
        if(DEm_1(i__) .GE. 0) Dec_1(i__)=Dec_1(i__)+DEm_1(i__)/60.
        if(DEs_1(i__) .GE. 0) Dec_1(i__)=Dec_1(i__)+DEs_1(i__)/3600.
        if(DE__1(i__).EQ.'-'.AND.Dec_1(i__).GE.0) Dec_1(i__)=-Dec_1(i__)
c    ..............Just test output...........
        write(6,2)
     +  FK6_1(i__),HIP_1(i__),Flag(i__),Name_1(i__),RAh_1(i__),
     +  RAm_1(i__),RAs_1(i__),DE__1(i__),DEd_1(i__),DEm_1(i__),
     +  DEs_1(i__),pmRA__1(i__),pmDE_1(i__),TRA_1(i__),e_RA__1(i__),
     +  e_pmRA__1(i__),TDE_1(i__),e_DEs_1(i__),e_pmDE_1(i__),
     +  plx_1(i__),e_plx_1(i__),f_plx_1(i__),RV_1(i__),Vmag_1(i__),
     +  f_Vmag_1(i__),Kbin1_1(i__),Kbin2_1(i__),Kae_1(i__),
     +  DpmRA_LTP_1(i__),DpmRA_STP_1(i__),DpmRA_HIP_1(i__),
     +  DpmRA_FK5_1(i__),DpmRA_mu0_1(i__),DpmDE_LTP_1(i__),
     +  DpmDE_STP_1(i__),DpmDE_HIP_1(i__),DpmDE_FK5_1(i__),
     +  DpmDE_mu0_1(i__),e_DpmRA_LTP(i__),e_DpmRA_STP(i__),
     +  e_DpmRA_HIP(i__),e_DpmRA_FK5(i__),e_DpmRA_mu0(i__),
     +  e_DpmDE_LTP(i__),e_DpmDE_STP(i__),e_DpmDE_HIP(i__),
     +  e_DpmDE_FK5(i__),e_DpmDE_mu0(i__),FFH_1(i__),F0H_1(i__),
     +  F0_GC_H_1(i__),F0F_1(i__),FTH(i__),tNote(i__),Note_1(i__)
        write(6,'(6H Pos: 2F8.4)') RA__1(i__),Dec_1(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'notes1.dat'	! Individual notes to FK6(I) stars

C  Format for file interpretation

    3 format(I4,1X,A75)

C  Effective file loading

      open(unit=1,file='notes1.dat', status='old')
      write(6,*) '....Loading file: notes1.dat'
      do i__=1,1310
        read(1,'(A80)')ar__2
        read(ar__2,3)Note_2(i__),Text(i__)
c    ..............Just test output...........
        write(6,3)Note_2(i__),Text(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'tabnote3.dat'	! `Tabular Notes' about Binarity in FK6(III)

C  Format for file interpretation

    4 format(
     +  2X,I4,3X,I6,4X,A1,2X,I1,I1,2X,A1,A1,2X,A1,A1,A1,A1,2X,A1,A1,
     +  A1,2X,A1,A1,A1,5X,I4)

C  Effective file loading

      open(unit=1,file='tabnote3.dat', status='old')
      write(6,*) '....Loading file: tabnote3.dat'
      do i__=1,1144
        read(1,'(A56)')ar__3
        read(ar__3,4)
     +  FK6_2(i__),HIP_2(i__),H(i__),U(i__),F(i__),K(i__),C(i__),
     +  G(i__),B(i__),S(i__),T(i__),A(i__),M(i__),L(i__),V(i__),
     +  P(i__),I(i__),Note_3(i__)
        if(ar__3(24:24) .EQ. '') F(i__) = iNULL__
        if(ar__3(50:53) .EQ. '') Note_3(i__) = iNULL__
c    ..............Just test output...........
        write(6,4)
     +  FK6_2(i__),HIP_2(i__),H(i__),U(i__),F(i__),K(i__),C(i__),
     +  G(i__),B(i__),S(i__),T(i__),A(i__),M(i__),L(i__),V(i__),
     +  P(i__),I(i__),Note_3(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'notes3.dat'	! Individual notes to FK6(III) stars

C  Format for file interpretation

    5 format(I4,1X,A75)

C  Effective file loading

      open(unit=1,file='notes3.dat', status='old')
      write(6,*) '....Loading file: notes3.dat'
      do i__=1,56
        read(1,'(A80)')ar__4
        read(ar__4,5)Note_4(i__),Text_1(i__)
c    ..............Just test output...........
        write(6,5)Note_4(i__),Text_1(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================
      stop
      end