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