Conversion of standardized ReadMe file for
file /./ftp/cats/I/275 into FORTRAN code for reading data files line by line.
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/275 The AC 2000.2 Catalogue (Urban+ 2001)
*================================================================================
*AC 2000.2: The Astrographic Catalogue on the Hipparcos System
* Urban S.E., Corbin T.E., Wycoff G.L., Hoeg E., Fabricius C., Makarov,V.V.
* <Astron. J. 115, 1212 (1998)>
* =1998AJ....115.1212U
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ac_p60.dat' ! Stars with declinations +60 to +90 degrees (1)
integer*4 nr__
parameter (nr__=258696) ! Number of records
character*93 ar__ ! Full-size record
real*8 RA_ ! (deg) Right Ascension J2000
real*8 Dec ! (deg) Declination J2000
integer*4 RAh ! (h) R.A. (hours), HCRS, at epoch mEp
integer*4 RAm ! (min) R.A. (minutes), HCRS
real*4 RAs ! (s) R.A. (seconds), HCRS
character*1 DE_ ! Decl. (sign), HCRS
integer*4 DEd ! (deg) Decl. (degrees), HCRS, at epoch mEp
integer*4 DEm ! (arcmin) Decl. (minutes), HCRS
real*4 DEs ! (arcsec) Decl. (seconds), HCRS
real*4 Bmag ! (mag) *Observed B magnitude
real*8 mEp ! (yr) Mean epoch of position
integer*4 Num ! Number of images used for astrometry
real*4 e_RAs ! (arcsec) *? Standard deviation of Right Ascension
real*4 e_DEs ! (arcsec) *? Standard deviation of Declination
integer*4 ACnum ! USNO generated identifier
integer*4 HIP ! *? Hipparcos number
character*1 m_HIP ! *Hipparcos component identifier
character*12 TYC2 ! *Tycho-2 identifier
real*4 Vmag ! (mag) *? V magnitude
integer*4 magflg ! *[1,3]? Magnitude warning flag
integer*4 verflg ! *[1]? Verification flag
*Notes on Bmag and Vmag:
* The Bmag is either taken directly from the Tycho-2 Catalogue or is an
* average of the computed magnitudes based on the measured image
* diameters from the AC plates. To determine which is the case, one will
* need to check the Vmag field. All stars with a non-blank Vmag field
* contain Tycho-2 photometry in both the Bmag and Vmag fields. Stars
* with a blank Vmag field contain B magnitudes from the measured image
* diameters on the AC plates. In all cases, the Vmag data are from
* Tycho-2. Note there are 20 stars where the Bmag is from Tycho-2 but
* Tycho-2 did not contain a V magnitude. For these, a value of ".000" is
* listed under Vmag and a value of "3" is set in the magflg field.
*Notes on e_RAs and e_DEs:
* These values are only available for stars with two or more images.
* They are based on the scatter of the individual measures with respect
* to the mean. As such, values can be very small or even 0.000.
*Notes on HIP and m_HIP:
* The Hipparcos numbers and component identifiers listed are generally
* taken from the Tycho-2 main catalogue file. The vast majority of
* Hipparcos stars are identified, but this cross reference is not 100%
* complete.
*Notes on TYC2:
* The original Tycho-2 identifier consists of three fields, each
* separated by a blank. The identifier given here is a concatenation of
* these fields, with zeros replacing the blanks.
*Notes on magflg:
* This flag should caution users about possible problems in the photometry.
*
* A value of "1" is given if the star has a Bmag value greater than 13.5
* or a Vmag value greater than 12.5.
*
* A value of "2" is given if the star was identified as a Tycho-2 star
* but the Bmag is from the measured image diameters on the AC plates.
* This is a result of either the Tycho-2 B_T magnitude is not available
* or it is listed as fainter than 14.00. Note that no Vmag is given in
* these cases. Where both flags "1" and "2" are set, only "2" is given.
*
* A "3" is given if the star was identified as a Tycho-2 star, but there
* is no Tycho-2 V_T magnitude. In these cases, the Tycho-2 V_T magnitude
* is set to .000. There are 20 such instances. Only 1 star (AC~408635,
* Tycho-2~107200084801) should have a "3" flag in combination with
* another. For this star, the Tycho-2 B_T is 13.51 and no Tycho-2 V_T
* magnitude exists (it is set to .000); The flag is set to "3" for this
* star.
*
* Number of records with magflg=1 is 211,796.
* Number of records with magflg=2 is 32,489.
* Number of records with magflg=3 is 20.
*Notes on verflg:
* This is either blank or "1". When set to "1", the star has not been
* found in Hipparcos, Tycho-2, the overlapping AC plate or the Guide
* Star Catalogue version 1.2. These records should be used with the
* understanding that stars at these positions may not exist.
* Number of records with verflg=1 is 199,039.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ac_p50.dat' ! Stars with declinations +50 to +59 59 59.99 (1)
integer*4 nr__1
parameter (nr__1=244782) ! Number of records
character*93 ar__1 ! Full-size record
real*8 RA__1 ! (deg) Right Ascension J2000
real*8 Dec_1 ! (deg) Declination J2000
integer*4 RAh_1 ! (h) R.A. (hours), HCRS, at epoch mEp
integer*4 RAm_1 ! (min) R.A. (minutes), HCRS
real*4 RAs_1 ! (s) R.A. (seconds), HCRS
character*1 DE__1 ! Decl. (sign), HCRS
integer*4 DEd_1 ! (deg) Decl. (degrees), HCRS, at epoch mEp
integer*4 DEm_1 ! (arcmin) Decl. (minutes), HCRS
real*4 DEs_1 ! (arcsec) Decl. (seconds), HCRS
real*4 Bmag_1 ! (mag) *Observed B magnitude
real*8 mEp_1 ! (yr) Mean epoch of position
integer*4 Num_1 ! Number of images used for astrometry
real*4 e_RAs_1 ! (arcsec) *? Standard deviation of Right Ascension
real*4 e_DEs_1 ! (arcsec) *? Standard deviation of Declination
integer*4 ACnum_1 ! USNO generated identifier
integer*4 HIP_1 ! *? Hipparcos number
character*1 m_HIP_1 ! *Hipparcos component identifier
character*12 TYC2_1 ! *Tycho-2 identifier
real*4 Vmag_1 ! (mag) *? V magnitude
integer*4 magflg_1 ! *[1,3]? Magnitude warning flag
integer*4 verflg_1 ! *[1]? Verification flag
*Notes on Bmag and Vmag:
* The Bmag is either taken directly from the Tycho-2 Catalogue or is an
* average of the computed magnitudes based on the measured image
* diameters from the AC plates. To determine which is the case, one will
* need to check the Vmag field. All stars with a non-blank Vmag field
* contain Tycho-2 photometry in both the Bmag and Vmag fields. Stars
* with a blank Vmag field contain B magnitudes from the measured image
* diameters on the AC plates. In all cases, the Vmag data are from
* Tycho-2. Note there are 20 stars where the Bmag is from Tycho-2 but
* Tycho-2 did not contain a V magnitude. For these, a value of ".000" is
* listed under Vmag and a value of "3" is set in the magflg field.
*Notes on e_RAs and e_DEs:
* These values are only available for stars with two or more images.
* They are based on the scatter of the individual measures with respect
* to the mean. As such, values can be very small or even 0.000.
*Notes on HIP and m_HIP:
* The Hipparcos numbers and component identifiers listed are generally
* taken from the Tycho-2 main catalogue file. The vast majority of
* Hipparcos stars are identified, but this cross reference is not 100%
* complete.
*Notes on TYC2:
* The original Tycho-2 identifier consists of three fields, each
* separated by a blank. The identifier given here is a concatenation of
* these fields, with zeros replacing the blanks.
*Notes on magflg:
* This flag should caution users about possible problems in the photometry.
*
* A value of "1" is given if the star has a Bmag value greater than 13.5
* or a Vmag value greater than 12.5.
*
* A value of "2" is given if the star was identified as a Tycho-2 star
* but the Bmag is from the measured image diameters on the AC plates.
* This is a result of either the Tycho-2 B_T magnitude is not available
* or it is listed as fainter than 14.00. Note that no Vmag is given in
* these cases. Where both flags "1" and "2" are set, only "2" is given.
*
* A "3" is given if the star was identified as a Tycho-2 star, but there
* is no Tycho-2 V_T magnitude. In these cases, the Tycho-2 V_T magnitude
* is set to .000. There are 20 such instances. Only 1 star (AC~408635,
* Tycho-2~107200084801) should have a "3" flag in combination with
* another. For this star, the Tycho-2 B_T is 13.51 and no Tycho-2 V_T
* magnitude exists (it is set to .000); The flag is set to "3" for this
* star.
*
* Number of records with magflg=1 is 211,796.
* Number of records with magflg=2 is 32,489.
* Number of records with magflg=3 is 20.
*Notes on verflg:
* This is either blank or "1". When set to "1", the star has not been
* found in Hipparcos, Tycho-2, the overlapping AC plate or the Guide
* Star Catalogue version 1.2. These records should be used with the
* understanding that stars at these positions may not exist.
* Number of records with verflg=1 is 199,039.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ac_p40.dat' ! Stars with declinations +40 to +49 59 59.99 (1)
integer*4 nr__2
parameter (nr__2=203384) ! Number of records
character*93 ar__2 ! Full-size record
real*8 RA__2 ! (deg) Right Ascension J2000
real*8 Dec_2 ! (deg) Declination J2000
integer*4 RAh_2 ! (h) R.A. (hours), HCRS, at epoch mEp
integer*4 RAm_2 ! (min) R.A. (minutes), HCRS
real*4 RAs_2 ! (s) R.A. (seconds), HCRS
character*1 DE__2 ! Decl. (sign), HCRS
integer*4 DEd_2 ! (deg) Decl. (degrees), HCRS, at epoch mEp
integer*4 DEm_2 ! (arcmin) Decl. (minutes), HCRS
real*4 DEs_2 ! (arcsec) Decl. (seconds), HCRS
real*4 Bmag_2 ! (mag) *Observed B magnitude
real*8 mEp_2 ! (yr) Mean epoch of position
integer*4 Num_2 ! Number of images used for astrometry
real*4 e_RAs_2 ! (arcsec) *? Standard deviation of Right Ascension
real*4 e_DEs_2 ! (arcsec) *? Standard deviation of Declination
integer*4 ACnum_2 ! USNO generated identifier
integer*4 HIP_2 ! *? Hipparcos number
character*1 m_HIP_2 ! *Hipparcos component identifier
character*12 TYC2_2 ! *Tycho-2 identifier
real*4 Vmag_2 ! (mag) *? V magnitude
integer*4 magflg_2 ! *[1,3]? Magnitude warning flag
integer*4 verflg_2 ! *[1]? Verification flag
*Notes on Bmag and Vmag:
* The Bmag is either taken directly from the Tycho-2 Catalogue or is an
* average of the computed magnitudes based on the measured image
* diameters from the AC plates. To determine which is the case, one will
* need to check the Vmag field. All stars with a non-blank Vmag field
* contain Tycho-2 photometry in both the Bmag and Vmag fields. Stars
* with a blank Vmag field contain B magnitudes from the measured image
* diameters on the AC plates. In all cases, the Vmag data are from
* Tycho-2. Note there are 20 stars where the Bmag is from Tycho-2 but
* Tycho-2 did not contain a V magnitude. For these, a value of ".000" is
* listed under Vmag and a value of "3" is set in the magflg field.
*Notes on e_RAs and e_DEs:
* These values are only available for stars with two or more images.
* They are based on the scatter of the individual measures with respect
* to the mean. As such, values can be very small or even 0.000.
*Notes on HIP and m_HIP:
* The Hipparcos numbers and component identifiers listed are generally
* taken from the Tycho-2 main catalogue file. The vast majority of
* Hipparcos stars are identified, but this cross reference is not 100%
* complete.
*Notes on TYC2:
* The original Tycho-2 identifier consists of three fields, each
* separated by a blank. The identifier given here is a concatenation of
* these fields, with zeros replacing the blanks.
*Notes on magflg:
* This flag should caution users about possible problems in the photometry.
*
* A value of "1" is given if the star has a Bmag value greater than 13.5
* or a Vmag value greater than 12.5.
*
* A value of "2" is given if the star was identified as a Tycho-2 star
* but the Bmag is from the measured image diameters on the AC plates.
* This is a result of either the Tycho-2 B_T magnitude is not available
* or it is listed as fainter than 14.00. Note that no Vmag is given in
* these cases. Where both flags "1" and "2" are set, only "2" is given.
*
* A "3" is given if the star was identified as a Tycho-2 star, but there
* is no Tycho-2 V_T magnitude. In these cases, the Tycho-2 V_T magnitude
* is set to .000. There are 20 such instances. Only 1 star (AC~408635,
* Tycho-2~107200084801) should have a "3" flag in combination with
* another. For this star, the Tycho-2 B_T is 13.51 and no Tycho-2 V_T
* magnitude exists (it is set to .000); The flag is set to "3" for this
* star.
*
* Number of records with magflg=1 is 211,796.
* Number of records with magflg=2 is 32,489.
* Number of records with magflg=3 is 20.
*Notes on verflg:
* This is either blank or "1". When set to "1", the star has not been
* found in Hipparcos, Tycho-2, the overlapping AC plate or the Guide
* Star Catalogue version 1.2. These records should be used with the
* understanding that stars at these positions may not exist.
* Number of records with verflg=1 is 199,039.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ac_p30.dat' ! Stars with declinations +30 to +39 59 59.99 (1)
integer*4 nr__3
parameter (nr__3=380756) ! Number of records
character*93 ar__3 ! Full-size record
real*8 RA__3 ! (deg) Right Ascension J2000
real*8 Dec_3 ! (deg) Declination J2000
integer*4 RAh_3 ! (h) R.A. (hours), HCRS, at epoch mEp
integer*4 RAm_3 ! (min) R.A. (minutes), HCRS
real*4 RAs_3 ! (s) R.A. (seconds), HCRS
character*1 DE__3 ! Decl. (sign), HCRS
integer*4 DEd_3 ! (deg) Decl. (degrees), HCRS, at epoch mEp
integer*4 DEm_3 ! (arcmin) Decl. (minutes), HCRS
real*4 DEs_3 ! (arcsec) Decl. (seconds), HCRS
real*4 Bmag_3 ! (mag) *Observed B magnitude
real*8 mEp_3 ! (yr) Mean epoch of position
integer*4 Num_3 ! Number of images used for astrometry
real*4 e_RAs_3 ! (arcsec) *? Standard deviation of Right Ascension
real*4 e_DEs_3 ! (arcsec) *? Standard deviation of Declination
integer*4 ACnum_3 ! USNO generated identifier
integer*4 HIP_3 ! *? Hipparcos number
character*1 m_HIP_3 ! *Hipparcos component identifier
character*12 TYC2_3 ! *Tycho-2 identifier
real*4 Vmag_3 ! (mag) *? V magnitude
integer*4 magflg_3 ! *[1,3]? Magnitude warning flag
integer*4 verflg_3 ! *[1]? Verification flag
*Notes on Bmag and Vmag:
* The Bmag is either taken directly from the Tycho-2 Catalogue or is an
* average of the computed magnitudes based on the measured image
* diameters from the AC plates. To determine which is the case, one will
* need to check the Vmag field. All stars with a non-blank Vmag field
* contain Tycho-2 photometry in both the Bmag and Vmag fields. Stars
* with a blank Vmag field contain B magnitudes from the measured image
* diameters on the AC plates. In all cases, the Vmag data are from
* Tycho-2. Note there are 20 stars where the Bmag is from Tycho-2 but
* Tycho-2 did not contain a V magnitude. For these, a value of ".000" is
* listed under Vmag and a value of "3" is set in the magflg field.
*Notes on e_RAs and e_DEs:
* These values are only available for stars with two or more images.
* They are based on the scatter of the individual measures with respect
* to the mean. As such, values can be very small or even 0.000.
*Notes on HIP and m_HIP:
* The Hipparcos numbers and component identifiers listed are generally
* taken from the Tycho-2 main catalogue file. The vast majority of
* Hipparcos stars are identified, but this cross reference is not 100%
* complete.
*Notes on TYC2:
* The original Tycho-2 identifier consists of three fields, each
* separated by a blank. The identifier given here is a concatenation of
* these fields, with zeros replacing the blanks.
*Notes on magflg:
* This flag should caution users about possible problems in the photometry.
*
* A value of "1" is given if the star has a Bmag value greater than 13.5
* or a Vmag value greater than 12.5.
*
* A value of "2" is given if the star was identified as a Tycho-2 star
* but the Bmag is from the measured image diameters on the AC plates.
* This is a result of either the Tycho-2 B_T magnitude is not available
* or it is listed as fainter than 14.00. Note that no Vmag is given in
* these cases. Where both flags "1" and "2" are set, only "2" is given.
*
* A "3" is given if the star was identified as a Tycho-2 star, but there
* is no Tycho-2 V_T magnitude. In these cases, the Tycho-2 V_T magnitude
* is set to .000. There are 20 such instances. Only 1 star (AC~408635,
* Tycho-2~107200084801) should have a "3" flag in combination with
* another. For this star, the Tycho-2 B_T is 13.51 and no Tycho-2 V_T
* magnitude exists (it is set to .000); The flag is set to "3" for this
* star.
*
* Number of records with magflg=1 is 211,796.
* Number of records with magflg=2 is 32,489.
* Number of records with magflg=3 is 20.
*Notes on verflg:
* This is either blank or "1". When set to "1", the star has not been
* found in Hipparcos, Tycho-2, the overlapping AC plate or the Guide
* Star Catalogue version 1.2. These records should be used with the
* understanding that stars at these positions may not exist.
* Number of records with verflg=1 is 199,039.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ac_p20.dat' ! Stars with declinations +20 to +29 59 59.99 (1)
integer*4 nr__4
parameter (nr__4=354027) ! Number of records
character*93 ar__4 ! Full-size record
real*8 RA__4 ! (deg) Right Ascension J2000
real*8 Dec_4 ! (deg) Declination J2000
integer*4 RAh_4 ! (h) R.A. (hours), HCRS, at epoch mEp
integer*4 RAm_4 ! (min) R.A. (minutes), HCRS
real*4 RAs_4 ! (s) R.A. (seconds), HCRS
character*1 DE__4 ! Decl. (sign), HCRS
integer*4 DEd_4 ! (deg) Decl. (degrees), HCRS, at epoch mEp
integer*4 DEm_4 ! (arcmin) Decl. (minutes), HCRS
real*4 DEs_4 ! (arcsec) Decl. (seconds), HCRS
real*4 Bmag_4 ! (mag) *Observed B magnitude
real*8 mEp_4 ! (yr) Mean epoch of position
integer*4 Num_4 ! Number of images used for astrometry
real*4 e_RAs_4 ! (arcsec) *? Standard deviation of Right Ascension
real*4 e_DEs_4 ! (arcsec) *? Standard deviation of Declination
integer*4 ACnum_4 ! USNO generated identifier
integer*4 HIP_4 ! *? Hipparcos number
character*1 m_HIP_4 ! *Hipparcos component identifier
character*12 TYC2_4 ! *Tycho-2 identifier
real*4 Vmag_4 ! (mag) *? V magnitude
integer*4 magflg_4 ! *[1,3]? Magnitude warning flag
integer*4 verflg_4 ! *[1]? Verification flag
*Notes on Bmag and Vmag:
* The Bmag is either taken directly from the Tycho-2 Catalogue or is an
* average of the computed magnitudes based on the measured image
* diameters from the AC plates. To determine which is the case, one will
* need to check the Vmag field. All stars with a non-blank Vmag field
* contain Tycho-2 photometry in both the Bmag and Vmag fields. Stars
* with a blank Vmag field contain B magnitudes from the measured image
* diameters on the AC plates. In all cases, the Vmag data are from
* Tycho-2. Note there are 20 stars where the Bmag is from Tycho-2 but
* Tycho-2 did not contain a V magnitude. For these, a value of ".000" is
* listed under Vmag and a value of "3" is set in the magflg field.
*Notes on e_RAs and e_DEs:
* These values are only available for stars with two or more images.
* They are based on the scatter of the individual measures with respect
* to the mean. As such, values can be very small or even 0.000.
*Notes on HIP and m_HIP:
* The Hipparcos numbers and component identifiers listed are generally
* taken from the Tycho-2 main catalogue file. The vast majority of
* Hipparcos stars are identified, but this cross reference is not 100%
* complete.
*Notes on TYC2:
* The original Tycho-2 identifier consists of three fields, each
* separated by a blank. The identifier given here is a concatenation of
* these fields, with zeros replacing the blanks.
*Notes on magflg:
* This flag should caution users about possible problems in the photometry.
*
* A value of "1" is given if the star has a Bmag value greater than 13.5
* or a Vmag value greater than 12.5.
*
* A value of "2" is given if the star was identified as a Tycho-2 star
* but the Bmag is from the measured image diameters on the AC plates.
* This is a result of either the Tycho-2 B_T magnitude is not available
* or it is listed as fainter than 14.00. Note that no Vmag is given in
* these cases. Where both flags "1" and "2" are set, only "2" is given.
*
* A "3" is given if the star was identified as a Tycho-2 star, but there
* is no Tycho-2 V_T magnitude. In these cases, the Tycho-2 V_T magnitude
* is set to .000. There are 20 such instances. Only 1 star (AC~408635,
* Tycho-2~107200084801) should have a "3" flag in combination with
* another. For this star, the Tycho-2 B_T is 13.51 and no Tycho-2 V_T
* magnitude exists (it is set to .000); The flag is set to "3" for this
* star.
*
* Number of records with magflg=1 is 211,796.
* Number of records with magflg=2 is 32,489.
* Number of records with magflg=3 is 20.
*Notes on verflg:
* This is either blank or "1". When set to "1", the star has not been
* found in Hipparcos, Tycho-2, the overlapping AC plate or the Guide
* Star Catalogue version 1.2. These records should be used with the
* understanding that stars at these positions may not exist.
* Number of records with verflg=1 is 199,039.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ac_p10.dat' ! Stars with declinations +10 to +19 59 59.99 (1)
integer*4 nr__5
parameter (nr__5=316295) ! Number of records
character*93 ar__5 ! Full-size record
real*8 RA__5 ! (deg) Right Ascension J2000
real*8 Dec_5 ! (deg) Declination J2000
integer*4 RAh_5 ! (h) R.A. (hours), HCRS, at epoch mEp
integer*4 RAm_5 ! (min) R.A. (minutes), HCRS
real*4 RAs_5 ! (s) R.A. (seconds), HCRS
character*1 DE__5 ! Decl. (sign), HCRS
integer*4 DEd_5 ! (deg) Decl. (degrees), HCRS, at epoch mEp
integer*4 DEm_5 ! (arcmin) Decl. (minutes), HCRS
real*4 DEs_5 ! (arcsec) Decl. (seconds), HCRS
real*4 Bmag_5 ! (mag) *Observed B magnitude
real*8 mEp_5 ! (yr) Mean epoch of position
integer*4 Num_5 ! Number of images used for astrometry
real*4 e_RAs_5 ! (arcsec) *? Standard deviation of Right Ascension
real*4 e_DEs_5 ! (arcsec) *? Standard deviation of Declination
integer*4 ACnum_5 ! USNO generated identifier
integer*4 HIP_5 ! *? Hipparcos number
character*1 m_HIP_5 ! *Hipparcos component identifier
character*12 TYC2_5 ! *Tycho-2 identifier
real*4 Vmag_5 ! (mag) *? V magnitude
integer*4 magflg_5 ! *[1,3]? Magnitude warning flag
integer*4 verflg_5 ! *[1]? Verification flag
*Notes on Bmag and Vmag:
* The Bmag is either taken directly from the Tycho-2 Catalogue or is an
* average of the computed magnitudes based on the measured image
* diameters from the AC plates. To determine which is the case, one will
* need to check the Vmag field. All stars with a non-blank Vmag field
* contain Tycho-2 photometry in both the Bmag and Vmag fields. Stars
* with a blank Vmag field contain B magnitudes from the measured image
* diameters on the AC plates. In all cases, the Vmag data are from
* Tycho-2. Note there are 20 stars where the Bmag is from Tycho-2 but
* Tycho-2 did not contain a V magnitude. For these, a value of ".000" is
* listed under Vmag and a value of "3" is set in the magflg field.
*Notes on e_RAs and e_DEs:
* These values are only available for stars with two or more images.
* They are based on the scatter of the individual measures with respect
* to the mean. As such, values can be very small or even 0.000.
*Notes on HIP and m_HIP:
* The Hipparcos numbers and component identifiers listed are generally
* taken from the Tycho-2 main catalogue file. The vast majority of
* Hipparcos stars are identified, but this cross reference is not 100%
* complete.
*Notes on TYC2:
* The original Tycho-2 identifier consists of three fields, each
* separated by a blank. The identifier given here is a concatenation of
* these fields, with zeros replacing the blanks.
*Notes on magflg:
* This flag should caution users about possible problems in the photometry.
*
* A value of "1" is given if the star has a Bmag value greater than 13.5
* or a Vmag value greater than 12.5.
*
* A value of "2" is given if the star was identified as a Tycho-2 star
* but the Bmag is from the measured image diameters on the AC plates.
* This is a result of either the Tycho-2 B_T magnitude is not available
* or it is listed as fainter than 14.00. Note that no Vmag is given in
* these cases. Where both flags "1" and "2" are set, only "2" is given.
*
* A "3" is given if the star was identified as a Tycho-2 star, but there
* is no Tycho-2 V_T magnitude. In these cases, the Tycho-2 V_T magnitude
* is set to .000. There are 20 such instances. Only 1 star (AC~408635,
* Tycho-2~107200084801) should have a "3" flag in combination with
* another. For this star, the Tycho-2 B_T is 13.51 and no Tycho-2 V_T
* magnitude exists (it is set to .000); The flag is set to "3" for this
* star.
*
* Number of records with magflg=1 is 211,796.
* Number of records with magflg=2 is 32,489.
* Number of records with magflg=3 is 20.
*Notes on verflg:
* This is either blank or "1". When set to "1", the star has not been
* found in Hipparcos, Tycho-2, the overlapping AC plate or the Guide
* Star Catalogue version 1.2. These records should be used with the
* understanding that stars at these positions may not exist.
* Number of records with verflg=1 is 199,039.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ac_p00.dat' ! Stars with declinations +00 to +09 59 59.99 (1)
integer*4 nr__6
parameter (nr__6=297604) ! Number of records
character*93 ar__6 ! Full-size record
real*8 RA__6 ! (deg) Right Ascension J2000
real*8 Dec_6 ! (deg) Declination J2000
integer*4 RAh_6 ! (h) R.A. (hours), HCRS, at epoch mEp
integer*4 RAm_6 ! (min) R.A. (minutes), HCRS
real*4 RAs_6 ! (s) R.A. (seconds), HCRS
character*1 DE__6 ! Decl. (sign), HCRS
integer*4 DEd_6 ! (deg) Decl. (degrees), HCRS, at epoch mEp
integer*4 DEm_6 ! (arcmin) Decl. (minutes), HCRS
real*4 DEs_6 ! (arcsec) Decl. (seconds), HCRS
real*4 Bmag_6 ! (mag) *Observed B magnitude
real*8 mEp_6 ! (yr) Mean epoch of position
integer*4 Num_6 ! Number of images used for astrometry
real*4 e_RAs_6 ! (arcsec) *? Standard deviation of Right Ascension
real*4 e_DEs_6 ! (arcsec) *? Standard deviation of Declination
integer*4 ACnum_6 ! USNO generated identifier
integer*4 HIP_6 ! *? Hipparcos number
character*1 m_HIP_6 ! *Hipparcos component identifier
character*12 TYC2_6 ! *Tycho-2 identifier
real*4 Vmag_6 ! (mag) *? V magnitude
integer*4 magflg_6 ! *[1,3]? Magnitude warning flag
integer*4 verflg_6 ! *[1]? Verification flag
*Notes on Bmag and Vmag:
* The Bmag is either taken directly from the Tycho-2 Catalogue or is an
* average of the computed magnitudes based on the measured image
* diameters from the AC plates. To determine which is the case, one will
* need to check the Vmag field. All stars with a non-blank Vmag field
* contain Tycho-2 photometry in both the Bmag and Vmag fields. Stars
* with a blank Vmag field contain B magnitudes from the measured image
* diameters on the AC plates. In all cases, the Vmag data are from
* Tycho-2. Note there are 20 stars where the Bmag is from Tycho-2 but
* Tycho-2 did not contain a V magnitude. For these, a value of ".000" is
* listed under Vmag and a value of "3" is set in the magflg field.
*Notes on e_RAs and e_DEs:
* These values are only available for stars with two or more images.
* They are based on the scatter of the individual measures with respect
* to the mean. As such, values can be very small or even 0.000.
*Notes on HIP and m_HIP:
* The Hipparcos numbers and component identifiers listed are generally
* taken from the Tycho-2 main catalogue file. The vast majority of
* Hipparcos stars are identified, but this cross reference is not 100%
* complete.
*Notes on TYC2:
* The original Tycho-2 identifier consists of three fields, each
* separated by a blank. The identifier given here is a concatenation of
* these fields, with zeros replacing the blanks.
*Notes on magflg:
* This flag should caution users about possible problems in the photometry.
*
* A value of "1" is given if the star has a Bmag value greater than 13.5
* or a Vmag value greater than 12.5.
*
* A value of "2" is given if the star was identified as a Tycho-2 star
* but the Bmag is from the measured image diameters on the AC plates.
* This is a result of either the Tycho-2 B_T magnitude is not available
* or it is listed as fainter than 14.00. Note that no Vmag is given in
* these cases. Where both flags "1" and "2" are set, only "2" is given.
*
* A "3" is given if the star was identified as a Tycho-2 star, but there
* is no Tycho-2 V_T magnitude. In these cases, the Tycho-2 V_T magnitude
* is set to .000. There are 20 such instances. Only 1 star (AC~408635,
* Tycho-2~107200084801) should have a "3" flag in combination with
* another. For this star, the Tycho-2 B_T is 13.51 and no Tycho-2 V_T
* magnitude exists (it is set to .000); The flag is set to "3" for this
* star.
*
* Number of records with magflg=1 is 211,796.
* Number of records with magflg=2 is 32,489.
* Number of records with magflg=3 is 20.
*Notes on verflg:
* This is either blank or "1". When set to "1", the star has not been
* found in Hipparcos, Tycho-2, the overlapping AC plate or the Guide
* Star Catalogue version 1.2. These records should be used with the
* understanding that stars at these positions may not exist.
* Number of records with verflg=1 is 199,039.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ac_n00.dat' ! Stars with declinations -00 to -09 59 59.99 (1)
integer*4 nr__7
parameter (nr__7=284059) ! Number of records
character*93 ar__7 ! Full-size record
real*8 RA__7 ! (deg) Right Ascension J2000
real*8 Dec_7 ! (deg) Declination J2000
integer*4 RAh_7 ! (h) R.A. (hours), HCRS, at epoch mEp
integer*4 RAm_7 ! (min) R.A. (minutes), HCRS
real*4 RAs_7 ! (s) R.A. (seconds), HCRS
character*1 DE__7 ! Decl. (sign), HCRS
integer*4 DEd_7 ! (deg) Decl. (degrees), HCRS, at epoch mEp
integer*4 DEm_7 ! (arcmin) Decl. (minutes), HCRS
real*4 DEs_7 ! (arcsec) Decl. (seconds), HCRS
real*4 Bmag_7 ! (mag) *Observed B magnitude
real*8 mEp_7 ! (yr) Mean epoch of position
integer*4 Num_7 ! Number of images used for astrometry
real*4 e_RAs_7 ! (arcsec) *? Standard deviation of Right Ascension
real*4 e_DEs_7 ! (arcsec) *? Standard deviation of Declination
integer*4 ACnum_7 ! USNO generated identifier
integer*4 HIP_7 ! *? Hipparcos number
character*1 m_HIP_7 ! *Hipparcos component identifier
character*12 TYC2_7 ! *Tycho-2 identifier
real*4 Vmag_7 ! (mag) *? V magnitude
integer*4 magflg_7 ! *[1,3]? Magnitude warning flag
integer*4 verflg_7 ! *[1]? Verification flag
*Notes on Bmag and Vmag:
* The Bmag is either taken directly from the Tycho-2 Catalogue or is an
* average of the computed magnitudes based on the measured image
* diameters from the AC plates. To determine which is the case, one will
* need to check the Vmag field. All stars with a non-blank Vmag field
* contain Tycho-2 photometry in both the Bmag and Vmag fields. Stars
* with a blank Vmag field contain B magnitudes from the measured image
* diameters on the AC plates. In all cases, the Vmag data are from
* Tycho-2. Note there are 20 stars where the Bmag is from Tycho-2 but
* Tycho-2 did not contain a V magnitude. For these, a value of ".000" is
* listed under Vmag and a value of "3" is set in the magflg field.
*Notes on e_RAs and e_DEs:
* These values are only available for stars with two or more images.
* They are based on the scatter of the individual measures with respect
* to the mean. As such, values can be very small or even 0.000.
*Notes on HIP and m_HIP:
* The Hipparcos numbers and component identifiers listed are generally
* taken from the Tycho-2 main catalogue file. The vast majority of
* Hipparcos stars are identified, but this cross reference is not 100%
* complete.
*Notes on TYC2:
* The original Tycho-2 identifier consists of three fields, each
* separated by a blank. The identifier given here is a concatenation of
* these fields, with zeros replacing the blanks.
*Notes on magflg:
* This flag should caution users about possible problems in the photometry.
*
* A value of "1" is given if the star has a Bmag value greater than 13.5
* or a Vmag value greater than 12.5.
*
* A value of "2" is given if the star was identified as a Tycho-2 star
* but the Bmag is from the measured image diameters on the AC plates.
* This is a result of either the Tycho-2 B_T magnitude is not available
* or it is listed as fainter than 14.00. Note that no Vmag is given in
* these cases. Where both flags "1" and "2" are set, only "2" is given.
*
* A "3" is given if the star was identified as a Tycho-2 star, but there
* is no Tycho-2 V_T magnitude. In these cases, the Tycho-2 V_T magnitude
* is set to .000. There are 20 such instances. Only 1 star (AC~408635,
* Tycho-2~107200084801) should have a "3" flag in combination with
* another. For this star, the Tycho-2 B_T is 13.51 and no Tycho-2 V_T
* magnitude exists (it is set to .000); The flag is set to "3" for this
* star.
*
* Number of records with magflg=1 is 211,796.
* Number of records with magflg=2 is 32,489.
* Number of records with magflg=3 is 20.
*Notes on verflg:
* This is either blank or "1". When set to "1", the star has not been
* found in Hipparcos, Tycho-2, the overlapping AC plate or the Guide
* Star Catalogue version 1.2. These records should be used with the
* understanding that stars at these positions may not exist.
* Number of records with verflg=1 is 199,039.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ac_n10.dat' ! Stars with declinations -10 to -19 59 59.99 (1)
integer*4 nr__8
parameter (nr__8=383610) ! Number of records
character*93 ar__8 ! Full-size record
real*8 RA__8 ! (deg) Right Ascension J2000
real*8 Dec_8 ! (deg) Declination J2000
integer*4 RAh_8 ! (h) R.A. (hours), HCRS, at epoch mEp
integer*4 RAm_8 ! (min) R.A. (minutes), HCRS
real*4 RAs_8 ! (s) R.A. (seconds), HCRS
character*1 DE__8 ! Decl. (sign), HCRS
integer*4 DEd_8 ! (deg) Decl. (degrees), HCRS, at epoch mEp
integer*4 DEm_8 ! (arcmin) Decl. (minutes), HCRS
real*4 DEs_8 ! (arcsec) Decl. (seconds), HCRS
real*4 Bmag_8 ! (mag) *Observed B magnitude
real*8 mEp_8 ! (yr) Mean epoch of position
integer*4 Num_8 ! Number of images used for astrometry
real*4 e_RAs_8 ! (arcsec) *? Standard deviation of Right Ascension
real*4 e_DEs_8 ! (arcsec) *? Standard deviation of Declination
integer*4 ACnum_8 ! USNO generated identifier
integer*4 HIP_8 ! *? Hipparcos number
character*1 m_HIP_8 ! *Hipparcos component identifier
character*12 TYC2_8 ! *Tycho-2 identifier
real*4 Vmag_8 ! (mag) *? V magnitude
integer*4 magflg_8 ! *[1,3]? Magnitude warning flag
integer*4 verflg_8 ! *[1]? Verification flag
*Notes on Bmag and Vmag:
* The Bmag is either taken directly from the Tycho-2 Catalogue or is an
* average of the computed magnitudes based on the measured image
* diameters from the AC plates. To determine which is the case, one will
* need to check the Vmag field. All stars with a non-blank Vmag field
* contain Tycho-2 photometry in both the Bmag and Vmag fields. Stars
* with a blank Vmag field contain B magnitudes from the measured image
* diameters on the AC plates. In all cases, the Vmag data are from
* Tycho-2. Note there are 20 stars where the Bmag is from Tycho-2 but
* Tycho-2 did not contain a V magnitude. For these, a value of ".000" is
* listed under Vmag and a value of "3" is set in the magflg field.
*Notes on e_RAs and e_DEs:
* These values are only available for stars with two or more images.
* They are based on the scatter of the individual measures with respect
* to the mean. As such, values can be very small or even 0.000.
*Notes on HIP and m_HIP:
* The Hipparcos numbers and component identifiers listed are generally
* taken from the Tycho-2 main catalogue file. The vast majority of
* Hipparcos stars are identified, but this cross reference is not 100%
* complete.
*Notes on TYC2:
* The original Tycho-2 identifier consists of three fields, each
* separated by a blank. The identifier given here is a concatenation of
* these fields, with zeros replacing the blanks.
*Notes on magflg:
* This flag should caution users about possible problems in the photometry.
*
* A value of "1" is given if the star has a Bmag value greater than 13.5
* or a Vmag value greater than 12.5.
*
* A value of "2" is given if the star was identified as a Tycho-2 star
* but the Bmag is from the measured image diameters on the AC plates.
* This is a result of either the Tycho-2 B_T magnitude is not available
* or it is listed as fainter than 14.00. Note that no Vmag is given in
* these cases. Where both flags "1" and "2" are set, only "2" is given.
*
* A "3" is given if the star was identified as a Tycho-2 star, but there
* is no Tycho-2 V_T magnitude. In these cases, the Tycho-2 V_T magnitude
* is set to .000. There are 20 such instances. Only 1 star (AC~408635,
* Tycho-2~107200084801) should have a "3" flag in combination with
* another. For this star, the Tycho-2 B_T is 13.51 and no Tycho-2 V_T
* magnitude exists (it is set to .000); The flag is set to "3" for this
* star.
*
* Number of records with magflg=1 is 211,796.
* Number of records with magflg=2 is 32,489.
* Number of records with magflg=3 is 20.
*Notes on verflg:
* This is either blank or "1". When set to "1", the star has not been
* found in Hipparcos, Tycho-2, the overlapping AC plate or the Guide
* Star Catalogue version 1.2. These records should be used with the
* understanding that stars at these positions may not exist.
* Number of records with verflg=1 is 199,039.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ac_n20.dat' ! Stars with declinations -20 to -29 59 59.99 (1)
integer*4 nr__9
parameter (nr__9=380218) ! Number of records
character*93 ar__9 ! Full-size record
real*8 RA__9 ! (deg) Right Ascension J2000
real*8 Dec_9 ! (deg) Declination J2000
integer*4 RAh_9 ! (h) R.A. (hours), HCRS, at epoch mEp
integer*4 RAm_9 ! (min) R.A. (minutes), HCRS
real*4 RAs_9 ! (s) R.A. (seconds), HCRS
character*1 DE__9 ! Decl. (sign), HCRS
integer*4 DEd_9 ! (deg) Decl. (degrees), HCRS, at epoch mEp
integer*4 DEm_9 ! (arcmin) Decl. (minutes), HCRS
real*4 DEs_9 ! (arcsec) Decl. (seconds), HCRS
real*4 Bmag_9 ! (mag) *Observed B magnitude
real*8 mEp_9 ! (yr) Mean epoch of position
integer*4 Num_9 ! Number of images used for astrometry
real*4 e_RAs_9 ! (arcsec) *? Standard deviation of Right Ascension
real*4 e_DEs_9 ! (arcsec) *? Standard deviation of Declination
integer*4 ACnum_9 ! USNO generated identifier
integer*4 HIP_9 ! *? Hipparcos number
character*1 m_HIP_9 ! *Hipparcos component identifier
character*12 TYC2_9 ! *Tycho-2 identifier
real*4 Vmag_9 ! (mag) *? V magnitude
integer*4 magflg_9 ! *[1,3]? Magnitude warning flag
integer*4 verflg_9 ! *[1]? Verification flag
*Notes on Bmag and Vmag:
* The Bmag is either taken directly from the Tycho-2 Catalogue or is an
* average of the computed magnitudes based on the measured image
* diameters from the AC plates. To determine which is the case, one will
* need to check the Vmag field. All stars with a non-blank Vmag field
* contain Tycho-2 photometry in both the Bmag and Vmag fields. Stars
* with a blank Vmag field contain B magnitudes from the measured image
* diameters on the AC plates. In all cases, the Vmag data are from
* Tycho-2. Note there are 20 stars where the Bmag is from Tycho-2 but
* Tycho-2 did not contain a V magnitude. For these, a value of ".000" is
* listed under Vmag and a value of "3" is set in the magflg field.
*Notes on e_RAs and e_DEs:
* These values are only available for stars with two or more images.
* They are based on the scatter of the individual measures with respect
* to the mean. As such, values can be very small or even 0.000.
*Notes on HIP and m_HIP:
* The Hipparcos numbers and component identifiers listed are generally
* taken from the Tycho-2 main catalogue file. The vast majority of
* Hipparcos stars are identified, but this cross reference is not 100%
* complete.
*Notes on TYC2:
* The original Tycho-2 identifier consists of three fields, each
* separated by a blank. The identifier given here is a concatenation of
* these fields, with zeros replacing the blanks.
*Notes on magflg:
* This flag should caution users about possible problems in the photometry.
*
* A value of "1" is given if the star has a Bmag value greater than 13.5
* or a Vmag value greater than 12.5.
*
* A value of "2" is given if the star was identified as a Tycho-2 star
* but the Bmag is from the measured image diameters on the AC plates.
* This is a result of either the Tycho-2 B_T magnitude is not available
* or it is listed as fainter than 14.00. Note that no Vmag is given in
* these cases. Where both flags "1" and "2" are set, only "2" is given.
*
* A "3" is given if the star was identified as a Tycho-2 star, but there
* is no Tycho-2 V_T magnitude. In these cases, the Tycho-2 V_T magnitude
* is set to .000. There are 20 such instances. Only 1 star (AC~408635,
* Tycho-2~107200084801) should have a "3" flag in combination with
* another. For this star, the Tycho-2 B_T is 13.51 and no Tycho-2 V_T
* magnitude exists (it is set to .000); The flag is set to "3" for this
* star.
*
* Number of records with magflg=1 is 211,796.
* Number of records with magflg=2 is 32,489.
* Number of records with magflg=3 is 20.
*Notes on verflg:
* This is either blank or "1". When set to "1", the star has not been
* found in Hipparcos, Tycho-2, the overlapping AC plate or the Guide
* Star Catalogue version 1.2. These records should be used with the
* understanding that stars at these positions may not exist.
* Number of records with verflg=1 is 199,039.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ac_n30.dat' ! Stars with declinations -30 to -39 59 59.99 (1)
integer*4 nr__10
parameter (nr__10=347379) ! Number of records
character*93 ar__10 ! Full-size record
real*8 RA__10 ! (deg) Right Ascension J2000
real*8 Dec_10 ! (deg) Declination J2000
integer*4 RAh_10 ! (h) R.A. (hours), HCRS, at epoch mEp
integer*4 RAm_10 ! (min) R.A. (minutes), HCRS
real*4 RAs_10 ! (s) R.A. (seconds), HCRS
character*1 DE__10 ! Decl. (sign), HCRS
integer*4 DEd_10 ! (deg) Decl. (degrees), HCRS, at epoch mEp
integer*4 DEm_10 ! (arcmin) Decl. (minutes), HCRS
real*4 DEs_10 ! (arcsec) Decl. (seconds), HCRS
real*4 Bmag_10 ! (mag) *Observed B magnitude
real*8 mEp_10 ! (yr) Mean epoch of position
integer*4 Num_10 ! Number of images used for astrometry
real*4 e_RAs_10 ! (arcsec) *? Standard deviation of Right Ascension
real*4 e_DEs_10 ! (arcsec) *? Standard deviation of Declination
integer*4 ACnum_10 ! USNO generated identifier
integer*4 HIP_10 ! *? Hipparcos number
character*1 m_HIP_10 ! *Hipparcos component identifier
character*12 TYC2_10 ! *Tycho-2 identifier
real*4 Vmag_10 ! (mag) *? V magnitude
integer*4 magflg_10 ! *[1,3]? Magnitude warning flag
integer*4 verflg_10 ! *[1]? Verification flag
*Notes on Bmag and Vmag:
* The Bmag is either taken directly from the Tycho-2 Catalogue or is an
* average of the computed magnitudes based on the measured image
* diameters from the AC plates. To determine which is the case, one will
* need to check the Vmag field. All stars with a non-blank Vmag field
* contain Tycho-2 photometry in both the Bmag and Vmag fields. Stars
* with a blank Vmag field contain B magnitudes from the measured image
* diameters on the AC plates. In all cases, the Vmag data are from
* Tycho-2. Note there are 20 stars where the Bmag is from Tycho-2 but
* Tycho-2 did not contain a V magnitude. For these, a value of ".000" is
* listed under Vmag and a value of "3" is set in the magflg field.
*Notes on e_RAs and e_DEs:
* These values are only available for stars with two or more images.
* They are based on the scatter of the individual measures with respect
* to the mean. As such, values can be very small or even 0.000.
*Notes on HIP and m_HIP:
* The Hipparcos numbers and component identifiers listed are generally
* taken from the Tycho-2 main catalogue file. The vast majority of
* Hipparcos stars are identified, but this cross reference is not 100%
* complete.
*Notes on TYC2:
* The original Tycho-2 identifier consists of three fields, each
* separated by a blank. The identifier given here is a concatenation of
* these fields, with zeros replacing the blanks.
*Notes on magflg:
* This flag should caution users about possible problems in the photometry.
*
* A value of "1" is given if the star has a Bmag value greater than 13.5
* or a Vmag value greater than 12.5.
*
* A value of "2" is given if the star was identified as a Tycho-2 star
* but the Bmag is from the measured image diameters on the AC plates.
* This is a result of either the Tycho-2 B_T magnitude is not available
* or it is listed as fainter than 14.00. Note that no Vmag is given in
* these cases. Where both flags "1" and "2" are set, only "2" is given.
*
* A "3" is given if the star was identified as a Tycho-2 star, but there
* is no Tycho-2 V_T magnitude. In these cases, the Tycho-2 V_T magnitude
* is set to .000. There are 20 such instances. Only 1 star (AC~408635,
* Tycho-2~107200084801) should have a "3" flag in combination with
* another. For this star, the Tycho-2 B_T is 13.51 and no Tycho-2 V_T
* magnitude exists (it is set to .000); The flag is set to "3" for this
* star.
*
* Number of records with magflg=1 is 211,796.
* Number of records with magflg=2 is 32,489.
* Number of records with magflg=3 is 20.
*Notes on verflg:
* This is either blank or "1". When set to "1", the star has not been
* found in Hipparcos, Tycho-2, the overlapping AC plate or the Guide
* Star Catalogue version 1.2. These records should be used with the
* understanding that stars at these positions may not exist.
* Number of records with verflg=1 is 199,039.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ac_n40.dat' ! Stars with declinations -40 to -49 59 59.99 (1)
integer*4 nr__11
parameter (nr__11=463841) ! Number of records
character*93 ar__11 ! Full-size record
real*8 RA__11 ! (deg) Right Ascension J2000
real*8 Dec_11 ! (deg) Declination J2000
integer*4 RAh_11 ! (h) R.A. (hours), HCRS, at epoch mEp
integer*4 RAm_11 ! (min) R.A. (minutes), HCRS
real*4 RAs_11 ! (s) R.A. (seconds), HCRS
character*1 DE__11 ! Decl. (sign), HCRS
integer*4 DEd_11 ! (deg) Decl. (degrees), HCRS, at epoch mEp
integer*4 DEm_11 ! (arcmin) Decl. (minutes), HCRS
real*4 DEs_11 ! (arcsec) Decl. (seconds), HCRS
real*4 Bmag_11 ! (mag) *Observed B magnitude
real*8 mEp_11 ! (yr) Mean epoch of position
integer*4 Num_11 ! Number of images used for astrometry
real*4 e_RAs_11 ! (arcsec) *? Standard deviation of Right Ascension
real*4 e_DEs_11 ! (arcsec) *? Standard deviation of Declination
integer*4 ACnum_11 ! USNO generated identifier
integer*4 HIP_11 ! *? Hipparcos number
character*1 m_HIP_11 ! *Hipparcos component identifier
character*12 TYC2_11 ! *Tycho-2 identifier
real*4 Vmag_11 ! (mag) *? V magnitude
integer*4 magflg_11 ! *[1,3]? Magnitude warning flag
integer*4 verflg_11 ! *[1]? Verification flag
*Notes on Bmag and Vmag:
* The Bmag is either taken directly from the Tycho-2 Catalogue or is an
* average of the computed magnitudes based on the measured image
* diameters from the AC plates. To determine which is the case, one will
* need to check the Vmag field. All stars with a non-blank Vmag field
* contain Tycho-2 photometry in both the Bmag and Vmag fields. Stars
* with a blank Vmag field contain B magnitudes from the measured image
* diameters on the AC plates. In all cases, the Vmag data are from
* Tycho-2. Note there are 20 stars where the Bmag is from Tycho-2 but
* Tycho-2 did not contain a V magnitude. For these, a value of ".000" is
* listed under Vmag and a value of "3" is set in the magflg field.
*Notes on e_RAs and e_DEs:
* These values are only available for stars with two or more images.
* They are based on the scatter of the individual measures with respect
* to the mean. As such, values can be very small or even 0.000.
*Notes on HIP and m_HIP:
* The Hipparcos numbers and component identifiers listed are generally
* taken from the Tycho-2 main catalogue file. The vast majority of
* Hipparcos stars are identified, but this cross reference is not 100%
* complete.
*Notes on TYC2:
* The original Tycho-2 identifier consists of three fields, each
* separated by a blank. The identifier given here is a concatenation of
* these fields, with zeros replacing the blanks.
*Notes on magflg:
* This flag should caution users about possible problems in the photometry.
*
* A value of "1" is given if the star has a Bmag value greater than 13.5
* or a Vmag value greater than 12.5.
*
* A value of "2" is given if the star was identified as a Tycho-2 star
* but the Bmag is from the measured image diameters on the AC plates.
* This is a result of either the Tycho-2 B_T magnitude is not available
* or it is listed as fainter than 14.00. Note that no Vmag is given in
* these cases. Where both flags "1" and "2" are set, only "2" is given.
*
* A "3" is given if the star was identified as a Tycho-2 star, but there
* is no Tycho-2 V_T magnitude. In these cases, the Tycho-2 V_T magnitude
* is set to .000. There are 20 such instances. Only 1 star (AC~408635,
* Tycho-2~107200084801) should have a "3" flag in combination with
* another. For this star, the Tycho-2 B_T is 13.51 and no Tycho-2 V_T
* magnitude exists (it is set to .000); The flag is set to "3" for this
* star.
*
* Number of records with magflg=1 is 211,796.
* Number of records with magflg=2 is 32,489.
* Number of records with magflg=3 is 20.
*Notes on verflg:
* This is either blank or "1". When set to "1", the star has not been
* found in Hipparcos, Tycho-2, the overlapping AC plate or the Guide
* Star Catalogue version 1.2. These records should be used with the
* understanding that stars at these positions may not exist.
* Number of records with verflg=1 is 199,039.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ac_n50.dat' ! Stars with declinations -50 to -59 59 59.99 (1)
integer*4 nr__12
parameter (nr__12=363806) ! Number of records
character*93 ar__12 ! Full-size record
real*8 RA__12 ! (deg) Right Ascension J2000
real*8 Dec_12 ! (deg) Declination J2000
integer*4 RAh_12 ! (h) R.A. (hours), HCRS, at epoch mEp
integer*4 RAm_12 ! (min) R.A. (minutes), HCRS
real*4 RAs_12 ! (s) R.A. (seconds), HCRS
character*1 DE__12 ! Decl. (sign), HCRS
integer*4 DEd_12 ! (deg) Decl. (degrees), HCRS, at epoch mEp
integer*4 DEm_12 ! (arcmin) Decl. (minutes), HCRS
real*4 DEs_12 ! (arcsec) Decl. (seconds), HCRS
real*4 Bmag_12 ! (mag) *Observed B magnitude
real*8 mEp_12 ! (yr) Mean epoch of position
integer*4 Num_12 ! Number of images used for astrometry
real*4 e_RAs_12 ! (arcsec) *? Standard deviation of Right Ascension
real*4 e_DEs_12 ! (arcsec) *? Standard deviation of Declination
integer*4 ACnum_12 ! USNO generated identifier
integer*4 HIP_12 ! *? Hipparcos number
character*1 m_HIP_12 ! *Hipparcos component identifier
character*12 TYC2_12 ! *Tycho-2 identifier
real*4 Vmag_12 ! (mag) *? V magnitude
integer*4 magflg_12 ! *[1,3]? Magnitude warning flag
integer*4 verflg_12 ! *[1]? Verification flag
*Notes on Bmag and Vmag:
* The Bmag is either taken directly from the Tycho-2 Catalogue or is an
* average of the computed magnitudes based on the measured image
* diameters from the AC plates. To determine which is the case, one will
* need to check the Vmag field. All stars with a non-blank Vmag field
* contain Tycho-2 photometry in both the Bmag and Vmag fields. Stars
* with a blank Vmag field contain B magnitudes from the measured image
* diameters on the AC plates. In all cases, the Vmag data are from
* Tycho-2. Note there are 20 stars where the Bmag is from Tycho-2 but
* Tycho-2 did not contain a V magnitude. For these, a value of ".000" is
* listed under Vmag and a value of "3" is set in the magflg field.
*Notes on e_RAs and e_DEs:
* These values are only available for stars with two or more images.
* They are based on the scatter of the individual measures with respect
* to the mean. As such, values can be very small or even 0.000.
*Notes on HIP and m_HIP:
* The Hipparcos numbers and component identifiers listed are generally
* taken from the Tycho-2 main catalogue file. The vast majority of
* Hipparcos stars are identified, but this cross reference is not 100%
* complete.
*Notes on TYC2:
* The original Tycho-2 identifier consists of three fields, each
* separated by a blank. The identifier given here is a concatenation of
* these fields, with zeros replacing the blanks.
*Notes on magflg:
* This flag should caution users about possible problems in the photometry.
*
* A value of "1" is given if the star has a Bmag value greater than 13.5
* or a Vmag value greater than 12.5.
*
* A value of "2" is given if the star was identified as a Tycho-2 star
* but the Bmag is from the measured image diameters on the AC plates.
* This is a result of either the Tycho-2 B_T magnitude is not available
* or it is listed as fainter than 14.00. Note that no Vmag is given in
* these cases. Where both flags "1" and "2" are set, only "2" is given.
*
* A "3" is given if the star was identified as a Tycho-2 star, but there
* is no Tycho-2 V_T magnitude. In these cases, the Tycho-2 V_T magnitude
* is set to .000. There are 20 such instances. Only 1 star (AC~408635,
* Tycho-2~107200084801) should have a "3" flag in combination with
* another. For this star, the Tycho-2 B_T is 13.51 and no Tycho-2 V_T
* magnitude exists (it is set to .000); The flag is set to "3" for this
* star.
*
* Number of records with magflg=1 is 211,796.
* Number of records with magflg=2 is 32,489.
* Number of records with magflg=3 is 20.
*Notes on verflg:
* This is either blank or "1". When set to "1", the star has not been
* found in Hipparcos, Tycho-2, the overlapping AC plate or the Guide
* Star Catalogue version 1.2. These records should be used with the
* understanding that stars at these positions may not exist.
* Number of records with verflg=1 is 199,039.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ac_n60.dat' ! Stars with declinations -60 to -90 degrees (1)
integer*4 nr__13
parameter (nr__13=343294) ! Number of records
character*93 ar__13 ! Full-size record
real*8 RA__13 ! (deg) Right Ascension J2000
real*8 Dec_13 ! (deg) Declination J2000
integer*4 RAh_13 ! (h) R.A. (hours), HCRS, at epoch mEp
integer*4 RAm_13 ! (min) R.A. (minutes), HCRS
real*4 RAs_13 ! (s) R.A. (seconds), HCRS
character*1 DE__13 ! Decl. (sign), HCRS
integer*4 DEd_13 ! (deg) Decl. (degrees), HCRS, at epoch mEp
integer*4 DEm_13 ! (arcmin) Decl. (minutes), HCRS
real*4 DEs_13 ! (arcsec) Decl. (seconds), HCRS
real*4 Bmag_13 ! (mag) *Observed B magnitude
real*8 mEp_13 ! (yr) Mean epoch of position
integer*4 Num_13 ! Number of images used for astrometry
real*4 e_RAs_13 ! (arcsec) *? Standard deviation of Right Ascension
real*4 e_DEs_13 ! (arcsec) *? Standard deviation of Declination
integer*4 ACnum_13 ! USNO generated identifier
integer*4 HIP_13 ! *? Hipparcos number
character*1 m_HIP_13 ! *Hipparcos component identifier
character*12 TYC2_13 ! *Tycho-2 identifier
real*4 Vmag_13 ! (mag) *? V magnitude
integer*4 magflg_13 ! *[1,3]? Magnitude warning flag
integer*4 verflg_13 ! *[1]? Verification flag
*Notes on Bmag and Vmag:
* The Bmag is either taken directly from the Tycho-2 Catalogue or is an
* average of the computed magnitudes based on the measured image
* diameters from the AC plates. To determine which is the case, one will
* need to check the Vmag field. All stars with a non-blank Vmag field
* contain Tycho-2 photometry in both the Bmag and Vmag fields. Stars
* with a blank Vmag field contain B magnitudes from the measured image
* diameters on the AC plates. In all cases, the Vmag data are from
* Tycho-2. Note there are 20 stars where the Bmag is from Tycho-2 but
* Tycho-2 did not contain a V magnitude. For these, a value of ".000" is
* listed under Vmag and a value of "3" is set in the magflg field.
*Notes on e_RAs and e_DEs:
* These values are only available for stars with two or more images.
* They are based on the scatter of the individual measures with respect
* to the mean. As such, values can be very small or even 0.000.
*Notes on HIP and m_HIP:
* The Hipparcos numbers and component identifiers listed are generally
* taken from the Tycho-2 main catalogue file. The vast majority of
* Hipparcos stars are identified, but this cross reference is not 100%
* complete.
*Notes on TYC2:
* The original Tycho-2 identifier consists of three fields, each
* separated by a blank. The identifier given here is a concatenation of
* these fields, with zeros replacing the blanks.
*Notes on magflg:
* This flag should caution users about possible problems in the photometry.
*
* A value of "1" is given if the star has a Bmag value greater than 13.5
* or a Vmag value greater than 12.5.
*
* A value of "2" is given if the star was identified as a Tycho-2 star
* but the Bmag is from the measured image diameters on the AC plates.
* This is a result of either the Tycho-2 B_T magnitude is not available
* or it is listed as fainter than 14.00. Note that no Vmag is given in
* these cases. Where both flags "1" and "2" are set, only "2" is given.
*
* A "3" is given if the star was identified as a Tycho-2 star, but there
* is no Tycho-2 V_T magnitude. In these cases, the Tycho-2 V_T magnitude
* is set to .000. There are 20 such instances. Only 1 star (AC~408635,
* Tycho-2~107200084801) should have a "3" flag in combination with
* another. For this star, the Tycho-2 B_T is 13.51 and no Tycho-2 V_T
* magnitude exists (it is set to .000); The flag is set to "3" for this
* star.
*
* Number of records with magflg=1 is 211,796.
* Number of records with magflg=2 is 32,489.
* Number of records with magflg=3 is 20.
*Notes on verflg:
* This is either blank or "1". When set to "1", the star has not been
* found in Hipparcos, Tycho-2, the overlapping AC plate or the Guide
* Star Catalogue version 1.2. These records should be used with the
* understanding that stars at these positions may not exist.
* Number of records with verflg=1 is 199,039.
C=============================================================================
C Loading file 'ac_p60.dat' ! Stars with declinations +60 to +90 degrees (1)
C Format for file interpretation
1 format(
+ I2,1X,I2,1X,F6.3,1X,A1,I2,1X,I2,1X,F5.2,1X,F5.2,1X,F8.3,1X,I2,
+ F6.3,F6.3,1X,I8,I6,A1,1X,A12,1X,F6.3,I1,I1)
C Effective file loading
open(unit=1,file='ac_p60.dat', status='old')
write(6,*) '....Loading file: ac_p60.dat'
do i__=1,258696
read(1,'(A93)')ar__
read(ar__,1)
+ RAh,RAm,RAs,DE_,DEd,DEm,DEs,Bmag,mEp,Num,e_RAs,e_DEs,ACnum,
+ HIP,m_HIP,TYC2,Vmag,magflg,verflg
if(ar__(44:49) .EQ. '') e_RAs = rNULL__
if(ar__(50:55) .EQ. '') e_DEs = rNULL__
if(ar__(65:70) .EQ. '') HIP = iNULL__
if(ar__(86:91) .EQ. '') Vmag = rNULL__
if(ar__(92:92) .EQ. '') magflg = iNULL__
if(ar__(93:93) .EQ. '') verflg = iNULL__
c Derive coordinates RA_ and Dec from input data
c (RA_ and Dec are set to rNULL_ when unknown)
RA_ = RAh
if(RAh .GE. 0) RA_=RAh*15.
if(RAm .GE. 0) RA_=RA_+RAm/4.
if(RAs .GE. 0) RA_=RA_+RAs/240.
Dec = DEd
if(DEm .GE. 0) Dec=Dec+DEm/60.
if(DEs .GE. 0) Dec=Dec+DEs/3600.
if(DE_.EQ.'-'.AND.Dec.GE.0) Dec=-Dec
c ..............Just test output...........
write(6,1)
+ RAh,RAm,RAs,DE_,DEd,DEm,DEs,Bmag,mEp,Num,e_RAs,e_DEs,ACnum,
+ HIP,m_HIP,TYC2,Vmag,magflg,verflg
write(6,'(6H Pos: 2F8.4)') RA_,Dec
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'ac_p50.dat' ! Stars with declinations +50 to +59 59 59.99 (1)
C Format for file interpretation
2 format(
+ I2,1X,I2,1X,F6.3,1X,A1,I2,1X,I2,1X,F5.2,1X,F5.2,1X,F8.3,1X,I2,
+ F6.3,F6.3,1X,I8,I6,A1,1X,A12,1X,F6.3,I1,I1)
C Effective file loading
open(unit=1,file='ac_p50.dat', status='old')
write(6,*) '....Loading file: ac_p50.dat'
do i__=1,244782
read(1,'(A93)')ar__1
read(ar__1,2)
+ RAh_1,RAm_1,RAs_1,DE__1,DEd_1,DEm_1,DEs_1,Bmag_1,mEp_1,Num_1,
+ e_RAs_1,e_DEs_1,ACnum_1,HIP_1,m_HIP_1,TYC2_1,Vmag_1,magflg_1,
+ verflg_1
if(ar__1(44:49) .EQ. '') e_RAs_1 = rNULL__
if(ar__1(50:55) .EQ. '') e_DEs_1 = rNULL__
if(ar__1(65:70) .EQ. '') HIP_1 = iNULL__
if(ar__1(86:91) .EQ. '') Vmag_1 = rNULL__
if(ar__1(92:92) .EQ. '') magflg_1 = iNULL__
if(ar__1(93:93) .EQ. '') verflg_1 = 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 = RAh_1
if(RAh_1 .GE. 0) RA__1=RAh_1*15.
if(RAm_1 .GE. 0) RA__1=RA__1+RAm_1/4.
if(RAs_1 .GE. 0) RA__1=RA__1+RAs_1/240.
Dec_1 = DEd_1
if(DEm_1 .GE. 0) Dec_1=Dec_1+DEm_1/60.
if(DEs_1 .GE. 0) Dec_1=Dec_1+DEs_1/3600.
if(DE__1.EQ.'-'.AND.Dec_1.GE.0) Dec_1=-Dec_1
c ..............Just test output...........
write(6,2)
+ RAh_1,RAm_1,RAs_1,DE__1,DEd_1,DEm_1,DEs_1,Bmag_1,mEp_1,Num_1,
+ e_RAs_1,e_DEs_1,ACnum_1,HIP_1,m_HIP_1,TYC2_1,Vmag_1,magflg_1,
+ verflg_1
write(6,'(6H Pos: 2F8.4)') RA__1,Dec_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'ac_p40.dat' ! Stars with declinations +40 to +49 59 59.99 (1)
C Format for file interpretation
3 format(
+ I2,1X,I2,1X,F6.3,1X,A1,I2,1X,I2,1X,F5.2,1X,F5.2,1X,F8.3,1X,I2,
+ F6.3,F6.3,1X,I8,I6,A1,1X,A12,1X,F6.3,I1,I1)
C Effective file loading
open(unit=1,file='ac_p40.dat', status='old')
write(6,*) '....Loading file: ac_p40.dat'
do i__=1,203384
read(1,'(A93)')ar__2
read(ar__2,3)
+ RAh_2,RAm_2,RAs_2,DE__2,DEd_2,DEm_2,DEs_2,Bmag_2,mEp_2,Num_2,
+ e_RAs_2,e_DEs_2,ACnum_2,HIP_2,m_HIP_2,TYC2_2,Vmag_2,magflg_2,
+ verflg_2
if(ar__2(44:49) .EQ. '') e_RAs_2 = rNULL__
if(ar__2(50:55) .EQ. '') e_DEs_2 = rNULL__
if(ar__2(65:70) .EQ. '') HIP_2 = iNULL__
if(ar__2(86:91) .EQ. '') Vmag_2 = rNULL__
if(ar__2(92:92) .EQ. '') magflg_2 = iNULL__
if(ar__2(93:93) .EQ. '') verflg_2 = iNULL__
c Derive coordinates RA__2 and Dec_2 from input data
c (RA__2 and Dec_2 are set to rNULL_ when unknown)
RA__2 = RAh_2
if(RAh_2 .GE. 0) RA__2=RAh_2*15.
if(RAm_2 .GE. 0) RA__2=RA__2+RAm_2/4.
if(RAs_2 .GE. 0) RA__2=RA__2+RAs_2/240.
Dec_2 = DEd_2
if(DEm_2 .GE. 0) Dec_2=Dec_2+DEm_2/60.
if(DEs_2 .GE. 0) Dec_2=Dec_2+DEs_2/3600.
if(DE__2.EQ.'-'.AND.Dec_2.GE.0) Dec_2=-Dec_2
c ..............Just test output...........
write(6,3)
+ RAh_2,RAm_2,RAs_2,DE__2,DEd_2,DEm_2,DEs_2,Bmag_2,mEp_2,Num_2,
+ e_RAs_2,e_DEs_2,ACnum_2,HIP_2,m_HIP_2,TYC2_2,Vmag_2,magflg_2,
+ verflg_2
write(6,'(6H Pos: 2F8.4)') RA__2,Dec_2
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'ac_p30.dat' ! Stars with declinations +30 to +39 59 59.99 (1)
C Format for file interpretation
4 format(
+ I2,1X,I2,1X,F6.3,1X,A1,I2,1X,I2,1X,F5.2,1X,F5.2,1X,F8.3,1X,I2,
+ F6.3,F6.3,1X,I8,I6,A1,1X,A12,1X,F6.3,I1,I1)
C Effective file loading
open(unit=1,file='ac_p30.dat', status='old')
write(6,*) '....Loading file: ac_p30.dat'
do i__=1,380756
read(1,'(A93)')ar__3
read(ar__3,4)
+ RAh_3,RAm_3,RAs_3,DE__3,DEd_3,DEm_3,DEs_3,Bmag_3,mEp_3,Num_3,
+ e_RAs_3,e_DEs_3,ACnum_3,HIP_3,m_HIP_3,TYC2_3,Vmag_3,magflg_3,
+ verflg_3
if(ar__3(44:49) .EQ. '') e_RAs_3 = rNULL__
if(ar__3(50:55) .EQ. '') e_DEs_3 = rNULL__
if(ar__3(65:70) .EQ. '') HIP_3 = iNULL__
if(ar__3(86:91) .EQ. '') Vmag_3 = rNULL__
if(ar__3(92:92) .EQ. '') magflg_3 = iNULL__
if(ar__3(93:93) .EQ. '') verflg_3 = iNULL__
c Derive coordinates RA__3 and Dec_3 from input data
c (RA__3 and Dec_3 are set to rNULL_ when unknown)
RA__3 = RAh_3
if(RAh_3 .GE. 0) RA__3=RAh_3*15.
if(RAm_3 .GE. 0) RA__3=RA__3+RAm_3/4.
if(RAs_3 .GE. 0) RA__3=RA__3+RAs_3/240.
Dec_3 = DEd_3
if(DEm_3 .GE. 0) Dec_3=Dec_3+DEm_3/60.
if(DEs_3 .GE. 0) Dec_3=Dec_3+DEs_3/3600.
if(DE__3.EQ.'-'.AND.Dec_3.GE.0) Dec_3=-Dec_3
c ..............Just test output...........
write(6,4)
+ RAh_3,RAm_3,RAs_3,DE__3,DEd_3,DEm_3,DEs_3,Bmag_3,mEp_3,Num_3,
+ e_RAs_3,e_DEs_3,ACnum_3,HIP_3,m_HIP_3,TYC2_3,Vmag_3,magflg_3,
+ verflg_3
write(6,'(6H Pos: 2F8.4)') RA__3,Dec_3
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'ac_p20.dat' ! Stars with declinations +20 to +29 59 59.99 (1)
C Format for file interpretation
5 format(
+ I2,1X,I2,1X,F6.3,1X,A1,I2,1X,I2,1X,F5.2,1X,F5.2,1X,F8.3,1X,I2,
+ F6.3,F6.3,1X,I8,I6,A1,1X,A12,1X,F6.3,I1,I1)
C Effective file loading
open(unit=1,file='ac_p20.dat', status='old')
write(6,*) '....Loading file: ac_p20.dat'
do i__=1,354027
read(1,'(A93)')ar__4
read(ar__4,5)
+ RAh_4,RAm_4,RAs_4,DE__4,DEd_4,DEm_4,DEs_4,Bmag_4,mEp_4,Num_4,
+ e_RAs_4,e_DEs_4,ACnum_4,HIP_4,m_HIP_4,TYC2_4,Vmag_4,magflg_4,
+ verflg_4
if(ar__4(44:49) .EQ. '') e_RAs_4 = rNULL__
if(ar__4(50:55) .EQ. '') e_DEs_4 = rNULL__
if(ar__4(65:70) .EQ. '') HIP_4 = iNULL__
if(ar__4(86:91) .EQ. '') Vmag_4 = rNULL__
if(ar__4(92:92) .EQ. '') magflg_4 = iNULL__
if(ar__4(93:93) .EQ. '') verflg_4 = iNULL__
c Derive coordinates RA__4 and Dec_4 from input data
c (RA__4 and Dec_4 are set to rNULL_ when unknown)
RA__4 = RAh_4
if(RAh_4 .GE. 0) RA__4=RAh_4*15.
if(RAm_4 .GE. 0) RA__4=RA__4+RAm_4/4.
if(RAs_4 .GE. 0) RA__4=RA__4+RAs_4/240.
Dec_4 = DEd_4
if(DEm_4 .GE. 0) Dec_4=Dec_4+DEm_4/60.
if(DEs_4 .GE. 0) Dec_4=Dec_4+DEs_4/3600.
if(DE__4.EQ.'-'.AND.Dec_4.GE.0) Dec_4=-Dec_4
c ..............Just test output...........
write(6,5)
+ RAh_4,RAm_4,RAs_4,DE__4,DEd_4,DEm_4,DEs_4,Bmag_4,mEp_4,Num_4,
+ e_RAs_4,e_DEs_4,ACnum_4,HIP_4,m_HIP_4,TYC2_4,Vmag_4,magflg_4,
+ verflg_4
write(6,'(6H Pos: 2F8.4)') RA__4,Dec_4
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'ac_p10.dat' ! Stars with declinations +10 to +19 59 59.99 (1)
C Format for file interpretation
6 format(
+ I2,1X,I2,1X,F6.3,1X,A1,I2,1X,I2,1X,F5.2,1X,F5.2,1X,F8.3,1X,I2,
+ F6.3,F6.3,1X,I8,I6,A1,1X,A12,1X,F6.3,I1,I1)
C Effective file loading
open(unit=1,file='ac_p10.dat', status='old')
write(6,*) '....Loading file: ac_p10.dat'
do i__=1,316295
read(1,'(A93)')ar__5
read(ar__5,6)
+ RAh_5,RAm_5,RAs_5,DE__5,DEd_5,DEm_5,DEs_5,Bmag_5,mEp_5,Num_5,
+ e_RAs_5,e_DEs_5,ACnum_5,HIP_5,m_HIP_5,TYC2_5,Vmag_5,magflg_5,
+ verflg_5
if(ar__5(44:49) .EQ. '') e_RAs_5 = rNULL__
if(ar__5(50:55) .EQ. '') e_DEs_5 = rNULL__
if(ar__5(65:70) .EQ. '') HIP_5 = iNULL__
if(ar__5(86:91) .EQ. '') Vmag_5 = rNULL__
if(ar__5(92:92) .EQ. '') magflg_5 = iNULL__
if(ar__5(93:93) .EQ. '') verflg_5 = iNULL__
c Derive coordinates RA__5 and Dec_5 from input data
c (RA__5 and Dec_5 are set to rNULL_ when unknown)
RA__5 = RAh_5
if(RAh_5 .GE. 0) RA__5=RAh_5*15.
if(RAm_5 .GE. 0) RA__5=RA__5+RAm_5/4.
if(RAs_5 .GE. 0) RA__5=RA__5+RAs_5/240.
Dec_5 = DEd_5
if(DEm_5 .GE. 0) Dec_5=Dec_5+DEm_5/60.
if(DEs_5 .GE. 0) Dec_5=Dec_5+DEs_5/3600.
if(DE__5.EQ.'-'.AND.Dec_5.GE.0) Dec_5=-Dec_5
c ..............Just test output...........
write(6,6)
+ RAh_5,RAm_5,RAs_5,DE__5,DEd_5,DEm_5,DEs_5,Bmag_5,mEp_5,Num_5,
+ e_RAs_5,e_DEs_5,ACnum_5,HIP_5,m_HIP_5,TYC2_5,Vmag_5,magflg_5,
+ verflg_5
write(6,'(6H Pos: 2F8.4)') RA__5,Dec_5
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'ac_p00.dat' ! Stars with declinations +00 to +09 59 59.99 (1)
C Format for file interpretation
7 format(
+ I2,1X,I2,1X,F6.3,1X,A1,I2,1X,I2,1X,F5.2,1X,F5.2,1X,F8.3,1X,I2,
+ F6.3,F6.3,1X,I8,I6,A1,1X,A12,1X,F6.3,I1,I1)
C Effective file loading
open(unit=1,file='ac_p00.dat', status='old')
write(6,*) '....Loading file: ac_p00.dat'
do i__=1,297604
read(1,'(A93)')ar__6
read(ar__6,7)
+ RAh_6,RAm_6,RAs_6,DE__6,DEd_6,DEm_6,DEs_6,Bmag_6,mEp_6,Num_6,
+ e_RAs_6,e_DEs_6,ACnum_6,HIP_6,m_HIP_6,TYC2_6,Vmag_6,magflg_6,
+ verflg_6
if(ar__6(44:49) .EQ. '') e_RAs_6 = rNULL__
if(ar__6(50:55) .EQ. '') e_DEs_6 = rNULL__
if(ar__6(65:70) .EQ. '') HIP_6 = iNULL__
if(ar__6(86:91) .EQ. '') Vmag_6 = rNULL__
if(ar__6(92:92) .EQ. '') magflg_6 = iNULL__
if(ar__6(93:93) .EQ. '') verflg_6 = iNULL__
c Derive coordinates RA__6 and Dec_6 from input data
c (RA__6 and Dec_6 are set to rNULL_ when unknown)
RA__6 = RAh_6
if(RAh_6 .GE. 0) RA__6=RAh_6*15.
if(RAm_6 .GE. 0) RA__6=RA__6+RAm_6/4.
if(RAs_6 .GE. 0) RA__6=RA__6+RAs_6/240.
Dec_6 = DEd_6
if(DEm_6 .GE. 0) Dec_6=Dec_6+DEm_6/60.
if(DEs_6 .GE. 0) Dec_6=Dec_6+DEs_6/3600.
if(DE__6.EQ.'-'.AND.Dec_6.GE.0) Dec_6=-Dec_6
c ..............Just test output...........
write(6,7)
+ RAh_6,RAm_6,RAs_6,DE__6,DEd_6,DEm_6,DEs_6,Bmag_6,mEp_6,Num_6,
+ e_RAs_6,e_DEs_6,ACnum_6,HIP_6,m_HIP_6,TYC2_6,Vmag_6,magflg_6,
+ verflg_6
write(6,'(6H Pos: 2F8.4)') RA__6,Dec_6
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'ac_n00.dat' ! Stars with declinations -00 to -09 59 59.99 (1)
C Format for file interpretation
8 format(
+ I2,1X,I2,1X,F6.3,1X,A1,I2,1X,I2,1X,F5.2,1X,F5.2,1X,F8.3,1X,I2,
+ F6.3,F6.3,1X,I8,I6,A1,1X,A12,1X,F6.3,I1,I1)
C Effective file loading
open(unit=1,file='ac_n00.dat', status='old')
write(6,*) '....Loading file: ac_n00.dat'
do i__=1,284059
read(1,'(A93)')ar__7
read(ar__7,8)
+ RAh_7,RAm_7,RAs_7,DE__7,DEd_7,DEm_7,DEs_7,Bmag_7,mEp_7,Num_7,
+ e_RAs_7,e_DEs_7,ACnum_7,HIP_7,m_HIP_7,TYC2_7,Vmag_7,magflg_7,
+ verflg_7
if(ar__7(44:49) .EQ. '') e_RAs_7 = rNULL__
if(ar__7(50:55) .EQ. '') e_DEs_7 = rNULL__
if(ar__7(65:70) .EQ. '') HIP_7 = iNULL__
if(ar__7(86:91) .EQ. '') Vmag_7 = rNULL__
if(ar__7(92:92) .EQ. '') magflg_7 = iNULL__
if(ar__7(93:93) .EQ. '') verflg_7 = iNULL__
c Derive coordinates RA__7 and Dec_7 from input data
c (RA__7 and Dec_7 are set to rNULL_ when unknown)
RA__7 = RAh_7
if(RAh_7 .GE. 0) RA__7=RAh_7*15.
if(RAm_7 .GE. 0) RA__7=RA__7+RAm_7/4.
if(RAs_7 .GE. 0) RA__7=RA__7+RAs_7/240.
Dec_7 = DEd_7
if(DEm_7 .GE. 0) Dec_7=Dec_7+DEm_7/60.
if(DEs_7 .GE. 0) Dec_7=Dec_7+DEs_7/3600.
if(DE__7.EQ.'-'.AND.Dec_7.GE.0) Dec_7=-Dec_7
c ..............Just test output...........
write(6,8)
+ RAh_7,RAm_7,RAs_7,DE__7,DEd_7,DEm_7,DEs_7,Bmag_7,mEp_7,Num_7,
+ e_RAs_7,e_DEs_7,ACnum_7,HIP_7,m_HIP_7,TYC2_7,Vmag_7,magflg_7,
+ verflg_7
write(6,'(6H Pos: 2F8.4)') RA__7,Dec_7
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'ac_n10.dat' ! Stars with declinations -10 to -19 59 59.99 (1)
C Format for file interpretation
9 format(
+ I2,1X,I2,1X,F6.3,1X,A1,I2,1X,I2,1X,F5.2,1X,F5.2,1X,F8.3,1X,I2,
+ F6.3,F6.3,1X,I8,I6,A1,1X,A12,1X,F6.3,I1,I1)
C Effective file loading
open(unit=1,file='ac_n10.dat', status='old')
write(6,*) '....Loading file: ac_n10.dat'
do i__=1,383610
read(1,'(A93)')ar__8
read(ar__8,9)
+ RAh_8,RAm_8,RAs_8,DE__8,DEd_8,DEm_8,DEs_8,Bmag_8,mEp_8,Num_8,
+ e_RAs_8,e_DEs_8,ACnum_8,HIP_8,m_HIP_8,TYC2_8,Vmag_8,magflg_8,
+ verflg_8
if(ar__8(44:49) .EQ. '') e_RAs_8 = rNULL__
if(ar__8(50:55) .EQ. '') e_DEs_8 = rNULL__
if(ar__8(65:70) .EQ. '') HIP_8 = iNULL__
if(ar__8(86:91) .EQ. '') Vmag_8 = rNULL__
if(ar__8(92:92) .EQ. '') magflg_8 = iNULL__
if(ar__8(93:93) .EQ. '') verflg_8 = iNULL__
c Derive coordinates RA__8 and Dec_8 from input data
c (RA__8 and Dec_8 are set to rNULL_ when unknown)
RA__8 = RAh_8
if(RAh_8 .GE. 0) RA__8=RAh_8*15.
if(RAm_8 .GE. 0) RA__8=RA__8+RAm_8/4.
if(RAs_8 .GE. 0) RA__8=RA__8+RAs_8/240.
Dec_8 = DEd_8
if(DEm_8 .GE. 0) Dec_8=Dec_8+DEm_8/60.
if(DEs_8 .GE. 0) Dec_8=Dec_8+DEs_8/3600.
if(DE__8.EQ.'-'.AND.Dec_8.GE.0) Dec_8=-Dec_8
c ..............Just test output...........
write(6,9)
+ RAh_8,RAm_8,RAs_8,DE__8,DEd_8,DEm_8,DEs_8,Bmag_8,mEp_8,Num_8,
+ e_RAs_8,e_DEs_8,ACnum_8,HIP_8,m_HIP_8,TYC2_8,Vmag_8,magflg_8,
+ verflg_8
write(6,'(6H Pos: 2F8.4)') RA__8,Dec_8
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'ac_n20.dat' ! Stars with declinations -20 to -29 59 59.99 (1)
C Format for file interpretation
10 format(
+ I2,1X,I2,1X,F6.3,1X,A1,I2,1X,I2,1X,F5.2,1X,F5.2,1X,F8.3,1X,I2,
+ F6.3,F6.3,1X,I8,I6,A1,1X,A12,1X,F6.3,I1,I1)
C Effective file loading
open(unit=1,file='ac_n20.dat', status='old')
write(6,*) '....Loading file: ac_n20.dat'
do i__=1,380218
read(1,'(A93)')ar__9
read(ar__9,10)
+ RAh_9,RAm_9,RAs_9,DE__9,DEd_9,DEm_9,DEs_9,Bmag_9,mEp_9,Num_9,
+ e_RAs_9,e_DEs_9,ACnum_9,HIP_9,m_HIP_9,TYC2_9,Vmag_9,magflg_9,
+ verflg_9
if(ar__9(44:49) .EQ. '') e_RAs_9 = rNULL__
if(ar__9(50:55) .EQ. '') e_DEs_9 = rNULL__
if(ar__9(65:70) .EQ. '') HIP_9 = iNULL__
if(ar__9(86:91) .EQ. '') Vmag_9 = rNULL__
if(ar__9(92:92) .EQ. '') magflg_9 = iNULL__
if(ar__9(93:93) .EQ. '') verflg_9 = iNULL__
c Derive coordinates RA__9 and Dec_9 from input data
c (RA__9 and Dec_9 are set to rNULL_ when unknown)
RA__9 = RAh_9
if(RAh_9 .GE. 0) RA__9=RAh_9*15.
if(RAm_9 .GE. 0) RA__9=RA__9+RAm_9/4.
if(RAs_9 .GE. 0) RA__9=RA__9+RAs_9/240.
Dec_9 = DEd_9
if(DEm_9 .GE. 0) Dec_9=Dec_9+DEm_9/60.
if(DEs_9 .GE. 0) Dec_9=Dec_9+DEs_9/3600.
if(DE__9.EQ.'-'.AND.Dec_9.GE.0) Dec_9=-Dec_9
c ..............Just test output...........
write(6,10)
+ RAh_9,RAm_9,RAs_9,DE__9,DEd_9,DEm_9,DEs_9,Bmag_9,mEp_9,Num_9,
+ e_RAs_9,e_DEs_9,ACnum_9,HIP_9,m_HIP_9,TYC2_9,Vmag_9,magflg_9,
+ verflg_9
write(6,'(6H Pos: 2F8.4)') RA__9,Dec_9
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'ac_n30.dat' ! Stars with declinations -30 to -39 59 59.99 (1)
C Format for file interpretation
11 format(
+ I2,1X,I2,1X,F6.3,1X,A1,I2,1X,I2,1X,F5.2,1X,F5.2,1X,F8.3,1X,I2,
+ F6.3,F6.3,1X,I8,I6,A1,1X,A12,1X,F6.3,I1,I1)
C Effective file loading
open(unit=1,file='ac_n30.dat', status='old')
write(6,*) '....Loading file: ac_n30.dat'
do i__=1,347379
read(1,'(A93)')ar__10
read(ar__10,11)
+ RAh_10,RAm_10,RAs_10,DE__10,DEd_10,DEm_10,DEs_10,Bmag_10,
+ mEp_10,Num_10,e_RAs_10,e_DEs_10,ACnum_10,HIP_10,m_HIP_10,
+ TYC2_10,Vmag_10,magflg_10,verflg_10
if(ar__10(44:49) .EQ. '') e_RAs_10 = rNULL__
if(ar__10(50:55) .EQ. '') e_DEs_10 = rNULL__
if(ar__10(65:70) .EQ. '') HIP_10 = iNULL__
if(ar__10(86:91) .EQ. '') Vmag_10 = rNULL__
if(ar__10(92:92) .EQ. '') magflg_10 = iNULL__
if(ar__10(93:93) .EQ. '') verflg_10 = iNULL__
c Derive coordinates RA__10 and Dec_10 from input data
c (RA__10 and Dec_10 are set to rNULL_ when unknown)
RA__10 = RAh_10
if(RAh_10 .GE. 0) RA__10=RAh_10*15.
if(RAm_10 .GE. 0) RA__10=RA__10+RAm_10/4.
if(RAs_10 .GE. 0) RA__10=RA__10+RAs_10/240.
Dec_10 = DEd_10
if(DEm_10 .GE. 0) Dec_10=Dec_10+DEm_10/60.
if(DEs_10 .GE. 0) Dec_10=Dec_10+DEs_10/3600.
if(DE__10.EQ.'-'.AND.Dec_10.GE.0) Dec_10=-Dec_10
c ..............Just test output...........
write(6,11)
+ RAh_10,RAm_10,RAs_10,DE__10,DEd_10,DEm_10,DEs_10,Bmag_10,
+ mEp_10,Num_10,e_RAs_10,e_DEs_10,ACnum_10,HIP_10,m_HIP_10,
+ TYC2_10,Vmag_10,magflg_10,verflg_10
write(6,'(6H Pos: 2F8.4)') RA__10,Dec_10
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'ac_n40.dat' ! Stars with declinations -40 to -49 59 59.99 (1)
C Format for file interpretation
12 format(
+ I2,1X,I2,1X,F6.3,1X,A1,I2,1X,I2,1X,F5.2,1X,F5.2,1X,F8.3,1X,I2,
+ F6.3,F6.3,1X,I8,I6,A1,1X,A12,1X,F6.3,I1,I1)
C Effective file loading
open(unit=1,file='ac_n40.dat', status='old')
write(6,*) '....Loading file: ac_n40.dat'
do i__=1,463841
read(1,'(A93)')ar__11
read(ar__11,12)
+ RAh_11,RAm_11,RAs_11,DE__11,DEd_11,DEm_11,DEs_11,Bmag_11,
+ mEp_11,Num_11,e_RAs_11,e_DEs_11,ACnum_11,HIP_11,m_HIP_11,
+ TYC2_11,Vmag_11,magflg_11,verflg_11
if(ar__11(44:49) .EQ. '') e_RAs_11 = rNULL__
if(ar__11(50:55) .EQ. '') e_DEs_11 = rNULL__
if(ar__11(65:70) .EQ. '') HIP_11 = iNULL__
if(ar__11(86:91) .EQ. '') Vmag_11 = rNULL__
if(ar__11(92:92) .EQ. '') magflg_11 = iNULL__
if(ar__11(93:93) .EQ. '') verflg_11 = iNULL__
c Derive coordinates RA__11 and Dec_11 from input data
c (RA__11 and Dec_11 are set to rNULL_ when unknown)
RA__11 = RAh_11
if(RAh_11 .GE. 0) RA__11=RAh_11*15.
if(RAm_11 .GE. 0) RA__11=RA__11+RAm_11/4.
if(RAs_11 .GE. 0) RA__11=RA__11+RAs_11/240.
Dec_11 = DEd_11
if(DEm_11 .GE. 0) Dec_11=Dec_11+DEm_11/60.
if(DEs_11 .GE. 0) Dec_11=Dec_11+DEs_11/3600.
if(DE__11.EQ.'-'.AND.Dec_11.GE.0) Dec_11=-Dec_11
c ..............Just test output...........
write(6,12)
+ RAh_11,RAm_11,RAs_11,DE__11,DEd_11,DEm_11,DEs_11,Bmag_11,
+ mEp_11,Num_11,e_RAs_11,e_DEs_11,ACnum_11,HIP_11,m_HIP_11,
+ TYC2_11,Vmag_11,magflg_11,verflg_11
write(6,'(6H Pos: 2F8.4)') RA__11,Dec_11
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'ac_n50.dat' ! Stars with declinations -50 to -59 59 59.99 (1)
C Format for file interpretation
13 format(
+ I2,1X,I2,1X,F6.3,1X,A1,I2,1X,I2,1X,F5.2,1X,F5.2,1X,F8.3,1X,I2,
+ F6.3,F6.3,1X,I8,I6,A1,1X,A12,1X,F6.3,I1,I1)
C Effective file loading
open(unit=1,file='ac_n50.dat', status='old')
write(6,*) '....Loading file: ac_n50.dat'
do i__=1,363806
read(1,'(A93)')ar__12
read(ar__12,13)
+ RAh_12,RAm_12,RAs_12,DE__12,DEd_12,DEm_12,DEs_12,Bmag_12,
+ mEp_12,Num_12,e_RAs_12,e_DEs_12,ACnum_12,HIP_12,m_HIP_12,
+ TYC2_12,Vmag_12,magflg_12,verflg_12
if(ar__12(44:49) .EQ. '') e_RAs_12 = rNULL__
if(ar__12(50:55) .EQ. '') e_DEs_12 = rNULL__
if(ar__12(65:70) .EQ. '') HIP_12 = iNULL__
if(ar__12(86:91) .EQ. '') Vmag_12 = rNULL__
if(ar__12(92:92) .EQ. '') magflg_12 = iNULL__
if(ar__12(93:93) .EQ. '') verflg_12 = iNULL__
c Derive coordinates RA__12 and Dec_12 from input data
c (RA__12 and Dec_12 are set to rNULL_ when unknown)
RA__12 = RAh_12
if(RAh_12 .GE. 0) RA__12=RAh_12*15.
if(RAm_12 .GE. 0) RA__12=RA__12+RAm_12/4.
if(RAs_12 .GE. 0) RA__12=RA__12+RAs_12/240.
Dec_12 = DEd_12
if(DEm_12 .GE. 0) Dec_12=Dec_12+DEm_12/60.
if(DEs_12 .GE. 0) Dec_12=Dec_12+DEs_12/3600.
if(DE__12.EQ.'-'.AND.Dec_12.GE.0) Dec_12=-Dec_12
c ..............Just test output...........
write(6,13)
+ RAh_12,RAm_12,RAs_12,DE__12,DEd_12,DEm_12,DEs_12,Bmag_12,
+ mEp_12,Num_12,e_RAs_12,e_DEs_12,ACnum_12,HIP_12,m_HIP_12,
+ TYC2_12,Vmag_12,magflg_12,verflg_12
write(6,'(6H Pos: 2F8.4)') RA__12,Dec_12
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'ac_n60.dat' ! Stars with declinations -60 to -90 degrees (1)
C Format for file interpretation
14 format(
+ I2,1X,I2,1X,F6.3,1X,A1,I2,1X,I2,1X,F5.2,1X,F5.2,1X,F8.3,1X,I2,
+ F6.3,F6.3,1X,I8,I6,A1,1X,A12,1X,F6.3,I1,I1)
C Effective file loading
open(unit=1,file='ac_n60.dat', status='old')
write(6,*) '....Loading file: ac_n60.dat'
do i__=1,343294
read(1,'(A93)')ar__13
read(ar__13,14)
+ RAh_13,RAm_13,RAs_13,DE__13,DEd_13,DEm_13,DEs_13,Bmag_13,
+ mEp_13,Num_13,e_RAs_13,e_DEs_13,ACnum_13,HIP_13,m_HIP_13,
+ TYC2_13,Vmag_13,magflg_13,verflg_13
if(ar__13(44:49) .EQ. '') e_RAs_13 = rNULL__
if(ar__13(50:55) .EQ. '') e_DEs_13 = rNULL__
if(ar__13(65:70) .EQ. '') HIP_13 = iNULL__
if(ar__13(86:91) .EQ. '') Vmag_13 = rNULL__
if(ar__13(92:92) .EQ. '') magflg_13 = iNULL__
if(ar__13(93:93) .EQ. '') verflg_13 = iNULL__
c Derive coordinates RA__13 and Dec_13 from input data
c (RA__13 and Dec_13 are set to rNULL_ when unknown)
RA__13 = RAh_13
if(RAh_13 .GE. 0) RA__13=RAh_13*15.
if(RAm_13 .GE. 0) RA__13=RA__13+RAm_13/4.
if(RAs_13 .GE. 0) RA__13=RA__13+RAs_13/240.
Dec_13 = DEd_13
if(DEm_13 .GE. 0) Dec_13=Dec_13+DEm_13/60.
if(DEs_13 .GE. 0) Dec_13=Dec_13+DEs_13/3600.
if(DE__13.EQ.'-'.AND.Dec_13.GE.0) Dec_13=-Dec_13
c ..............Just test output...........
write(6,14)
+ RAh_13,RAm_13,RAs_13,DE__13,DEd_13,DEm_13,DEs_13,Bmag_13,
+ mEp_13,Num_13,e_RAs_13,e_DEs_13,ACnum_13,HIP_13,m_HIP_13,
+ TYC2_13,Vmag_13,magflg_13,verflg_13
write(6,'(6H Pos: 2F8.4)') RA__13,Dec_13
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end