Conversion of standardized ReadMe file for
file /./ftp/cats/I/275 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-Jun-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_ (nr__) ! (deg) Right Ascension J2000
real*8 Dec (nr__) ! (deg) Declination J2000
integer*4 RAh (nr__) ! (h) R.A. (hours), HCRS, at epoch mEp
integer*4 RAm (nr__) ! (min) R.A. (minutes), HCRS
real*4 RAs (nr__) ! (s) R.A. (seconds), HCRS
character*1 DE_ (nr__) ! Decl. (sign), HCRS
integer*4 DEd (nr__) ! (deg) Decl. (degrees), HCRS, at epoch mEp
integer*4 DEm (nr__) ! (arcmin) Decl. (minutes), HCRS
real*4 DEs (nr__) ! (arcsec) Decl. (seconds), HCRS
real*4 Bmag (nr__) ! (mag) *Observed B magnitude
real*8 mEp (nr__) ! (yr) Mean epoch of position
integer*4 Num (nr__) ! Number of images used for astrometry
real*4 e_RAs (nr__) ! (arcsec) *? Standard deviation of Right Ascension
real*4 e_DEs (nr__) ! (arcsec) *? Standard deviation of Declination
integer*4 ACnum (nr__) ! USNO generated identifier
integer*4 HIP (nr__) ! *? Hipparcos number
character*1 m_HIP (nr__) ! *Hipparcos component identifier
character*12 TYC2 (nr__) ! *Tycho-2 identifier
real*4 Vmag (nr__) ! (mag) *? V magnitude
integer*4 magflg (nr__) ! *[1,3]? Magnitude warning flag
integer*4 verflg (nr__) ! *[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 (nr__1) ! (deg) Right Ascension J2000
real*8 Dec_1 (nr__1) ! (deg) Declination J2000
integer*4 RAh_1 (nr__1) ! (h) R.A. (hours), HCRS, at epoch mEp
integer*4 RAm_1 (nr__1) ! (min) R.A. (minutes), HCRS
real*4 RAs_1 (nr__1) ! (s) R.A. (seconds), HCRS
character*1 DE__1 (nr__1) ! Decl. (sign), HCRS
integer*4 DEd_1 (nr__1) ! (deg) Decl. (degrees), HCRS, at epoch mEp
integer*4 DEm_1 (nr__1) ! (arcmin) Decl. (minutes), HCRS
real*4 DEs_1 (nr__1) ! (arcsec) Decl. (seconds), HCRS
real*4 Bmag_1 (nr__1) ! (mag) *Observed B magnitude
real*8 mEp_1 (nr__1) ! (yr) Mean epoch of position
integer*4 Num_1 (nr__1) ! Number of images used for astrometry
real*4 e_RAs_1 (nr__1) ! (arcsec) *? Standard deviation of Right Ascension
real*4 e_DEs_1 (nr__1) ! (arcsec) *? Standard deviation of Declination
integer*4 ACnum_1 (nr__1) ! USNO generated identifier
integer*4 HIP_1 (nr__1) ! *? Hipparcos number
character*1 m_HIP_1 (nr__1) ! *Hipparcos component identifier
character*12 TYC2_1 (nr__1) ! *Tycho-2 identifier
real*4 Vmag_1 (nr__1) ! (mag) *? V magnitude
integer*4 magflg_1 (nr__1) ! *[1,3]? Magnitude warning flag
integer*4 verflg_1 (nr__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 (nr__2) ! (deg) Right Ascension J2000
real*8 Dec_2 (nr__2) ! (deg) Declination J2000
integer*4 RAh_2 (nr__2) ! (h) R.A. (hours), HCRS, at epoch mEp
integer*4 RAm_2 (nr__2) ! (min) R.A. (minutes), HCRS
real*4 RAs_2 (nr__2) ! (s) R.A. (seconds), HCRS
character*1 DE__2 (nr__2) ! Decl. (sign), HCRS
integer*4 DEd_2 (nr__2) ! (deg) Decl. (degrees), HCRS, at epoch mEp
integer*4 DEm_2 (nr__2) ! (arcmin) Decl. (minutes), HCRS
real*4 DEs_2 (nr__2) ! (arcsec) Decl. (seconds), HCRS
real*4 Bmag_2 (nr__2) ! (mag) *Observed B magnitude
real*8 mEp_2 (nr__2) ! (yr) Mean epoch of position
integer*4 Num_2 (nr__2) ! Number of images used for astrometry
real*4 e_RAs_2 (nr__2) ! (arcsec) *? Standard deviation of Right Ascension
real*4 e_DEs_2 (nr__2) ! (arcsec) *? Standard deviation of Declination
integer*4 ACnum_2 (nr__2) ! USNO generated identifier
integer*4 HIP_2 (nr__2) ! *? Hipparcos number
character*1 m_HIP_2 (nr__2) ! *Hipparcos component identifier
character*12 TYC2_2 (nr__2) ! *Tycho-2 identifier
real*4 Vmag_2 (nr__2) ! (mag) *? V magnitude
integer*4 magflg_2 (nr__2) ! *[1,3]? Magnitude warning flag
integer*4 verflg_2 (nr__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 (nr__3) ! (deg) Right Ascension J2000
real*8 Dec_3 (nr__3) ! (deg) Declination J2000
integer*4 RAh_3 (nr__3) ! (h) R.A. (hours), HCRS, at epoch mEp
integer*4 RAm_3 (nr__3) ! (min) R.A. (minutes), HCRS
real*4 RAs_3 (nr__3) ! (s) R.A. (seconds), HCRS
character*1 DE__3 (nr__3) ! Decl. (sign), HCRS
integer*4 DEd_3 (nr__3) ! (deg) Decl. (degrees), HCRS, at epoch mEp
integer*4 DEm_3 (nr__3) ! (arcmin) Decl. (minutes), HCRS
real*4 DEs_3 (nr__3) ! (arcsec) Decl. (seconds), HCRS
real*4 Bmag_3 (nr__3) ! (mag) *Observed B magnitude
real*8 mEp_3 (nr__3) ! (yr) Mean epoch of position
integer*4 Num_3 (nr__3) ! Number of images used for astrometry
real*4 e_RAs_3 (nr__3) ! (arcsec) *? Standard deviation of Right Ascension
real*4 e_DEs_3 (nr__3) ! (arcsec) *? Standard deviation of Declination
integer*4 ACnum_3 (nr__3) ! USNO generated identifier
integer*4 HIP_3 (nr__3) ! *? Hipparcos number
character*1 m_HIP_3 (nr__3) ! *Hipparcos component identifier
character*12 TYC2_3 (nr__3) ! *Tycho-2 identifier
real*4 Vmag_3 (nr__3) ! (mag) *? V magnitude
integer*4 magflg_3 (nr__3) ! *[1,3]? Magnitude warning flag
integer*4 verflg_3 (nr__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 (nr__4) ! (deg) Right Ascension J2000
real*8 Dec_4 (nr__4) ! (deg) Declination J2000
integer*4 RAh_4 (nr__4) ! (h) R.A. (hours), HCRS, at epoch mEp
integer*4 RAm_4 (nr__4) ! (min) R.A. (minutes), HCRS
real*4 RAs_4 (nr__4) ! (s) R.A. (seconds), HCRS
character*1 DE__4 (nr__4) ! Decl. (sign), HCRS
integer*4 DEd_4 (nr__4) ! (deg) Decl. (degrees), HCRS, at epoch mEp
integer*4 DEm_4 (nr__4) ! (arcmin) Decl. (minutes), HCRS
real*4 DEs_4 (nr__4) ! (arcsec) Decl. (seconds), HCRS
real*4 Bmag_4 (nr__4) ! (mag) *Observed B magnitude
real*8 mEp_4 (nr__4) ! (yr) Mean epoch of position
integer*4 Num_4 (nr__4) ! Number of images used for astrometry
real*4 e_RAs_4 (nr__4) ! (arcsec) *? Standard deviation of Right Ascension
real*4 e_DEs_4 (nr__4) ! (arcsec) *? Standard deviation of Declination
integer*4 ACnum_4 (nr__4) ! USNO generated identifier
integer*4 HIP_4 (nr__4) ! *? Hipparcos number
character*1 m_HIP_4 (nr__4) ! *Hipparcos component identifier
character*12 TYC2_4 (nr__4) ! *Tycho-2 identifier
real*4 Vmag_4 (nr__4) ! (mag) *? V magnitude
integer*4 magflg_4 (nr__4) ! *[1,3]? Magnitude warning flag
integer*4 verflg_4 (nr__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 (nr__5) ! (deg) Right Ascension J2000
real*8 Dec_5 (nr__5) ! (deg) Declination J2000
integer*4 RAh_5 (nr__5) ! (h) R.A. (hours), HCRS, at epoch mEp
integer*4 RAm_5 (nr__5) ! (min) R.A. (minutes), HCRS
real*4 RAs_5 (nr__5) ! (s) R.A. (seconds), HCRS
character*1 DE__5 (nr__5) ! Decl. (sign), HCRS
integer*4 DEd_5 (nr__5) ! (deg) Decl. (degrees), HCRS, at epoch mEp
integer*4 DEm_5 (nr__5) ! (arcmin) Decl. (minutes), HCRS
real*4 DEs_5 (nr__5) ! (arcsec) Decl. (seconds), HCRS
real*4 Bmag_5 (nr__5) ! (mag) *Observed B magnitude
real*8 mEp_5 (nr__5) ! (yr) Mean epoch of position
integer*4 Num_5 (nr__5) ! Number of images used for astrometry
real*4 e_RAs_5 (nr__5) ! (arcsec) *? Standard deviation of Right Ascension
real*4 e_DEs_5 (nr__5) ! (arcsec) *? Standard deviation of Declination
integer*4 ACnum_5 (nr__5) ! USNO generated identifier
integer*4 HIP_5 (nr__5) ! *? Hipparcos number
character*1 m_HIP_5 (nr__5) ! *Hipparcos component identifier
character*12 TYC2_5 (nr__5) ! *Tycho-2 identifier
real*4 Vmag_5 (nr__5) ! (mag) *? V magnitude
integer*4 magflg_5 (nr__5) ! *[1,3]? Magnitude warning flag
integer*4 verflg_5 (nr__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 (nr__6) ! (deg) Right Ascension J2000
real*8 Dec_6 (nr__6) ! (deg) Declination J2000
integer*4 RAh_6 (nr__6) ! (h) R.A. (hours), HCRS, at epoch mEp
integer*4 RAm_6 (nr__6) ! (min) R.A. (minutes), HCRS
real*4 RAs_6 (nr__6) ! (s) R.A. (seconds), HCRS
character*1 DE__6 (nr__6) ! Decl. (sign), HCRS
integer*4 DEd_6 (nr__6) ! (deg) Decl. (degrees), HCRS, at epoch mEp
integer*4 DEm_6 (nr__6) ! (arcmin) Decl. (minutes), HCRS
real*4 DEs_6 (nr__6) ! (arcsec) Decl. (seconds), HCRS
real*4 Bmag_6 (nr__6) ! (mag) *Observed B magnitude
real*8 mEp_6 (nr__6) ! (yr) Mean epoch of position
integer*4 Num_6 (nr__6) ! Number of images used for astrometry
real*4 e_RAs_6 (nr__6) ! (arcsec) *? Standard deviation of Right Ascension
real*4 e_DEs_6 (nr__6) ! (arcsec) *? Standard deviation of Declination
integer*4 ACnum_6 (nr__6) ! USNO generated identifier
integer*4 HIP_6 (nr__6) ! *? Hipparcos number
character*1 m_HIP_6 (nr__6) ! *Hipparcos component identifier
character*12 TYC2_6 (nr__6) ! *Tycho-2 identifier
real*4 Vmag_6 (nr__6) ! (mag) *? V magnitude
integer*4 magflg_6 (nr__6) ! *[1,3]? Magnitude warning flag
integer*4 verflg_6 (nr__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 (nr__7) ! (deg) Right Ascension J2000
real*8 Dec_7 (nr__7) ! (deg) Declination J2000
integer*4 RAh_7 (nr__7) ! (h) R.A. (hours), HCRS, at epoch mEp
integer*4 RAm_7 (nr__7) ! (min) R.A. (minutes), HCRS
real*4 RAs_7 (nr__7) ! (s) R.A. (seconds), HCRS
character*1 DE__7 (nr__7) ! Decl. (sign), HCRS
integer*4 DEd_7 (nr__7) ! (deg) Decl. (degrees), HCRS, at epoch mEp
integer*4 DEm_7 (nr__7) ! (arcmin) Decl. (minutes), HCRS
real*4 DEs_7 (nr__7) ! (arcsec) Decl. (seconds), HCRS
real*4 Bmag_7 (nr__7) ! (mag) *Observed B magnitude
real*8 mEp_7 (nr__7) ! (yr) Mean epoch of position
integer*4 Num_7 (nr__7) ! Number of images used for astrometry
real*4 e_RAs_7 (nr__7) ! (arcsec) *? Standard deviation of Right Ascension
real*4 e_DEs_7 (nr__7) ! (arcsec) *? Standard deviation of Declination
integer*4 ACnum_7 (nr__7) ! USNO generated identifier
integer*4 HIP_7 (nr__7) ! *? Hipparcos number
character*1 m_HIP_7 (nr__7) ! *Hipparcos component identifier
character*12 TYC2_7 (nr__7) ! *Tycho-2 identifier
real*4 Vmag_7 (nr__7) ! (mag) *? V magnitude
integer*4 magflg_7 (nr__7) ! *[1,3]? Magnitude warning flag
integer*4 verflg_7 (nr__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 (nr__8) ! (deg) Right Ascension J2000
real*8 Dec_8 (nr__8) ! (deg) Declination J2000
integer*4 RAh_8 (nr__8) ! (h) R.A. (hours), HCRS, at epoch mEp
integer*4 RAm_8 (nr__8) ! (min) R.A. (minutes), HCRS
real*4 RAs_8 (nr__8) ! (s) R.A. (seconds), HCRS
character*1 DE__8 (nr__8) ! Decl. (sign), HCRS
integer*4 DEd_8 (nr__8) ! (deg) Decl. (degrees), HCRS, at epoch mEp
integer*4 DEm_8 (nr__8) ! (arcmin) Decl. (minutes), HCRS
real*4 DEs_8 (nr__8) ! (arcsec) Decl. (seconds), HCRS
real*4 Bmag_8 (nr__8) ! (mag) *Observed B magnitude
real*8 mEp_8 (nr__8) ! (yr) Mean epoch of position
integer*4 Num_8 (nr__8) ! Number of images used for astrometry
real*4 e_RAs_8 (nr__8) ! (arcsec) *? Standard deviation of Right Ascension
real*4 e_DEs_8 (nr__8) ! (arcsec) *? Standard deviation of Declination
integer*4 ACnum_8 (nr__8) ! USNO generated identifier
integer*4 HIP_8 (nr__8) ! *? Hipparcos number
character*1 m_HIP_8 (nr__8) ! *Hipparcos component identifier
character*12 TYC2_8 (nr__8) ! *Tycho-2 identifier
real*4 Vmag_8 (nr__8) ! (mag) *? V magnitude
integer*4 magflg_8 (nr__8) ! *[1,3]? Magnitude warning flag
integer*4 verflg_8 (nr__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 (nr__9) ! (deg) Right Ascension J2000
real*8 Dec_9 (nr__9) ! (deg) Declination J2000
integer*4 RAh_9 (nr__9) ! (h) R.A. (hours), HCRS, at epoch mEp
integer*4 RAm_9 (nr__9) ! (min) R.A. (minutes), HCRS
real*4 RAs_9 (nr__9) ! (s) R.A. (seconds), HCRS
character*1 DE__9 (nr__9) ! Decl. (sign), HCRS
integer*4 DEd_9 (nr__9) ! (deg) Decl. (degrees), HCRS, at epoch mEp
integer*4 DEm_9 (nr__9) ! (arcmin) Decl. (minutes), HCRS
real*4 DEs_9 (nr__9) ! (arcsec) Decl. (seconds), HCRS
real*4 Bmag_9 (nr__9) ! (mag) *Observed B magnitude
real*8 mEp_9 (nr__9) ! (yr) Mean epoch of position
integer*4 Num_9 (nr__9) ! Number of images used for astrometry
real*4 e_RAs_9 (nr__9) ! (arcsec) *? Standard deviation of Right Ascension
real*4 e_DEs_9 (nr__9) ! (arcsec) *? Standard deviation of Declination
integer*4 ACnum_9 (nr__9) ! USNO generated identifier
integer*4 HIP_9 (nr__9) ! *? Hipparcos number
character*1 m_HIP_9 (nr__9) ! *Hipparcos component identifier
character*12 TYC2_9 (nr__9) ! *Tycho-2 identifier
real*4 Vmag_9 (nr__9) ! (mag) *? V magnitude
integer*4 magflg_9 (nr__9) ! *[1,3]? Magnitude warning flag
integer*4 verflg_9 (nr__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 (nr__10) ! (deg) Right Ascension J2000
real*8 Dec_10 (nr__10) ! (deg) Declination J2000
integer*4 RAh_10 (nr__10) ! (h) R.A. (hours), HCRS, at epoch mEp
integer*4 RAm_10 (nr__10) ! (min) R.A. (minutes), HCRS
real*4 RAs_10 (nr__10) ! (s) R.A. (seconds), HCRS
character*1 DE__10 (nr__10) ! Decl. (sign), HCRS
integer*4 DEd_10 (nr__10) ! (deg) Decl. (degrees), HCRS, at epoch mEp
integer*4 DEm_10 (nr__10) ! (arcmin) Decl. (minutes), HCRS
real*4 DEs_10 (nr__10) ! (arcsec) Decl. (seconds), HCRS
real*4 Bmag_10 (nr__10) ! (mag) *Observed B magnitude
real*8 mEp_10 (nr__10) ! (yr) Mean epoch of position
integer*4 Num_10 (nr__10) ! Number of images used for astrometry
real*4 e_RAs_10 (nr__10) ! (arcsec) *? Standard deviation of Right Ascension
real*4 e_DEs_10 (nr__10) ! (arcsec) *? Standard deviation of Declination
integer*4 ACnum_10 (nr__10) ! USNO generated identifier
integer*4 HIP_10 (nr__10) ! *? Hipparcos number
character*1 m_HIP_10 (nr__10) ! *Hipparcos component identifier
character*12 TYC2_10 (nr__10) ! *Tycho-2 identifier
real*4 Vmag_10 (nr__10) ! (mag) *? V magnitude
integer*4 magflg_10 (nr__10) ! *[1,3]? Magnitude warning flag
integer*4 verflg_10 (nr__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 (nr__11) ! (deg) Right Ascension J2000
real*8 Dec_11 (nr__11) ! (deg) Declination J2000
integer*4 RAh_11 (nr__11) ! (h) R.A. (hours), HCRS, at epoch mEp
integer*4 RAm_11 (nr__11) ! (min) R.A. (minutes), HCRS
real*4 RAs_11 (nr__11) ! (s) R.A. (seconds), HCRS
character*1 DE__11 (nr__11) ! Decl. (sign), HCRS
integer*4 DEd_11 (nr__11) ! (deg) Decl. (degrees), HCRS, at epoch mEp
integer*4 DEm_11 (nr__11) ! (arcmin) Decl. (minutes), HCRS
real*4 DEs_11 (nr__11) ! (arcsec) Decl. (seconds), HCRS
real*4 Bmag_11 (nr__11) ! (mag) *Observed B magnitude
real*8 mEp_11 (nr__11) ! (yr) Mean epoch of position
integer*4 Num_11 (nr__11) ! Number of images used for astrometry
real*4 e_RAs_11 (nr__11) ! (arcsec) *? Standard deviation of Right Ascension
real*4 e_DEs_11 (nr__11) ! (arcsec) *? Standard deviation of Declination
integer*4 ACnum_11 (nr__11) ! USNO generated identifier
integer*4 HIP_11 (nr__11) ! *? Hipparcos number
character*1 m_HIP_11 (nr__11) ! *Hipparcos component identifier
character*12 TYC2_11 (nr__11) ! *Tycho-2 identifier
real*4 Vmag_11 (nr__11) ! (mag) *? V magnitude
integer*4 magflg_11 (nr__11) ! *[1,3]? Magnitude warning flag
integer*4 verflg_11 (nr__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 (nr__12) ! (deg) Right Ascension J2000
real*8 Dec_12 (nr__12) ! (deg) Declination J2000
integer*4 RAh_12 (nr__12) ! (h) R.A. (hours), HCRS, at epoch mEp
integer*4 RAm_12 (nr__12) ! (min) R.A. (minutes), HCRS
real*4 RAs_12 (nr__12) ! (s) R.A. (seconds), HCRS
character*1 DE__12 (nr__12) ! Decl. (sign), HCRS
integer*4 DEd_12 (nr__12) ! (deg) Decl. (degrees), HCRS, at epoch mEp
integer*4 DEm_12 (nr__12) ! (arcmin) Decl. (minutes), HCRS
real*4 DEs_12 (nr__12) ! (arcsec) Decl. (seconds), HCRS
real*4 Bmag_12 (nr__12) ! (mag) *Observed B magnitude
real*8 mEp_12 (nr__12) ! (yr) Mean epoch of position
integer*4 Num_12 (nr__12) ! Number of images used for astrometry
real*4 e_RAs_12 (nr__12) ! (arcsec) *? Standard deviation of Right Ascension
real*4 e_DEs_12 (nr__12) ! (arcsec) *? Standard deviation of Declination
integer*4 ACnum_12 (nr__12) ! USNO generated identifier
integer*4 HIP_12 (nr__12) ! *? Hipparcos number
character*1 m_HIP_12 (nr__12) ! *Hipparcos component identifier
character*12 TYC2_12 (nr__12) ! *Tycho-2 identifier
real*4 Vmag_12 (nr__12) ! (mag) *? V magnitude
integer*4 magflg_12 (nr__12) ! *[1,3]? Magnitude warning flag
integer*4 verflg_12 (nr__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 (nr__13) ! (deg) Right Ascension J2000
real*8 Dec_13 (nr__13) ! (deg) Declination J2000
integer*4 RAh_13 (nr__13) ! (h) R.A. (hours), HCRS, at epoch mEp
integer*4 RAm_13 (nr__13) ! (min) R.A. (minutes), HCRS
real*4 RAs_13 (nr__13) ! (s) R.A. (seconds), HCRS
character*1 DE__13 (nr__13) ! Decl. (sign), HCRS
integer*4 DEd_13 (nr__13) ! (deg) Decl. (degrees), HCRS, at epoch mEp
integer*4 DEm_13 (nr__13) ! (arcmin) Decl. (minutes), HCRS
real*4 DEs_13 (nr__13) ! (arcsec) Decl. (seconds), HCRS
real*4 Bmag_13 (nr__13) ! (mag) *Observed B magnitude
real*8 mEp_13 (nr__13) ! (yr) Mean epoch of position
integer*4 Num_13 (nr__13) ! Number of images used for astrometry
real*4 e_RAs_13 (nr__13) ! (arcsec) *? Standard deviation of Right Ascension
real*4 e_DEs_13 (nr__13) ! (arcsec) *? Standard deviation of Declination
integer*4 ACnum_13 (nr__13) ! USNO generated identifier
integer*4 HIP_13 (nr__13) ! *? Hipparcos number
character*1 m_HIP_13 (nr__13) ! *Hipparcos component identifier
character*12 TYC2_13 (nr__13) ! *Tycho-2 identifier
real*4 Vmag_13 (nr__13) ! (mag) *? V magnitude
integer*4 magflg_13 (nr__13) ! *[1,3]? Magnitude warning flag
integer*4 verflg_13 (nr__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(i__),RAm(i__),RAs(i__),DE_(i__),DEd(i__),DEm(i__),
+ DEs(i__),Bmag(i__),mEp(i__),Num(i__),e_RAs(i__),e_DEs(i__),
+ ACnum(i__),HIP(i__),m_HIP(i__),TYC2(i__),Vmag(i__),
+ magflg(i__),verflg(i__)
if(ar__(44:49) .EQ. '') e_RAs(i__) = rNULL__
if(ar__(50:55) .EQ. '') e_DEs(i__) = rNULL__
if(ar__(65:70) .EQ. '') HIP(i__) = iNULL__
if(ar__(86:91) .EQ. '') Vmag(i__) = rNULL__
if(ar__(92:92) .EQ. '') magflg(i__) = iNULL__
if(ar__(93:93) .EQ. '') verflg(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)
+ RAh(i__),RAm(i__),RAs(i__),DE_(i__),DEd(i__),DEm(i__),
+ DEs(i__),Bmag(i__),mEp(i__),Num(i__),e_RAs(i__),e_DEs(i__),
+ ACnum(i__),HIP(i__),m_HIP(i__),TYC2(i__),Vmag(i__),
+ magflg(i__),verflg(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 '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(i__),RAm_1(i__),RAs_1(i__),DE__1(i__),DEd_1(i__),
+ DEm_1(i__),DEs_1(i__),Bmag_1(i__),mEp_1(i__),Num_1(i__),
+ e_RAs_1(i__),e_DEs_1(i__),ACnum_1(i__),HIP_1(i__),
+ m_HIP_1(i__),TYC2_1(i__),Vmag_1(i__),magflg_1(i__),
+ verflg_1(i__)
if(ar__1(44:49) .EQ. '') e_RAs_1(i__) = rNULL__
if(ar__1(50:55) .EQ. '') e_DEs_1(i__) = rNULL__
if(ar__1(65:70) .EQ. '') HIP_1(i__) = iNULL__
if(ar__1(86:91) .EQ. '') Vmag_1(i__) = rNULL__
if(ar__1(92:92) .EQ. '') magflg_1(i__) = iNULL__
if(ar__1(93:93) .EQ. '') verflg_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)
+ RAh_1(i__),RAm_1(i__),RAs_1(i__),DE__1(i__),DEd_1(i__),
+ DEm_1(i__),DEs_1(i__),Bmag_1(i__),mEp_1(i__),Num_1(i__),
+ e_RAs_1(i__),e_DEs_1(i__),ACnum_1(i__),HIP_1(i__),
+ m_HIP_1(i__),TYC2_1(i__),Vmag_1(i__),magflg_1(i__),
+ verflg_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 '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(i__),RAm_2(i__),RAs_2(i__),DE__2(i__),DEd_2(i__),
+ DEm_2(i__),DEs_2(i__),Bmag_2(i__),mEp_2(i__),Num_2(i__),
+ e_RAs_2(i__),e_DEs_2(i__),ACnum_2(i__),HIP_2(i__),
+ m_HIP_2(i__),TYC2_2(i__),Vmag_2(i__),magflg_2(i__),
+ verflg_2(i__)
if(ar__2(44:49) .EQ. '') e_RAs_2(i__) = rNULL__
if(ar__2(50:55) .EQ. '') e_DEs_2(i__) = rNULL__
if(ar__2(65:70) .EQ. '') HIP_2(i__) = iNULL__
if(ar__2(86:91) .EQ. '') Vmag_2(i__) = rNULL__
if(ar__2(92:92) .EQ. '') magflg_2(i__) = iNULL__
if(ar__2(93:93) .EQ. '') verflg_2(i__) = 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(i__) = RAh_2(i__)
if(RAh_2(i__) .GE. 0) RA__2(i__)=RAh_2(i__)*15.
if(RAm_2(i__) .GE. 0) RA__2(i__)=RA__2(i__)+RAm_2(i__)/4.
if(RAs_2(i__) .GE. 0) RA__2(i__)=RA__2(i__)+RAs_2(i__)/240.
Dec_2(i__) = DEd_2(i__)
if(DEm_2(i__) .GE. 0) Dec_2(i__)=Dec_2(i__)+DEm_2(i__)/60.
if(DEs_2(i__) .GE. 0) Dec_2(i__)=Dec_2(i__)+DEs_2(i__)/3600.
if(DE__2(i__).EQ.'-'.AND.Dec_2(i__).GE.0) Dec_2(i__)=-Dec_2(i__)
c ..............Just test output...........
write(6,3)
+ RAh_2(i__),RAm_2(i__),RAs_2(i__),DE__2(i__),DEd_2(i__),
+ DEm_2(i__),DEs_2(i__),Bmag_2(i__),mEp_2(i__),Num_2(i__),
+ e_RAs_2(i__),e_DEs_2(i__),ACnum_2(i__),HIP_2(i__),
+ m_HIP_2(i__),TYC2_2(i__),Vmag_2(i__),magflg_2(i__),
+ verflg_2(i__)
write(6,'(6H Pos: 2F8.4)') RA__2(i__),Dec_2(i__)
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(i__),RAm_3(i__),RAs_3(i__),DE__3(i__),DEd_3(i__),
+ DEm_3(i__),DEs_3(i__),Bmag_3(i__),mEp_3(i__),Num_3(i__),
+ e_RAs_3(i__),e_DEs_3(i__),ACnum_3(i__),HIP_3(i__),
+ m_HIP_3(i__),TYC2_3(i__),Vmag_3(i__),magflg_3(i__),
+ verflg_3(i__)
if(ar__3(44:49) .EQ. '') e_RAs_3(i__) = rNULL__
if(ar__3(50:55) .EQ. '') e_DEs_3(i__) = rNULL__
if(ar__3(65:70) .EQ. '') HIP_3(i__) = iNULL__
if(ar__3(86:91) .EQ. '') Vmag_3(i__) = rNULL__
if(ar__3(92:92) .EQ. '') magflg_3(i__) = iNULL__
if(ar__3(93:93) .EQ. '') verflg_3(i__) = 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(i__) = RAh_3(i__)
if(RAh_3(i__) .GE. 0) RA__3(i__)=RAh_3(i__)*15.
if(RAm_3(i__) .GE. 0) RA__3(i__)=RA__3(i__)+RAm_3(i__)/4.
if(RAs_3(i__) .GE. 0) RA__3(i__)=RA__3(i__)+RAs_3(i__)/240.
Dec_3(i__) = DEd_3(i__)
if(DEm_3(i__) .GE. 0) Dec_3(i__)=Dec_3(i__)+DEm_3(i__)/60.
if(DEs_3(i__) .GE. 0) Dec_3(i__)=Dec_3(i__)+DEs_3(i__)/3600.
if(DE__3(i__).EQ.'-'.AND.Dec_3(i__).GE.0) Dec_3(i__)=-Dec_3(i__)
c ..............Just test output...........
write(6,4)
+ RAh_3(i__),RAm_3(i__),RAs_3(i__),DE__3(i__),DEd_3(i__),
+ DEm_3(i__),DEs_3(i__),Bmag_3(i__),mEp_3(i__),Num_3(i__),
+ e_RAs_3(i__),e_DEs_3(i__),ACnum_3(i__),HIP_3(i__),
+ m_HIP_3(i__),TYC2_3(i__),Vmag_3(i__),magflg_3(i__),
+ verflg_3(i__)
write(6,'(6H Pos: 2F8.4)') RA__3(i__),Dec_3(i__)
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(i__),RAm_4(i__),RAs_4(i__),DE__4(i__),DEd_4(i__),
+ DEm_4(i__),DEs_4(i__),Bmag_4(i__),mEp_4(i__),Num_4(i__),
+ e_RAs_4(i__),e_DEs_4(i__),ACnum_4(i__),HIP_4(i__),
+ m_HIP_4(i__),TYC2_4(i__),Vmag_4(i__),magflg_4(i__),
+ verflg_4(i__)
if(ar__4(44:49) .EQ. '') e_RAs_4(i__) = rNULL__
if(ar__4(50:55) .EQ. '') e_DEs_4(i__) = rNULL__
if(ar__4(65:70) .EQ. '') HIP_4(i__) = iNULL__
if(ar__4(86:91) .EQ. '') Vmag_4(i__) = rNULL__
if(ar__4(92:92) .EQ. '') magflg_4(i__) = iNULL__
if(ar__4(93:93) .EQ. '') verflg_4(i__) = 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(i__) = RAh_4(i__)
if(RAh_4(i__) .GE. 0) RA__4(i__)=RAh_4(i__)*15.
if(RAm_4(i__) .GE. 0) RA__4(i__)=RA__4(i__)+RAm_4(i__)/4.
if(RAs_4(i__) .GE. 0) RA__4(i__)=RA__4(i__)+RAs_4(i__)/240.
Dec_4(i__) = DEd_4(i__)
if(DEm_4(i__) .GE. 0) Dec_4(i__)=Dec_4(i__)+DEm_4(i__)/60.
if(DEs_4(i__) .GE. 0) Dec_4(i__)=Dec_4(i__)+DEs_4(i__)/3600.
if(DE__4(i__).EQ.'-'.AND.Dec_4(i__).GE.0) Dec_4(i__)=-Dec_4(i__)
c ..............Just test output...........
write(6,5)
+ RAh_4(i__),RAm_4(i__),RAs_4(i__),DE__4(i__),DEd_4(i__),
+ DEm_4(i__),DEs_4(i__),Bmag_4(i__),mEp_4(i__),Num_4(i__),
+ e_RAs_4(i__),e_DEs_4(i__),ACnum_4(i__),HIP_4(i__),
+ m_HIP_4(i__),TYC2_4(i__),Vmag_4(i__),magflg_4(i__),
+ verflg_4(i__)
write(6,'(6H Pos: 2F8.4)') RA__4(i__),Dec_4(i__)
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(i__),RAm_5(i__),RAs_5(i__),DE__5(i__),DEd_5(i__),
+ DEm_5(i__),DEs_5(i__),Bmag_5(i__),mEp_5(i__),Num_5(i__),
+ e_RAs_5(i__),e_DEs_5(i__),ACnum_5(i__),HIP_5(i__),
+ m_HIP_5(i__),TYC2_5(i__),Vmag_5(i__),magflg_5(i__),
+ verflg_5(i__)
if(ar__5(44:49) .EQ. '') e_RAs_5(i__) = rNULL__
if(ar__5(50:55) .EQ. '') e_DEs_5(i__) = rNULL__
if(ar__5(65:70) .EQ. '') HIP_5(i__) = iNULL__
if(ar__5(86:91) .EQ. '') Vmag_5(i__) = rNULL__
if(ar__5(92:92) .EQ. '') magflg_5(i__) = iNULL__
if(ar__5(93:93) .EQ. '') verflg_5(i__) = 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(i__) = RAh_5(i__)
if(RAh_5(i__) .GE. 0) RA__5(i__)=RAh_5(i__)*15.
if(RAm_5(i__) .GE. 0) RA__5(i__)=RA__5(i__)+RAm_5(i__)/4.
if(RAs_5(i__) .GE. 0) RA__5(i__)=RA__5(i__)+RAs_5(i__)/240.
Dec_5(i__) = DEd_5(i__)
if(DEm_5(i__) .GE. 0) Dec_5(i__)=Dec_5(i__)+DEm_5(i__)/60.
if(DEs_5(i__) .GE. 0) Dec_5(i__)=Dec_5(i__)+DEs_5(i__)/3600.
if(DE__5(i__).EQ.'-'.AND.Dec_5(i__).GE.0) Dec_5(i__)=-Dec_5(i__)
c ..............Just test output...........
write(6,6)
+ RAh_5(i__),RAm_5(i__),RAs_5(i__),DE__5(i__),DEd_5(i__),
+ DEm_5(i__),DEs_5(i__),Bmag_5(i__),mEp_5(i__),Num_5(i__),
+ e_RAs_5(i__),e_DEs_5(i__),ACnum_5(i__),HIP_5(i__),
+ m_HIP_5(i__),TYC2_5(i__),Vmag_5(i__),magflg_5(i__),
+ verflg_5(i__)
write(6,'(6H Pos: 2F8.4)') RA__5(i__),Dec_5(i__)
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(i__),RAm_6(i__),RAs_6(i__),DE__6(i__),DEd_6(i__),
+ DEm_6(i__),DEs_6(i__),Bmag_6(i__),mEp_6(i__),Num_6(i__),
+ e_RAs_6(i__),e_DEs_6(i__),ACnum_6(i__),HIP_6(i__),
+ m_HIP_6(i__),TYC2_6(i__),Vmag_6(i__),magflg_6(i__),
+ verflg_6(i__)
if(ar__6(44:49) .EQ. '') e_RAs_6(i__) = rNULL__
if(ar__6(50:55) .EQ. '') e_DEs_6(i__) = rNULL__
if(ar__6(65:70) .EQ. '') HIP_6(i__) = iNULL__
if(ar__6(86:91) .EQ. '') Vmag_6(i__) = rNULL__
if(ar__6(92:92) .EQ. '') magflg_6(i__) = iNULL__
if(ar__6(93:93) .EQ. '') verflg_6(i__) = 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(i__) = RAh_6(i__)
if(RAh_6(i__) .GE. 0) RA__6(i__)=RAh_6(i__)*15.
if(RAm_6(i__) .GE. 0) RA__6(i__)=RA__6(i__)+RAm_6(i__)/4.
if(RAs_6(i__) .GE. 0) RA__6(i__)=RA__6(i__)+RAs_6(i__)/240.
Dec_6(i__) = DEd_6(i__)
if(DEm_6(i__) .GE. 0) Dec_6(i__)=Dec_6(i__)+DEm_6(i__)/60.
if(DEs_6(i__) .GE. 0) Dec_6(i__)=Dec_6(i__)+DEs_6(i__)/3600.
if(DE__6(i__).EQ.'-'.AND.Dec_6(i__).GE.0) Dec_6(i__)=-Dec_6(i__)
c ..............Just test output...........
write(6,7)
+ RAh_6(i__),RAm_6(i__),RAs_6(i__),DE__6(i__),DEd_6(i__),
+ DEm_6(i__),DEs_6(i__),Bmag_6(i__),mEp_6(i__),Num_6(i__),
+ e_RAs_6(i__),e_DEs_6(i__),ACnum_6(i__),HIP_6(i__),
+ m_HIP_6(i__),TYC2_6(i__),Vmag_6(i__),magflg_6(i__),
+ verflg_6(i__)
write(6,'(6H Pos: 2F8.4)') RA__6(i__),Dec_6(i__)
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(i__),RAm_7(i__),RAs_7(i__),DE__7(i__),DEd_7(i__),
+ DEm_7(i__),DEs_7(i__),Bmag_7(i__),mEp_7(i__),Num_7(i__),
+ e_RAs_7(i__),e_DEs_7(i__),ACnum_7(i__),HIP_7(i__),
+ m_HIP_7(i__),TYC2_7(i__),Vmag_7(i__),magflg_7(i__),
+ verflg_7(i__)
if(ar__7(44:49) .EQ. '') e_RAs_7(i__) = rNULL__
if(ar__7(50:55) .EQ. '') e_DEs_7(i__) = rNULL__
if(ar__7(65:70) .EQ. '') HIP_7(i__) = iNULL__
if(ar__7(86:91) .EQ. '') Vmag_7(i__) = rNULL__
if(ar__7(92:92) .EQ. '') magflg_7(i__) = iNULL__
if(ar__7(93:93) .EQ. '') verflg_7(i__) = 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(i__) = RAh_7(i__)
if(RAh_7(i__) .GE. 0) RA__7(i__)=RAh_7(i__)*15.
if(RAm_7(i__) .GE. 0) RA__7(i__)=RA__7(i__)+RAm_7(i__)/4.
if(RAs_7(i__) .GE. 0) RA__7(i__)=RA__7(i__)+RAs_7(i__)/240.
Dec_7(i__) = DEd_7(i__)
if(DEm_7(i__) .GE. 0) Dec_7(i__)=Dec_7(i__)+DEm_7(i__)/60.
if(DEs_7(i__) .GE. 0) Dec_7(i__)=Dec_7(i__)+DEs_7(i__)/3600.
if(DE__7(i__).EQ.'-'.AND.Dec_7(i__).GE.0) Dec_7(i__)=-Dec_7(i__)
c ..............Just test output...........
write(6,8)
+ RAh_7(i__),RAm_7(i__),RAs_7(i__),DE__7(i__),DEd_7(i__),
+ DEm_7(i__),DEs_7(i__),Bmag_7(i__),mEp_7(i__),Num_7(i__),
+ e_RAs_7(i__),e_DEs_7(i__),ACnum_7(i__),HIP_7(i__),
+ m_HIP_7(i__),TYC2_7(i__),Vmag_7(i__),magflg_7(i__),
+ verflg_7(i__)
write(6,'(6H Pos: 2F8.4)') RA__7(i__),Dec_7(i__)
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(i__),RAm_8(i__),RAs_8(i__),DE__8(i__),DEd_8(i__),
+ DEm_8(i__),DEs_8(i__),Bmag_8(i__),mEp_8(i__),Num_8(i__),
+ e_RAs_8(i__),e_DEs_8(i__),ACnum_8(i__),HIP_8(i__),
+ m_HIP_8(i__),TYC2_8(i__),Vmag_8(i__),magflg_8(i__),
+ verflg_8(i__)
if(ar__8(44:49) .EQ. '') e_RAs_8(i__) = rNULL__
if(ar__8(50:55) .EQ. '') e_DEs_8(i__) = rNULL__
if(ar__8(65:70) .EQ. '') HIP_8(i__) = iNULL__
if(ar__8(86:91) .EQ. '') Vmag_8(i__) = rNULL__
if(ar__8(92:92) .EQ. '') magflg_8(i__) = iNULL__
if(ar__8(93:93) .EQ. '') verflg_8(i__) = 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(i__) = RAh_8(i__)
if(RAh_8(i__) .GE. 0) RA__8(i__)=RAh_8(i__)*15.
if(RAm_8(i__) .GE. 0) RA__8(i__)=RA__8(i__)+RAm_8(i__)/4.
if(RAs_8(i__) .GE. 0) RA__8(i__)=RA__8(i__)+RAs_8(i__)/240.
Dec_8(i__) = DEd_8(i__)
if(DEm_8(i__) .GE. 0) Dec_8(i__)=Dec_8(i__)+DEm_8(i__)/60.
if(DEs_8(i__) .GE. 0) Dec_8(i__)=Dec_8(i__)+DEs_8(i__)/3600.
if(DE__8(i__).EQ.'-'.AND.Dec_8(i__).GE.0) Dec_8(i__)=-Dec_8(i__)
c ..............Just test output...........
write(6,9)
+ RAh_8(i__),RAm_8(i__),RAs_8(i__),DE__8(i__),DEd_8(i__),
+ DEm_8(i__),DEs_8(i__),Bmag_8(i__),mEp_8(i__),Num_8(i__),
+ e_RAs_8(i__),e_DEs_8(i__),ACnum_8(i__),HIP_8(i__),
+ m_HIP_8(i__),TYC2_8(i__),Vmag_8(i__),magflg_8(i__),
+ verflg_8(i__)
write(6,'(6H Pos: 2F8.4)') RA__8(i__),Dec_8(i__)
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(i__),RAm_9(i__),RAs_9(i__),DE__9(i__),DEd_9(i__),
+ DEm_9(i__),DEs_9(i__),Bmag_9(i__),mEp_9(i__),Num_9(i__),
+ e_RAs_9(i__),e_DEs_9(i__),ACnum_9(i__),HIP_9(i__),
+ m_HIP_9(i__),TYC2_9(i__),Vmag_9(i__),magflg_9(i__),
+ verflg_9(i__)
if(ar__9(44:49) .EQ. '') e_RAs_9(i__) = rNULL__
if(ar__9(50:55) .EQ. '') e_DEs_9(i__) = rNULL__
if(ar__9(65:70) .EQ. '') HIP_9(i__) = iNULL__
if(ar__9(86:91) .EQ. '') Vmag_9(i__) = rNULL__
if(ar__9(92:92) .EQ. '') magflg_9(i__) = iNULL__
if(ar__9(93:93) .EQ. '') verflg_9(i__) = 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(i__) = RAh_9(i__)
if(RAh_9(i__) .GE. 0) RA__9(i__)=RAh_9(i__)*15.
if(RAm_9(i__) .GE. 0) RA__9(i__)=RA__9(i__)+RAm_9(i__)/4.
if(RAs_9(i__) .GE. 0) RA__9(i__)=RA__9(i__)+RAs_9(i__)/240.
Dec_9(i__) = DEd_9(i__)
if(DEm_9(i__) .GE. 0) Dec_9(i__)=Dec_9(i__)+DEm_9(i__)/60.
if(DEs_9(i__) .GE. 0) Dec_9(i__)=Dec_9(i__)+DEs_9(i__)/3600.
if(DE__9(i__).EQ.'-'.AND.Dec_9(i__).GE.0) Dec_9(i__)=-Dec_9(i__)
c ..............Just test output...........
write(6,10)
+ RAh_9(i__),RAm_9(i__),RAs_9(i__),DE__9(i__),DEd_9(i__),
+ DEm_9(i__),DEs_9(i__),Bmag_9(i__),mEp_9(i__),Num_9(i__),
+ e_RAs_9(i__),e_DEs_9(i__),ACnum_9(i__),HIP_9(i__),
+ m_HIP_9(i__),TYC2_9(i__),Vmag_9(i__),magflg_9(i__),
+ verflg_9(i__)
write(6,'(6H Pos: 2F8.4)') RA__9(i__),Dec_9(i__)
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(i__),RAm_10(i__),RAs_10(i__),DE__10(i__),DEd_10(i__),
+ DEm_10(i__),DEs_10(i__),Bmag_10(i__),mEp_10(i__),Num_10(i__),
+ e_RAs_10(i__),e_DEs_10(i__),ACnum_10(i__),HIP_10(i__),
+ m_HIP_10(i__),TYC2_10(i__),Vmag_10(i__),magflg_10(i__),
+ verflg_10(i__)
if(ar__10(44:49) .EQ. '') e_RAs_10(i__) = rNULL__
if(ar__10(50:55) .EQ. '') e_DEs_10(i__) = rNULL__
if(ar__10(65:70) .EQ. '') HIP_10(i__) = iNULL__
if(ar__10(86:91) .EQ. '') Vmag_10(i__) = rNULL__
if(ar__10(92:92) .EQ. '') magflg_10(i__) = iNULL__
if(ar__10(93:93) .EQ. '') verflg_10(i__) = 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(i__) = RAh_10(i__)
if(RAh_10(i__) .GE. 0) RA__10(i__)=RAh_10(i__)*15.
if(RAm_10(i__) .GE. 0) RA__10(i__)=RA__10(i__)+RAm_10(i__)/4.
if(RAs_10(i__) .GE. 0) RA__10(i__)=RA__10(i__)+RAs_10(i__)/240.
Dec_10(i__) = DEd_10(i__)
if(DEm_10(i__) .GE. 0) Dec_10(i__)=Dec_10(i__)+DEm_10(i__)/60.
if(DEs_10(i__) .GE. 0) Dec_10(i__)=Dec_10(i__)+DEs_10(i__)/3600.
if(DE__10(i__).EQ.'-'.AND.Dec_10(i__).GE.0) Dec_10(i__)=-Dec_10(i__)
c ..............Just test output...........
write(6,11)
+ RAh_10(i__),RAm_10(i__),RAs_10(i__),DE__10(i__),DEd_10(i__),
+ DEm_10(i__),DEs_10(i__),Bmag_10(i__),mEp_10(i__),Num_10(i__),
+ e_RAs_10(i__),e_DEs_10(i__),ACnum_10(i__),HIP_10(i__),
+ m_HIP_10(i__),TYC2_10(i__),Vmag_10(i__),magflg_10(i__),
+ verflg_10(i__)
write(6,'(6H Pos: 2F8.4)') RA__10(i__),Dec_10(i__)
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(i__),RAm_11(i__),RAs_11(i__),DE__11(i__),DEd_11(i__),
+ DEm_11(i__),DEs_11(i__),Bmag_11(i__),mEp_11(i__),Num_11(i__),
+ e_RAs_11(i__),e_DEs_11(i__),ACnum_11(i__),HIP_11(i__),
+ m_HIP_11(i__),TYC2_11(i__),Vmag_11(i__),magflg_11(i__),
+ verflg_11(i__)
if(ar__11(44:49) .EQ. '') e_RAs_11(i__) = rNULL__
if(ar__11(50:55) .EQ. '') e_DEs_11(i__) = rNULL__
if(ar__11(65:70) .EQ. '') HIP_11(i__) = iNULL__
if(ar__11(86:91) .EQ. '') Vmag_11(i__) = rNULL__
if(ar__11(92:92) .EQ. '') magflg_11(i__) = iNULL__
if(ar__11(93:93) .EQ. '') verflg_11(i__) = 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(i__) = RAh_11(i__)
if(RAh_11(i__) .GE. 0) RA__11(i__)=RAh_11(i__)*15.
if(RAm_11(i__) .GE. 0) RA__11(i__)=RA__11(i__)+RAm_11(i__)/4.
if(RAs_11(i__) .GE. 0) RA__11(i__)=RA__11(i__)+RAs_11(i__)/240.
Dec_11(i__) = DEd_11(i__)
if(DEm_11(i__) .GE. 0) Dec_11(i__)=Dec_11(i__)+DEm_11(i__)/60.
if(DEs_11(i__) .GE. 0) Dec_11(i__)=Dec_11(i__)+DEs_11(i__)/3600.
if(DE__11(i__).EQ.'-'.AND.Dec_11(i__).GE.0) Dec_11(i__)=-Dec_11(i__)
c ..............Just test output...........
write(6,12)
+ RAh_11(i__),RAm_11(i__),RAs_11(i__),DE__11(i__),DEd_11(i__),
+ DEm_11(i__),DEs_11(i__),Bmag_11(i__),mEp_11(i__),Num_11(i__),
+ e_RAs_11(i__),e_DEs_11(i__),ACnum_11(i__),HIP_11(i__),
+ m_HIP_11(i__),TYC2_11(i__),Vmag_11(i__),magflg_11(i__),
+ verflg_11(i__)
write(6,'(6H Pos: 2F8.4)') RA__11(i__),Dec_11(i__)
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(i__),RAm_12(i__),RAs_12(i__),DE__12(i__),DEd_12(i__),
+ DEm_12(i__),DEs_12(i__),Bmag_12(i__),mEp_12(i__),Num_12(i__),
+ e_RAs_12(i__),e_DEs_12(i__),ACnum_12(i__),HIP_12(i__),
+ m_HIP_12(i__),TYC2_12(i__),Vmag_12(i__),magflg_12(i__),
+ verflg_12(i__)
if(ar__12(44:49) .EQ. '') e_RAs_12(i__) = rNULL__
if(ar__12(50:55) .EQ. '') e_DEs_12(i__) = rNULL__
if(ar__12(65:70) .EQ. '') HIP_12(i__) = iNULL__
if(ar__12(86:91) .EQ. '') Vmag_12(i__) = rNULL__
if(ar__12(92:92) .EQ. '') magflg_12(i__) = iNULL__
if(ar__12(93:93) .EQ. '') verflg_12(i__) = 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(i__) = RAh_12(i__)
if(RAh_12(i__) .GE. 0) RA__12(i__)=RAh_12(i__)*15.
if(RAm_12(i__) .GE. 0) RA__12(i__)=RA__12(i__)+RAm_12(i__)/4.
if(RAs_12(i__) .GE. 0) RA__12(i__)=RA__12(i__)+RAs_12(i__)/240.
Dec_12(i__) = DEd_12(i__)
if(DEm_12(i__) .GE. 0) Dec_12(i__)=Dec_12(i__)+DEm_12(i__)/60.
if(DEs_12(i__) .GE. 0) Dec_12(i__)=Dec_12(i__)+DEs_12(i__)/3600.
if(DE__12(i__).EQ.'-'.AND.Dec_12(i__).GE.0) Dec_12(i__)=-Dec_12(i__)
c ..............Just test output...........
write(6,13)
+ RAh_12(i__),RAm_12(i__),RAs_12(i__),DE__12(i__),DEd_12(i__),
+ DEm_12(i__),DEs_12(i__),Bmag_12(i__),mEp_12(i__),Num_12(i__),
+ e_RAs_12(i__),e_DEs_12(i__),ACnum_12(i__),HIP_12(i__),
+ m_HIP_12(i__),TYC2_12(i__),Vmag_12(i__),magflg_12(i__),
+ verflg_12(i__)
write(6,'(6H Pos: 2F8.4)') RA__12(i__),Dec_12(i__)
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(i__),RAm_13(i__),RAs_13(i__),DE__13(i__),DEd_13(i__),
+ DEm_13(i__),DEs_13(i__),Bmag_13(i__),mEp_13(i__),Num_13(i__),
+ e_RAs_13(i__),e_DEs_13(i__),ACnum_13(i__),HIP_13(i__),
+ m_HIP_13(i__),TYC2_13(i__),Vmag_13(i__),magflg_13(i__),
+ verflg_13(i__)
if(ar__13(44:49) .EQ. '') e_RAs_13(i__) = rNULL__
if(ar__13(50:55) .EQ. '') e_DEs_13(i__) = rNULL__
if(ar__13(65:70) .EQ. '') HIP_13(i__) = iNULL__
if(ar__13(86:91) .EQ. '') Vmag_13(i__) = rNULL__
if(ar__13(92:92) .EQ. '') magflg_13(i__) = iNULL__
if(ar__13(93:93) .EQ. '') verflg_13(i__) = 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(i__) = RAh_13(i__)
if(RAh_13(i__) .GE. 0) RA__13(i__)=RAh_13(i__)*15.
if(RAm_13(i__) .GE. 0) RA__13(i__)=RA__13(i__)+RAm_13(i__)/4.
if(RAs_13(i__) .GE. 0) RA__13(i__)=RA__13(i__)+RAs_13(i__)/240.
Dec_13(i__) = DEd_13(i__)
if(DEm_13(i__) .GE. 0) Dec_13(i__)=Dec_13(i__)+DEm_13(i__)/60.
if(DEs_13(i__) .GE. 0) Dec_13(i__)=Dec_13(i__)+DEs_13(i__)/3600.
if(DE__13(i__).EQ.'-'.AND.Dec_13(i__).GE.0) Dec_13(i__)=-Dec_13(i__)
c ..............Just test output...........
write(6,14)
+ RAh_13(i__),RAm_13(i__),RAs_13(i__),DE__13(i__),DEd_13(i__),
+ DEm_13(i__),DEs_13(i__),Bmag_13(i__),mEp_13(i__),Num_13(i__),
+ e_RAs_13(i__),e_DEs_13(i__),ACnum_13(i__),HIP_13(i__),
+ m_HIP_13(i__),TYC2_13(i__),Vmag_13(i__),magflg_13(i__),
+ verflg_13(i__)
write(6,'(6H Pos: 2F8.4)') RA__13(i__),Dec_13(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end