Conversion of standardized ReadMe file for
file /./ftp/cats/I/247/ 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.
++++Column 'RAh' at line 84: Right Ascension (ICRS) at Epoch (hours)
position has no associated Epoch (last analysed word: 'hours')
program load_ReadMe
C=============================================================================
C F77-compliant program generated by readme2f_1.81 (2015-09-23), on 2024-Apr-19
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/247 The AC2000 Catalogue (Urban+ 1997)
*================================================================================
*The AC2000: the Astrographic Catalogue on the Hipparcos System
* Urban S.E., Corbin T.E., Wycoff G.L.
* <US Naval Observatory (1997)>
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__=258702) ! Number of records
character*93 ar__ ! Full-size record
C Position composed of: RAh RAm RAs DE- DEd DEm DEs
integer*4 RAh ! (h) Right Ascension (ICRS) at Epoch (hours)
integer*4 RAm ! (min) Right Ascension (ICRS) at Epoch (minutes)
real*4 RAs ! (s) Right Ascension (ICRS) at Epoch (seconds)
character*1 DE_ ! Declination (ICRS) at Epoch (sign)
integer*4 DEd ! (deg) Declination (ICRS) at Epoch (degrees)
integer*4 DEm ! (arcmin) Declination (ICRS) at Epoch (minutes)
real*4 DEs ! (arcsec) Declination (ICRS) at Epoch (seconds)
real*4 Bmag ! (mag) Magnitude from image diameters
real*8 Epoch ! (yr) Mean epoch of position
integer*4 Num ! Number of images used
real*4 e_RAs ! (arcsec) ?Standard deviation of mean, RA
real*4 e_DEs ! (arcsec) ?Standard deviation of mean, Dec
integer*4 AC2000 ! AC 2000 Number
integer*4 HIP ! ?Hipparcos Number (Cat. <I/239>)
character*12 TYC ! *?Tycho ID (Cat. <I/239>)
integer*4 ACRS ! ?ACRS number (Cat. <I/171>)
integer*4 Vflag ! *[1]? Verification Flag
*Note on TYC:
* Tycho "number" originally had embedded blanks. These embedded blanks
* have been converted to zeros.
*Note on Vflag:
* The Verification flag is either blank or '1'. When set to '1', the
* star has not been found in Hipparcos, Tycho, ACRS, the overlapping AC
* plate or in the GSC 1.2. These records should be used with caution.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ac_p50.dat' ! Stars with declinations +50 to +59 59 59.99 (1)
integer*4 nr__1
parameter (nr__1=244786) ! Number of records
character*93 ar__1 ! Full-size record
C Position composed of: RAh RAm RAs DE- DEd DEm DEs
integer*4 RAh_1 ! (h) Right Ascension (ICRS) at Epoch (hours)
integer*4 RAm_1 ! (min) Right Ascension (ICRS) at Epoch (minutes)
real*4 RAs_1 ! (s) Right Ascension (ICRS) at Epoch (seconds)
character*1 DE__1 ! Declination (ICRS) at Epoch (sign)
integer*4 DEd_1 ! (deg) Declination (ICRS) at Epoch (degrees)
integer*4 DEm_1 ! (arcmin) Declination (ICRS) at Epoch (minutes)
real*4 DEs_1 ! (arcsec) Declination (ICRS) at Epoch (seconds)
real*4 Bmag_1 ! (mag) Magnitude from image diameters
real*8 Epoch_1 ! (yr) Mean epoch of position
integer*4 Num_1 ! Number of images used
real*4 e_RAs_1 ! (arcsec) ?Standard deviation of mean, RA
real*4 e_DEs_1 ! (arcsec) ?Standard deviation of mean, Dec
integer*4 AC2000_1 ! AC 2000 Number
integer*4 HIP_1 ! ?Hipparcos Number (Cat. <I/239>)
character*12 TYC_1 ! *?Tycho ID (Cat. <I/239>)
integer*4 ACRS_1 ! ?ACRS number (Cat. <I/171>)
integer*4 Vflag_1 ! *[1]? Verification Flag
*Note on TYC:
* Tycho "number" originally had embedded blanks. These embedded blanks
* have been converted to zeros.
*Note on Vflag:
* The Verification flag is either blank or '1'. When set to '1', the
* star has not been found in Hipparcos, Tycho, ACRS, the overlapping AC
* plate or in the GSC 1.2. These records should be used with caution.
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 Position composed of: RAh RAm RAs DE- DEd DEm DEs
integer*4 RAh_2 ! (h) Right Ascension (ICRS) at Epoch (hours)
integer*4 RAm_2 ! (min) Right Ascension (ICRS) at Epoch (minutes)
real*4 RAs_2 ! (s) Right Ascension (ICRS) at Epoch (seconds)
character*1 DE__2 ! Declination (ICRS) at Epoch (sign)
integer*4 DEd_2 ! (deg) Declination (ICRS) at Epoch (degrees)
integer*4 DEm_2 ! (arcmin) Declination (ICRS) at Epoch (minutes)
real*4 DEs_2 ! (arcsec) Declination (ICRS) at Epoch (seconds)
real*4 Bmag_2 ! (mag) Magnitude from image diameters
real*8 Epoch_2 ! (yr) Mean epoch of position
integer*4 Num_2 ! Number of images used
real*4 e_RAs_2 ! (arcsec) ?Standard deviation of mean, RA
real*4 e_DEs_2 ! (arcsec) ?Standard deviation of mean, Dec
integer*4 AC2000_2 ! AC 2000 Number
integer*4 HIP_2 ! ?Hipparcos Number (Cat. <I/239>)
character*12 TYC_2 ! *?Tycho ID (Cat. <I/239>)
integer*4 ACRS_2 ! ?ACRS number (Cat. <I/171>)
integer*4 Vflag_2 ! *[1]? Verification Flag
*Note on TYC:
* Tycho "number" originally had embedded blanks. These embedded blanks
* have been converted to zeros.
*Note on Vflag:
* The Verification flag is either blank or '1'. When set to '1', the
* star has not been found in Hipparcos, Tycho, ACRS, the overlapping AC
* plate or in the GSC 1.2. These records should be used with caution.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ac_p30.dat' ! Stars with declinations +30 to +39 59 59.99 (1)
integer*4 nr__3
parameter (nr__3=380791) ! Number of records
character*93 ar__3 ! Full-size record
C Position composed of: RAh RAm RAs DE- DEd DEm DEs
integer*4 RAh_3 ! (h) Right Ascension (ICRS) at Epoch (hours)
integer*4 RAm_3 ! (min) Right Ascension (ICRS) at Epoch (minutes)
real*4 RAs_3 ! (s) Right Ascension (ICRS) at Epoch (seconds)
character*1 DE__3 ! Declination (ICRS) at Epoch (sign)
integer*4 DEd_3 ! (deg) Declination (ICRS) at Epoch (degrees)
integer*4 DEm_3 ! (arcmin) Declination (ICRS) at Epoch (minutes)
real*4 DEs_3 ! (arcsec) Declination (ICRS) at Epoch (seconds)
real*4 Bmag_3 ! (mag) Magnitude from image diameters
real*8 Epoch_3 ! (yr) Mean epoch of position
integer*4 Num_3 ! Number of images used
real*4 e_RAs_3 ! (arcsec) ?Standard deviation of mean, RA
real*4 e_DEs_3 ! (arcsec) ?Standard deviation of mean, Dec
integer*4 AC2000_3 ! AC 2000 Number
integer*4 HIP_3 ! ?Hipparcos Number (Cat. <I/239>)
character*12 TYC_3 ! *?Tycho ID (Cat. <I/239>)
integer*4 ACRS_3 ! ?ACRS number (Cat. <I/171>)
integer*4 Vflag_3 ! *[1]? Verification Flag
*Note on TYC:
* Tycho "number" originally had embedded blanks. These embedded blanks
* have been converted to zeros.
*Note on Vflag:
* The Verification flag is either blank or '1'. When set to '1', the
* star has not been found in Hipparcos, Tycho, ACRS, the overlapping AC
* plate or in the GSC 1.2. These records should be used with caution.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ac_p20.dat' ! Stars with declinations +20 to +29 59 59.99 (1)
integer*4 nr__4
parameter (nr__4=354034) ! Number of records
character*93 ar__4 ! Full-size record
C Position composed of: RAh RAm RAs DE- DEd DEm DEs
integer*4 RAh_4 ! (h) Right Ascension (ICRS) at Epoch (hours)
integer*4 RAm_4 ! (min) Right Ascension (ICRS) at Epoch (minutes)
real*4 RAs_4 ! (s) Right Ascension (ICRS) at Epoch (seconds)
character*1 DE__4 ! Declination (ICRS) at Epoch (sign)
integer*4 DEd_4 ! (deg) Declination (ICRS) at Epoch (degrees)
integer*4 DEm_4 ! (arcmin) Declination (ICRS) at Epoch (minutes)
real*4 DEs_4 ! (arcsec) Declination (ICRS) at Epoch (seconds)
real*4 Bmag_4 ! (mag) Magnitude from image diameters
real*8 Epoch_4 ! (yr) Mean epoch of position
integer*4 Num_4 ! Number of images used
real*4 e_RAs_4 ! (arcsec) ?Standard deviation of mean, RA
real*4 e_DEs_4 ! (arcsec) ?Standard deviation of mean, Dec
integer*4 AC2000_4 ! AC 2000 Number
integer*4 HIP_4 ! ?Hipparcos Number (Cat. <I/239>)
character*12 TYC_4 ! *?Tycho ID (Cat. <I/239>)
integer*4 ACRS_4 ! ?ACRS number (Cat. <I/171>)
integer*4 Vflag_4 ! *[1]? Verification Flag
*Note on TYC:
* Tycho "number" originally had embedded blanks. These embedded blanks
* have been converted to zeros.
*Note on Vflag:
* The Verification flag is either blank or '1'. When set to '1', the
* star has not been found in Hipparcos, Tycho, ACRS, the overlapping AC
* plate or in the GSC 1.2. These records should be used with caution.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ac_p10.dat' ! Stars with declinations +10 to +19 59 59.99 (1)
integer*4 nr__5
parameter (nr__5=316299) ! Number of records
character*93 ar__5 ! Full-size record
C Position composed of: RAh RAm RAs DE- DEd DEm DEs
integer*4 RAh_5 ! (h) Right Ascension (ICRS) at Epoch (hours)
integer*4 RAm_5 ! (min) Right Ascension (ICRS) at Epoch (minutes)
real*4 RAs_5 ! (s) Right Ascension (ICRS) at Epoch (seconds)
character*1 DE__5 ! Declination (ICRS) at Epoch (sign)
integer*4 DEd_5 ! (deg) Declination (ICRS) at Epoch (degrees)
integer*4 DEm_5 ! (arcmin) Declination (ICRS) at Epoch (minutes)
real*4 DEs_5 ! (arcsec) Declination (ICRS) at Epoch (seconds)
real*4 Bmag_5 ! (mag) Magnitude from image diameters
real*8 Epoch_5 ! (yr) Mean epoch of position
integer*4 Num_5 ! Number of images used
real*4 e_RAs_5 ! (arcsec) ?Standard deviation of mean, RA
real*4 e_DEs_5 ! (arcsec) ?Standard deviation of mean, Dec
integer*4 AC2000_5 ! AC 2000 Number
integer*4 HIP_5 ! ?Hipparcos Number (Cat. <I/239>)
character*12 TYC_5 ! *?Tycho ID (Cat. <I/239>)
integer*4 ACRS_5 ! ?ACRS number (Cat. <I/171>)
integer*4 Vflag_5 ! *[1]? Verification Flag
*Note on TYC:
* Tycho "number" originally had embedded blanks. These embedded blanks
* have been converted to zeros.
*Note on Vflag:
* The Verification flag is either blank or '1'. When set to '1', the
* star has not been found in Hipparcos, Tycho, ACRS, the overlapping AC
* plate or in the GSC 1.2. These records should be used with caution.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ac_p00.dat' ! Stars with declinations +00 to +09 59 59.99 (1)
integer*4 nr__6
parameter (nr__6=297613) ! Number of records
character*93 ar__6 ! Full-size record
C Position composed of: RAh RAm RAs DE- DEd DEm DEs
integer*4 RAh_6 ! (h) Right Ascension (ICRS) at Epoch (hours)
integer*4 RAm_6 ! (min) Right Ascension (ICRS) at Epoch (minutes)
real*4 RAs_6 ! (s) Right Ascension (ICRS) at Epoch (seconds)
character*1 DE__6 ! Declination (ICRS) at Epoch (sign)
integer*4 DEd_6 ! (deg) Declination (ICRS) at Epoch (degrees)
integer*4 DEm_6 ! (arcmin) Declination (ICRS) at Epoch (minutes)
real*4 DEs_6 ! (arcsec) Declination (ICRS) at Epoch (seconds)
real*4 Bmag_6 ! (mag) Magnitude from image diameters
real*8 Epoch_6 ! (yr) Mean epoch of position
integer*4 Num_6 ! Number of images used
real*4 e_RAs_6 ! (arcsec) ?Standard deviation of mean, RA
real*4 e_DEs_6 ! (arcsec) ?Standard deviation of mean, Dec
integer*4 AC2000_6 ! AC 2000 Number
integer*4 HIP_6 ! ?Hipparcos Number (Cat. <I/239>)
character*12 TYC_6 ! *?Tycho ID (Cat. <I/239>)
integer*4 ACRS_6 ! ?ACRS number (Cat. <I/171>)
integer*4 Vflag_6 ! *[1]? Verification Flag
*Note on TYC:
* Tycho "number" originally had embedded blanks. These embedded blanks
* have been converted to zeros.
*Note on Vflag:
* The Verification flag is either blank or '1'. When set to '1', the
* star has not been found in Hipparcos, Tycho, ACRS, the overlapping AC
* plate or in the GSC 1.2. These records should be used with caution.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ac_n00.dat' ! Stars with declinations -00 to -09 59 59.99 (1)
integer*4 nr__7
parameter (nr__7=284057) ! Number of records
character*93 ar__7 ! Full-size record
C Position composed of: RAh RAm RAs DE- DEd DEm DEs
integer*4 RAh_7 ! (h) Right Ascension (ICRS) at Epoch (hours)
integer*4 RAm_7 ! (min) Right Ascension (ICRS) at Epoch (minutes)
real*4 RAs_7 ! (s) Right Ascension (ICRS) at Epoch (seconds)
character*1 DE__7 ! Declination (ICRS) at Epoch (sign)
integer*4 DEd_7 ! (deg) Declination (ICRS) at Epoch (degrees)
integer*4 DEm_7 ! (arcmin) Declination (ICRS) at Epoch (minutes)
real*4 DEs_7 ! (arcsec) Declination (ICRS) at Epoch (seconds)
real*4 Bmag_7 ! (mag) Magnitude from image diameters
real*8 Epoch_7 ! (yr) Mean epoch of position
integer*4 Num_7 ! Number of images used
real*4 e_RAs_7 ! (arcsec) ?Standard deviation of mean, RA
real*4 e_DEs_7 ! (arcsec) ?Standard deviation of mean, Dec
integer*4 AC2000_7 ! AC 2000 Number
integer*4 HIP_7 ! ?Hipparcos Number (Cat. <I/239>)
character*12 TYC_7 ! *?Tycho ID (Cat. <I/239>)
integer*4 ACRS_7 ! ?ACRS number (Cat. <I/171>)
integer*4 Vflag_7 ! *[1]? Verification Flag
*Note on TYC:
* Tycho "number" originally had embedded blanks. These embedded blanks
* have been converted to zeros.
*Note on Vflag:
* The Verification flag is either blank or '1'. When set to '1', the
* star has not been found in Hipparcos, Tycho, ACRS, the overlapping AC
* plate or in the GSC 1.2. These records should be used with caution.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ac_n10.dat' ! Stars with declinations -10 to -19 59 59.99 (1)
integer*4 nr__8
parameter (nr__8=383616) ! Number of records
character*93 ar__8 ! Full-size record
C Position composed of: RAh RAm RAs DE- DEd DEm DEs
integer*4 RAh_8 ! (h) Right Ascension (ICRS) at Epoch (hours)
integer*4 RAm_8 ! (min) Right Ascension (ICRS) at Epoch (minutes)
real*4 RAs_8 ! (s) Right Ascension (ICRS) at Epoch (seconds)
character*1 DE__8 ! Declination (ICRS) at Epoch (sign)
integer*4 DEd_8 ! (deg) Declination (ICRS) at Epoch (degrees)
integer*4 DEm_8 ! (arcmin) Declination (ICRS) at Epoch (minutes)
real*4 DEs_8 ! (arcsec) Declination (ICRS) at Epoch (seconds)
real*4 Bmag_8 ! (mag) Magnitude from image diameters
real*8 Epoch_8 ! (yr) Mean epoch of position
integer*4 Num_8 ! Number of images used
real*4 e_RAs_8 ! (arcsec) ?Standard deviation of mean, RA
real*4 e_DEs_8 ! (arcsec) ?Standard deviation of mean, Dec
integer*4 AC2000_8 ! AC 2000 Number
integer*4 HIP_8 ! ?Hipparcos Number (Cat. <I/239>)
character*12 TYC_8 ! *?Tycho ID (Cat. <I/239>)
integer*4 ACRS_8 ! ?ACRS number (Cat. <I/171>)
integer*4 Vflag_8 ! *[1]? Verification Flag
*Note on TYC:
* Tycho "number" originally had embedded blanks. These embedded blanks
* have been converted to zeros.
*Note on Vflag:
* The Verification flag is either blank or '1'. When set to '1', the
* star has not been found in Hipparcos, Tycho, ACRS, the overlapping AC
* plate or in the GSC 1.2. These records should be used with caution.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ac_n20.dat' ! Stars with declinations -20 to -29 59 59.99 (1)
integer*4 nr__9
parameter (nr__9=380220) ! Number of records
character*93 ar__9 ! Full-size record
C Position composed of: RAh RAm RAs DE- DEd DEm DEs
integer*4 RAh_9 ! (h) Right Ascension (ICRS) at Epoch (hours)
integer*4 RAm_9 ! (min) Right Ascension (ICRS) at Epoch (minutes)
real*4 RAs_9 ! (s) Right Ascension (ICRS) at Epoch (seconds)
character*1 DE__9 ! Declination (ICRS) at Epoch (sign)
integer*4 DEd_9 ! (deg) Declination (ICRS) at Epoch (degrees)
integer*4 DEm_9 ! (arcmin) Declination (ICRS) at Epoch (minutes)
real*4 DEs_9 ! (arcsec) Declination (ICRS) at Epoch (seconds)
real*4 Bmag_9 ! (mag) Magnitude from image diameters
real*8 Epoch_9 ! (yr) Mean epoch of position
integer*4 Num_9 ! Number of images used
real*4 e_RAs_9 ! (arcsec) ?Standard deviation of mean, RA
real*4 e_DEs_9 ! (arcsec) ?Standard deviation of mean, Dec
integer*4 AC2000_9 ! AC 2000 Number
integer*4 HIP_9 ! ?Hipparcos Number (Cat. <I/239>)
character*12 TYC_9 ! *?Tycho ID (Cat. <I/239>)
integer*4 ACRS_9 ! ?ACRS number (Cat. <I/171>)
integer*4 Vflag_9 ! *[1]? Verification Flag
*Note on TYC:
* Tycho "number" originally had embedded blanks. These embedded blanks
* have been converted to zeros.
*Note on Vflag:
* The Verification flag is either blank or '1'. When set to '1', the
* star has not been found in Hipparcos, Tycho, ACRS, the overlapping AC
* plate or in the GSC 1.2. These records should be used with caution.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ac_n30.dat' ! Stars with declinations -30 to -39 59 59.99 (1)
integer*4 nr__10
parameter (nr__10=347380) ! Number of records
character*93 ar__10 ! Full-size record
C Position composed of: RAh RAm RAs DE- DEd DEm DEs
integer*4 RAh_10 ! (h) Right Ascension (ICRS) at Epoch (hours)
integer*4 RAm_10 ! (min) Right Ascension (ICRS) at Epoch (minutes)
real*4 RAs_10 ! (s) Right Ascension (ICRS) at Epoch (seconds)
character*1 DE__10 ! Declination (ICRS) at Epoch (sign)
integer*4 DEd_10 ! (deg) Declination (ICRS) at Epoch (degrees)
integer*4 DEm_10 ! (arcmin) Declination (ICRS) at Epoch (minutes)
real*4 DEs_10 ! (arcsec) Declination (ICRS) at Epoch (seconds)
real*4 Bmag_10 ! (mag) Magnitude from image diameters
real*8 Epoch_10 ! (yr) Mean epoch of position
integer*4 Num_10 ! Number of images used
real*4 e_RAs_10 ! (arcsec) ?Standard deviation of mean, RA
real*4 e_DEs_10 ! (arcsec) ?Standard deviation of mean, Dec
integer*4 AC2000_10 ! AC 2000 Number
integer*4 HIP_10 ! ?Hipparcos Number (Cat. <I/239>)
character*12 TYC_10 ! *?Tycho ID (Cat. <I/239>)
integer*4 ACRS_10 ! ?ACRS number (Cat. <I/171>)
integer*4 Vflag_10 ! *[1]? Verification Flag
*Note on TYC:
* Tycho "number" originally had embedded blanks. These embedded blanks
* have been converted to zeros.
*Note on Vflag:
* The Verification flag is either blank or '1'. When set to '1', the
* star has not been found in Hipparcos, Tycho, ACRS, the overlapping AC
* plate or in the GSC 1.2. These records should be used with caution.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ac_n40.dat' ! Stars with declinations -40 to -49 59 59.99 (1)
integer*4 nr__11
parameter (nr__11=463848) ! Number of records
character*93 ar__11 ! Full-size record
C Position composed of: RAh RAm RAs DE- DEd DEm DEs
integer*4 RAh_11 ! (h) Right Ascension (ICRS) at Epoch (hours)
integer*4 RAm_11 ! (min) Right Ascension (ICRS) at Epoch (minutes)
real*4 RAs_11 ! (s) Right Ascension (ICRS) at Epoch (seconds)
character*1 DE__11 ! Declination (ICRS) at Epoch (sign)
integer*4 DEd_11 ! (deg) Declination (ICRS) at Epoch (degrees)
integer*4 DEm_11 ! (arcmin) Declination (ICRS) at Epoch (minutes)
real*4 DEs_11 ! (arcsec) Declination (ICRS) at Epoch (seconds)
real*4 Bmag_11 ! (mag) Magnitude from image diameters
real*8 Epoch_11 ! (yr) Mean epoch of position
integer*4 Num_11 ! Number of images used
real*4 e_RAs_11 ! (arcsec) ?Standard deviation of mean, RA
real*4 e_DEs_11 ! (arcsec) ?Standard deviation of mean, Dec
integer*4 AC2000_11 ! AC 2000 Number
integer*4 HIP_11 ! ?Hipparcos Number (Cat. <I/239>)
character*12 TYC_11 ! *?Tycho ID (Cat. <I/239>)
integer*4 ACRS_11 ! ?ACRS number (Cat. <I/171>)
integer*4 Vflag_11 ! *[1]? Verification Flag
*Note on TYC:
* Tycho "number" originally had embedded blanks. These embedded blanks
* have been converted to zeros.
*Note on Vflag:
* The Verification flag is either blank or '1'. When set to '1', the
* star has not been found in Hipparcos, Tycho, ACRS, the overlapping AC
* plate or in the GSC 1.2. These records should be used with caution.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ac_n50.dat' ! Stars with declinations -50 to -59 59 59.99 (1)
integer*4 nr__12
parameter (nr__12=363810) ! Number of records
character*93 ar__12 ! Full-size record
C Position composed of: RAh RAm RAs DE- DEd DEm DEs
integer*4 RAh_12 ! (h) Right Ascension (ICRS) at Epoch (hours)
integer*4 RAm_12 ! (min) Right Ascension (ICRS) at Epoch (minutes)
real*4 RAs_12 ! (s) Right Ascension (ICRS) at Epoch (seconds)
character*1 DE__12 ! Declination (ICRS) at Epoch (sign)
integer*4 DEd_12 ! (deg) Declination (ICRS) at Epoch (degrees)
integer*4 DEm_12 ! (arcmin) Declination (ICRS) at Epoch (minutes)
real*4 DEs_12 ! (arcsec) Declination (ICRS) at Epoch (seconds)
real*4 Bmag_12 ! (mag) Magnitude from image diameters
real*8 Epoch_12 ! (yr) Mean epoch of position
integer*4 Num_12 ! Number of images used
real*4 e_RAs_12 ! (arcsec) ?Standard deviation of mean, RA
real*4 e_DEs_12 ! (arcsec) ?Standard deviation of mean, Dec
integer*4 AC2000_12 ! AC 2000 Number
integer*4 HIP_12 ! ?Hipparcos Number (Cat. <I/239>)
character*12 TYC_12 ! *?Tycho ID (Cat. <I/239>)
integer*4 ACRS_12 ! ?ACRS number (Cat. <I/171>)
integer*4 Vflag_12 ! *[1]? Verification Flag
*Note on TYC:
* Tycho "number" originally had embedded blanks. These embedded blanks
* have been converted to zeros.
*Note on Vflag:
* The Verification flag is either blank or '1'. When set to '1', the
* star has not been found in Hipparcos, Tycho, ACRS, the overlapping AC
* plate or in the GSC 1.2. These records should be used with caution.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ac_n60.dat' ! Stars with declinations -60 to -90 degrees (1)
integer*4 nr__13
parameter (nr__13=343296) ! Number of records
character*93 ar__13 ! Full-size record
C Position composed of: RAh RAm RAs DE- DEd DEm DEs
integer*4 RAh_13 ! (h) Right Ascension (ICRS) at Epoch (hours)
integer*4 RAm_13 ! (min) Right Ascension (ICRS) at Epoch (minutes)
real*4 RAs_13 ! (s) Right Ascension (ICRS) at Epoch (seconds)
character*1 DE__13 ! Declination (ICRS) at Epoch (sign)
integer*4 DEd_13 ! (deg) Declination (ICRS) at Epoch (degrees)
integer*4 DEm_13 ! (arcmin) Declination (ICRS) at Epoch (minutes)
real*4 DEs_13 ! (arcsec) Declination (ICRS) at Epoch (seconds)
real*4 Bmag_13 ! (mag) Magnitude from image diameters
real*8 Epoch_13 ! (yr) Mean epoch of position
integer*4 Num_13 ! Number of images used
real*4 e_RAs_13 ! (arcsec) ?Standard deviation of mean, RA
real*4 e_DEs_13 ! (arcsec) ?Standard deviation of mean, Dec
integer*4 AC2000_13 ! AC 2000 Number
integer*4 HIP_13 ! ?Hipparcos Number (Cat. <I/239>)
character*12 TYC_13 ! *?Tycho ID (Cat. <I/239>)
integer*4 ACRS_13 ! ?ACRS number (Cat. <I/171>)
integer*4 Vflag_13 ! *[1]? Verification Flag
*Note on TYC:
* Tycho "number" originally had embedded blanks. These embedded blanks
* have been converted to zeros.
*Note on Vflag:
* The Verification flag is either blank or '1'. When set to '1', the
* star has not been found in Hipparcos, Tycho, ACRS, the overlapping AC
* plate or in the GSC 1.2. These records should be used with caution.
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,1X,I6,1X,A12,1X,I7,I1)
C Effective file loading
open(unit=1,status='old',file=
+'ac_p60.dat')
write(6,*) '....Loading file: ac_p60.dat'
do i__=1,258702
read(1,'(A93)')ar__
read(ar__,1)
+ RAh,RAm,RAs,DE_,DEd,DEm,DEs,Bmag,Epoch,Num,e_RAs,e_DEs,AC2000,
+ HIP,TYC,ACRS,Vflag
if(ar__(44:49) .EQ. '') e_RAs = rNULL__
if(ar__(50:55) .EQ. '') e_DEs = rNULL__
if(ar__(66:71) .EQ. '') HIP = iNULL__
if(ar__(86:92) .EQ. '') ACRS = iNULL__
if(ar__(93:93) .EQ. '') Vflag = iNULL__
c ..............Just test output...........
write(6,1)
+ RAh,RAm,RAs,DE_,DEd,DEm,DEs,Bmag,Epoch,Num,e_RAs,e_DEs,AC2000,
+ HIP,TYC,ACRS,Vflag
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,1X,I6,1X,A12,1X,I7,I1)
C Effective file loading
open(unit=1,status='old',file=
+'ac_p50.dat')
write(6,*) '....Loading file: ac_p50.dat'
do i__=1,244786
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,Epoch_1,
+ Num_1,e_RAs_1,e_DEs_1,AC2000_1,HIP_1,TYC_1,ACRS_1,Vflag_1
if(ar__1(44:49) .EQ. '') e_RAs_1 = rNULL__
if(ar__1(50:55) .EQ. '') e_DEs_1 = rNULL__
if(ar__1(66:71) .EQ. '') HIP_1 = iNULL__
if(ar__1(86:92) .EQ. '') ACRS_1 = iNULL__
if(ar__1(93:93) .EQ. '') Vflag_1 = iNULL__
c ..............Just test output...........
write(6,2)
+ RAh_1,RAm_1,RAs_1,DE__1,DEd_1,DEm_1,DEs_1,Bmag_1,Epoch_1,
+ Num_1,e_RAs_1,e_DEs_1,AC2000_1,HIP_1,TYC_1,ACRS_1,Vflag_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,1X,I6,1X,A12,1X,I7,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,Epoch_2,
+ Num_2,e_RAs_2,e_DEs_2,AC2000_2,HIP_2,TYC_2,ACRS_2,Vflag_2
if(ar__2(44:49) .EQ. '') e_RAs_2 = rNULL__
if(ar__2(50:55) .EQ. '') e_DEs_2 = rNULL__
if(ar__2(66:71) .EQ. '') HIP_2 = iNULL__
if(ar__2(86:92) .EQ. '') ACRS_2 = iNULL__
if(ar__2(93:93) .EQ. '') Vflag_2 = iNULL__
c ..............Just test output...........
write(6,3)
+ RAh_2,RAm_2,RAs_2,DE__2,DEd_2,DEm_2,DEs_2,Bmag_2,Epoch_2,
+ Num_2,e_RAs_2,e_DEs_2,AC2000_2,HIP_2,TYC_2,ACRS_2,Vflag_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,1X,I6,1X,A12,1X,I7,I1)
C Effective file loading
open(unit=1,status='old',file=
+'ac_p30.dat')
write(6,*) '....Loading file: ac_p30.dat'
do i__=1,380791
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,Epoch_3,
+ Num_3,e_RAs_3,e_DEs_3,AC2000_3,HIP_3,TYC_3,ACRS_3,Vflag_3
if(ar__3(44:49) .EQ. '') e_RAs_3 = rNULL__
if(ar__3(50:55) .EQ. '') e_DEs_3 = rNULL__
if(ar__3(66:71) .EQ. '') HIP_3 = iNULL__
if(ar__3(86:92) .EQ. '') ACRS_3 = iNULL__
if(ar__3(93:93) .EQ. '') Vflag_3 = iNULL__
c ..............Just test output...........
write(6,4)
+ RAh_3,RAm_3,RAs_3,DE__3,DEd_3,DEm_3,DEs_3,Bmag_3,Epoch_3,
+ Num_3,e_RAs_3,e_DEs_3,AC2000_3,HIP_3,TYC_3,ACRS_3,Vflag_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,1X,I6,1X,A12,1X,I7,I1)
C Effective file loading
open(unit=1,status='old',file=
+'ac_p20.dat')
write(6,*) '....Loading file: ac_p20.dat'
do i__=1,354034
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,Epoch_4,
+ Num_4,e_RAs_4,e_DEs_4,AC2000_4,HIP_4,TYC_4,ACRS_4,Vflag_4
if(ar__4(44:49) .EQ. '') e_RAs_4 = rNULL__
if(ar__4(50:55) .EQ. '') e_DEs_4 = rNULL__
if(ar__4(66:71) .EQ. '') HIP_4 = iNULL__
if(ar__4(86:92) .EQ. '') ACRS_4 = iNULL__
if(ar__4(93:93) .EQ. '') Vflag_4 = iNULL__
c ..............Just test output...........
write(6,5)
+ RAh_4,RAm_4,RAs_4,DE__4,DEd_4,DEm_4,DEs_4,Bmag_4,Epoch_4,
+ Num_4,e_RAs_4,e_DEs_4,AC2000_4,HIP_4,TYC_4,ACRS_4,Vflag_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,1X,I6,1X,A12,1X,I7,I1)
C Effective file loading
open(unit=1,status='old',file=
+'ac_p10.dat')
write(6,*) '....Loading file: ac_p10.dat'
do i__=1,316299
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,Epoch_5,
+ Num_5,e_RAs_5,e_DEs_5,AC2000_5,HIP_5,TYC_5,ACRS_5,Vflag_5
if(ar__5(44:49) .EQ. '') e_RAs_5 = rNULL__
if(ar__5(50:55) .EQ. '') e_DEs_5 = rNULL__
if(ar__5(66:71) .EQ. '') HIP_5 = iNULL__
if(ar__5(86:92) .EQ. '') ACRS_5 = iNULL__
if(ar__5(93:93) .EQ. '') Vflag_5 = iNULL__
c ..............Just test output...........
write(6,6)
+ RAh_5,RAm_5,RAs_5,DE__5,DEd_5,DEm_5,DEs_5,Bmag_5,Epoch_5,
+ Num_5,e_RAs_5,e_DEs_5,AC2000_5,HIP_5,TYC_5,ACRS_5,Vflag_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,1X,I6,1X,A12,1X,I7,I1)
C Effective file loading
open(unit=1,status='old',file=
+'ac_p00.dat')
write(6,*) '....Loading file: ac_p00.dat'
do i__=1,297613
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,Epoch_6,
+ Num_6,e_RAs_6,e_DEs_6,AC2000_6,HIP_6,TYC_6,ACRS_6,Vflag_6
if(ar__6(44:49) .EQ. '') e_RAs_6 = rNULL__
if(ar__6(50:55) .EQ. '') e_DEs_6 = rNULL__
if(ar__6(66:71) .EQ. '') HIP_6 = iNULL__
if(ar__6(86:92) .EQ. '') ACRS_6 = iNULL__
if(ar__6(93:93) .EQ. '') Vflag_6 = iNULL__
c ..............Just test output...........
write(6,7)
+ RAh_6,RAm_6,RAs_6,DE__6,DEd_6,DEm_6,DEs_6,Bmag_6,Epoch_6,
+ Num_6,e_RAs_6,e_DEs_6,AC2000_6,HIP_6,TYC_6,ACRS_6,Vflag_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,1X,I6,1X,A12,1X,I7,I1)
C Effective file loading
open(unit=1,status='old',file=
+'ac_n00.dat')
write(6,*) '....Loading file: ac_n00.dat'
do i__=1,284057
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,Epoch_7,
+ Num_7,e_RAs_7,e_DEs_7,AC2000_7,HIP_7,TYC_7,ACRS_7,Vflag_7
if(ar__7(44:49) .EQ. '') e_RAs_7 = rNULL__
if(ar__7(50:55) .EQ. '') e_DEs_7 = rNULL__
if(ar__7(66:71) .EQ. '') HIP_7 = iNULL__
if(ar__7(86:92) .EQ. '') ACRS_7 = iNULL__
if(ar__7(93:93) .EQ. '') Vflag_7 = iNULL__
c ..............Just test output...........
write(6,8)
+ RAh_7,RAm_7,RAs_7,DE__7,DEd_7,DEm_7,DEs_7,Bmag_7,Epoch_7,
+ Num_7,e_RAs_7,e_DEs_7,AC2000_7,HIP_7,TYC_7,ACRS_7,Vflag_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,1X,I6,1X,A12,1X,I7,I1)
C Effective file loading
open(unit=1,status='old',file=
+'ac_n10.dat')
write(6,*) '....Loading file: ac_n10.dat'
do i__=1,383616
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,Epoch_8,
+ Num_8,e_RAs_8,e_DEs_8,AC2000_8,HIP_8,TYC_8,ACRS_8,Vflag_8
if(ar__8(44:49) .EQ. '') e_RAs_8 = rNULL__
if(ar__8(50:55) .EQ. '') e_DEs_8 = rNULL__
if(ar__8(66:71) .EQ. '') HIP_8 = iNULL__
if(ar__8(86:92) .EQ. '') ACRS_8 = iNULL__
if(ar__8(93:93) .EQ. '') Vflag_8 = iNULL__
c ..............Just test output...........
write(6,9)
+ RAh_8,RAm_8,RAs_8,DE__8,DEd_8,DEm_8,DEs_8,Bmag_8,Epoch_8,
+ Num_8,e_RAs_8,e_DEs_8,AC2000_8,HIP_8,TYC_8,ACRS_8,Vflag_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,1X,I6,1X,A12,1X,I7,I1)
C Effective file loading
open(unit=1,status='old',file=
+'ac_n20.dat')
write(6,*) '....Loading file: ac_n20.dat'
do i__=1,380220
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,Epoch_9,
+ Num_9,e_RAs_9,e_DEs_9,AC2000_9,HIP_9,TYC_9,ACRS_9,Vflag_9
if(ar__9(44:49) .EQ. '') e_RAs_9 = rNULL__
if(ar__9(50:55) .EQ. '') e_DEs_9 = rNULL__
if(ar__9(66:71) .EQ. '') HIP_9 = iNULL__
if(ar__9(86:92) .EQ. '') ACRS_9 = iNULL__
if(ar__9(93:93) .EQ. '') Vflag_9 = iNULL__
c ..............Just test output...........
write(6,10)
+ RAh_9,RAm_9,RAs_9,DE__9,DEd_9,DEm_9,DEs_9,Bmag_9,Epoch_9,
+ Num_9,e_RAs_9,e_DEs_9,AC2000_9,HIP_9,TYC_9,ACRS_9,Vflag_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,1X,I6,1X,A12,1X,I7,I1)
C Effective file loading
open(unit=1,status='old',file=
+'ac_n30.dat')
write(6,*) '....Loading file: ac_n30.dat'
do i__=1,347380
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,
+ Epoch_10,Num_10,e_RAs_10,e_DEs_10,AC2000_10,HIP_10,TYC_10,
+ ACRS_10,Vflag_10
if(ar__10(44:49) .EQ. '') e_RAs_10 = rNULL__
if(ar__10(50:55) .EQ. '') e_DEs_10 = rNULL__
if(ar__10(66:71) .EQ. '') HIP_10 = iNULL__
if(ar__10(86:92) .EQ. '') ACRS_10 = iNULL__
if(ar__10(93:93) .EQ. '') Vflag_10 = iNULL__
c ..............Just test output...........
write(6,11)
+ RAh_10,RAm_10,RAs_10,DE__10,DEd_10,DEm_10,DEs_10,Bmag_10,
+ Epoch_10,Num_10,e_RAs_10,e_DEs_10,AC2000_10,HIP_10,TYC_10,
+ ACRS_10,Vflag_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,1X,I6,1X,A12,1X,I7,I1)
C Effective file loading
open(unit=1,status='old',file=
+'ac_n40.dat')
write(6,*) '....Loading file: ac_n40.dat'
do i__=1,463848
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,
+ Epoch_11,Num_11,e_RAs_11,e_DEs_11,AC2000_11,HIP_11,TYC_11,
+ ACRS_11,Vflag_11
if(ar__11(44:49) .EQ. '') e_RAs_11 = rNULL__
if(ar__11(50:55) .EQ. '') e_DEs_11 = rNULL__
if(ar__11(66:71) .EQ. '') HIP_11 = iNULL__
if(ar__11(86:92) .EQ. '') ACRS_11 = iNULL__
if(ar__11(93:93) .EQ. '') Vflag_11 = iNULL__
c ..............Just test output...........
write(6,12)
+ RAh_11,RAm_11,RAs_11,DE__11,DEd_11,DEm_11,DEs_11,Bmag_11,
+ Epoch_11,Num_11,e_RAs_11,e_DEs_11,AC2000_11,HIP_11,TYC_11,
+ ACRS_11,Vflag_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,1X,I6,1X,A12,1X,I7,I1)
C Effective file loading
open(unit=1,status='old',file=
+'ac_n50.dat')
write(6,*) '....Loading file: ac_n50.dat'
do i__=1,363810
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,
+ Epoch_12,Num_12,e_RAs_12,e_DEs_12,AC2000_12,HIP_12,TYC_12,
+ ACRS_12,Vflag_12
if(ar__12(44:49) .EQ. '') e_RAs_12 = rNULL__
if(ar__12(50:55) .EQ. '') e_DEs_12 = rNULL__
if(ar__12(66:71) .EQ. '') HIP_12 = iNULL__
if(ar__12(86:92) .EQ. '') ACRS_12 = iNULL__
if(ar__12(93:93) .EQ. '') Vflag_12 = iNULL__
c ..............Just test output...........
write(6,13)
+ RAh_12,RAm_12,RAs_12,DE__12,DEd_12,DEm_12,DEs_12,Bmag_12,
+ Epoch_12,Num_12,e_RAs_12,e_DEs_12,AC2000_12,HIP_12,TYC_12,
+ ACRS_12,Vflag_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,1X,I6,1X,A12,1X,I7,I1)
C Effective file loading
open(unit=1,status='old',file=
+'ac_n60.dat')
write(6,*) '....Loading file: ac_n60.dat'
do i__=1,343296
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,
+ Epoch_13,Num_13,e_RAs_13,e_DEs_13,AC2000_13,HIP_13,TYC_13,
+ ACRS_13,Vflag_13
if(ar__13(44:49) .EQ. '') e_RAs_13 = rNULL__
if(ar__13(50:55) .EQ. '') e_DEs_13 = rNULL__
if(ar__13(66:71) .EQ. '') HIP_13 = iNULL__
if(ar__13(86:92) .EQ. '') ACRS_13 = iNULL__
if(ar__13(93:93) .EQ. '') Vflag_13 = iNULL__
c ..............Just test output...........
write(6,14)
+ RAh_13,RAm_13,RAs_13,DE__13,DEd_13,DEm_13,DEs_13,Bmag_13,
+ Epoch_13,Num_13,e_RAs_13,e_DEs_13,AC2000_13,HIP_13,TYC_13,
+ ACRS_13,Vflag_13
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end