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.5, on 2013-May-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