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.81 (2015-09-23), on 2024-Apr-18
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__=--2147483648.) ! NULL real number
parameter (iNULL__=(-2147483647-1)) ! NULL int number
integer idig ! testing NULL 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
C mEp (J2000) (1) position composed of: RAh RAm RAs DE- DEd DEm DEs
real*8 RAdeg ! (deg) Right Ascension mEp (J2000) (1)
real*8 DEdeg ! (deg) Declination mEp (J2000) (1)
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 RAh ! (h) R.A. (hours), at epoch mEp (J2000) (1)
integer*4 RAm ! (min) R.A. (minutes)
real*4 RAs ! (s) R.A. (seconds) (J2000)
character*1 DE_ ! Decl. (sign) (J2000) (1)
integer*4 DEd ! (deg) Decl. (degrees), at epoch mEp
integer*4 DEm ! (arcmin) Decl. (minutes)
real*4 DEs ! (arcsec) Decl. (seconds) (J2000)
real*4 Bmag ! (mag) *Observed B magnitude (2)
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 (3)
real*4 e_DEs ! (arcsec) *? Standard deviation of Declination (3)
integer*4 ACnum ! USNO generated identifier
integer*4 HIP ! *? Hipparcos number (4)
character*1 m_HIP ! *Hipparcos component identifier (4)
character*12 TYC2 ! *Tycho-2 identifier (5)
real*4 Vmag ! (mag) *? V magnitude (2)
integer*4 magflg ! *[1,3]? Magnitude warning flag (6)
integer*4 verflg ! *[1]? Verification flag (7)
*Note (1): The data contain the positions (HCRS, coincident with J2000.0)
* at mean epochs of observation
*Note (2):
* 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.
*Note (3):
* 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.
*Note (4):
* 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.
*Note (5):
* 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.
*Note (6):
* 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.
*Note (7):
* 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
C mEp (J2000) (1) position composed of: RAh RAm RAs DE- DEd DEm DEs
real*8 RAdeg_1 ! (deg) Right Ascension mEp (J2000) (1)
real*8 DEdeg_1 ! (deg) Declination mEp (J2000) (1)
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 RAh_1 ! (h) R.A. (hours), at epoch mEp (J2000) (1)
integer*4 RAm_1 ! (min) R.A. (minutes)
real*4 RAs_1 ! (s) R.A. (seconds) (J2000)
character*1 DE__1 ! Decl. (sign) (J2000) (1)
integer*4 DEd_1 ! (deg) Decl. (degrees), at epoch mEp
integer*4 DEm_1 ! (arcmin) Decl. (minutes)
real*4 DEs_1 ! (arcsec) Decl. (seconds) (J2000)
real*4 Bmag_1 ! (mag) *Observed B magnitude (2)
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 (3)
real*4 e_DEs_1 ! (arcsec) *? Standard deviation of Declination (3)
integer*4 ACnum_1 ! USNO generated identifier
integer*4 HIP_1 ! *? Hipparcos number (4)
character*1 m_HIP_1 ! *Hipparcos component identifier (4)
character*12 TYC2_1 ! *Tycho-2 identifier (5)
real*4 Vmag_1 ! (mag) *? V magnitude (2)
integer*4 magflg_1 ! *[1,3]? Magnitude warning flag (6)
integer*4 verflg_1 ! *[1]? Verification flag (7)
*Note (1): The data contain the positions (HCRS, coincident with J2000.0)
* at mean epochs of observation
*Note (2):
* 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.
*Note (3):
* 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.
*Note (4):
* 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.
*Note (5):
* 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.
*Note (6):
* 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.
*Note (7):
* 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
C mEp (J2000) (1) position composed of: RAh RAm RAs DE- DEd DEm DEs
real*8 RAdeg_2 ! (deg) Right Ascension mEp (J2000) (1)
real*8 DEdeg_2 ! (deg) Declination mEp (J2000) (1)
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 RAh_2 ! (h) R.A. (hours), at epoch mEp (J2000) (1)
integer*4 RAm_2 ! (min) R.A. (minutes)
real*4 RAs_2 ! (s) R.A. (seconds) (J2000)
character*1 DE__2 ! Decl. (sign) (J2000) (1)
integer*4 DEd_2 ! (deg) Decl. (degrees), at epoch mEp
integer*4 DEm_2 ! (arcmin) Decl. (minutes)
real*4 DEs_2 ! (arcsec) Decl. (seconds) (J2000)
real*4 Bmag_2 ! (mag) *Observed B magnitude (2)
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 (3)
real*4 e_DEs_2 ! (arcsec) *? Standard deviation of Declination (3)
integer*4 ACnum_2 ! USNO generated identifier
integer*4 HIP_2 ! *? Hipparcos number (4)
character*1 m_HIP_2 ! *Hipparcos component identifier (4)
character*12 TYC2_2 ! *Tycho-2 identifier (5)
real*4 Vmag_2 ! (mag) *? V magnitude (2)
integer*4 magflg_2 ! *[1,3]? Magnitude warning flag (6)
integer*4 verflg_2 ! *[1]? Verification flag (7)
*Note (1): The data contain the positions (HCRS, coincident with J2000.0)
* at mean epochs of observation
*Note (2):
* 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.
*Note (3):
* 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.
*Note (4):
* 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.
*Note (5):
* 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.
*Note (6):
* 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.
*Note (7):
* 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
C mEp (J2000) (1) position composed of: RAh RAm RAs DE- DEd DEm DEs
real*8 RAdeg_3 ! (deg) Right Ascension mEp (J2000) (1)
real*8 DEdeg_3 ! (deg) Declination mEp (J2000) (1)
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 RAh_3 ! (h) R.A. (hours), at epoch mEp (J2000) (1)
integer*4 RAm_3 ! (min) R.A. (minutes)
real*4 RAs_3 ! (s) R.A. (seconds) (J2000)
character*1 DE__3 ! Decl. (sign) (J2000) (1)
integer*4 DEd_3 ! (deg) Decl. (degrees), at epoch mEp
integer*4 DEm_3 ! (arcmin) Decl. (minutes)
real*4 DEs_3 ! (arcsec) Decl. (seconds) (J2000)
real*4 Bmag_3 ! (mag) *Observed B magnitude (2)
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 (3)
real*4 e_DEs_3 ! (arcsec) *? Standard deviation of Declination (3)
integer*4 ACnum_3 ! USNO generated identifier
integer*4 HIP_3 ! *? Hipparcos number (4)
character*1 m_HIP_3 ! *Hipparcos component identifier (4)
character*12 TYC2_3 ! *Tycho-2 identifier (5)
real*4 Vmag_3 ! (mag) *? V magnitude (2)
integer*4 magflg_3 ! *[1,3]? Magnitude warning flag (6)
integer*4 verflg_3 ! *[1]? Verification flag (7)
*Note (1): The data contain the positions (HCRS, coincident with J2000.0)
* at mean epochs of observation
*Note (2):
* 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.
*Note (3):
* 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.
*Note (4):
* 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.
*Note (5):
* 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.
*Note (6):
* 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.
*Note (7):
* 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
C mEp (J2000) (1) position composed of: RAh RAm RAs DE- DEd DEm DEs
real*8 RAdeg_4 ! (deg) Right Ascension mEp (J2000) (1)
real*8 DEdeg_4 ! (deg) Declination mEp (J2000) (1)
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 RAh_4 ! (h) R.A. (hours), at epoch mEp (J2000) (1)
integer*4 RAm_4 ! (min) R.A. (minutes)
real*4 RAs_4 ! (s) R.A. (seconds) (J2000)
character*1 DE__4 ! Decl. (sign) (J2000) (1)
integer*4 DEd_4 ! (deg) Decl. (degrees), at epoch mEp
integer*4 DEm_4 ! (arcmin) Decl. (minutes)
real*4 DEs_4 ! (arcsec) Decl. (seconds) (J2000)
real*4 Bmag_4 ! (mag) *Observed B magnitude (2)
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 (3)
real*4 e_DEs_4 ! (arcsec) *? Standard deviation of Declination (3)
integer*4 ACnum_4 ! USNO generated identifier
integer*4 HIP_4 ! *? Hipparcos number (4)
character*1 m_HIP_4 ! *Hipparcos component identifier (4)
character*12 TYC2_4 ! *Tycho-2 identifier (5)
real*4 Vmag_4 ! (mag) *? V magnitude (2)
integer*4 magflg_4 ! *[1,3]? Magnitude warning flag (6)
integer*4 verflg_4 ! *[1]? Verification flag (7)
*Note (1): The data contain the positions (HCRS, coincident with J2000.0)
* at mean epochs of observation
*Note (2):
* 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.
*Note (3):
* 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.
*Note (4):
* 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.
*Note (5):
* 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.
*Note (6):
* 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.
*Note (7):
* 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
C mEp (J2000) (1) position composed of: RAh RAm RAs DE- DEd DEm DEs
real*8 RAdeg_5 ! (deg) Right Ascension mEp (J2000) (1)
real*8 DEdeg_5 ! (deg) Declination mEp (J2000) (1)
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 RAh_5 ! (h) R.A. (hours), at epoch mEp (J2000) (1)
integer*4 RAm_5 ! (min) R.A. (minutes)
real*4 RAs_5 ! (s) R.A. (seconds) (J2000)
character*1 DE__5 ! Decl. (sign) (J2000) (1)
integer*4 DEd_5 ! (deg) Decl. (degrees), at epoch mEp
integer*4 DEm_5 ! (arcmin) Decl. (minutes)
real*4 DEs_5 ! (arcsec) Decl. (seconds) (J2000)
real*4 Bmag_5 ! (mag) *Observed B magnitude (2)
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 (3)
real*4 e_DEs_5 ! (arcsec) *? Standard deviation of Declination (3)
integer*4 ACnum_5 ! USNO generated identifier
integer*4 HIP_5 ! *? Hipparcos number (4)
character*1 m_HIP_5 ! *Hipparcos component identifier (4)
character*12 TYC2_5 ! *Tycho-2 identifier (5)
real*4 Vmag_5 ! (mag) *? V magnitude (2)
integer*4 magflg_5 ! *[1,3]? Magnitude warning flag (6)
integer*4 verflg_5 ! *[1]? Verification flag (7)
*Note (1): The data contain the positions (HCRS, coincident with J2000.0)
* at mean epochs of observation
*Note (2):
* 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.
*Note (3):
* 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.
*Note (4):
* 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.
*Note (5):
* 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.
*Note (6):
* 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.
*Note (7):
* 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
C mEp (J2000) (1) position composed of: RAh RAm RAs DE- DEd DEm DEs
real*8 RAdeg_6 ! (deg) Right Ascension mEp (J2000) (1)
real*8 DEdeg_6 ! (deg) Declination mEp (J2000) (1)
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 RAh_6 ! (h) R.A. (hours), at epoch mEp (J2000) (1)
integer*4 RAm_6 ! (min) R.A. (minutes)
real*4 RAs_6 ! (s) R.A. (seconds) (J2000)
character*1 DE__6 ! Decl. (sign) (J2000) (1)
integer*4 DEd_6 ! (deg) Decl. (degrees), at epoch mEp
integer*4 DEm_6 ! (arcmin) Decl. (minutes)
real*4 DEs_6 ! (arcsec) Decl. (seconds) (J2000)
real*4 Bmag_6 ! (mag) *Observed B magnitude (2)
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 (3)
real*4 e_DEs_6 ! (arcsec) *? Standard deviation of Declination (3)
integer*4 ACnum_6 ! USNO generated identifier
integer*4 HIP_6 ! *? Hipparcos number (4)
character*1 m_HIP_6 ! *Hipparcos component identifier (4)
character*12 TYC2_6 ! *Tycho-2 identifier (5)
real*4 Vmag_6 ! (mag) *? V magnitude (2)
integer*4 magflg_6 ! *[1,3]? Magnitude warning flag (6)
integer*4 verflg_6 ! *[1]? Verification flag (7)
*Note (1): The data contain the positions (HCRS, coincident with J2000.0)
* at mean epochs of observation
*Note (2):
* 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.
*Note (3):
* 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.
*Note (4):
* 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.
*Note (5):
* 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.
*Note (6):
* 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.
*Note (7):
* 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
C mEp (J2000) (1) position composed of: RAh RAm RAs DE- DEd DEm DEs
real*8 RAdeg_7 ! (deg) Right Ascension mEp (J2000) (1)
real*8 DEdeg_7 ! (deg) Declination mEp (J2000) (1)
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 RAh_7 ! (h) R.A. (hours), at epoch mEp (J2000) (1)
integer*4 RAm_7 ! (min) R.A. (minutes)
real*4 RAs_7 ! (s) R.A. (seconds) (J2000)
character*1 DE__7 ! Decl. (sign) (J2000) (1)
integer*4 DEd_7 ! (deg) Decl. (degrees), at epoch mEp
integer*4 DEm_7 ! (arcmin) Decl. (minutes)
real*4 DEs_7 ! (arcsec) Decl. (seconds) (J2000)
real*4 Bmag_7 ! (mag) *Observed B magnitude (2)
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 (3)
real*4 e_DEs_7 ! (arcsec) *? Standard deviation of Declination (3)
integer*4 ACnum_7 ! USNO generated identifier
integer*4 HIP_7 ! *? Hipparcos number (4)
character*1 m_HIP_7 ! *Hipparcos component identifier (4)
character*12 TYC2_7 ! *Tycho-2 identifier (5)
real*4 Vmag_7 ! (mag) *? V magnitude (2)
integer*4 magflg_7 ! *[1,3]? Magnitude warning flag (6)
integer*4 verflg_7 ! *[1]? Verification flag (7)
*Note (1): The data contain the positions (HCRS, coincident with J2000.0)
* at mean epochs of observation
*Note (2):
* 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.
*Note (3):
* 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.
*Note (4):
* 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.
*Note (5):
* 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.
*Note (6):
* 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.
*Note (7):
* 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
C mEp (J2000) (1) position composed of: RAh RAm RAs DE- DEd DEm DEs
real*8 RAdeg_8 ! (deg) Right Ascension mEp (J2000) (1)
real*8 DEdeg_8 ! (deg) Declination mEp (J2000) (1)
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 RAh_8 ! (h) R.A. (hours), at epoch mEp (J2000) (1)
integer*4 RAm_8 ! (min) R.A. (minutes)
real*4 RAs_8 ! (s) R.A. (seconds) (J2000)
character*1 DE__8 ! Decl. (sign) (J2000) (1)
integer*4 DEd_8 ! (deg) Decl. (degrees), at epoch mEp
integer*4 DEm_8 ! (arcmin) Decl. (minutes)
real*4 DEs_8 ! (arcsec) Decl. (seconds) (J2000)
real*4 Bmag_8 ! (mag) *Observed B magnitude (2)
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 (3)
real*4 e_DEs_8 ! (arcsec) *? Standard deviation of Declination (3)
integer*4 ACnum_8 ! USNO generated identifier
integer*4 HIP_8 ! *? Hipparcos number (4)
character*1 m_HIP_8 ! *Hipparcos component identifier (4)
character*12 TYC2_8 ! *Tycho-2 identifier (5)
real*4 Vmag_8 ! (mag) *? V magnitude (2)
integer*4 magflg_8 ! *[1,3]? Magnitude warning flag (6)
integer*4 verflg_8 ! *[1]? Verification flag (7)
*Note (1): The data contain the positions (HCRS, coincident with J2000.0)
* at mean epochs of observation
*Note (2):
* 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.
*Note (3):
* 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.
*Note (4):
* 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.
*Note (5):
* 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.
*Note (6):
* 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.
*Note (7):
* 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
C mEp (J2000) (1) position composed of: RAh RAm RAs DE- DEd DEm DEs
real*8 RAdeg_9 ! (deg) Right Ascension mEp (J2000) (1)
real*8 DEdeg_9 ! (deg) Declination mEp (J2000) (1)
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 RAh_9 ! (h) R.A. (hours), at epoch mEp (J2000) (1)
integer*4 RAm_9 ! (min) R.A. (minutes)
real*4 RAs_9 ! (s) R.A. (seconds) (J2000)
character*1 DE__9 ! Decl. (sign) (J2000) (1)
integer*4 DEd_9 ! (deg) Decl. (degrees), at epoch mEp
integer*4 DEm_9 ! (arcmin) Decl. (minutes)
real*4 DEs_9 ! (arcsec) Decl. (seconds) (J2000)
real*4 Bmag_9 ! (mag) *Observed B magnitude (2)
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 (3)
real*4 e_DEs_9 ! (arcsec) *? Standard deviation of Declination (3)
integer*4 ACnum_9 ! USNO generated identifier
integer*4 HIP_9 ! *? Hipparcos number (4)
character*1 m_HIP_9 ! *Hipparcos component identifier (4)
character*12 TYC2_9 ! *Tycho-2 identifier (5)
real*4 Vmag_9 ! (mag) *? V magnitude (2)
integer*4 magflg_9 ! *[1,3]? Magnitude warning flag (6)
integer*4 verflg_9 ! *[1]? Verification flag (7)
*Note (1): The data contain the positions (HCRS, coincident with J2000.0)
* at mean epochs of observation
*Note (2):
* 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.
*Note (3):
* 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.
*Note (4):
* 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.
*Note (5):
* 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.
*Note (6):
* 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.
*Note (7):
* 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
C mEp (J2000) (1) position composed of: RAh RAm RAs DE- DEd DEm DEs
real*8 RAdeg_10 ! (deg) Right Ascension mEp (J2000) (1)
real*8 DEdeg_10 ! (deg) Declination mEp (J2000) (1)
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 RAh_10 ! (h) R.A. (hours), at epoch mEp (J2000) (1)
integer*4 RAm_10 ! (min) R.A. (minutes)
real*4 RAs_10 ! (s) R.A. (seconds) (J2000)
character*1 DE__10 ! Decl. (sign) (J2000) (1)
integer*4 DEd_10 ! (deg) Decl. (degrees), at epoch mEp
integer*4 DEm_10 ! (arcmin) Decl. (minutes)
real*4 DEs_10 ! (arcsec) Decl. (seconds) (J2000)
real*4 Bmag_10 ! (mag) *Observed B magnitude (2)
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 (3)
real*4 e_DEs_10 ! (arcsec) *? Standard deviation of Declination (3)
integer*4 ACnum_10 ! USNO generated identifier
integer*4 HIP_10 ! *? Hipparcos number (4)
character*1 m_HIP_10 ! *Hipparcos component identifier (4)
character*12 TYC2_10 ! *Tycho-2 identifier (5)
real*4 Vmag_10 ! (mag) *? V magnitude (2)
integer*4 magflg_10 ! *[1,3]? Magnitude warning flag (6)
integer*4 verflg_10 ! *[1]? Verification flag (7)
*Note (1): The data contain the positions (HCRS, coincident with J2000.0)
* at mean epochs of observation
*Note (2):
* 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.
*Note (3):
* 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.
*Note (4):
* 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.
*Note (5):
* 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.
*Note (6):
* 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.
*Note (7):
* 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
C mEp (J2000) (1) position composed of: RAh RAm RAs DE- DEd DEm DEs
real*8 RAdeg_11 ! (deg) Right Ascension mEp (J2000) (1)
real*8 DEdeg_11 ! (deg) Declination mEp (J2000) (1)
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 RAh_11 ! (h) R.A. (hours), at epoch mEp (J2000) (1)
integer*4 RAm_11 ! (min) R.A. (minutes)
real*4 RAs_11 ! (s) R.A. (seconds) (J2000)
character*1 DE__11 ! Decl. (sign) (J2000) (1)
integer*4 DEd_11 ! (deg) Decl. (degrees), at epoch mEp
integer*4 DEm_11 ! (arcmin) Decl. (minutes)
real*4 DEs_11 ! (arcsec) Decl. (seconds) (J2000)
real*4 Bmag_11 ! (mag) *Observed B magnitude (2)
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 (3)
real*4 e_DEs_11 ! (arcsec) *? Standard deviation of Declination (3)
integer*4 ACnum_11 ! USNO generated identifier
integer*4 HIP_11 ! *? Hipparcos number (4)
character*1 m_HIP_11 ! *Hipparcos component identifier (4)
character*12 TYC2_11 ! *Tycho-2 identifier (5)
real*4 Vmag_11 ! (mag) *? V magnitude (2)
integer*4 magflg_11 ! *[1,3]? Magnitude warning flag (6)
integer*4 verflg_11 ! *[1]? Verification flag (7)
*Note (1): The data contain the positions (HCRS, coincident with J2000.0)
* at mean epochs of observation
*Note (2):
* 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.
*Note (3):
* 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.
*Note (4):
* 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.
*Note (5):
* 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.
*Note (6):
* 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.
*Note (7):
* 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
C mEp (J2000) (1) position composed of: RAh RAm RAs DE- DEd DEm DEs
real*8 RAdeg_12 ! (deg) Right Ascension mEp (J2000) (1)
real*8 DEdeg_12 ! (deg) Declination mEp (J2000) (1)
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 RAh_12 ! (h) R.A. (hours), at epoch mEp (J2000) (1)
integer*4 RAm_12 ! (min) R.A. (minutes)
real*4 RAs_12 ! (s) R.A. (seconds) (J2000)
character*1 DE__12 ! Decl. (sign) (J2000) (1)
integer*4 DEd_12 ! (deg) Decl. (degrees), at epoch mEp
integer*4 DEm_12 ! (arcmin) Decl. (minutes)
real*4 DEs_12 ! (arcsec) Decl. (seconds) (J2000)
real*4 Bmag_12 ! (mag) *Observed B magnitude (2)
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 (3)
real*4 e_DEs_12 ! (arcsec) *? Standard deviation of Declination (3)
integer*4 ACnum_12 ! USNO generated identifier
integer*4 HIP_12 ! *? Hipparcos number (4)
character*1 m_HIP_12 ! *Hipparcos component identifier (4)
character*12 TYC2_12 ! *Tycho-2 identifier (5)
real*4 Vmag_12 ! (mag) *? V magnitude (2)
integer*4 magflg_12 ! *[1,3]? Magnitude warning flag (6)
integer*4 verflg_12 ! *[1]? Verification flag (7)
*Note (1): The data contain the positions (HCRS, coincident with J2000.0)
* at mean epochs of observation
*Note (2):
* 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.
*Note (3):
* 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.
*Note (4):
* 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.
*Note (5):
* 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.
*Note (6):
* 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.
*Note (7):
* 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
C mEp (J2000) (1) position composed of: RAh RAm RAs DE- DEd DEm DEs
real*8 RAdeg_13 ! (deg) Right Ascension mEp (J2000) (1)
real*8 DEdeg_13 ! (deg) Declination mEp (J2000) (1)
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 RAh_13 ! (h) R.A. (hours), at epoch mEp (J2000) (1)
integer*4 RAm_13 ! (min) R.A. (minutes)
real*4 RAs_13 ! (s) R.A. (seconds) (J2000)
character*1 DE__13 ! Decl. (sign) (J2000) (1)
integer*4 DEd_13 ! (deg) Decl. (degrees), at epoch mEp
integer*4 DEm_13 ! (arcmin) Decl. (minutes)
real*4 DEs_13 ! (arcsec) Decl. (seconds) (J2000)
real*4 Bmag_13 ! (mag) *Observed B magnitude (2)
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 (3)
real*4 e_DEs_13 ! (arcsec) *? Standard deviation of Declination (3)
integer*4 ACnum_13 ! USNO generated identifier
integer*4 HIP_13 ! *? Hipparcos number (4)
character*1 m_HIP_13 ! *Hipparcos component identifier (4)
character*12 TYC2_13 ! *Tycho-2 identifier (5)
real*4 Vmag_13 ! (mag) *? V magnitude (2)
integer*4 magflg_13 ! *[1,3]? Magnitude warning flag (6)
integer*4 verflg_13 ! *[1]? Verification flag (7)
*Note (1): The data contain the positions (HCRS, coincident with J2000.0)
* at mean epochs of observation
*Note (2):
* 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.
*Note (3):
* 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.
*Note (4):
* 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.
*Note (5):
* 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.
*Note (6):
* 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.
*Note (7):
* 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,status='old',file=
+'ac_p60.dat')
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__
RAdeg = rNULL__
DEdeg = rNULL__
c Derive coordinates RAdeg and DEdeg from input data
c (RAdeg and DEdeg are set to rNULL__ when unknown)
if(RAh .GT. -180) RAdeg=RAh*15.
if(RAm .GT. -180) RAdeg=RAdeg+RAm/4.
if(RAs .GT. -180) RAdeg=RAdeg+RAs/240.
if(DEd .GE. 0) DEdeg=DEd
if(DEm .GE. 0) DEdeg=DEdeg+DEm/60.
if(DEs .GE. 0) DEdeg=DEdeg+DEs/3600.
if(DE_.EQ.'-'.AND.DEdeg.GE.0) DEdeg=-DEdeg
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)') RAdeg,DEdeg
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,status='old',file=
+'ac_p50.dat')
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__
RAdeg_1 = rNULL__
DEdeg_1 = rNULL__
c Derive coordinates RAdeg_1 and DEdeg_1 from input data
c (RAdeg_1 and DEdeg_1 are set to rNULL__ when unknown)
if(RAh_1 .GT. -180) RAdeg_1=RAh_1*15.
if(RAm_1 .GT. -180) RAdeg_1=RAdeg_1+RAm_1/4.
if(RAs_1 .GT. -180) RAdeg_1=RAdeg_1+RAs_1/240.
if(DEd_1 .GE. 0) DEdeg_1=DEd_1
if(DEm_1 .GE. 0) DEdeg_1=DEdeg_1+DEm_1/60.
if(DEs_1 .GE. 0) DEdeg_1=DEdeg_1+DEs_1/3600.
if(DE__1.EQ.'-'.AND.DEdeg_1.GE.0) DEdeg_1=-DEdeg_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)') RAdeg_1,DEdeg_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,status='old',file=
+'ac_p40.dat')
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__
RAdeg_2 = rNULL__
DEdeg_2 = rNULL__
c Derive coordinates RAdeg_2 and DEdeg_2 from input data
c (RAdeg_2 and DEdeg_2 are set to rNULL__ when unknown)
if(RAh_2 .GT. -180) RAdeg_2=RAh_2*15.
if(RAm_2 .GT. -180) RAdeg_2=RAdeg_2+RAm_2/4.
if(RAs_2 .GT. -180) RAdeg_2=RAdeg_2+RAs_2/240.
if(DEd_2 .GE. 0) DEdeg_2=DEd_2
if(DEm_2 .GE. 0) DEdeg_2=DEdeg_2+DEm_2/60.
if(DEs_2 .GE. 0) DEdeg_2=DEdeg_2+DEs_2/3600.
if(DE__2.EQ.'-'.AND.DEdeg_2.GE.0) DEdeg_2=-DEdeg_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)') RAdeg_2,DEdeg_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,status='old',file=
+'ac_p30.dat')
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__
RAdeg_3 = rNULL__
DEdeg_3 = rNULL__
c Derive coordinates RAdeg_3 and DEdeg_3 from input data
c (RAdeg_3 and DEdeg_3 are set to rNULL__ when unknown)
if(RAh_3 .GT. -180) RAdeg_3=RAh_3*15.
if(RAm_3 .GT. -180) RAdeg_3=RAdeg_3+RAm_3/4.
if(RAs_3 .GT. -180) RAdeg_3=RAdeg_3+RAs_3/240.
if(DEd_3 .GE. 0) DEdeg_3=DEd_3
if(DEm_3 .GE. 0) DEdeg_3=DEdeg_3+DEm_3/60.
if(DEs_3 .GE. 0) DEdeg_3=DEdeg_3+DEs_3/3600.
if(DE__3.EQ.'-'.AND.DEdeg_3.GE.0) DEdeg_3=-DEdeg_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)') RAdeg_3,DEdeg_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,status='old',file=
+'ac_p20.dat')
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__
RAdeg_4 = rNULL__
DEdeg_4 = rNULL__
c Derive coordinates RAdeg_4 and DEdeg_4 from input data
c (RAdeg_4 and DEdeg_4 are set to rNULL__ when unknown)
if(RAh_4 .GT. -180) RAdeg_4=RAh_4*15.
if(RAm_4 .GT. -180) RAdeg_4=RAdeg_4+RAm_4/4.
if(RAs_4 .GT. -180) RAdeg_4=RAdeg_4+RAs_4/240.
if(DEd_4 .GE. 0) DEdeg_4=DEd_4
if(DEm_4 .GE. 0) DEdeg_4=DEdeg_4+DEm_4/60.
if(DEs_4 .GE. 0) DEdeg_4=DEdeg_4+DEs_4/3600.
if(DE__4.EQ.'-'.AND.DEdeg_4.GE.0) DEdeg_4=-DEdeg_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)') RAdeg_4,DEdeg_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,status='old',file=
+'ac_p10.dat')
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__
RAdeg_5 = rNULL__
DEdeg_5 = rNULL__
c Derive coordinates RAdeg_5 and DEdeg_5 from input data
c (RAdeg_5 and DEdeg_5 are set to rNULL__ when unknown)
if(RAh_5 .GT. -180) RAdeg_5=RAh_5*15.
if(RAm_5 .GT. -180) RAdeg_5=RAdeg_5+RAm_5/4.
if(RAs_5 .GT. -180) RAdeg_5=RAdeg_5+RAs_5/240.
if(DEd_5 .GE. 0) DEdeg_5=DEd_5
if(DEm_5 .GE. 0) DEdeg_5=DEdeg_5+DEm_5/60.
if(DEs_5 .GE. 0) DEdeg_5=DEdeg_5+DEs_5/3600.
if(DE__5.EQ.'-'.AND.DEdeg_5.GE.0) DEdeg_5=-DEdeg_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)') RAdeg_5,DEdeg_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,status='old',file=
+'ac_p00.dat')
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__
RAdeg_6 = rNULL__
DEdeg_6 = rNULL__
c Derive coordinates RAdeg_6 and DEdeg_6 from input data
c (RAdeg_6 and DEdeg_6 are set to rNULL__ when unknown)
if(RAh_6 .GT. -180) RAdeg_6=RAh_6*15.
if(RAm_6 .GT. -180) RAdeg_6=RAdeg_6+RAm_6/4.
if(RAs_6 .GT. -180) RAdeg_6=RAdeg_6+RAs_6/240.
if(DEd_6 .GE. 0) DEdeg_6=DEd_6
if(DEm_6 .GE. 0) DEdeg_6=DEdeg_6+DEm_6/60.
if(DEs_6 .GE. 0) DEdeg_6=DEdeg_6+DEs_6/3600.
if(DE__6.EQ.'-'.AND.DEdeg_6.GE.0) DEdeg_6=-DEdeg_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)') RAdeg_6,DEdeg_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,status='old',file=
+'ac_n00.dat')
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__
RAdeg_7 = rNULL__
DEdeg_7 = rNULL__
c Derive coordinates RAdeg_7 and DEdeg_7 from input data
c (RAdeg_7 and DEdeg_7 are set to rNULL__ when unknown)
if(RAh_7 .GT. -180) RAdeg_7=RAh_7*15.
if(RAm_7 .GT. -180) RAdeg_7=RAdeg_7+RAm_7/4.
if(RAs_7 .GT. -180) RAdeg_7=RAdeg_7+RAs_7/240.
if(DEd_7 .GE. 0) DEdeg_7=DEd_7
if(DEm_7 .GE. 0) DEdeg_7=DEdeg_7+DEm_7/60.
if(DEs_7 .GE. 0) DEdeg_7=DEdeg_7+DEs_7/3600.
if(DE__7.EQ.'-'.AND.DEdeg_7.GE.0) DEdeg_7=-DEdeg_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)') RAdeg_7,DEdeg_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,status='old',file=
+'ac_n10.dat')
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__
RAdeg_8 = rNULL__
DEdeg_8 = rNULL__
c Derive coordinates RAdeg_8 and DEdeg_8 from input data
c (RAdeg_8 and DEdeg_8 are set to rNULL__ when unknown)
if(RAh_8 .GT. -180) RAdeg_8=RAh_8*15.
if(RAm_8 .GT. -180) RAdeg_8=RAdeg_8+RAm_8/4.
if(RAs_8 .GT. -180) RAdeg_8=RAdeg_8+RAs_8/240.
if(DEd_8 .GE. 0) DEdeg_8=DEd_8
if(DEm_8 .GE. 0) DEdeg_8=DEdeg_8+DEm_8/60.
if(DEs_8 .GE. 0) DEdeg_8=DEdeg_8+DEs_8/3600.
if(DE__8.EQ.'-'.AND.DEdeg_8.GE.0) DEdeg_8=-DEdeg_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)') RAdeg_8,DEdeg_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,status='old',file=
+'ac_n20.dat')
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__
RAdeg_9 = rNULL__
DEdeg_9 = rNULL__
c Derive coordinates RAdeg_9 and DEdeg_9 from input data
c (RAdeg_9 and DEdeg_9 are set to rNULL__ when unknown)
if(RAh_9 .GT. -180) RAdeg_9=RAh_9*15.
if(RAm_9 .GT. -180) RAdeg_9=RAdeg_9+RAm_9/4.
if(RAs_9 .GT. -180) RAdeg_9=RAdeg_9+RAs_9/240.
if(DEd_9 .GE. 0) DEdeg_9=DEd_9
if(DEm_9 .GE. 0) DEdeg_9=DEdeg_9+DEm_9/60.
if(DEs_9 .GE. 0) DEdeg_9=DEdeg_9+DEs_9/3600.
if(DE__9.EQ.'-'.AND.DEdeg_9.GE.0) DEdeg_9=-DEdeg_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)') RAdeg_9,DEdeg_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,status='old',file=
+'ac_n30.dat')
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__
RAdeg_10 = rNULL__
DEdeg_10 = rNULL__
c Derive coordinates RAdeg_10 and DEdeg_10 from input data
c (RAdeg_10 and DEdeg_10 are set to rNULL__ when unknown)
if(RAh_10 .GT. -180) RAdeg_10=RAh_10*15.
if(RAm_10 .GT. -180) RAdeg_10=RAdeg_10+RAm_10/4.
if(RAs_10 .GT. -180) RAdeg_10=RAdeg_10+RAs_10/240.
if(DEd_10 .GE. 0) DEdeg_10=DEd_10
if(DEm_10 .GE. 0) DEdeg_10=DEdeg_10+DEm_10/60.
if(DEs_10 .GE. 0) DEdeg_10=DEdeg_10+DEs_10/3600.
if(DE__10.EQ.'-'.AND.DEdeg_10.GE.0) DEdeg_10=-DEdeg_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)') RAdeg_10,DEdeg_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,status='old',file=
+'ac_n40.dat')
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__
RAdeg_11 = rNULL__
DEdeg_11 = rNULL__
c Derive coordinates RAdeg_11 and DEdeg_11 from input data
c (RAdeg_11 and DEdeg_11 are set to rNULL__ when unknown)
if(RAh_11 .GT. -180) RAdeg_11=RAh_11*15.
if(RAm_11 .GT. -180) RAdeg_11=RAdeg_11+RAm_11/4.
if(RAs_11 .GT. -180) RAdeg_11=RAdeg_11+RAs_11/240.
if(DEd_11 .GE. 0) DEdeg_11=DEd_11
if(DEm_11 .GE. 0) DEdeg_11=DEdeg_11+DEm_11/60.
if(DEs_11 .GE. 0) DEdeg_11=DEdeg_11+DEs_11/3600.
if(DE__11.EQ.'-'.AND.DEdeg_11.GE.0) DEdeg_11=-DEdeg_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)') RAdeg_11,DEdeg_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,status='old',file=
+'ac_n50.dat')
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__
RAdeg_12 = rNULL__
DEdeg_12 = rNULL__
c Derive coordinates RAdeg_12 and DEdeg_12 from input data
c (RAdeg_12 and DEdeg_12 are set to rNULL__ when unknown)
if(RAh_12 .GT. -180) RAdeg_12=RAh_12*15.
if(RAm_12 .GT. -180) RAdeg_12=RAdeg_12+RAm_12/4.
if(RAs_12 .GT. -180) RAdeg_12=RAdeg_12+RAs_12/240.
if(DEd_12 .GE. 0) DEdeg_12=DEd_12
if(DEm_12 .GE. 0) DEdeg_12=DEdeg_12+DEm_12/60.
if(DEs_12 .GE. 0) DEdeg_12=DEdeg_12+DEs_12/3600.
if(DE__12.EQ.'-'.AND.DEdeg_12.GE.0) DEdeg_12=-DEdeg_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)') RAdeg_12,DEdeg_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,status='old',file=
+'ac_n60.dat')
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__
RAdeg_13 = rNULL__
DEdeg_13 = rNULL__
c Derive coordinates RAdeg_13 and DEdeg_13 from input data
c (RAdeg_13 and DEdeg_13 are set to rNULL__ when unknown)
if(RAh_13 .GT. -180) RAdeg_13=RAh_13*15.
if(RAm_13 .GT. -180) RAdeg_13=RAdeg_13+RAm_13/4.
if(RAs_13 .GT. -180) RAdeg_13=RAdeg_13+RAs_13/240.
if(DEd_13 .GE. 0) DEdeg_13=DEd_13
if(DEm_13 .GE. 0) DEdeg_13=DEdeg_13+DEm_13/60.
if(DEs_13 .GE. 0) DEdeg_13=DEdeg_13+DEs_13/3600.
if(DE__13.EQ.'-'.AND.DEdeg_13.GE.0) DEdeg_13=-DEdeg_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)') RAdeg_13,DEdeg_13
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end