Conversion of standardized ReadMe file for
file /./ftp/cats/I/342 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 2026-Jun-10
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/342 FON Astrographic Catalogue, Version 3.0 (Andruk+, 2016)
*================================================================================
*Catalog of equatorial coordinates and B-magnitudes of stars of the FON project.
* Andruk V.M., Pakuliak L.K., Golovnia V.V., Ivanov G.O., Yatsenko A.I.,
* Shatokhina S.V., Yizhakevych O.M.
* <Kinem. and Physics of Celest. Bodies. 32, 260 (2016) >
* =2016KPCB...32..260A
* =2016KFNT...32..260A
* =2017yCat.1342....0A
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n00.dat' ! Star data file (zone from 00.0 to 00.9 degrees)
integer*4 nr__
parameter (nr__=283921) ! Number of records
character*164 ar__ ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg ! (deg) Right Ascension J2000
real*8 DEdeg ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID ! Serial number of the star
integer*4 k ! Number of determinations (plates)
real*8 RAhour ! (h) Right Ascension (J2000)
real*4 e_RAhour ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_1 ! (deg) Declination (J2000)
real*4 e_DEdeg ! (arcsec) Error in Declination
real*4 Bmag ! (mag) Johnson Blue magnitude
real*4 e_Bmag ! (mag) Error in B
real*8 Epoch ! (yr) Epoch of observations
real*4 FWHM ! (2.17pix) Diameter of star image
real*8 cI ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh ! (h) Right ascension (J2000)
integer*4 RAm ! (min) Right ascension (J2000)
real*4 RAs ! (s) [0/60] Right ascension (J2000)
character*1 DE_ ! Declination sign (J2000)
integer*4 DEd ! (deg) Declination (J2000)
integer*4 DEm ! (arcmin) Declination (J2000)
real*4 DEs ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n01.dat' ! Star data file (zone from 01.0 to 01.9 degrees)
integer*4 nr__1
parameter (nr__1=297509) ! Number of records
character*164 ar__1 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_1 ! (deg) Right Ascension J2000
real*8 DEdeg_2 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_1 ! Serial number of the star
integer*4 k_1 ! Number of determinations (plates)
real*8 RAhour_1 ! (h) Right Ascension (J2000)
real*4 e_RAhour_1 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_3 ! (deg) Declination (J2000)
real*4 e_DEdeg_1 ! (arcsec) Error in Declination
real*4 Bmag_1 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_1 ! (mag) Error in B
real*8 Epoch_1 ! (yr) Epoch of observations
real*4 FWHM_1 ! (2.17pix) Diameter of star image
real*8 cI_1 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_1 ! (h) Right ascension (J2000)
integer*4 RAm_1 ! (min) Right ascension (J2000)
real*4 RAs_1 ! (s) [0/60] Right ascension (J2000)
character*1 DE__1 ! Declination sign (J2000)
integer*4 DEd_1 ! (deg) Declination (J2000)
integer*4 DEm_1 ! (arcmin) Declination (J2000)
real*4 DEs_1 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_1 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_1 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_1 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_1 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_1 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_1 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_1 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n02.dat' ! Star data file (zone from 02.0 to 02.9 degrees)
integer*4 nr__2
parameter (nr__2=311761) ! Number of records
character*164 ar__2 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_2 ! (deg) Right Ascension J2000
real*8 DEdeg_4 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_2 ! Serial number of the star
integer*4 k_2 ! Number of determinations (plates)
real*8 RAhour_2 ! (h) Right Ascension (J2000)
real*4 e_RAhour_2 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_5 ! (deg) Declination (J2000)
real*4 e_DEdeg_2 ! (arcsec) Error in Declination
real*4 Bmag_2 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_2 ! (mag) Error in B
real*8 Epoch_2 ! (yr) Epoch of observations
real*4 FWHM_2 ! (2.17pix) Diameter of star image
real*8 cI_2 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_2 ! (h) Right ascension (J2000)
integer*4 RAm_2 ! (min) Right ascension (J2000)
real*4 RAs_2 ! (s) [0/60] Right ascension (J2000)
character*1 DE__2 ! Declination sign (J2000)
integer*4 DEd_2 ! (deg) Declination (J2000)
integer*4 DEm_2 ! (arcmin) Declination (J2000)
real*4 DEs_2 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_2 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_2 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_2 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_2 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_2 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_2 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_2 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n03.dat' ! Star data file (zone from 03.0 to 03.9 degrees)
integer*4 nr__3
parameter (nr__3=318268) ! Number of records
character*164 ar__3 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_3 ! (deg) Right Ascension J2000
real*8 DEdeg_6 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_3 ! Serial number of the star
integer*4 k_3 ! Number of determinations (plates)
real*8 RAhour_3 ! (h) Right Ascension (J2000)
real*4 e_RAhour_3 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_7 ! (deg) Declination (J2000)
real*4 e_DEdeg_3 ! (arcsec) Error in Declination
real*4 Bmag_3 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_3 ! (mag) Error in B
real*8 Epoch_3 ! (yr) Epoch of observations
real*4 FWHM_3 ! (2.17pix) Diameter of star image
real*8 cI_3 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_3 ! (h) Right ascension (J2000)
integer*4 RAm_3 ! (min) Right ascension (J2000)
real*4 RAs_3 ! (s) [0/60] Right ascension (J2000)
character*1 DE__3 ! Declination sign (J2000)
integer*4 DEd_3 ! (deg) Declination (J2000)
integer*4 DEm_3 ! (arcmin) Declination (J2000)
real*4 DEs_3 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_3 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_3 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_3 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_3 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_3 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_3 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_3 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n04.dat' ! Star data file (zone from 04.0 to 04.9 degrees)
integer*4 nr__4
parameter (nr__4=319602) ! Number of records
character*164 ar__4 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_4 ! (deg) Right Ascension J2000
real*8 DEdeg_8 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_4 ! Serial number of the star
integer*4 k_4 ! Number of determinations (plates)
real*8 RAhour_4 ! (h) Right Ascension (J2000)
real*4 e_RAhour_4 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_9 ! (deg) Declination (J2000)
real*4 e_DEdeg_4 ! (arcsec) Error in Declination
real*4 Bmag_4 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_4 ! (mag) Error in B
real*8 Epoch_4 ! (yr) Epoch of observations
real*4 FWHM_4 ! (2.17pix) Diameter of star image
real*8 cI_4 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_4 ! (h) Right ascension (J2000)
integer*4 RAm_4 ! (min) Right ascension (J2000)
real*4 RAs_4 ! (s) [0/60] Right ascension (J2000)
character*1 DE__4 ! Declination sign (J2000)
integer*4 DEd_4 ! (deg) Declination (J2000)
integer*4 DEm_4 ! (arcmin) Declination (J2000)
real*4 DEs_4 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_4 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_4 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_4 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_4 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_4 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_4 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_4 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n05.dat' ! Star data file (zone from 05.0 to 05.9 degrees)
integer*4 nr__5
parameter (nr__5=333805) ! Number of records
character*164 ar__5 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_5 ! (deg) Right Ascension J2000
real*8 DEdeg_10 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_5 ! Serial number of the star
integer*4 k_5 ! Number of determinations (plates)
real*8 RAhour_5 ! (h) Right Ascension (J2000)
real*4 e_RAhour_5 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_11 ! (deg) Declination (J2000)
real*4 e_DEdeg_5 ! (arcsec) Error in Declination
real*4 Bmag_5 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_5 ! (mag) Error in B
real*8 Epoch_5 ! (yr) Epoch of observations
real*4 FWHM_5 ! (2.17pix) Diameter of star image
real*8 cI_5 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_5 ! (h) Right ascension (J2000)
integer*4 RAm_5 ! (min) Right ascension (J2000)
real*4 RAs_5 ! (s) [0/60] Right ascension (J2000)
character*1 DE__5 ! Declination sign (J2000)
integer*4 DEd_5 ! (deg) Declination (J2000)
integer*4 DEm_5 ! (arcmin) Declination (J2000)
real*4 DEs_5 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_5 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_5 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_5 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_5 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_5 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_5 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_5 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n06.dat' ! Star data file (zone from 06.0 to 06.9 degrees)
integer*4 nr__6
parameter (nr__6=348489) ! Number of records
character*164 ar__6 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_6 ! (deg) Right Ascension J2000
real*8 DEdeg_12 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_6 ! Serial number of the star
integer*4 k_6 ! Number of determinations (plates)
real*8 RAhour_6 ! (h) Right Ascension (J2000)
real*4 e_RAhour_6 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_13 ! (deg) Declination (J2000)
real*4 e_DEdeg_6 ! (arcsec) Error in Declination
real*4 Bmag_6 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_6 ! (mag) Error in B
real*8 Epoch_6 ! (yr) Epoch of observations
real*4 FWHM_6 ! (2.17pix) Diameter of star image
real*8 cI_6 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_6 ! (h) Right ascension (J2000)
integer*4 RAm_6 ! (min) Right ascension (J2000)
real*4 RAs_6 ! (s) [0/60] Right ascension (J2000)
character*1 DE__6 ! Declination sign (J2000)
integer*4 DEd_6 ! (deg) Declination (J2000)
integer*4 DEm_6 ! (arcmin) Declination (J2000)
real*4 DEs_6 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_6 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_6 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_6 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_6 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_6 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_6 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_6 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n07.dat' ! Star data file (zone from 07.0 to 07.9 degrees)
integer*4 nr__7
parameter (nr__7=356731) ! Number of records
character*164 ar__7 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_7 ! (deg) Right Ascension J2000
real*8 DEdeg_14 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_7 ! Serial number of the star
integer*4 k_7 ! Number of determinations (plates)
real*8 RAhour_7 ! (h) Right Ascension (J2000)
real*4 e_RAhour_7 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_15 ! (deg) Declination (J2000)
real*4 e_DEdeg_7 ! (arcsec) Error in Declination
real*4 Bmag_7 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_7 ! (mag) Error in B
real*8 Epoch_7 ! (yr) Epoch of observations
real*4 FWHM_7 ! (2.17pix) Diameter of star image
real*8 cI_7 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_7 ! (h) Right ascension (J2000)
integer*4 RAm_7 ! (min) Right ascension (J2000)
real*4 RAs_7 ! (s) [0/60] Right ascension (J2000)
character*1 DE__7 ! Declination sign (J2000)
integer*4 DEd_7 ! (deg) Declination (J2000)
integer*4 DEm_7 ! (arcmin) Declination (J2000)
real*4 DEs_7 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_7 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_7 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_7 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_7 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_7 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_7 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_7 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n08.dat' ! Star data file (zone from 08.0 to 08.9 degrees)
integer*4 nr__8
parameter (nr__8=356556) ! Number of records
character*164 ar__8 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_8 ! (deg) Right Ascension J2000
real*8 DEdeg_16 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_8 ! Serial number of the star
integer*4 k_8 ! Number of determinations (plates)
real*8 RAhour_8 ! (h) Right Ascension (J2000)
real*4 e_RAhour_8 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_17 ! (deg) Declination (J2000)
real*4 e_DEdeg_8 ! (arcsec) Error in Declination
real*4 Bmag_8 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_8 ! (mag) Error in B
real*8 Epoch_8 ! (yr) Epoch of observations
real*4 FWHM_8 ! (2.17pix) Diameter of star image
real*8 cI_8 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_8 ! (h) Right ascension (J2000)
integer*4 RAm_8 ! (min) Right ascension (J2000)
real*4 RAs_8 ! (s) [0/60] Right ascension (J2000)
character*1 DE__8 ! Declination sign (J2000)
integer*4 DEd_8 ! (deg) Declination (J2000)
integer*4 DEm_8 ! (arcmin) Declination (J2000)
real*4 DEs_8 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_8 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_8 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_8 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_8 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_8 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_8 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_8 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n09.dat' ! Star data file (zone from 09.0 to 09.9 degrees)
integer*4 nr__9
parameter (nr__9=364476) ! Number of records
character*164 ar__9 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_9 ! (deg) Right Ascension J2000
real*8 DEdeg_18 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_9 ! Serial number of the star
integer*4 k_9 ! Number of determinations (plates)
real*8 RAhour_9 ! (h) Right Ascension (J2000)
real*4 e_RAhour_9 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_19 ! (deg) Declination (J2000)
real*4 e_DEdeg_9 ! (arcsec) Error in Declination
real*4 Bmag_9 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_9 ! (mag) Error in B
real*8 Epoch_9 ! (yr) Epoch of observations
real*4 FWHM_9 ! (2.17pix) Diameter of star image
real*8 cI_9 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_9 ! (h) Right ascension (J2000)
integer*4 RAm_9 ! (min) Right ascension (J2000)
real*4 RAs_9 ! (s) [0/60] Right ascension (J2000)
character*1 DE__9 ! Declination sign (J2000)
integer*4 DEd_9 ! (deg) Declination (J2000)
integer*4 DEm_9 ! (arcmin) Declination (J2000)
real*4 DEs_9 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_9 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_9 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_9 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_9 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_9 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_9 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_9 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n10.dat' ! Star data file (zone from 10.0 to 10.9 degrees)
integer*4 nr__10
parameter (nr__10=361441) ! Number of records
character*164 ar__10 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_10 ! (deg) Right Ascension J2000
real*8 DEdeg_20 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_10 ! Serial number of the star
integer*4 k_10 ! Number of determinations (plates)
real*8 RAhour_10 ! (h) Right Ascension (J2000)
real*4 e_RAhour_10 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_21 ! (deg) Declination (J2000)
real*4 e_DEdeg_10 ! (arcsec) Error in Declination
real*4 Bmag_10 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_10 ! (mag) Error in B
real*8 Epoch_10 ! (yr) Epoch of observations
real*4 FWHM_10 ! (2.17pix) Diameter of star image
real*8 cI_10 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_10 ! (h) Right ascension (J2000)
integer*4 RAm_10 ! (min) Right ascension (J2000)
real*4 RAs_10 ! (s) [0/60] Right ascension (J2000)
character*1 DE__10 ! Declination sign (J2000)
integer*4 DEd_10 ! (deg) Declination (J2000)
integer*4 DEm_10 ! (arcmin) Declination (J2000)
real*4 DEs_10 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_10 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_10 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_10 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_10 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_10 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_10 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_10 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n11.dat' ! Star data file (zone from 11.0 to 11.9 degrees)
integer*4 nr__11
parameter (nr__11=372358) ! Number of records
character*164 ar__11 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_11 ! (deg) Right Ascension J2000
real*8 DEdeg_22 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_11 ! Serial number of the star
integer*4 k_11 ! Number of determinations (plates)
real*8 RAhour_11 ! (h) Right Ascension (J2000)
real*4 e_RAhour_11 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_23 ! (deg) Declination (J2000)
real*4 e_DEdeg_11 ! (arcsec) Error in Declination
real*4 Bmag_11 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_11 ! (mag) Error in B
real*8 Epoch_11 ! (yr) Epoch of observations
real*4 FWHM_11 ! (2.17pix) Diameter of star image
real*8 cI_11 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_11 ! (h) Right ascension (J2000)
integer*4 RAm_11 ! (min) Right ascension (J2000)
real*4 RAs_11 ! (s) [0/60] Right ascension (J2000)
character*1 DE__11 ! Declination sign (J2000)
integer*4 DEd_11 ! (deg) Declination (J2000)
integer*4 DEm_11 ! (arcmin) Declination (J2000)
real*4 DEs_11 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_11 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_11 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_11 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_11 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_11 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_11 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_11 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n12.dat' ! Star data file (zone from 12.0 to 12.9 degrees)
integer*4 nr__12
parameter (nr__12=355259) ! Number of records
character*164 ar__12 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_12 ! (deg) Right Ascension J2000
real*8 DEdeg_24 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_12 ! Serial number of the star
integer*4 k_12 ! Number of determinations (plates)
real*8 RAhour_12 ! (h) Right Ascension (J2000)
real*4 e_RAhour_12 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_25 ! (deg) Declination (J2000)
real*4 e_DEdeg_12 ! (arcsec) Error in Declination
real*4 Bmag_12 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_12 ! (mag) Error in B
real*8 Epoch_12 ! (yr) Epoch of observations
real*4 FWHM_12 ! (2.17pix) Diameter of star image
real*8 cI_12 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_12 ! (h) Right ascension (J2000)
integer*4 RAm_12 ! (min) Right ascension (J2000)
real*4 RAs_12 ! (s) [0/60] Right ascension (J2000)
character*1 DE__12 ! Declination sign (J2000)
integer*4 DEd_12 ! (deg) Declination (J2000)
integer*4 DEm_12 ! (arcmin) Declination (J2000)
real*4 DEs_12 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_12 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_12 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_12 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_12 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_12 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_12 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_12 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n13.dat' ! Star data file (zone from 13.0 to 13.9 degrees)
integer*4 nr__13
parameter (nr__13=358325) ! Number of records
character*164 ar__13 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_13 ! (deg) Right Ascension J2000
real*8 DEdeg_26 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_13 ! Serial number of the star
integer*4 k_13 ! Number of determinations (plates)
real*8 RAhour_13 ! (h) Right Ascension (J2000)
real*4 e_RAhour_13 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_27 ! (deg) Declination (J2000)
real*4 e_DEdeg_13 ! (arcsec) Error in Declination
real*4 Bmag_13 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_13 ! (mag) Error in B
real*8 Epoch_13 ! (yr) Epoch of observations
real*4 FWHM_13 ! (2.17pix) Diameter of star image
real*8 cI_13 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_13 ! (h) Right ascension (J2000)
integer*4 RAm_13 ! (min) Right ascension (J2000)
real*4 RAs_13 ! (s) [0/60] Right ascension (J2000)
character*1 DE__13 ! Declination sign (J2000)
integer*4 DEd_13 ! (deg) Declination (J2000)
integer*4 DEm_13 ! (arcmin) Declination (J2000)
real*4 DEs_13 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_13 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_13 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_13 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_13 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_13 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_13 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_13 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n14.dat' ! Star data file (zone from 14.0 to 14.9 degrees)
integer*4 nr__14
parameter (nr__14=359743) ! Number of records
character*164 ar__14 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_14 ! (deg) Right Ascension J2000
real*8 DEdeg_28 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_14 ! Serial number of the star
integer*4 k_14 ! Number of determinations (plates)
real*8 RAhour_14 ! (h) Right Ascension (J2000)
real*4 e_RAhour_14 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_29 ! (deg) Declination (J2000)
real*4 e_DEdeg_14 ! (arcsec) Error in Declination
real*4 Bmag_14 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_14 ! (mag) Error in B
real*8 Epoch_14 ! (yr) Epoch of observations
real*4 FWHM_14 ! (2.17pix) Diameter of star image
real*8 cI_14 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_14 ! (h) Right ascension (J2000)
integer*4 RAm_14 ! (min) Right ascension (J2000)
real*4 RAs_14 ! (s) [0/60] Right ascension (J2000)
character*1 DE__14 ! Declination sign (J2000)
integer*4 DEd_14 ! (deg) Declination (J2000)
integer*4 DEm_14 ! (arcmin) Declination (J2000)
real*4 DEs_14 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_14 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_14 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_14 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_14 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_14 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_14 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_14 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n15.dat' ! Star data file (zone from 15.0 to 15.9 degrees)
integer*4 nr__15
parameter (nr__15=347273) ! Number of records
character*164 ar__15 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_15 ! (deg) Right Ascension J2000
real*8 DEdeg_30 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_15 ! Serial number of the star
integer*4 k_15 ! Number of determinations (plates)
real*8 RAhour_15 ! (h) Right Ascension (J2000)
real*4 e_RAhour_15 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_31 ! (deg) Declination (J2000)
real*4 e_DEdeg_15 ! (arcsec) Error in Declination
real*4 Bmag_15 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_15 ! (mag) Error in B
real*8 Epoch_15 ! (yr) Epoch of observations
real*4 FWHM_15 ! (2.17pix) Diameter of star image
real*8 cI_15 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_15 ! (h) Right ascension (J2000)
integer*4 RAm_15 ! (min) Right ascension (J2000)
real*4 RAs_15 ! (s) [0/60] Right ascension (J2000)
character*1 DE__15 ! Declination sign (J2000)
integer*4 DEd_15 ! (deg) Declination (J2000)
integer*4 DEm_15 ! (arcmin) Declination (J2000)
real*4 DEs_15 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_15 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_15 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_15 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_15 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_15 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_15 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_15 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n16.dat' ! Star data file (zone from 16.0 to 16.9 degrees)
integer*4 nr__16
parameter (nr__16=330713) ! Number of records
character*164 ar__16 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_16 ! (deg) Right Ascension J2000
real*8 DEdeg_32 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_16 ! Serial number of the star
integer*4 k_16 ! Number of determinations (plates)
real*8 RAhour_16 ! (h) Right Ascension (J2000)
real*4 e_RAhour_16 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_33 ! (deg) Declination (J2000)
real*4 e_DEdeg_16 ! (arcsec) Error in Declination
real*4 Bmag_16 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_16 ! (mag) Error in B
real*8 Epoch_16 ! (yr) Epoch of observations
real*4 FWHM_16 ! (2.17pix) Diameter of star image
real*8 cI_16 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_16 ! (h) Right ascension (J2000)
integer*4 RAm_16 ! (min) Right ascension (J2000)
real*4 RAs_16 ! (s) [0/60] Right ascension (J2000)
character*1 DE__16 ! Declination sign (J2000)
integer*4 DEd_16 ! (deg) Declination (J2000)
integer*4 DEm_16 ! (arcmin) Declination (J2000)
real*4 DEs_16 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_16 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_16 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_16 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_16 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_16 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_16 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_16 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n17.dat' ! Star data file (zone from 17.0 to 17.9 degrees)
integer*4 nr__17
parameter (nr__17=345780) ! Number of records
character*164 ar__17 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_17 ! (deg) Right Ascension J2000
real*8 DEdeg_34 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_17 ! Serial number of the star
integer*4 k_17 ! Number of determinations (plates)
real*8 RAhour_17 ! (h) Right Ascension (J2000)
real*4 e_RAhour_17 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_35 ! (deg) Declination (J2000)
real*4 e_DEdeg_17 ! (arcsec) Error in Declination
real*4 Bmag_17 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_17 ! (mag) Error in B
real*8 Epoch_17 ! (yr) Epoch of observations
real*4 FWHM_17 ! (2.17pix) Diameter of star image
real*8 cI_17 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_17 ! (h) Right ascension (J2000)
integer*4 RAm_17 ! (min) Right ascension (J2000)
real*4 RAs_17 ! (s) [0/60] Right ascension (J2000)
character*1 DE__17 ! Declination sign (J2000)
integer*4 DEd_17 ! (deg) Declination (J2000)
integer*4 DEm_17 ! (arcmin) Declination (J2000)
real*4 DEs_17 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_17 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_17 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_17 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_17 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_17 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_17 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_17 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n18.dat' ! Star data file (zone from 18.0 to 18.9 degrees)
integer*4 nr__18
parameter (nr__18=390006) ! Number of records
character*164 ar__18 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_18 ! (deg) Right Ascension J2000
real*8 DEdeg_36 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_18 ! Serial number of the star
integer*4 k_18 ! Number of determinations (plates)
real*8 RAhour_18 ! (h) Right Ascension (J2000)
real*4 e_RAhour_18 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_37 ! (deg) Declination (J2000)
real*4 e_DEdeg_18 ! (arcsec) Error in Declination
real*4 Bmag_18 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_18 ! (mag) Error in B
real*8 Epoch_18 ! (yr) Epoch of observations
real*4 FWHM_18 ! (2.17pix) Diameter of star image
real*8 cI_18 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_18 ! (h) Right ascension (J2000)
integer*4 RAm_18 ! (min) Right ascension (J2000)
real*4 RAs_18 ! (s) [0/60] Right ascension (J2000)
character*1 DE__18 ! Declination sign (J2000)
integer*4 DEd_18 ! (deg) Declination (J2000)
integer*4 DEm_18 ! (arcmin) Declination (J2000)
real*4 DEs_18 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_18 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_18 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_18 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_18 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_18 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_18 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_18 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n19.dat' ! Star data file (zone from 19.0 to 19.9 degrees)
integer*4 nr__19
parameter (nr__19=391717) ! Number of records
character*164 ar__19 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_19 ! (deg) Right Ascension J2000
real*8 DEdeg_38 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_19 ! Serial number of the star
integer*4 k_19 ! Number of determinations (plates)
real*8 RAhour_19 ! (h) Right Ascension (J2000)
real*4 e_RAhour_19 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_39 ! (deg) Declination (J2000)
real*4 e_DEdeg_19 ! (arcsec) Error in Declination
real*4 Bmag_19 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_19 ! (mag) Error in B
real*8 Epoch_19 ! (yr) Epoch of observations
real*4 FWHM_19 ! (2.17pix) Diameter of star image
real*8 cI_19 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_19 ! (h) Right ascension (J2000)
integer*4 RAm_19 ! (min) Right ascension (J2000)
real*4 RAs_19 ! (s) [0/60] Right ascension (J2000)
character*1 DE__19 ! Declination sign (J2000)
integer*4 DEd_19 ! (deg) Declination (J2000)
integer*4 DEm_19 ! (arcmin) Declination (J2000)
real*4 DEs_19 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_19 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_19 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_19 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_19 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_19 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_19 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_19 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n20.dat' ! Star data file (zone from 20.0 to 20.9 degrees)
integer*4 nr__20
parameter (nr__20=391361) ! Number of records
character*164 ar__20 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_20 ! (deg) Right Ascension J2000
real*8 DEdeg_40 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_20 ! Serial number of the star
integer*4 k_20 ! Number of determinations (plates)
real*8 RAhour_20 ! (h) Right Ascension (J2000)
real*4 e_RAhour_20 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_41 ! (deg) Declination (J2000)
real*4 e_DEdeg_20 ! (arcsec) Error in Declination
real*4 Bmag_20 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_20 ! (mag) Error in B
real*8 Epoch_20 ! (yr) Epoch of observations
real*4 FWHM_20 ! (2.17pix) Diameter of star image
real*8 cI_20 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_20 ! (h) Right ascension (J2000)
integer*4 RAm_20 ! (min) Right ascension (J2000)
real*4 RAs_20 ! (s) [0/60] Right ascension (J2000)
character*1 DE__20 ! Declination sign (J2000)
integer*4 DEd_20 ! (deg) Declination (J2000)
integer*4 DEm_20 ! (arcmin) Declination (J2000)
real*4 DEs_20 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_20 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_20 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_20 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_20 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_20 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_20 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_20 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n21.dat' ! Star data file (zone from 21.0 to 21.9 degrees)
integer*4 nr__21
parameter (nr__21=401577) ! Number of records
character*164 ar__21 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_21 ! (deg) Right Ascension J2000
real*8 DEdeg_42 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_21 ! Serial number of the star
integer*4 k_21 ! Number of determinations (plates)
real*8 RAhour_21 ! (h) Right Ascension (J2000)
real*4 e_RAhour_21 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_43 ! (deg) Declination (J2000)
real*4 e_DEdeg_21 ! (arcsec) Error in Declination
real*4 Bmag_21 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_21 ! (mag) Error in B
real*8 Epoch_21 ! (yr) Epoch of observations
real*4 FWHM_21 ! (2.17pix) Diameter of star image
real*8 cI_21 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_21 ! (h) Right ascension (J2000)
integer*4 RAm_21 ! (min) Right ascension (J2000)
real*4 RAs_21 ! (s) [0/60] Right ascension (J2000)
character*1 DE__21 ! Declination sign (J2000)
integer*4 DEd_21 ! (deg) Declination (J2000)
integer*4 DEm_21 ! (arcmin) Declination (J2000)
real*4 DEs_21 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_21 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_21 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_21 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_21 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_21 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_21 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_21 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n22.dat' ! Star data file (zone from 22.0 to 22.9 degrees)
integer*4 nr__22
parameter (nr__22=405449) ! Number of records
character*164 ar__22 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_22 ! (deg) Right Ascension J2000
real*8 DEdeg_44 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_22 ! Serial number of the star
integer*4 k_22 ! Number of determinations (plates)
real*8 RAhour_22 ! (h) Right Ascension (J2000)
real*4 e_RAhour_22 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_45 ! (deg) Declination (J2000)
real*4 e_DEdeg_22 ! (arcsec) Error in Declination
real*4 Bmag_22 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_22 ! (mag) Error in B
real*8 Epoch_22 ! (yr) Epoch of observations
real*4 FWHM_22 ! (2.17pix) Diameter of star image
real*8 cI_22 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_22 ! (h) Right ascension (J2000)
integer*4 RAm_22 ! (min) Right ascension (J2000)
real*4 RAs_22 ! (s) [0/60] Right ascension (J2000)
character*1 DE__22 ! Declination sign (J2000)
integer*4 DEd_22 ! (deg) Declination (J2000)
integer*4 DEm_22 ! (arcmin) Declination (J2000)
real*4 DEs_22 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_22 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_22 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_22 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_22 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_22 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_22 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_22 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n23.dat' ! Star data file (zone from 23.0 to 23.9 degrees)
integer*4 nr__23
parameter (nr__23=392915) ! Number of records
character*164 ar__23 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_23 ! (deg) Right Ascension J2000
real*8 DEdeg_46 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_23 ! Serial number of the star
integer*4 k_23 ! Number of determinations (plates)
real*8 RAhour_23 ! (h) Right Ascension (J2000)
real*4 e_RAhour_23 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_47 ! (deg) Declination (J2000)
real*4 e_DEdeg_23 ! (arcsec) Error in Declination
real*4 Bmag_23 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_23 ! (mag) Error in B
real*8 Epoch_23 ! (yr) Epoch of observations
real*4 FWHM_23 ! (2.17pix) Diameter of star image
real*8 cI_23 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_23 ! (h) Right ascension (J2000)
integer*4 RAm_23 ! (min) Right ascension (J2000)
real*4 RAs_23 ! (s) [0/60] Right ascension (J2000)
character*1 DE__23 ! Declination sign (J2000)
integer*4 DEd_23 ! (deg) Declination (J2000)
integer*4 DEm_23 ! (arcmin) Declination (J2000)
real*4 DEs_23 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_23 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_23 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_23 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_23 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_23 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_23 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_23 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n24.dat' ! Star data file (zone from 24.0 to 24.9 degrees)
integer*4 nr__24
parameter (nr__24=402237) ! Number of records
character*164 ar__24 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_24 ! (deg) Right Ascension J2000
real*8 DEdeg_48 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_24 ! Serial number of the star
integer*4 k_24 ! Number of determinations (plates)
real*8 RAhour_24 ! (h) Right Ascension (J2000)
real*4 e_RAhour_24 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_49 ! (deg) Declination (J2000)
real*4 e_DEdeg_24 ! (arcsec) Error in Declination
real*4 Bmag_24 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_24 ! (mag) Error in B
real*8 Epoch_24 ! (yr) Epoch of observations
real*4 FWHM_24 ! (2.17pix) Diameter of star image
real*8 cI_24 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_24 ! (h) Right ascension (J2000)
integer*4 RAm_24 ! (min) Right ascension (J2000)
real*4 RAs_24 ! (s) [0/60] Right ascension (J2000)
character*1 DE__24 ! Declination sign (J2000)
integer*4 DEd_24 ! (deg) Declination (J2000)
integer*4 DEm_24 ! (arcmin) Declination (J2000)
real*4 DEs_24 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_24 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_24 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_24 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_24 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_24 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_24 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_24 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n25.dat' ! Star data file (zone from 25.0 to 25.9 degrees)
integer*4 nr__25
parameter (nr__25=420326) ! Number of records
character*164 ar__25 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_25 ! (deg) Right Ascension J2000
real*8 DEdeg_50 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_25 ! Serial number of the star
integer*4 k_25 ! Number of determinations (plates)
real*8 RAhour_25 ! (h) Right Ascension (J2000)
real*4 e_RAhour_25 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_51 ! (deg) Declination (J2000)
real*4 e_DEdeg_25 ! (arcsec) Error in Declination
real*4 Bmag_25 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_25 ! (mag) Error in B
real*8 Epoch_25 ! (yr) Epoch of observations
real*4 FWHM_25 ! (2.17pix) Diameter of star image
real*8 cI_25 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_25 ! (h) Right ascension (J2000)
integer*4 RAm_25 ! (min) Right ascension (J2000)
real*4 RAs_25 ! (s) [0/60] Right ascension (J2000)
character*1 DE__25 ! Declination sign (J2000)
integer*4 DEd_25 ! (deg) Declination (J2000)
integer*4 DEm_25 ! (arcmin) Declination (J2000)
real*4 DEs_25 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_25 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_25 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_25 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_25 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_25 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_25 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_25 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n26.dat' ! Star data file (zone from 26.0 to 26.9 degrees)
integer*4 nr__26
parameter (nr__26=403670) ! Number of records
character*164 ar__26 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_26 ! (deg) Right Ascension J2000
real*8 DEdeg_52 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_26 ! Serial number of the star
integer*4 k_26 ! Number of determinations (plates)
real*8 RAhour_26 ! (h) Right Ascension (J2000)
real*4 e_RAhour_26 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_53 ! (deg) Declination (J2000)
real*4 e_DEdeg_26 ! (arcsec) Error in Declination
real*4 Bmag_26 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_26 ! (mag) Error in B
real*8 Epoch_26 ! (yr) Epoch of observations
real*4 FWHM_26 ! (2.17pix) Diameter of star image
real*8 cI_26 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_26 ! (h) Right ascension (J2000)
integer*4 RAm_26 ! (min) Right ascension (J2000)
real*4 RAs_26 ! (s) [0/60] Right ascension (J2000)
character*1 DE__26 ! Declination sign (J2000)
integer*4 DEd_26 ! (deg) Declination (J2000)
integer*4 DEm_26 ! (arcmin) Declination (J2000)
real*4 DEs_26 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_26 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_26 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_26 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_26 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_26 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_26 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_26 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n27.dat' ! Star data file (zone from 27.0 to 27.9 degrees)
integer*4 nr__27
parameter (nr__27=401501) ! Number of records
character*164 ar__27 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_27 ! (deg) Right Ascension J2000
real*8 DEdeg_54 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_27 ! Serial number of the star
integer*4 k_27 ! Number of determinations (plates)
real*8 RAhour_27 ! (h) Right Ascension (J2000)
real*4 e_RAhour_27 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_55 ! (deg) Declination (J2000)
real*4 e_DEdeg_27 ! (arcsec) Error in Declination
real*4 Bmag_27 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_27 ! (mag) Error in B
real*8 Epoch_27 ! (yr) Epoch of observations
real*4 FWHM_27 ! (2.17pix) Diameter of star image
real*8 cI_27 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_27 ! (h) Right ascension (J2000)
integer*4 RAm_27 ! (min) Right ascension (J2000)
real*4 RAs_27 ! (s) [0/60] Right ascension (J2000)
character*1 DE__27 ! Declination sign (J2000)
integer*4 DEd_27 ! (deg) Declination (J2000)
integer*4 DEm_27 ! (arcmin) Declination (J2000)
real*4 DEs_27 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_27 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_27 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_27 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_27 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_27 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_27 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_27 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n28.dat' ! Star data file (zone from 28.0 to 28.9 degrees)
integer*4 nr__28
parameter (nr__28=402430) ! Number of records
character*164 ar__28 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_28 ! (deg) Right Ascension J2000
real*8 DEdeg_56 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_28 ! Serial number of the star
integer*4 k_28 ! Number of determinations (plates)
real*8 RAhour_28 ! (h) Right Ascension (J2000)
real*4 e_RAhour_28 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_57 ! (deg) Declination (J2000)
real*4 e_DEdeg_28 ! (arcsec) Error in Declination
real*4 Bmag_28 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_28 ! (mag) Error in B
real*8 Epoch_28 ! (yr) Epoch of observations
real*4 FWHM_28 ! (2.17pix) Diameter of star image
real*8 cI_28 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_28 ! (h) Right ascension (J2000)
integer*4 RAm_28 ! (min) Right ascension (J2000)
real*4 RAs_28 ! (s) [0/60] Right ascension (J2000)
character*1 DE__28 ! Declination sign (J2000)
integer*4 DEd_28 ! (deg) Declination (J2000)
integer*4 DEm_28 ! (arcmin) Declination (J2000)
real*4 DEs_28 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_28 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_28 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_28 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_28 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_28 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_28 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_28 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n29.dat' ! Star data file (zone from 29.0 to 29.9 degrees)
integer*4 nr__29
parameter (nr__29=398872) ! Number of records
character*164 ar__29 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_29 ! (deg) Right Ascension J2000
real*8 DEdeg_58 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_29 ! Serial number of the star
integer*4 k_29 ! Number of determinations (plates)
real*8 RAhour_29 ! (h) Right Ascension (J2000)
real*4 e_RAhour_29 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_59 ! (deg) Declination (J2000)
real*4 e_DEdeg_29 ! (arcsec) Error in Declination
real*4 Bmag_29 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_29 ! (mag) Error in B
real*8 Epoch_29 ! (yr) Epoch of observations
real*4 FWHM_29 ! (2.17pix) Diameter of star image
real*8 cI_29 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_29 ! (h) Right ascension (J2000)
integer*4 RAm_29 ! (min) Right ascension (J2000)
real*4 RAs_29 ! (s) [0/60] Right ascension (J2000)
character*1 DE__29 ! Declination sign (J2000)
integer*4 DEd_29 ! (deg) Declination (J2000)
integer*4 DEm_29 ! (arcmin) Declination (J2000)
real*4 DEs_29 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_29 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_29 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_29 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_29 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_29 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_29 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_29 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n30.dat' ! Star data file (zone from 30.0 to 30.9 degrees)
integer*4 nr__30
parameter (nr__30=367163) ! Number of records
character*164 ar__30 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_30 ! (deg) Right Ascension J2000
real*8 DEdeg_60 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_30 ! Serial number of the star
integer*4 k_30 ! Number of determinations (plates)
real*8 RAhour_30 ! (h) Right Ascension (J2000)
real*4 e_RAhour_30 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_61 ! (deg) Declination (J2000)
real*4 e_DEdeg_30 ! (arcsec) Error in Declination
real*4 Bmag_30 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_30 ! (mag) Error in B
real*8 Epoch_30 ! (yr) Epoch of observations
real*4 FWHM_30 ! (2.17pix) Diameter of star image
real*8 cI_30 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_30 ! (h) Right ascension (J2000)
integer*4 RAm_30 ! (min) Right ascension (J2000)
real*4 RAs_30 ! (s) [0/60] Right ascension (J2000)
character*1 DE__30 ! Declination sign (J2000)
integer*4 DEd_30 ! (deg) Declination (J2000)
integer*4 DEm_30 ! (arcmin) Declination (J2000)
real*4 DEs_30 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_30 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_30 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_30 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_30 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_30 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_30 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_30 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n31.dat' ! Star data file (zone from 31.0 to 31.9 degrees)
integer*4 nr__31
parameter (nr__31=345936) ! Number of records
character*164 ar__31 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_31 ! (deg) Right Ascension J2000
real*8 DEdeg_62 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_31 ! Serial number of the star
integer*4 k_31 ! Number of determinations (plates)
real*8 RAhour_31 ! (h) Right Ascension (J2000)
real*4 e_RAhour_31 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_63 ! (deg) Declination (J2000)
real*4 e_DEdeg_31 ! (arcsec) Error in Declination
real*4 Bmag_31 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_31 ! (mag) Error in B
real*8 Epoch_31 ! (yr) Epoch of observations
real*4 FWHM_31 ! (2.17pix) Diameter of star image
real*8 cI_31 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_31 ! (h) Right ascension (J2000)
integer*4 RAm_31 ! (min) Right ascension (J2000)
real*4 RAs_31 ! (s) [0/60] Right ascension (J2000)
character*1 DE__31 ! Declination sign (J2000)
integer*4 DEd_31 ! (deg) Declination (J2000)
integer*4 DEm_31 ! (arcmin) Declination (J2000)
real*4 DEs_31 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_31 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_31 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_31 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_31 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_31 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_31 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_31 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n32.dat' ! Star data file (zone from 32.0 to 32.9 degrees)
integer*4 nr__32
parameter (nr__32=326173) ! Number of records
character*164 ar__32 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_32 ! (deg) Right Ascension J2000
real*8 DEdeg_64 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_32 ! Serial number of the star
integer*4 k_32 ! Number of determinations (plates)
real*8 RAhour_32 ! (h) Right Ascension (J2000)
real*4 e_RAhour_32 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_65 ! (deg) Declination (J2000)
real*4 e_DEdeg_32 ! (arcsec) Error in Declination
real*4 Bmag_32 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_32 ! (mag) Error in B
real*8 Epoch_32 ! (yr) Epoch of observations
real*4 FWHM_32 ! (2.17pix) Diameter of star image
real*8 cI_32 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_32 ! (h) Right ascension (J2000)
integer*4 RAm_32 ! (min) Right ascension (J2000)
real*4 RAs_32 ! (s) [0/60] Right ascension (J2000)
character*1 DE__32 ! Declination sign (J2000)
integer*4 DEd_32 ! (deg) Declination (J2000)
integer*4 DEm_32 ! (arcmin) Declination (J2000)
real*4 DEs_32 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_32 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_32 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_32 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_32 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_32 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_32 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_32 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n33.dat' ! Star data file (zone from 33.0 to 33.9 degrees)
integer*4 nr__33
parameter (nr__33=353087) ! Number of records
character*164 ar__33 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_33 ! (deg) Right Ascension J2000
real*8 DEdeg_66 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_33 ! Serial number of the star
integer*4 k_33 ! Number of determinations (plates)
real*8 RAhour_33 ! (h) Right Ascension (J2000)
real*4 e_RAhour_33 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_67 ! (deg) Declination (J2000)
real*4 e_DEdeg_33 ! (arcsec) Error in Declination
real*4 Bmag_33 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_33 ! (mag) Error in B
real*8 Epoch_33 ! (yr) Epoch of observations
real*4 FWHM_33 ! (2.17pix) Diameter of star image
real*8 cI_33 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_33 ! (h) Right ascension (J2000)
integer*4 RAm_33 ! (min) Right ascension (J2000)
real*4 RAs_33 ! (s) [0/60] Right ascension (J2000)
character*1 DE__33 ! Declination sign (J2000)
integer*4 DEd_33 ! (deg) Declination (J2000)
integer*4 DEm_33 ! (arcmin) Declination (J2000)
real*4 DEs_33 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_33 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_33 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_33 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_33 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_33 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_33 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_33 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n34.dat' ! Star data file (zone from 34.0 to 34.9 degrees)
integer*4 nr__34
parameter (nr__34=352180) ! Number of records
character*164 ar__34 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_34 ! (deg) Right Ascension J2000
real*8 DEdeg_68 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_34 ! Serial number of the star
integer*4 k_34 ! Number of determinations (plates)
real*8 RAhour_34 ! (h) Right Ascension (J2000)
real*4 e_RAhour_34 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_69 ! (deg) Declination (J2000)
real*4 e_DEdeg_34 ! (arcsec) Error in Declination
real*4 Bmag_34 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_34 ! (mag) Error in B
real*8 Epoch_34 ! (yr) Epoch of observations
real*4 FWHM_34 ! (2.17pix) Diameter of star image
real*8 cI_34 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_34 ! (h) Right ascension (J2000)
integer*4 RAm_34 ! (min) Right ascension (J2000)
real*4 RAs_34 ! (s) [0/60] Right ascension (J2000)
character*1 DE__34 ! Declination sign (J2000)
integer*4 DEd_34 ! (deg) Declination (J2000)
integer*4 DEm_34 ! (arcmin) Declination (J2000)
real*4 DEs_34 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_34 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_34 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_34 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_34 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_34 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_34 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_34 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n35.dat' ! Star data file (zone from 35.0 to 35.9 degrees)
integer*4 nr__35
parameter (nr__35=350485) ! Number of records
character*164 ar__35 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_35 ! (deg) Right Ascension J2000
real*8 DEdeg_70 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_35 ! Serial number of the star
integer*4 k_35 ! Number of determinations (plates)
real*8 RAhour_35 ! (h) Right Ascension (J2000)
real*4 e_RAhour_35 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_71 ! (deg) Declination (J2000)
real*4 e_DEdeg_35 ! (arcsec) Error in Declination
real*4 Bmag_35 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_35 ! (mag) Error in B
real*8 Epoch_35 ! (yr) Epoch of observations
real*4 FWHM_35 ! (2.17pix) Diameter of star image
real*8 cI_35 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_35 ! (h) Right ascension (J2000)
integer*4 RAm_35 ! (min) Right ascension (J2000)
real*4 RAs_35 ! (s) [0/60] Right ascension (J2000)
character*1 DE__35 ! Declination sign (J2000)
integer*4 DEd_35 ! (deg) Declination (J2000)
integer*4 DEm_35 ! (arcmin) Declination (J2000)
real*4 DEs_35 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_35 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_35 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_35 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_35 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_35 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_35 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_35 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n36.dat' ! Star data file (zone from 36.0 to 36.9 degrees)
integer*4 nr__36
parameter (nr__36=350620) ! Number of records
character*164 ar__36 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_36 ! (deg) Right Ascension J2000
real*8 DEdeg_72 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_36 ! Serial number of the star
integer*4 k_36 ! Number of determinations (plates)
real*8 RAhour_36 ! (h) Right Ascension (J2000)
real*4 e_RAhour_36 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_73 ! (deg) Declination (J2000)
real*4 e_DEdeg_36 ! (arcsec) Error in Declination
real*4 Bmag_36 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_36 ! (mag) Error in B
real*8 Epoch_36 ! (yr) Epoch of observations
real*4 FWHM_36 ! (2.17pix) Diameter of star image
real*8 cI_36 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_36 ! (h) Right ascension (J2000)
integer*4 RAm_36 ! (min) Right ascension (J2000)
real*4 RAs_36 ! (s) [0/60] Right ascension (J2000)
character*1 DE__36 ! Declination sign (J2000)
integer*4 DEd_36 ! (deg) Declination (J2000)
integer*4 DEm_36 ! (arcmin) Declination (J2000)
real*4 DEs_36 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_36 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_36 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_36 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_36 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_36 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_36 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_36 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n37.dat' ! Star data file (zone from 37.0 to 37.9 degrees)
integer*4 nr__37
parameter (nr__37=349939) ! Number of records
character*164 ar__37 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_37 ! (deg) Right Ascension J2000
real*8 DEdeg_74 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_37 ! Serial number of the star
integer*4 k_37 ! Number of determinations (plates)
real*8 RAhour_37 ! (h) Right Ascension (J2000)
real*4 e_RAhour_37 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_75 ! (deg) Declination (J2000)
real*4 e_DEdeg_37 ! (arcsec) Error in Declination
real*4 Bmag_37 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_37 ! (mag) Error in B
real*8 Epoch_37 ! (yr) Epoch of observations
real*4 FWHM_37 ! (2.17pix) Diameter of star image
real*8 cI_37 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_37 ! (h) Right ascension (J2000)
integer*4 RAm_37 ! (min) Right ascension (J2000)
real*4 RAs_37 ! (s) [0/60] Right ascension (J2000)
character*1 DE__37 ! Declination sign (J2000)
integer*4 DEd_37 ! (deg) Declination (J2000)
integer*4 DEm_37 ! (arcmin) Declination (J2000)
real*4 DEs_37 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_37 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_37 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_37 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_37 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_37 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_37 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_37 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n38.dat' ! Star data file (zone from 38.0 to 38.9 degrees)
integer*4 nr__38
parameter (nr__38=349122) ! Number of records
character*164 ar__38 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_38 ! (deg) Right Ascension J2000
real*8 DEdeg_76 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_38 ! Serial number of the star
integer*4 k_38 ! Number of determinations (plates)
real*8 RAhour_38 ! (h) Right Ascension (J2000)
real*4 e_RAhour_38 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_77 ! (deg) Declination (J2000)
real*4 e_DEdeg_38 ! (arcsec) Error in Declination
real*4 Bmag_38 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_38 ! (mag) Error in B
real*8 Epoch_38 ! (yr) Epoch of observations
real*4 FWHM_38 ! (2.17pix) Diameter of star image
real*8 cI_38 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_38 ! (h) Right ascension (J2000)
integer*4 RAm_38 ! (min) Right ascension (J2000)
real*4 RAs_38 ! (s) [0/60] Right ascension (J2000)
character*1 DE__38 ! Declination sign (J2000)
integer*4 DEd_38 ! (deg) Declination (J2000)
integer*4 DEm_38 ! (arcmin) Declination (J2000)
real*4 DEs_38 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_38 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_38 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_38 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_38 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_38 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_38 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_38 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n39.dat' ! Star data file (zone from 39.0 to 39.9 degrees)
integer*4 nr__39
parameter (nr__39=335004) ! Number of records
character*164 ar__39 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_39 ! (deg) Right Ascension J2000
real*8 DEdeg_78 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_39 ! Serial number of the star
integer*4 k_39 ! Number of determinations (plates)
real*8 RAhour_39 ! (h) Right Ascension (J2000)
real*4 e_RAhour_39 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_79 ! (deg) Declination (J2000)
real*4 e_DEdeg_39 ! (arcsec) Error in Declination
real*4 Bmag_39 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_39 ! (mag) Error in B
real*8 Epoch_39 ! (yr) Epoch of observations
real*4 FWHM_39 ! (2.17pix) Diameter of star image
real*8 cI_39 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_39 ! (h) Right ascension (J2000)
integer*4 RAm_39 ! (min) Right ascension (J2000)
real*4 RAs_39 ! (s) [0/60] Right ascension (J2000)
character*1 DE__39 ! Declination sign (J2000)
integer*4 DEd_39 ! (deg) Declination (J2000)
integer*4 DEm_39 ! (arcmin) Declination (J2000)
real*4 DEs_39 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_39 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_39 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_39 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_39 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_39 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_39 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_39 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n40.dat' ! Star data file (zone from 40.0 to 40.9 degrees)
integer*4 nr__40
parameter (nr__40=342089) ! Number of records
character*164 ar__40 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_40 ! (deg) Right Ascension J2000
real*8 DEdeg_80 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_40 ! Serial number of the star
integer*4 k_40 ! Number of determinations (plates)
real*8 RAhour_40 ! (h) Right Ascension (J2000)
real*4 e_RAhour_40 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_81 ! (deg) Declination (J2000)
real*4 e_DEdeg_40 ! (arcsec) Error in Declination
real*4 Bmag_40 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_40 ! (mag) Error in B
real*8 Epoch_40 ! (yr) Epoch of observations
real*4 FWHM_40 ! (2.17pix) Diameter of star image
real*8 cI_40 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_40 ! (h) Right ascension (J2000)
integer*4 RAm_40 ! (min) Right ascension (J2000)
real*4 RAs_40 ! (s) [0/60] Right ascension (J2000)
character*1 DE__40 ! Declination sign (J2000)
integer*4 DEd_40 ! (deg) Declination (J2000)
integer*4 DEm_40 ! (arcmin) Declination (J2000)
real*4 DEs_40 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_40 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_40 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_40 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_40 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_40 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_40 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_40 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n41.dat' ! Star data file (zone from 41.0 to 41.9 degrees)
integer*4 nr__41
parameter (nr__41=361255) ! Number of records
character*164 ar__41 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_41 ! (deg) Right Ascension J2000
real*8 DEdeg_82 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_41 ! Serial number of the star
integer*4 k_41 ! Number of determinations (plates)
real*8 RAhour_41 ! (h) Right Ascension (J2000)
real*4 e_RAhour_41 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_83 ! (deg) Declination (J2000)
real*4 e_DEdeg_41 ! (arcsec) Error in Declination
real*4 Bmag_41 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_41 ! (mag) Error in B
real*8 Epoch_41 ! (yr) Epoch of observations
real*4 FWHM_41 ! (2.17pix) Diameter of star image
real*8 cI_41 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_41 ! (h) Right ascension (J2000)
integer*4 RAm_41 ! (min) Right ascension (J2000)
real*4 RAs_41 ! (s) [0/60] Right ascension (J2000)
character*1 DE__41 ! Declination sign (J2000)
integer*4 DEd_41 ! (deg) Declination (J2000)
integer*4 DEm_41 ! (arcmin) Declination (J2000)
real*4 DEs_41 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_41 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_41 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_41 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_41 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_41 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_41 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_41 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n42.dat' ! Star data file (zone from 42.0 to 42.9 degrees)
integer*4 nr__42
parameter (nr__42=366599) ! Number of records
character*164 ar__42 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_42 ! (deg) Right Ascension J2000
real*8 DEdeg_84 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_42 ! Serial number of the star
integer*4 k_42 ! Number of determinations (plates)
real*8 RAhour_42 ! (h) Right Ascension (J2000)
real*4 e_RAhour_42 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_85 ! (deg) Declination (J2000)
real*4 e_DEdeg_42 ! (arcsec) Error in Declination
real*4 Bmag_42 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_42 ! (mag) Error in B
real*8 Epoch_42 ! (yr) Epoch of observations
real*4 FWHM_42 ! (2.17pix) Diameter of star image
real*8 cI_42 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_42 ! (h) Right ascension (J2000)
integer*4 RAm_42 ! (min) Right ascension (J2000)
real*4 RAs_42 ! (s) [0/60] Right ascension (J2000)
character*1 DE__42 ! Declination sign (J2000)
integer*4 DEd_42 ! (deg) Declination (J2000)
integer*4 DEm_42 ! (arcmin) Declination (J2000)
real*4 DEs_42 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_42 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_42 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_42 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_42 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_42 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_42 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_42 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n43.dat' ! Star data file (zone from 43.0 to 43.9 degrees)
integer*4 nr__43
parameter (nr__43=363934) ! Number of records
character*164 ar__43 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_43 ! (deg) Right Ascension J2000
real*8 DEdeg_86 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_43 ! Serial number of the star
integer*4 k_43 ! Number of determinations (plates)
real*8 RAhour_43 ! (h) Right Ascension (J2000)
real*4 e_RAhour_43 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_87 ! (deg) Declination (J2000)
real*4 e_DEdeg_43 ! (arcsec) Error in Declination
real*4 Bmag_43 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_43 ! (mag) Error in B
real*8 Epoch_43 ! (yr) Epoch of observations
real*4 FWHM_43 ! (2.17pix) Diameter of star image
real*8 cI_43 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_43 ! (h) Right ascension (J2000)
integer*4 RAm_43 ! (min) Right ascension (J2000)
real*4 RAs_43 ! (s) [0/60] Right ascension (J2000)
character*1 DE__43 ! Declination sign (J2000)
integer*4 DEd_43 ! (deg) Declination (J2000)
integer*4 DEm_43 ! (arcmin) Declination (J2000)
real*4 DEs_43 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_43 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_43 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_43 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_43 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_43 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_43 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_43 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n44.dat' ! Star data file (zone from 44.0 to 44.9 degrees)
integer*4 nr__44
parameter (nr__44=373436) ! Number of records
character*164 ar__44 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_44 ! (deg) Right Ascension J2000
real*8 DEdeg_88 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_44 ! Serial number of the star
integer*4 k_44 ! Number of determinations (plates)
real*8 RAhour_44 ! (h) Right Ascension (J2000)
real*4 e_RAhour_44 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_89 ! (deg) Declination (J2000)
real*4 e_DEdeg_44 ! (arcsec) Error in Declination
real*4 Bmag_44 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_44 ! (mag) Error in B
real*8 Epoch_44 ! (yr) Epoch of observations
real*4 FWHM_44 ! (2.17pix) Diameter of star image
real*8 cI_44 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_44 ! (h) Right ascension (J2000)
integer*4 RAm_44 ! (min) Right ascension (J2000)
real*4 RAs_44 ! (s) [0/60] Right ascension (J2000)
character*1 DE__44 ! Declination sign (J2000)
integer*4 DEd_44 ! (deg) Declination (J2000)
integer*4 DEm_44 ! (arcmin) Declination (J2000)
real*4 DEs_44 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_44 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_44 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_44 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_44 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_44 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_44 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_44 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n45.dat' ! Star data file (zone from 45.0 to 45.9 degrees)
integer*4 nr__45
parameter (nr__45=414605) ! Number of records
character*164 ar__45 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_45 ! (deg) Right Ascension J2000
real*8 DEdeg_90 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_45 ! Serial number of the star
integer*4 k_45 ! Number of determinations (plates)
real*8 RAhour_45 ! (h) Right Ascension (J2000)
real*4 e_RAhour_45 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_91 ! (deg) Declination (J2000)
real*4 e_DEdeg_45 ! (arcsec) Error in Declination
real*4 Bmag_45 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_45 ! (mag) Error in B
real*8 Epoch_45 ! (yr) Epoch of observations
real*4 FWHM_45 ! (2.17pix) Diameter of star image
real*8 cI_45 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_45 ! (h) Right ascension (J2000)
integer*4 RAm_45 ! (min) Right ascension (J2000)
real*4 RAs_45 ! (s) [0/60] Right ascension (J2000)
character*1 DE__45 ! Declination sign (J2000)
integer*4 DEd_45 ! (deg) Declination (J2000)
integer*4 DEm_45 ! (arcmin) Declination (J2000)
real*4 DEs_45 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_45 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_45 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_45 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_45 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_45 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_45 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_45 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n46.dat' ! Star data file (zone from 46.0 to 46.9 degrees)
integer*4 nr__46
parameter (nr__46=438428) ! Number of records
character*164 ar__46 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_46 ! (deg) Right Ascension J2000
real*8 DEdeg_92 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_46 ! Serial number of the star
integer*4 k_46 ! Number of determinations (plates)
real*8 RAhour_46 ! (h) Right Ascension (J2000)
real*4 e_RAhour_46 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_93 ! (deg) Declination (J2000)
real*4 e_DEdeg_46 ! (arcsec) Error in Declination
real*4 Bmag_46 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_46 ! (mag) Error in B
real*8 Epoch_46 ! (yr) Epoch of observations
real*4 FWHM_46 ! (2.17pix) Diameter of star image
real*8 cI_46 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_46 ! (h) Right ascension (J2000)
integer*4 RAm_46 ! (min) Right ascension (J2000)
real*4 RAs_46 ! (s) [0/60] Right ascension (J2000)
character*1 DE__46 ! Declination sign (J2000)
integer*4 DEd_46 ! (deg) Declination (J2000)
integer*4 DEm_46 ! (arcmin) Declination (J2000)
real*4 DEs_46 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_46 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_46 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_46 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_46 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_46 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_46 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_46 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n47.dat' ! Star data file (zone from 47.0 to 47.9 degrees)
integer*4 nr__47
parameter (nr__47=420141) ! Number of records
character*164 ar__47 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_47 ! (deg) Right Ascension J2000
real*8 DEdeg_94 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_47 ! Serial number of the star
integer*4 k_47 ! Number of determinations (plates)
real*8 RAhour_47 ! (h) Right Ascension (J2000)
real*4 e_RAhour_47 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_95 ! (deg) Declination (J2000)
real*4 e_DEdeg_47 ! (arcsec) Error in Declination
real*4 Bmag_47 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_47 ! (mag) Error in B
real*8 Epoch_47 ! (yr) Epoch of observations
real*4 FWHM_47 ! (2.17pix) Diameter of star image
real*8 cI_47 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_47 ! (h) Right ascension (J2000)
integer*4 RAm_47 ! (min) Right ascension (J2000)
real*4 RAs_47 ! (s) [0/60] Right ascension (J2000)
character*1 DE__47 ! Declination sign (J2000)
integer*4 DEd_47 ! (deg) Declination (J2000)
integer*4 DEm_47 ! (arcmin) Declination (J2000)
real*4 DEs_47 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_47 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_47 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_47 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_47 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_47 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_47 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_47 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n48.dat' ! Star data file (zone from 48.0 to 48.9 degrees)
integer*4 nr__48
parameter (nr__48=393585) ! Number of records
character*164 ar__48 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_48 ! (deg) Right Ascension J2000
real*8 DEdeg_96 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_48 ! Serial number of the star
integer*4 k_48 ! Number of determinations (plates)
real*8 RAhour_48 ! (h) Right Ascension (J2000)
real*4 e_RAhour_48 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_97 ! (deg) Declination (J2000)
real*4 e_DEdeg_48 ! (arcsec) Error in Declination
real*4 Bmag_48 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_48 ! (mag) Error in B
real*8 Epoch_48 ! (yr) Epoch of observations
real*4 FWHM_48 ! (2.17pix) Diameter of star image
real*8 cI_48 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_48 ! (h) Right ascension (J2000)
integer*4 RAm_48 ! (min) Right ascension (J2000)
real*4 RAs_48 ! (s) [0/60] Right ascension (J2000)
character*1 DE__48 ! Declination sign (J2000)
integer*4 DEd_48 ! (deg) Declination (J2000)
integer*4 DEm_48 ! (arcmin) Declination (J2000)
real*4 DEs_48 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_48 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_48 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_48 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_48 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_48 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_48 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_48 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n49.dat' ! Star data file (zone from 49.0 to 49.9 degrees)
integer*4 nr__49
parameter (nr__49=389740) ! Number of records
character*164 ar__49 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_49 ! (deg) Right Ascension J2000
real*8 DEdeg_98 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_49 ! Serial number of the star
integer*4 k_49 ! Number of determinations (plates)
real*8 RAhour_49 ! (h) Right Ascension (J2000)
real*4 e_RAhour_49 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_99 ! (deg) Declination (J2000)
real*4 e_DEdeg_49 ! (arcsec) Error in Declination
real*4 Bmag_49 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_49 ! (mag) Error in B
real*8 Epoch_49 ! (yr) Epoch of observations
real*4 FWHM_49 ! (2.17pix) Diameter of star image
real*8 cI_49 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_49 ! (h) Right ascension (J2000)
integer*4 RAm_49 ! (min) Right ascension (J2000)
real*4 RAs_49 ! (s) [0/60] Right ascension (J2000)
character*1 DE__49 ! Declination sign (J2000)
integer*4 DEd_49 ! (deg) Declination (J2000)
integer*4 DEm_49 ! (arcmin) Declination (J2000)
real*4 DEs_49 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_49 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_49 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_49 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_49 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_49 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_49 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_49 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n50.dat' ! Star data file (zone from 50.0 to 50.9 degrees)
integer*4 nr__50
parameter (nr__50=371627) ! Number of records
character*164 ar__50 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_50 ! (deg) Right Ascension J2000
real*8 DEdeg_100 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_50 ! Serial number of the star
integer*4 k_50 ! Number of determinations (plates)
real*8 RAhour_50 ! (h) Right Ascension (J2000)
real*4 e_RAhour_50 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_101 ! (deg) Declination (J2000)
real*4 e_DEdeg_50 ! (arcsec) Error in Declination
real*4 Bmag_50 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_50 ! (mag) Error in B
real*8 Epoch_50 ! (yr) Epoch of observations
real*4 FWHM_50 ! (2.17pix) Diameter of star image
real*8 cI_50 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_50 ! (h) Right ascension (J2000)
integer*4 RAm_50 ! (min) Right ascension (J2000)
real*4 RAs_50 ! (s) [0/60] Right ascension (J2000)
character*1 DE__50 ! Declination sign (J2000)
integer*4 DEd_50 ! (deg) Declination (J2000)
integer*4 DEm_50 ! (arcmin) Declination (J2000)
real*4 DEs_50 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_50 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_50 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_50 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_50 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_50 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_50 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_50 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n51.dat' ! Star data file (zone from 51.0 to 51.9 degrees)
integer*4 nr__51
parameter (nr__51=353020) ! Number of records
character*164 ar__51 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_51 ! (deg) Right Ascension J2000
real*8 DEdeg_102 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_51 ! Serial number of the star
integer*4 k_51 ! Number of determinations (plates)
real*8 RAhour_51 ! (h) Right Ascension (J2000)
real*4 e_RAhour_51 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_103 ! (deg) Declination (J2000)
real*4 e_DEdeg_51 ! (arcsec) Error in Declination
real*4 Bmag_51 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_51 ! (mag) Error in B
real*8 Epoch_51 ! (yr) Epoch of observations
real*4 FWHM_51 ! (2.17pix) Diameter of star image
real*8 cI_51 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_51 ! (h) Right ascension (J2000)
integer*4 RAm_51 ! (min) Right ascension (J2000)
real*4 RAs_51 ! (s) [0/60] Right ascension (J2000)
character*1 DE__51 ! Declination sign (J2000)
integer*4 DEd_51 ! (deg) Declination (J2000)
integer*4 DEm_51 ! (arcmin) Declination (J2000)
real*4 DEs_51 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_51 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_51 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_51 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_51 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_51 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_51 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_51 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n52.dat' ! Star data file (zone from 52.0 to 52.9 degrees)
integer*4 nr__52
parameter (nr__52=325355) ! Number of records
character*164 ar__52 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_52 ! (deg) Right Ascension J2000
real*8 DEdeg_104 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_52 ! Serial number of the star
integer*4 k_52 ! Number of determinations (plates)
real*8 RAhour_52 ! (h) Right Ascension (J2000)
real*4 e_RAhour_52 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_105 ! (deg) Declination (J2000)
real*4 e_DEdeg_52 ! (arcsec) Error in Declination
real*4 Bmag_52 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_52 ! (mag) Error in B
real*8 Epoch_52 ! (yr) Epoch of observations
real*4 FWHM_52 ! (2.17pix) Diameter of star image
real*8 cI_52 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_52 ! (h) Right ascension (J2000)
integer*4 RAm_52 ! (min) Right ascension (J2000)
real*4 RAs_52 ! (s) [0/60] Right ascension (J2000)
character*1 DE__52 ! Declination sign (J2000)
integer*4 DEd_52 ! (deg) Declination (J2000)
integer*4 DEm_52 ! (arcmin) Declination (J2000)
real*4 DEs_52 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_52 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_52 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_52 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_52 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_52 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_52 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_52 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n53.dat' ! Star data file (zone from 53.0 to 53.9 degrees)
integer*4 nr__53
parameter (nr__53=327494) ! Number of records
character*164 ar__53 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_53 ! (deg) Right Ascension J2000
real*8 DEdeg_106 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_53 ! Serial number of the star
integer*4 k_53 ! Number of determinations (plates)
real*8 RAhour_53 ! (h) Right Ascension (J2000)
real*4 e_RAhour_53 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_107 ! (deg) Declination (J2000)
real*4 e_DEdeg_53 ! (arcsec) Error in Declination
real*4 Bmag_53 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_53 ! (mag) Error in B
real*8 Epoch_53 ! (yr) Epoch of observations
real*4 FWHM_53 ! (2.17pix) Diameter of star image
real*8 cI_53 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_53 ! (h) Right ascension (J2000)
integer*4 RAm_53 ! (min) Right ascension (J2000)
real*4 RAs_53 ! (s) [0/60] Right ascension (J2000)
character*1 DE__53 ! Declination sign (J2000)
integer*4 DEd_53 ! (deg) Declination (J2000)
integer*4 DEm_53 ! (arcmin) Declination (J2000)
real*4 DEs_53 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_53 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_53 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_53 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_53 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_53 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_53 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_53 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n54.dat' ! Star data file (zone from 54.0 to 54.9 degrees)
integer*4 nr__54
parameter (nr__54=310072) ! Number of records
character*164 ar__54 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_54 ! (deg) Right Ascension J2000
real*8 DEdeg_108 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_54 ! Serial number of the star
integer*4 k_54 ! Number of determinations (plates)
real*8 RAhour_54 ! (h) Right Ascension (J2000)
real*4 e_RAhour_54 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_109 ! (deg) Declination (J2000)
real*4 e_DEdeg_54 ! (arcsec) Error in Declination
real*4 Bmag_54 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_54 ! (mag) Error in B
real*8 Epoch_54 ! (yr) Epoch of observations
real*4 FWHM_54 ! (2.17pix) Diameter of star image
real*8 cI_54 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_54 ! (h) Right ascension (J2000)
integer*4 RAm_54 ! (min) Right ascension (J2000)
real*4 RAs_54 ! (s) [0/60] Right ascension (J2000)
character*1 DE__54 ! Declination sign (J2000)
integer*4 DEd_54 ! (deg) Declination (J2000)
integer*4 DEm_54 ! (arcmin) Declination (J2000)
real*4 DEs_54 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_54 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_54 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_54 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_54 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_54 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_54 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_54 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n55.dat' ! Star data file (zone from 55.0 to 55.9 degrees)
integer*4 nr__55
parameter (nr__55=285012) ! Number of records
character*164 ar__55 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_55 ! (deg) Right Ascension J2000
real*8 DEdeg_110 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_55 ! Serial number of the star
integer*4 k_55 ! Number of determinations (plates)
real*8 RAhour_55 ! (h) Right Ascension (J2000)
real*4 e_RAhour_55 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_111 ! (deg) Declination (J2000)
real*4 e_DEdeg_55 ! (arcsec) Error in Declination
real*4 Bmag_55 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_55 ! (mag) Error in B
real*8 Epoch_55 ! (yr) Epoch of observations
real*4 FWHM_55 ! (2.17pix) Diameter of star image
real*8 cI_55 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_55 ! (h) Right ascension (J2000)
integer*4 RAm_55 ! (min) Right ascension (J2000)
real*4 RAs_55 ! (s) [0/60] Right ascension (J2000)
character*1 DE__55 ! Declination sign (J2000)
integer*4 DEd_55 ! (deg) Declination (J2000)
integer*4 DEm_55 ! (arcmin) Declination (J2000)
real*4 DEs_55 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_55 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_55 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_55 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_55 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_55 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_55 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_55 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n56.dat' ! Star data file (zone from 56.0 to 56.9 degrees)
integer*4 nr__56
parameter (nr__56=286857) ! Number of records
character*164 ar__56 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_56 ! (deg) Right Ascension J2000
real*8 DEdeg_112 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_56 ! Serial number of the star
integer*4 k_56 ! Number of determinations (plates)
real*8 RAhour_56 ! (h) Right Ascension (J2000)
real*4 e_RAhour_56 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_113 ! (deg) Declination (J2000)
real*4 e_DEdeg_56 ! (arcsec) Error in Declination
real*4 Bmag_56 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_56 ! (mag) Error in B
real*8 Epoch_56 ! (yr) Epoch of observations
real*4 FWHM_56 ! (2.17pix) Diameter of star image
real*8 cI_56 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_56 ! (h) Right ascension (J2000)
integer*4 RAm_56 ! (min) Right ascension (J2000)
real*4 RAs_56 ! (s) [0/60] Right ascension (J2000)
character*1 DE__56 ! Declination sign (J2000)
integer*4 DEd_56 ! (deg) Declination (J2000)
integer*4 DEm_56 ! (arcmin) Declination (J2000)
real*4 DEs_56 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_56 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_56 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_56 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_56 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_56 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_56 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_56 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n57.dat' ! Star data file (zone from 57.0 to 57.9 degrees)
integer*4 nr__57
parameter (nr__57=292508) ! Number of records
character*164 ar__57 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_57 ! (deg) Right Ascension J2000
real*8 DEdeg_114 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_57 ! Serial number of the star
integer*4 k_57 ! Number of determinations (plates)
real*8 RAhour_57 ! (h) Right Ascension (J2000)
real*4 e_RAhour_57 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_115 ! (deg) Declination (J2000)
real*4 e_DEdeg_57 ! (arcsec) Error in Declination
real*4 Bmag_57 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_57 ! (mag) Error in B
real*8 Epoch_57 ! (yr) Epoch of observations
real*4 FWHM_57 ! (2.17pix) Diameter of star image
real*8 cI_57 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_57 ! (h) Right ascension (J2000)
integer*4 RAm_57 ! (min) Right ascension (J2000)
real*4 RAs_57 ! (s) [0/60] Right ascension (J2000)
character*1 DE__57 ! Declination sign (J2000)
integer*4 DEd_57 ! (deg) Declination (J2000)
integer*4 DEm_57 ! (arcmin) Declination (J2000)
real*4 DEs_57 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_57 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_57 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_57 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_57 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_57 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_57 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_57 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n58.dat' ! Star data file (zone from 58.0 to 58.9 degrees)
integer*4 nr__58
parameter (nr__58=257054) ! Number of records
character*164 ar__58 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_58 ! (deg) Right Ascension J2000
real*8 DEdeg_116 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_58 ! Serial number of the star
integer*4 k_58 ! Number of determinations (plates)
real*8 RAhour_58 ! (h) Right Ascension (J2000)
real*4 e_RAhour_58 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_117 ! (deg) Declination (J2000)
real*4 e_DEdeg_58 ! (arcsec) Error in Declination
real*4 Bmag_58 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_58 ! (mag) Error in B
real*8 Epoch_58 ! (yr) Epoch of observations
real*4 FWHM_58 ! (2.17pix) Diameter of star image
real*8 cI_58 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_58 ! (h) Right ascension (J2000)
integer*4 RAm_58 ! (min) Right ascension (J2000)
real*4 RAs_58 ! (s) [0/60] Right ascension (J2000)
character*1 DE__58 ! Declination sign (J2000)
integer*4 DEd_58 ! (deg) Declination (J2000)
integer*4 DEm_58 ! (arcmin) Declination (J2000)
real*4 DEs_58 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_58 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_58 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_58 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_58 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_58 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_58 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_58 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n59.dat' ! Star data file (zone from 59.0 to 59.9 degrees)
integer*4 nr__59
parameter (nr__59=234981) ! Number of records
character*164 ar__59 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_59 ! (deg) Right Ascension J2000
real*8 DEdeg_118 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_59 ! Serial number of the star
integer*4 k_59 ! Number of determinations (plates)
real*8 RAhour_59 ! (h) Right Ascension (J2000)
real*4 e_RAhour_59 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_119 ! (deg) Declination (J2000)
real*4 e_DEdeg_59 ! (arcsec) Error in Declination
real*4 Bmag_59 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_59 ! (mag) Error in B
real*8 Epoch_59 ! (yr) Epoch of observations
real*4 FWHM_59 ! (2.17pix) Diameter of star image
real*8 cI_59 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_59 ! (h) Right ascension (J2000)
integer*4 RAm_59 ! (min) Right ascension (J2000)
real*4 RAs_59 ! (s) [0/60] Right ascension (J2000)
character*1 DE__59 ! Declination sign (J2000)
integer*4 DEd_59 ! (deg) Declination (J2000)
integer*4 DEm_59 ! (arcmin) Declination (J2000)
real*4 DEs_59 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_59 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_59 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_59 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_59 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_59 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_59 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_59 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n60.dat' ! Star data file (zone from 60.0 to 60.9 degrees)
integer*4 nr__60
parameter (nr__60=209652) ! Number of records
character*164 ar__60 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_60 ! (deg) Right Ascension J2000
real*8 DEdeg_120 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_60 ! Serial number of the star
integer*4 k_60 ! Number of determinations (plates)
real*8 RAhour_60 ! (h) Right Ascension (J2000)
real*4 e_RAhour_60 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_121 ! (deg) Declination (J2000)
real*4 e_DEdeg_60 ! (arcsec) Error in Declination
real*4 Bmag_60 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_60 ! (mag) Error in B
real*8 Epoch_60 ! (yr) Epoch of observations
real*4 FWHM_60 ! (2.17pix) Diameter of star image
real*8 cI_60 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_60 ! (h) Right ascension (J2000)
integer*4 RAm_60 ! (min) Right ascension (J2000)
real*4 RAs_60 ! (s) [0/60] Right ascension (J2000)
character*1 DE__60 ! Declination sign (J2000)
integer*4 DEd_60 ! (deg) Declination (J2000)
integer*4 DEm_60 ! (arcmin) Declination (J2000)
real*4 DEs_60 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_60 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_60 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_60 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_60 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_60 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_60 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_60 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n61.dat' ! Star data file (zone from 61.0 to 61.9 degrees)
integer*4 nr__61
parameter (nr__61=204434) ! Number of records
character*164 ar__61 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_61 ! (deg) Right Ascension J2000
real*8 DEdeg_122 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_61 ! Serial number of the star
integer*4 k_61 ! Number of determinations (plates)
real*8 RAhour_61 ! (h) Right Ascension (J2000)
real*4 e_RAhour_61 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_123 ! (deg) Declination (J2000)
real*4 e_DEdeg_61 ! (arcsec) Error in Declination
real*4 Bmag_61 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_61 ! (mag) Error in B
real*8 Epoch_61 ! (yr) Epoch of observations
real*4 FWHM_61 ! (2.17pix) Diameter of star image
real*8 cI_61 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_61 ! (h) Right ascension (J2000)
integer*4 RAm_61 ! (min) Right ascension (J2000)
real*4 RAs_61 ! (s) [0/60] Right ascension (J2000)
character*1 DE__61 ! Declination sign (J2000)
integer*4 DEd_61 ! (deg) Declination (J2000)
integer*4 DEm_61 ! (arcmin) Declination (J2000)
real*4 DEs_61 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_61 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_61 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_61 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_61 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_61 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_61 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_61 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n62.dat' ! Star data file (zone from 62.0 to 62.9 degrees)
integer*4 nr__62
parameter (nr__62=196456) ! Number of records
character*164 ar__62 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_62 ! (deg) Right Ascension J2000
real*8 DEdeg_124 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_62 ! Serial number of the star
integer*4 k_62 ! Number of determinations (plates)
real*8 RAhour_62 ! (h) Right Ascension (J2000)
real*4 e_RAhour_62 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_125 ! (deg) Declination (J2000)
real*4 e_DEdeg_62 ! (arcsec) Error in Declination
real*4 Bmag_62 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_62 ! (mag) Error in B
real*8 Epoch_62 ! (yr) Epoch of observations
real*4 FWHM_62 ! (2.17pix) Diameter of star image
real*8 cI_62 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_62 ! (h) Right ascension (J2000)
integer*4 RAm_62 ! (min) Right ascension (J2000)
real*4 RAs_62 ! (s) [0/60] Right ascension (J2000)
character*1 DE__62 ! Declination sign (J2000)
integer*4 DEd_62 ! (deg) Declination (J2000)
integer*4 DEm_62 ! (arcmin) Declination (J2000)
real*4 DEs_62 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_62 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_62 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_62 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_62 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_62 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_62 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_62 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n63.dat' ! Star data file (zone from 63.0 to 63.9 degrees)
integer*4 nr__63
parameter (nr__63=176102) ! Number of records
character*164 ar__63 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_63 ! (deg) Right Ascension J2000
real*8 DEdeg_126 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_63 ! Serial number of the star
integer*4 k_63 ! Number of determinations (plates)
real*8 RAhour_63 ! (h) Right Ascension (J2000)
real*4 e_RAhour_63 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_127 ! (deg) Declination (J2000)
real*4 e_DEdeg_63 ! (arcsec) Error in Declination
real*4 Bmag_63 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_63 ! (mag) Error in B
real*8 Epoch_63 ! (yr) Epoch of observations
real*4 FWHM_63 ! (2.17pix) Diameter of star image
real*8 cI_63 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_63 ! (h) Right ascension (J2000)
integer*4 RAm_63 ! (min) Right ascension (J2000)
real*4 RAs_63 ! (s) [0/60] Right ascension (J2000)
character*1 DE__63 ! Declination sign (J2000)
integer*4 DEd_63 ! (deg) Declination (J2000)
integer*4 DEm_63 ! (arcmin) Declination (J2000)
real*4 DEs_63 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_63 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_63 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_63 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_63 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_63 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_63 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_63 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n64.dat' ! Star data file (zone from 64.0 to 64.9 degrees)
integer*4 nr__64
parameter (nr__64=123376) ! Number of records
character*164 ar__64 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_64 ! (deg) Right Ascension J2000
real*8 DEdeg_128 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_64 ! Serial number of the star
integer*4 k_64 ! Number of determinations (plates)
real*8 RAhour_64 ! (h) Right Ascension (J2000)
real*4 e_RAhour_64 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_129 ! (deg) Declination (J2000)
real*4 e_DEdeg_64 ! (arcsec) Error in Declination
real*4 Bmag_64 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_64 ! (mag) Error in B
real*8 Epoch_64 ! (yr) Epoch of observations
real*4 FWHM_64 ! (2.17pix) Diameter of star image
real*8 cI_64 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_64 ! (h) Right ascension (J2000)
integer*4 RAm_64 ! (min) Right ascension (J2000)
real*4 RAs_64 ! (s) [0/60] Right ascension (J2000)
character*1 DE__64 ! Declination sign (J2000)
integer*4 DEd_64 ! (deg) Declination (J2000)
integer*4 DEm_64 ! (arcmin) Declination (J2000)
real*4 DEs_64 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_64 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_64 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_64 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_64 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_64 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_64 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_64 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n65.dat' ! Star data file (zone from 65.0 to 65.9 degrees)
integer*4 nr__65
parameter (nr__65=115517) ! Number of records
character*164 ar__65 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_65 ! (deg) Right Ascension J2000
real*8 DEdeg_130 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_65 ! Serial number of the star
integer*4 k_65 ! Number of determinations (plates)
real*8 RAhour_65 ! (h) Right Ascension (J2000)
real*4 e_RAhour_65 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_131 ! (deg) Declination (J2000)
real*4 e_DEdeg_65 ! (arcsec) Error in Declination
real*4 Bmag_65 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_65 ! (mag) Error in B
real*8 Epoch_65 ! (yr) Epoch of observations
real*4 FWHM_65 ! (2.17pix) Diameter of star image
real*8 cI_65 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_65 ! (h) Right ascension (J2000)
integer*4 RAm_65 ! (min) Right ascension (J2000)
real*4 RAs_65 ! (s) [0/60] Right ascension (J2000)
character*1 DE__65 ! Declination sign (J2000)
integer*4 DEd_65 ! (deg) Declination (J2000)
integer*4 DEm_65 ! (arcmin) Declination (J2000)
real*4 DEs_65 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_65 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_65 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_65 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_65 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_65 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_65 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_65 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n66.dat' ! Star data file (zone from 66.0 to 66.9 degrees)
integer*4 nr__66
parameter (nr__66=104310) ! Number of records
character*164 ar__66 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_66 ! (deg) Right Ascension J2000
real*8 DEdeg_132 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_66 ! Serial number of the star
integer*4 k_66 ! Number of determinations (plates)
real*8 RAhour_66 ! (h) Right Ascension (J2000)
real*4 e_RAhour_66 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_133 ! (deg) Declination (J2000)
real*4 e_DEdeg_66 ! (arcsec) Error in Declination
real*4 Bmag_66 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_66 ! (mag) Error in B
real*8 Epoch_66 ! (yr) Epoch of observations
real*4 FWHM_66 ! (2.17pix) Diameter of star image
real*8 cI_66 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_66 ! (h) Right ascension (J2000)
integer*4 RAm_66 ! (min) Right ascension (J2000)
real*4 RAs_66 ! (s) [0/60] Right ascension (J2000)
character*1 DE__66 ! Declination sign (J2000)
integer*4 DEd_66 ! (deg) Declination (J2000)
integer*4 DEm_66 ! (arcmin) Declination (J2000)
real*4 DEs_66 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_66 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_66 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_66 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_66 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_66 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_66 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_66 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n67.dat' ! Star data file (zone from 67.0 to 67.9 degrees)
integer*4 nr__67
parameter (nr__67=102538) ! Number of records
character*164 ar__67 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_67 ! (deg) Right Ascension J2000
real*8 DEdeg_134 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_67 ! Serial number of the star
integer*4 k_67 ! Number of determinations (plates)
real*8 RAhour_67 ! (h) Right Ascension (J2000)
real*4 e_RAhour_67 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_135 ! (deg) Declination (J2000)
real*4 e_DEdeg_67 ! (arcsec) Error in Declination
real*4 Bmag_67 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_67 ! (mag) Error in B
real*8 Epoch_67 ! (yr) Epoch of observations
real*4 FWHM_67 ! (2.17pix) Diameter of star image
real*8 cI_67 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_67 ! (h) Right ascension (J2000)
integer*4 RAm_67 ! (min) Right ascension (J2000)
real*4 RAs_67 ! (s) [0/60] Right ascension (J2000)
character*1 DE__67 ! Declination sign (J2000)
integer*4 DEd_67 ! (deg) Declination (J2000)
integer*4 DEm_67 ! (arcmin) Declination (J2000)
real*4 DEs_67 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_67 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_67 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_67 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_67 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_67 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_67 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_67 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n68.dat' ! Star data file (zone from 68.0 to 68.9 degrees)
integer*4 nr__68
parameter (nr__68=109044) ! Number of records
character*164 ar__68 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_68 ! (deg) Right Ascension J2000
real*8 DEdeg_136 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_68 ! Serial number of the star
integer*4 k_68 ! Number of determinations (plates)
real*8 RAhour_68 ! (h) Right Ascension (J2000)
real*4 e_RAhour_68 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_137 ! (deg) Declination (J2000)
real*4 e_DEdeg_68 ! (arcsec) Error in Declination
real*4 Bmag_68 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_68 ! (mag) Error in B
real*8 Epoch_68 ! (yr) Epoch of observations
real*4 FWHM_68 ! (2.17pix) Diameter of star image
real*8 cI_68 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_68 ! (h) Right ascension (J2000)
integer*4 RAm_68 ! (min) Right ascension (J2000)
real*4 RAs_68 ! (s) [0/60] Right ascension (J2000)
character*1 DE__68 ! Declination sign (J2000)
integer*4 DEd_68 ! (deg) Declination (J2000)
integer*4 DEm_68 ! (arcmin) Declination (J2000)
real*4 DEs_68 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_68 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_68 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_68 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_68 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_68 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_68 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_68 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n69.dat' ! Star data file (zone from 69.0 to 69.9 degrees)
integer*4 nr__69
parameter (nr__69=111398) ! Number of records
character*164 ar__69 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_69 ! (deg) Right Ascension J2000
real*8 DEdeg_138 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_69 ! Serial number of the star
integer*4 k_69 ! Number of determinations (plates)
real*8 RAhour_69 ! (h) Right Ascension (J2000)
real*4 e_RAhour_69 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_139 ! (deg) Declination (J2000)
real*4 e_DEdeg_69 ! (arcsec) Error in Declination
real*4 Bmag_69 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_69 ! (mag) Error in B
real*8 Epoch_69 ! (yr) Epoch of observations
real*4 FWHM_69 ! (2.17pix) Diameter of star image
real*8 cI_69 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_69 ! (h) Right ascension (J2000)
integer*4 RAm_69 ! (min) Right ascension (J2000)
real*4 RAs_69 ! (s) [0/60] Right ascension (J2000)
character*1 DE__69 ! Declination sign (J2000)
integer*4 DEd_69 ! (deg) Declination (J2000)
integer*4 DEm_69 ! (arcmin) Declination (J2000)
real*4 DEs_69 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_69 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_69 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_69 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_69 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_69 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_69 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_69 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n70.dat' ! Star data file (zone from 70.0 to 70.9 degrees)
integer*4 nr__70
parameter (nr__70=112297) ! Number of records
character*164 ar__70 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_70 ! (deg) Right Ascension J2000
real*8 DEdeg_140 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_70 ! Serial number of the star
integer*4 k_70 ! Number of determinations (plates)
real*8 RAhour_70 ! (h) Right Ascension (J2000)
real*4 e_RAhour_70 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_141 ! (deg) Declination (J2000)
real*4 e_DEdeg_70 ! (arcsec) Error in Declination
real*4 Bmag_70 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_70 ! (mag) Error in B
real*8 Epoch_70 ! (yr) Epoch of observations
real*4 FWHM_70 ! (2.17pix) Diameter of star image
real*8 cI_70 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_70 ! (h) Right ascension (J2000)
integer*4 RAm_70 ! (min) Right ascension (J2000)
real*4 RAs_70 ! (s) [0/60] Right ascension (J2000)
character*1 DE__70 ! Declination sign (J2000)
integer*4 DEd_70 ! (deg) Declination (J2000)
integer*4 DEm_70 ! (arcmin) Declination (J2000)
real*4 DEs_70 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_70 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_70 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_70 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_70 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_70 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_70 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_70 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n71.dat' ! Star data file (zone from 71.0 to 71.9 degrees)
integer*4 nr__71
parameter (nr__71=105491) ! Number of records
character*164 ar__71 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_71 ! (deg) Right Ascension J2000
real*8 DEdeg_142 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_71 ! Serial number of the star
integer*4 k_71 ! Number of determinations (plates)
real*8 RAhour_71 ! (h) Right Ascension (J2000)
real*4 e_RAhour_71 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_143 ! (deg) Declination (J2000)
real*4 e_DEdeg_71 ! (arcsec) Error in Declination
real*4 Bmag_71 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_71 ! (mag) Error in B
real*8 Epoch_71 ! (yr) Epoch of observations
real*4 FWHM_71 ! (2.17pix) Diameter of star image
real*8 cI_71 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_71 ! (h) Right ascension (J2000)
integer*4 RAm_71 ! (min) Right ascension (J2000)
real*4 RAs_71 ! (s) [0/60] Right ascension (J2000)
character*1 DE__71 ! Declination sign (J2000)
integer*4 DEd_71 ! (deg) Declination (J2000)
integer*4 DEm_71 ! (arcmin) Declination (J2000)
real*4 DEs_71 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_71 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_71 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_71 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_71 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_71 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_71 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_71 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n72.dat' ! Star data file (zone from 72.0 to 72.9 degrees)
integer*4 nr__72
parameter (nr__72=95700) ! Number of records
character*164 ar__72 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_72 ! (deg) Right Ascension J2000
real*8 DEdeg_144 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_72 ! Serial number of the star
integer*4 k_72 ! Number of determinations (plates)
real*8 RAhour_72 ! (h) Right Ascension (J2000)
real*4 e_RAhour_72 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_145 ! (deg) Declination (J2000)
real*4 e_DEdeg_72 ! (arcsec) Error in Declination
real*4 Bmag_72 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_72 ! (mag) Error in B
real*8 Epoch_72 ! (yr) Epoch of observations
real*4 FWHM_72 ! (2.17pix) Diameter of star image
real*8 cI_72 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_72 ! (h) Right ascension (J2000)
integer*4 RAm_72 ! (min) Right ascension (J2000)
real*4 RAs_72 ! (s) [0/60] Right ascension (J2000)
character*1 DE__72 ! Declination sign (J2000)
integer*4 DEd_72 ! (deg) Declination (J2000)
integer*4 DEm_72 ! (arcmin) Declination (J2000)
real*4 DEs_72 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_72 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_72 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_72 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_72 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_72 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_72 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_72 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n73.dat' ! Star data file (zone from 73.0 to 73.9 degrees)
integer*4 nr__73
parameter (nr__73=100130) ! Number of records
character*164 ar__73 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_73 ! (deg) Right Ascension J2000
real*8 DEdeg_146 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_73 ! Serial number of the star
integer*4 k_73 ! Number of determinations (plates)
real*8 RAhour_73 ! (h) Right Ascension (J2000)
real*4 e_RAhour_73 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_147 ! (deg) Declination (J2000)
real*4 e_DEdeg_73 ! (arcsec) Error in Declination
real*4 Bmag_73 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_73 ! (mag) Error in B
real*8 Epoch_73 ! (yr) Epoch of observations
real*4 FWHM_73 ! (2.17pix) Diameter of star image
real*8 cI_73 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_73 ! (h) Right ascension (J2000)
integer*4 RAm_73 ! (min) Right ascension (J2000)
real*4 RAs_73 ! (s) [0/60] Right ascension (J2000)
character*1 DE__73 ! Declination sign (J2000)
integer*4 DEd_73 ! (deg) Declination (J2000)
integer*4 DEm_73 ! (arcmin) Declination (J2000)
real*4 DEs_73 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_73 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_73 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_73 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_73 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_73 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_73 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_73 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n74.dat' ! Star data file (zone from 74.0 to 74.9 degrees)
integer*4 nr__74
parameter (nr__74=94138) ! Number of records
character*164 ar__74 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_74 ! (deg) Right Ascension J2000
real*8 DEdeg_148 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_74 ! Serial number of the star
integer*4 k_74 ! Number of determinations (plates)
real*8 RAhour_74 ! (h) Right Ascension (J2000)
real*4 e_RAhour_74 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_149 ! (deg) Declination (J2000)
real*4 e_DEdeg_74 ! (arcsec) Error in Declination
real*4 Bmag_74 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_74 ! (mag) Error in B
real*8 Epoch_74 ! (yr) Epoch of observations
real*4 FWHM_74 ! (2.17pix) Diameter of star image
real*8 cI_74 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_74 ! (h) Right ascension (J2000)
integer*4 RAm_74 ! (min) Right ascension (J2000)
real*4 RAs_74 ! (s) [0/60] Right ascension (J2000)
character*1 DE__74 ! Declination sign (J2000)
integer*4 DEd_74 ! (deg) Declination (J2000)
integer*4 DEm_74 ! (arcmin) Declination (J2000)
real*4 DEs_74 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_74 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_74 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_74 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_74 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_74 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_74 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_74 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n75.dat' ! Star data file (zone from 75.0 to 75.9 degrees)
integer*4 nr__75
parameter (nr__75=83239) ! Number of records
character*164 ar__75 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_75 ! (deg) Right Ascension J2000
real*8 DEdeg_150 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_75 ! Serial number of the star
integer*4 k_75 ! Number of determinations (plates)
real*8 RAhour_75 ! (h) Right Ascension (J2000)
real*4 e_RAhour_75 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_151 ! (deg) Declination (J2000)
real*4 e_DEdeg_75 ! (arcsec) Error in Declination
real*4 Bmag_75 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_75 ! (mag) Error in B
real*8 Epoch_75 ! (yr) Epoch of observations
real*4 FWHM_75 ! (2.17pix) Diameter of star image
real*8 cI_75 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_75 ! (h) Right ascension (J2000)
integer*4 RAm_75 ! (min) Right ascension (J2000)
real*4 RAs_75 ! (s) [0/60] Right ascension (J2000)
character*1 DE__75 ! Declination sign (J2000)
integer*4 DEd_75 ! (deg) Declination (J2000)
integer*4 DEm_75 ! (arcmin) Declination (J2000)
real*4 DEs_75 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_75 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_75 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_75 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_75 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_75 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_75 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_75 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n76.dat' ! Star data file (zone from 76.0 to 76.9 degrees)
integer*4 nr__76
parameter (nr__76=72388) ! Number of records
character*164 ar__76 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_76 ! (deg) Right Ascension J2000
real*8 DEdeg_152 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_76 ! Serial number of the star
integer*4 k_76 ! Number of determinations (plates)
real*8 RAhour_76 ! (h) Right Ascension (J2000)
real*4 e_RAhour_76 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_153 ! (deg) Declination (J2000)
real*4 e_DEdeg_76 ! (arcsec) Error in Declination
real*4 Bmag_76 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_76 ! (mag) Error in B
real*8 Epoch_76 ! (yr) Epoch of observations
real*4 FWHM_76 ! (2.17pix) Diameter of star image
real*8 cI_76 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_76 ! (h) Right ascension (J2000)
integer*4 RAm_76 ! (min) Right ascension (J2000)
real*4 RAs_76 ! (s) [0/60] Right ascension (J2000)
character*1 DE__76 ! Declination sign (J2000)
integer*4 DEd_76 ! (deg) Declination (J2000)
integer*4 DEm_76 ! (arcmin) Declination (J2000)
real*4 DEs_76 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_76 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_76 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_76 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_76 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_76 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_76 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_76 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n77.dat' ! Star data file (zone from 77.0 to 77.9 degrees)
integer*4 nr__77
parameter (nr__77=75577) ! Number of records
character*164 ar__77 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_77 ! (deg) Right Ascension J2000
real*8 DEdeg_154 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_77 ! Serial number of the star
integer*4 k_77 ! Number of determinations (plates)
real*8 RAhour_77 ! (h) Right Ascension (J2000)
real*4 e_RAhour_77 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_155 ! (deg) Declination (J2000)
real*4 e_DEdeg_77 ! (arcsec) Error in Declination
real*4 Bmag_77 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_77 ! (mag) Error in B
real*8 Epoch_77 ! (yr) Epoch of observations
real*4 FWHM_77 ! (2.17pix) Diameter of star image
real*8 cI_77 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_77 ! (h) Right ascension (J2000)
integer*4 RAm_77 ! (min) Right ascension (J2000)
real*4 RAs_77 ! (s) [0/60] Right ascension (J2000)
character*1 DE__77 ! Declination sign (J2000)
integer*4 DEd_77 ! (deg) Declination (J2000)
integer*4 DEm_77 ! (arcmin) Declination (J2000)
real*4 DEs_77 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_77 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_77 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_77 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_77 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_77 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_77 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_77 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n78.dat' ! Star data file (zone from 78.0 to 78.9 degrees)
integer*4 nr__78
parameter (nr__78=69999) ! Number of records
character*164 ar__78 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_78 ! (deg) Right Ascension J2000
real*8 DEdeg_156 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_78 ! Serial number of the star
integer*4 k_78 ! Number of determinations (plates)
real*8 RAhour_78 ! (h) Right Ascension (J2000)
real*4 e_RAhour_78 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_157 ! (deg) Declination (J2000)
real*4 e_DEdeg_78 ! (arcsec) Error in Declination
real*4 Bmag_78 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_78 ! (mag) Error in B
real*8 Epoch_78 ! (yr) Epoch of observations
real*4 FWHM_78 ! (2.17pix) Diameter of star image
real*8 cI_78 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_78 ! (h) Right ascension (J2000)
integer*4 RAm_78 ! (min) Right ascension (J2000)
real*4 RAs_78 ! (s) [0/60] Right ascension (J2000)
character*1 DE__78 ! Declination sign (J2000)
integer*4 DEd_78 ! (deg) Declination (J2000)
integer*4 DEm_78 ! (arcmin) Declination (J2000)
real*4 DEs_78 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_78 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_78 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_78 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_78 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_78 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_78 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_78 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n79.dat' ! Star data file (zone from 79.0 to 79.9 degrees)
integer*4 nr__79
parameter (nr__79=61035) ! Number of records
character*164 ar__79 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_79 ! (deg) Right Ascension J2000
real*8 DEdeg_158 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_79 ! Serial number of the star
integer*4 k_79 ! Number of determinations (plates)
real*8 RAhour_79 ! (h) Right Ascension (J2000)
real*4 e_RAhour_79 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_159 ! (deg) Declination (J2000)
real*4 e_DEdeg_79 ! (arcsec) Error in Declination
real*4 Bmag_79 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_79 ! (mag) Error in B
real*8 Epoch_79 ! (yr) Epoch of observations
real*4 FWHM_79 ! (2.17pix) Diameter of star image
real*8 cI_79 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_79 ! (h) Right ascension (J2000)
integer*4 RAm_79 ! (min) Right ascension (J2000)
real*4 RAs_79 ! (s) [0/60] Right ascension (J2000)
character*1 DE__79 ! Declination sign (J2000)
integer*4 DEd_79 ! (deg) Declination (J2000)
integer*4 DEm_79 ! (arcmin) Declination (J2000)
real*4 DEs_79 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_79 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_79 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_79 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_79 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_79 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_79 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_79 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n80.dat' ! Star data file (zone from 80.0 to 80.9 degrees)
integer*4 nr__80
parameter (nr__80=45432) ! Number of records
character*164 ar__80 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_80 ! (deg) Right Ascension J2000
real*8 DEdeg_160 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_80 ! Serial number of the star
integer*4 k_80 ! Number of determinations (plates)
real*8 RAhour_80 ! (h) Right Ascension (J2000)
real*4 e_RAhour_80 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_161 ! (deg) Declination (J2000)
real*4 e_DEdeg_80 ! (arcsec) Error in Declination
real*4 Bmag_80 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_80 ! (mag) Error in B
real*8 Epoch_80 ! (yr) Epoch of observations
real*4 FWHM_80 ! (2.17pix) Diameter of star image
real*8 cI_80 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_80 ! (h) Right ascension (J2000)
integer*4 RAm_80 ! (min) Right ascension (J2000)
real*4 RAs_80 ! (s) [0/60] Right ascension (J2000)
character*1 DE__80 ! Declination sign (J2000)
integer*4 DEd_80 ! (deg) Declination (J2000)
integer*4 DEm_80 ! (arcmin) Declination (J2000)
real*4 DEs_80 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_80 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_80 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_80 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_80 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_80 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_80 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_80 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n81.dat' ! Star data file (zone from 81.0 to 81.9 degrees)
integer*4 nr__81
parameter (nr__81=46996) ! Number of records
character*164 ar__81 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_81 ! (deg) Right Ascension J2000
real*8 DEdeg_162 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_81 ! Serial number of the star
integer*4 k_81 ! Number of determinations (plates)
real*8 RAhour_81 ! (h) Right Ascension (J2000)
real*4 e_RAhour_81 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_163 ! (deg) Declination (J2000)
real*4 e_DEdeg_81 ! (arcsec) Error in Declination
real*4 Bmag_81 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_81 ! (mag) Error in B
real*8 Epoch_81 ! (yr) Epoch of observations
real*4 FWHM_81 ! (2.17pix) Diameter of star image
real*8 cI_81 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_81 ! (h) Right ascension (J2000)
integer*4 RAm_81 ! (min) Right ascension (J2000)
real*4 RAs_81 ! (s) [0/60] Right ascension (J2000)
character*1 DE__81 ! Declination sign (J2000)
integer*4 DEd_81 ! (deg) Declination (J2000)
integer*4 DEm_81 ! (arcmin) Declination (J2000)
real*4 DEs_81 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_81 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_81 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_81 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_81 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_81 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_81 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_81 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n82.dat' ! Star data file (zone from 82.0 to 82.9 degrees)
integer*4 nr__82
parameter (nr__82=42334) ! Number of records
character*164 ar__82 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_82 ! (deg) Right Ascension J2000
real*8 DEdeg_164 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_82 ! Serial number of the star
integer*4 k_82 ! Number of determinations (plates)
real*8 RAhour_82 ! (h) Right Ascension (J2000)
real*4 e_RAhour_82 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_165 ! (deg) Declination (J2000)
real*4 e_DEdeg_82 ! (arcsec) Error in Declination
real*4 Bmag_82 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_82 ! (mag) Error in B
real*8 Epoch_82 ! (yr) Epoch of observations
real*4 FWHM_82 ! (2.17pix) Diameter of star image
real*8 cI_82 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_82 ! (h) Right ascension (J2000)
integer*4 RAm_82 ! (min) Right ascension (J2000)
real*4 RAs_82 ! (s) [0/60] Right ascension (J2000)
character*1 DE__82 ! Declination sign (J2000)
integer*4 DEd_82 ! (deg) Declination (J2000)
integer*4 DEm_82 ! (arcmin) Declination (J2000)
real*4 DEs_82 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_82 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_82 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_82 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_82 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_82 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_82 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_82 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n83.dat' ! Star data file (zone from 83.0 to 83.9 degrees)
integer*4 nr__83
parameter (nr__83=35067) ! Number of records
character*164 ar__83 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_83 ! (deg) Right Ascension J2000
real*8 DEdeg_166 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_83 ! Serial number of the star
integer*4 k_83 ! Number of determinations (plates)
real*8 RAhour_83 ! (h) Right Ascension (J2000)
real*4 e_RAhour_83 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_167 ! (deg) Declination (J2000)
real*4 e_DEdeg_83 ! (arcsec) Error in Declination
real*4 Bmag_83 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_83 ! (mag) Error in B
real*8 Epoch_83 ! (yr) Epoch of observations
real*4 FWHM_83 ! (2.17pix) Diameter of star image
real*8 cI_83 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_83 ! (h) Right ascension (J2000)
integer*4 RAm_83 ! (min) Right ascension (J2000)
real*4 RAs_83 ! (s) [0/60] Right ascension (J2000)
character*1 DE__83 ! Declination sign (J2000)
integer*4 DEd_83 ! (deg) Declination (J2000)
integer*4 DEm_83 ! (arcmin) Declination (J2000)
real*4 DEs_83 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_83 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_83 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_83 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_83 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_83 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_83 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_83 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n84.dat' ! Star data file (zone from 84.0 to 84.9 degrees)
integer*4 nr__84
parameter (nr__84=24488) ! Number of records
character*164 ar__84 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_84 ! (deg) Right Ascension J2000
real*8 DEdeg_168 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_84 ! Serial number of the star
integer*4 k_84 ! Number of determinations (plates)
real*8 RAhour_84 ! (h) Right Ascension (J2000)
real*4 e_RAhour_84 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_169 ! (deg) Declination (J2000)
real*4 e_DEdeg_84 ! (arcsec) Error in Declination
real*4 Bmag_84 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_84 ! (mag) Error in B
real*8 Epoch_84 ! (yr) Epoch of observations
real*4 FWHM_84 ! (2.17pix) Diameter of star image
real*8 cI_84 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_84 ! (h) Right ascension (J2000)
integer*4 RAm_84 ! (min) Right ascension (J2000)
real*4 RAs_84 ! (s) [0/60] Right ascension (J2000)
character*1 DE__84 ! Declination sign (J2000)
integer*4 DEd_84 ! (deg) Declination (J2000)
integer*4 DEm_84 ! (arcmin) Declination (J2000)
real*4 DEs_84 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_84 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_84 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_84 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_84 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_84 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_84 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_84 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n85.dat' ! Star data file (zone from 85.0 to 85.9 degrees)
integer*4 nr__85
parameter (nr__85=21424) ! Number of records
character*164 ar__85 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_85 ! (deg) Right Ascension J2000
real*8 DEdeg_170 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_85 ! Serial number of the star
integer*4 k_85 ! Number of determinations (plates)
real*8 RAhour_85 ! (h) Right Ascension (J2000)
real*4 e_RAhour_85 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_171 ! (deg) Declination (J2000)
real*4 e_DEdeg_85 ! (arcsec) Error in Declination
real*4 Bmag_85 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_85 ! (mag) Error in B
real*8 Epoch_85 ! (yr) Epoch of observations
real*4 FWHM_85 ! (2.17pix) Diameter of star image
real*8 cI_85 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_85 ! (h) Right ascension (J2000)
integer*4 RAm_85 ! (min) Right ascension (J2000)
real*4 RAs_85 ! (s) [0/60] Right ascension (J2000)
character*1 DE__85 ! Declination sign (J2000)
integer*4 DEd_85 ! (deg) Declination (J2000)
integer*4 DEm_85 ! (arcmin) Declination (J2000)
real*4 DEs_85 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_85 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_85 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_85 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_85 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_85 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_85 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_85 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n86.dat' ! Star data file (zone from 86.0 to 86.9 degrees)
integer*4 nr__86
parameter (nr__86=12349) ! Number of records
character*164 ar__86 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_86 ! (deg) Right Ascension J2000
real*8 DEdeg_172 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_86 ! Serial number of the star
integer*4 k_86 ! Number of determinations (plates)
real*8 RAhour_86 ! (h) Right Ascension (J2000)
real*4 e_RAhour_86 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_173 ! (deg) Declination (J2000)
real*4 e_DEdeg_86 ! (arcsec) Error in Declination
real*4 Bmag_86 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_86 ! (mag) Error in B
real*8 Epoch_86 ! (yr) Epoch of observations
real*4 FWHM_86 ! (2.17pix) Diameter of star image
real*8 cI_86 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_86 ! (h) Right ascension (J2000)
integer*4 RAm_86 ! (min) Right ascension (J2000)
real*4 RAs_86 ! (s) [0/60] Right ascension (J2000)
character*1 DE__86 ! Declination sign (J2000)
integer*4 DEd_86 ! (deg) Declination (J2000)
integer*4 DEm_86 ! (arcmin) Declination (J2000)
real*4 DEs_86 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_86 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_86 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_86 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_86 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_86 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_86 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_86 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n87.dat' ! Star data file (zone from 87.0 to 87.9 degrees)
integer*4 nr__87
parameter (nr__87=4603) ! Number of records
character*164 ar__87 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_87 ! (deg) Right Ascension J2000
real*8 DEdeg_174 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_87 ! Serial number of the star
integer*4 k_87 ! Number of determinations (plates)
real*8 RAhour_87 ! (h) Right Ascension (J2000)
real*4 e_RAhour_87 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_175 ! (deg) Declination (J2000)
real*4 e_DEdeg_87 ! (arcsec) Error in Declination
real*4 Bmag_87 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_87 ! (mag) Error in B
real*8 Epoch_87 ! (yr) Epoch of observations
real*4 FWHM_87 ! (2.17pix) Diameter of star image
real*8 cI_87 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_87 ! (h) Right ascension (J2000)
integer*4 RAm_87 ! (min) Right ascension (J2000)
real*4 RAs_87 ! (s) [0/60] Right ascension (J2000)
character*1 DE__87 ! Declination sign (J2000)
integer*4 DEd_87 ! (deg) Declination (J2000)
integer*4 DEm_87 ! (arcmin) Declination (J2000)
real*4 DEs_87 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_87 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_87 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_87 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_87 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_87 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_87 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_87 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n88.dat' ! Star data file (zone from 88.0 to 88.9 degrees)
integer*4 nr__88
parameter (nr__88=1919) ! Number of records
character*164 ar__88 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_88 ! (deg) Right Ascension J2000
real*8 DEdeg_176 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_88 ! Serial number of the star
integer*4 k_88 ! Number of determinations (plates)
real*8 RAhour_88 ! (h) Right Ascension (J2000)
real*4 e_RAhour_88 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_177 ! (deg) Declination (J2000)
real*4 e_DEdeg_88 ! (arcsec) Error in Declination
real*4 Bmag_88 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_88 ! (mag) Error in B
real*8 Epoch_88 ! (yr) Epoch of observations
real*4 FWHM_88 ! (2.17pix) Diameter of star image
real*8 cI_88 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_88 ! (h) Right ascension (J2000)
integer*4 RAm_88 ! (min) Right ascension (J2000)
real*4 RAs_88 ! (s) [0/60] Right ascension (J2000)
character*1 DE__88 ! Declination sign (J2000)
integer*4 DEd_88 ! (deg) Declination (J2000)
integer*4 DEm_88 ! (arcmin) Declination (J2000)
real*4 DEs_88 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_88 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_88 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_88 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_88 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_88 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_88 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_88 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3n89.dat' ! Star data file (zone from 89.0 to 89.9 degrees)
integer*4 nr__89
parameter (nr__89=151) ! Number of records
character*164 ar__89 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_89 ! (deg) Right Ascension J2000
real*8 DEdeg_178 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_89 ! Serial number of the star
integer*4 k_89 ! Number of determinations (plates)
real*8 RAhour_89 ! (h) Right Ascension (J2000)
real*4 e_RAhour_89 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_179 ! (deg) Declination (J2000)
real*4 e_DEdeg_89 ! (arcsec) Error in Declination
real*4 Bmag_89 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_89 ! (mag) Error in B
real*8 Epoch_89 ! (yr) Epoch of observations
real*4 FWHM_89 ! (2.17pix) Diameter of star image
real*8 cI_89 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_89 ! (h) Right ascension (J2000)
integer*4 RAm_89 ! (min) Right ascension (J2000)
real*4 RAs_89 ! (s) [0/60] Right ascension (J2000)
character*1 DE__89 ! Declination sign (J2000)
integer*4 DEd_89 ! (deg) Declination (J2000)
integer*4 DEm_89 ! (arcmin) Declination (J2000)
real*4 DEs_89 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_89 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_89 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_89 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_89 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_89 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_89 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_89 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3s00.dat' ! Star data file (zone from -00.9 to 00.0 degrees)
integer*4 nr__90
parameter (nr__90=269299) ! Number of records
character*164 ar__90 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_90 ! (deg) Right Ascension J2000
real*8 DEdeg_180 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_90 ! Serial number of the star
integer*4 k_90 ! Number of determinations (plates)
real*8 RAhour_90 ! (h) Right Ascension (J2000)
real*4 e_RAhour_90 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_181 ! (deg) Declination (J2000)
real*4 e_DEdeg_90 ! (arcsec) Error in Declination
real*4 Bmag_90 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_90 ! (mag) Error in B
real*8 Epoch_90 ! (yr) Epoch of observations
real*4 FWHM_90 ! (2.17pix) Diameter of star image
real*8 cI_90 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_90 ! (h) Right ascension (J2000)
integer*4 RAm_90 ! (min) Right ascension (J2000)
real*4 RAs_90 ! (s) [0/60] Right ascension (J2000)
character*1 DE__90 ! Declination sign (J2000)
integer*4 DEd_90 ! (deg) Declination (J2000)
integer*4 DEm_90 ! (arcmin) Declination (J2000)
real*4 DEs_90 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_90 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_90 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_90 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_90 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_90 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_90 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_90 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3s01.dat' ! Star data file (zone from -01.9 to -01.0 degrees)
integer*4 nr__91
parameter (nr__91=252875) ! Number of records
character*164 ar__91 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_91 ! (deg) Right Ascension J2000
real*8 DEdeg_182 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_91 ! Serial number of the star
integer*4 k_91 ! Number of determinations (plates)
real*8 RAhour_91 ! (h) Right Ascension (J2000)
real*4 e_RAhour_91 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_183 ! (deg) Declination (J2000)
real*4 e_DEdeg_91 ! (arcsec) Error in Declination
real*4 Bmag_91 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_91 ! (mag) Error in B
real*8 Epoch_91 ! (yr) Epoch of observations
real*4 FWHM_91 ! (2.17pix) Diameter of star image
real*8 cI_91 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_91 ! (h) Right ascension (J2000)
integer*4 RAm_91 ! (min) Right ascension (J2000)
real*4 RAs_91 ! (s) [0/60] Right ascension (J2000)
character*1 DE__91 ! Declination sign (J2000)
integer*4 DEd_91 ! (deg) Declination (J2000)
integer*4 DEm_91 ! (arcmin) Declination (J2000)
real*4 DEs_91 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_91 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_91 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_91 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_91 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_91 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_91 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_91 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3s02.dat' ! Star data file (zone from -02.9 to -02.0 degrees)
integer*4 nr__92
parameter (nr__92=212802) ! Number of records
character*164 ar__92 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_92 ! (deg) Right Ascension J2000
real*8 DEdeg_184 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_92 ! Serial number of the star
integer*4 k_92 ! Number of determinations (plates)
real*8 RAhour_92 ! (h) Right Ascension (J2000)
real*4 e_RAhour_92 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_185 ! (deg) Declination (J2000)
real*4 e_DEdeg_92 ! (arcsec) Error in Declination
real*4 Bmag_92 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_92 ! (mag) Error in B
real*8 Epoch_92 ! (yr) Epoch of observations
real*4 FWHM_92 ! (2.17pix) Diameter of star image
real*8 cI_92 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_92 ! (h) Right ascension (J2000)
integer*4 RAm_92 ! (min) Right ascension (J2000)
real*4 RAs_92 ! (s) [0/60] Right ascension (J2000)
character*1 DE__92 ! Declination sign (J2000)
integer*4 DEd_92 ! (deg) Declination (J2000)
integer*4 DEm_92 ! (arcmin) Declination (J2000)
real*4 DEs_92 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_92 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_92 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_92 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_92 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_92 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_92 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_92 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'f3s03.dat' ! Star data file (zone from -03.9 to -03.0 degrees)
integer*4 nr__93
parameter (nr__93=148577) ! Number of records
character*164 ar__93 ! Full-size record
C J2000 position composed of: RAhour DE- DEdeg DEd DEm DEs
real*8 RAdeg_93 ! (deg) Right Ascension J2000
real*8 DEdeg_186 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
integer*4 ID_93 ! Serial number of the star
integer*4 k_93 ! Number of determinations (plates)
real*8 RAhour_93 ! (h) Right Ascension (J2000)
real*4 e_RAhour_93 ! (arcsec) Error in right ascension, RA*cos(DE)
real*8 DEdeg_187 ! (deg) Declination (J2000)
real*4 e_DEdeg_93 ! (arcsec) Error in Declination
real*4 Bmag_93 ! (mag) Johnson Blue magnitude
real*4 e_Bmag_93 ! (mag) Error in B
real*8 Epoch_93 ! (yr) Epoch of observations
real*4 FWHM_93 ! (2.17pix) Diameter of star image
real*8 cI_93 ! Intensity in the center of image
* (in max256 unit)
integer*4 RAh_93 ! (h) Right ascension (J2000)
integer*4 RAm_93 ! (min) Right ascension (J2000)
real*4 RAs_93 ! (s) [0/60] Right ascension (J2000)
character*1 DE__93 ! Declination sign (J2000)
integer*4 DEd_93 ! (deg) Declination (J2000)
integer*4 DEm_93 ! (arcmin) Declination (J2000)
real*4 DEs_93 ! (arcsec) [0/60] Declination (J2000)
real*4 f_mag_93 ! (mag) ?=0 UCAC4 f magnitude (1)
real*8 pmRA_93 ! (mas/yr) ?=0 Proper motion in RA*cos(DE) (1)
real*8 pmDE_93 ! (mas/yr) ?=0 Proper motion in DE (1)
real*4 B4mag_93 ! (mag) ?=0 UCAC4 B magnitude (1)
real*4 Vmag_93 ! (mag) ?=0 UCAC4 V magnitude (1)
real*4 rmag_93 ! (mag) ?=0 UCAC4 r magnitude (1)
real*4 imag_93 ! (mag) ?=0 UCAC4 i magnitude (1)
*Note (1): Proper motions and magnitudes were taken from UCAC4 catalogue.
* Zacharias N., Finch C.T., Girard T.M., et al. 2013AJ....145...44Z,
* Cat. I/322).
C=============================================================================
C Loading file 'f3n00.dat' ! Star data file (zone from 00.0 to 00.9 degrees)
C Format for file interpretation
1 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n00.dat')
write(6,*) '....Loading file: f3n00.dat'
do i__=1,283921
read(1,'(A164)')ar__
read(ar__,1)
+ ID,k,RAhour,e_RAhour,DEdeg_1,e_DEdeg,Bmag,e_Bmag,Epoch,FWHM,
+ cI,RAh,RAm,RAs,DE_,DEd,DEm,DEs,f_mag,pmRA,pmDE,B4mag,Vmag,
+ rmag,imag
RAdeg = rNULL__
DEdeg = rNULL__
c Derive coordinates RAdeg and DEdeg from input data
c (RAdeg and DEdeg are set to rNULL__ when unknown)
if(RAhour .GT. -180) RAdeg=RAhour*15.
if(DEdeg_1 .GE. 0) DEdeg=DEdeg_1
if(DEd .GE. 0) DEdeg=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)
+ ID,k,RAhour,e_RAhour,DEdeg_1,e_DEdeg,Bmag,e_Bmag,Epoch,FWHM,
+ cI,RAh,RAm,RAs,DE_,DEd,DEm,DEs,f_mag,pmRA,pmDE,B4mag,Vmag,
+ rmag,imag
write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n01.dat' ! Star data file (zone from 01.0 to 01.9 degrees)
C Format for file interpretation
2 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n01.dat')
write(6,*) '....Loading file: f3n01.dat'
do i__=1,297509
read(1,'(A164)')ar__1
read(ar__1,2)
+ ID_1,k_1,RAhour_1,e_RAhour_1,DEdeg_3,e_DEdeg_1,Bmag_1,
+ e_Bmag_1,Epoch_1,FWHM_1,cI_1,RAh_1,RAm_1,RAs_1,DE__1,DEd_1,
+ DEm_1,DEs_1,f_mag_1,pmRA_1,pmDE_1,B4mag_1,Vmag_1,rmag_1,imag_1
RAdeg_1 = rNULL__
DEdeg_2 = rNULL__
c Derive coordinates RAdeg_1 and DEdeg_2 from input data
c (RAdeg_1 and DEdeg_2 are set to rNULL__ when unknown)
if(RAhour_1 .GT. -180) RAdeg_1=RAhour_1*15.
if(DEdeg_3 .GE. 0) DEdeg_2=DEdeg_3
if(DEd_1 .GE. 0) DEdeg_2=DEdeg_2+DEd_1
if(DEm_1 .GE. 0) DEdeg_2=DEdeg_2+DEm_1/60.
if(DEs_1 .GE. 0) DEdeg_2=DEdeg_2+DEs_1/3600.
if(DE__1.EQ.'-'.AND.DEdeg_2.GE.0) DEdeg_2=-DEdeg_2
c ..............Just test output...........
write(6,2)
+ ID_1,k_1,RAhour_1,e_RAhour_1,DEdeg_3,e_DEdeg_1,Bmag_1,
+ e_Bmag_1,Epoch_1,FWHM_1,cI_1,RAh_1,RAm_1,RAs_1,DE__1,DEd_1,
+ DEm_1,DEs_1,f_mag_1,pmRA_1,pmDE_1,B4mag_1,Vmag_1,rmag_1,imag_1
write(6,'(6H Pos: 2F8.4)') RAdeg_1,DEdeg_2
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n02.dat' ! Star data file (zone from 02.0 to 02.9 degrees)
C Format for file interpretation
3 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n02.dat')
write(6,*) '....Loading file: f3n02.dat'
do i__=1,311761
read(1,'(A164)')ar__2
read(ar__2,3)
+ ID_2,k_2,RAhour_2,e_RAhour_2,DEdeg_5,e_DEdeg_2,Bmag_2,
+ e_Bmag_2,Epoch_2,FWHM_2,cI_2,RAh_2,RAm_2,RAs_2,DE__2,DEd_2,
+ DEm_2,DEs_2,f_mag_2,pmRA_2,pmDE_2,B4mag_2,Vmag_2,rmag_2,imag_2
RAdeg_2 = rNULL__
DEdeg_4 = rNULL__
c Derive coordinates RAdeg_2 and DEdeg_4 from input data
c (RAdeg_2 and DEdeg_4 are set to rNULL__ when unknown)
if(RAhour_2 .GT. -180) RAdeg_2=RAhour_2*15.
if(DEdeg_5 .GE. 0) DEdeg_4=DEdeg_5
if(DEd_2 .GE. 0) DEdeg_4=DEdeg_4+DEd_2
if(DEm_2 .GE. 0) DEdeg_4=DEdeg_4+DEm_2/60.
if(DEs_2 .GE. 0) DEdeg_4=DEdeg_4+DEs_2/3600.
if(DE__2.EQ.'-'.AND.DEdeg_4.GE.0) DEdeg_4=-DEdeg_4
c ..............Just test output...........
write(6,3)
+ ID_2,k_2,RAhour_2,e_RAhour_2,DEdeg_5,e_DEdeg_2,Bmag_2,
+ e_Bmag_2,Epoch_2,FWHM_2,cI_2,RAh_2,RAm_2,RAs_2,DE__2,DEd_2,
+ DEm_2,DEs_2,f_mag_2,pmRA_2,pmDE_2,B4mag_2,Vmag_2,rmag_2,imag_2
write(6,'(6H Pos: 2F8.4)') RAdeg_2,DEdeg_4
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n03.dat' ! Star data file (zone from 03.0 to 03.9 degrees)
C Format for file interpretation
4 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n03.dat')
write(6,*) '....Loading file: f3n03.dat'
do i__=1,318268
read(1,'(A164)')ar__3
read(ar__3,4)
+ ID_3,k_3,RAhour_3,e_RAhour_3,DEdeg_7,e_DEdeg_3,Bmag_3,
+ e_Bmag_3,Epoch_3,FWHM_3,cI_3,RAh_3,RAm_3,RAs_3,DE__3,DEd_3,
+ DEm_3,DEs_3,f_mag_3,pmRA_3,pmDE_3,B4mag_3,Vmag_3,rmag_3,imag_3
RAdeg_3 = rNULL__
DEdeg_6 = rNULL__
c Derive coordinates RAdeg_3 and DEdeg_6 from input data
c (RAdeg_3 and DEdeg_6 are set to rNULL__ when unknown)
if(RAhour_3 .GT. -180) RAdeg_3=RAhour_3*15.
if(DEdeg_7 .GE. 0) DEdeg_6=DEdeg_7
if(DEd_3 .GE. 0) DEdeg_6=DEdeg_6+DEd_3
if(DEm_3 .GE. 0) DEdeg_6=DEdeg_6+DEm_3/60.
if(DEs_3 .GE. 0) DEdeg_6=DEdeg_6+DEs_3/3600.
if(DE__3.EQ.'-'.AND.DEdeg_6.GE.0) DEdeg_6=-DEdeg_6
c ..............Just test output...........
write(6,4)
+ ID_3,k_3,RAhour_3,e_RAhour_3,DEdeg_7,e_DEdeg_3,Bmag_3,
+ e_Bmag_3,Epoch_3,FWHM_3,cI_3,RAh_3,RAm_3,RAs_3,DE__3,DEd_3,
+ DEm_3,DEs_3,f_mag_3,pmRA_3,pmDE_3,B4mag_3,Vmag_3,rmag_3,imag_3
write(6,'(6H Pos: 2F8.4)') RAdeg_3,DEdeg_6
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n04.dat' ! Star data file (zone from 04.0 to 04.9 degrees)
C Format for file interpretation
5 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n04.dat')
write(6,*) '....Loading file: f3n04.dat'
do i__=1,319602
read(1,'(A164)')ar__4
read(ar__4,5)
+ ID_4,k_4,RAhour_4,e_RAhour_4,DEdeg_9,e_DEdeg_4,Bmag_4,
+ e_Bmag_4,Epoch_4,FWHM_4,cI_4,RAh_4,RAm_4,RAs_4,DE__4,DEd_4,
+ DEm_4,DEs_4,f_mag_4,pmRA_4,pmDE_4,B4mag_4,Vmag_4,rmag_4,imag_4
RAdeg_4 = rNULL__
DEdeg_8 = rNULL__
c Derive coordinates RAdeg_4 and DEdeg_8 from input data
c (RAdeg_4 and DEdeg_8 are set to rNULL__ when unknown)
if(RAhour_4 .GT. -180) RAdeg_4=RAhour_4*15.
if(DEdeg_9 .GE. 0) DEdeg_8=DEdeg_9
if(DEd_4 .GE. 0) DEdeg_8=DEdeg_8+DEd_4
if(DEm_4 .GE. 0) DEdeg_8=DEdeg_8+DEm_4/60.
if(DEs_4 .GE. 0) DEdeg_8=DEdeg_8+DEs_4/3600.
if(DE__4.EQ.'-'.AND.DEdeg_8.GE.0) DEdeg_8=-DEdeg_8
c ..............Just test output...........
write(6,5)
+ ID_4,k_4,RAhour_4,e_RAhour_4,DEdeg_9,e_DEdeg_4,Bmag_4,
+ e_Bmag_4,Epoch_4,FWHM_4,cI_4,RAh_4,RAm_4,RAs_4,DE__4,DEd_4,
+ DEm_4,DEs_4,f_mag_4,pmRA_4,pmDE_4,B4mag_4,Vmag_4,rmag_4,imag_4
write(6,'(6H Pos: 2F8.4)') RAdeg_4,DEdeg_8
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n05.dat' ! Star data file (zone from 05.0 to 05.9 degrees)
C Format for file interpretation
6 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n05.dat')
write(6,*) '....Loading file: f3n05.dat'
do i__=1,333805
read(1,'(A164)')ar__5
read(ar__5,6)
+ ID_5,k_5,RAhour_5,e_RAhour_5,DEdeg_11,e_DEdeg_5,Bmag_5,
+ e_Bmag_5,Epoch_5,FWHM_5,cI_5,RAh_5,RAm_5,RAs_5,DE__5,DEd_5,
+ DEm_5,DEs_5,f_mag_5,pmRA_5,pmDE_5,B4mag_5,Vmag_5,rmag_5,imag_5
RAdeg_5 = rNULL__
DEdeg_10 = rNULL__
c Derive coordinates RAdeg_5 and DEdeg_10 from input data
c (RAdeg_5 and DEdeg_10 are set to rNULL__ when unknown)
if(RAhour_5 .GT. -180) RAdeg_5=RAhour_5*15.
if(DEdeg_11 .GE. 0) DEdeg_10=DEdeg_11
if(DEd_5 .GE. 0) DEdeg_10=DEdeg_10+DEd_5
if(DEm_5 .GE. 0) DEdeg_10=DEdeg_10+DEm_5/60.
if(DEs_5 .GE. 0) DEdeg_10=DEdeg_10+DEs_5/3600.
if(DE__5.EQ.'-'.AND.DEdeg_10.GE.0) DEdeg_10=-DEdeg_10
c ..............Just test output...........
write(6,6)
+ ID_5,k_5,RAhour_5,e_RAhour_5,DEdeg_11,e_DEdeg_5,Bmag_5,
+ e_Bmag_5,Epoch_5,FWHM_5,cI_5,RAh_5,RAm_5,RAs_5,DE__5,DEd_5,
+ DEm_5,DEs_5,f_mag_5,pmRA_5,pmDE_5,B4mag_5,Vmag_5,rmag_5,imag_5
write(6,'(6H Pos: 2F8.4)') RAdeg_5,DEdeg_10
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n06.dat' ! Star data file (zone from 06.0 to 06.9 degrees)
C Format for file interpretation
7 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n06.dat')
write(6,*) '....Loading file: f3n06.dat'
do i__=1,348489
read(1,'(A164)')ar__6
read(ar__6,7)
+ ID_6,k_6,RAhour_6,e_RAhour_6,DEdeg_13,e_DEdeg_6,Bmag_6,
+ e_Bmag_6,Epoch_6,FWHM_6,cI_6,RAh_6,RAm_6,RAs_6,DE__6,DEd_6,
+ DEm_6,DEs_6,f_mag_6,pmRA_6,pmDE_6,B4mag_6,Vmag_6,rmag_6,imag_6
RAdeg_6 = rNULL__
DEdeg_12 = rNULL__
c Derive coordinates RAdeg_6 and DEdeg_12 from input data
c (RAdeg_6 and DEdeg_12 are set to rNULL__ when unknown)
if(RAhour_6 .GT. -180) RAdeg_6=RAhour_6*15.
if(DEdeg_13 .GE. 0) DEdeg_12=DEdeg_13
if(DEd_6 .GE. 0) DEdeg_12=DEdeg_12+DEd_6
if(DEm_6 .GE. 0) DEdeg_12=DEdeg_12+DEm_6/60.
if(DEs_6 .GE. 0) DEdeg_12=DEdeg_12+DEs_6/3600.
if(DE__6.EQ.'-'.AND.DEdeg_12.GE.0) DEdeg_12=-DEdeg_12
c ..............Just test output...........
write(6,7)
+ ID_6,k_6,RAhour_6,e_RAhour_6,DEdeg_13,e_DEdeg_6,Bmag_6,
+ e_Bmag_6,Epoch_6,FWHM_6,cI_6,RAh_6,RAm_6,RAs_6,DE__6,DEd_6,
+ DEm_6,DEs_6,f_mag_6,pmRA_6,pmDE_6,B4mag_6,Vmag_6,rmag_6,imag_6
write(6,'(6H Pos: 2F8.4)') RAdeg_6,DEdeg_12
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n07.dat' ! Star data file (zone from 07.0 to 07.9 degrees)
C Format for file interpretation
8 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n07.dat')
write(6,*) '....Loading file: f3n07.dat'
do i__=1,356731
read(1,'(A164)')ar__7
read(ar__7,8)
+ ID_7,k_7,RAhour_7,e_RAhour_7,DEdeg_15,e_DEdeg_7,Bmag_7,
+ e_Bmag_7,Epoch_7,FWHM_7,cI_7,RAh_7,RAm_7,RAs_7,DE__7,DEd_7,
+ DEm_7,DEs_7,f_mag_7,pmRA_7,pmDE_7,B4mag_7,Vmag_7,rmag_7,imag_7
RAdeg_7 = rNULL__
DEdeg_14 = rNULL__
c Derive coordinates RAdeg_7 and DEdeg_14 from input data
c (RAdeg_7 and DEdeg_14 are set to rNULL__ when unknown)
if(RAhour_7 .GT. -180) RAdeg_7=RAhour_7*15.
if(DEdeg_15 .GE. 0) DEdeg_14=DEdeg_15
if(DEd_7 .GE. 0) DEdeg_14=DEdeg_14+DEd_7
if(DEm_7 .GE. 0) DEdeg_14=DEdeg_14+DEm_7/60.
if(DEs_7 .GE. 0) DEdeg_14=DEdeg_14+DEs_7/3600.
if(DE__7.EQ.'-'.AND.DEdeg_14.GE.0) DEdeg_14=-DEdeg_14
c ..............Just test output...........
write(6,8)
+ ID_7,k_7,RAhour_7,e_RAhour_7,DEdeg_15,e_DEdeg_7,Bmag_7,
+ e_Bmag_7,Epoch_7,FWHM_7,cI_7,RAh_7,RAm_7,RAs_7,DE__7,DEd_7,
+ DEm_7,DEs_7,f_mag_7,pmRA_7,pmDE_7,B4mag_7,Vmag_7,rmag_7,imag_7
write(6,'(6H Pos: 2F8.4)') RAdeg_7,DEdeg_14
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n08.dat' ! Star data file (zone from 08.0 to 08.9 degrees)
C Format for file interpretation
9 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n08.dat')
write(6,*) '....Loading file: f3n08.dat'
do i__=1,356556
read(1,'(A164)')ar__8
read(ar__8,9)
+ ID_8,k_8,RAhour_8,e_RAhour_8,DEdeg_17,e_DEdeg_8,Bmag_8,
+ e_Bmag_8,Epoch_8,FWHM_8,cI_8,RAh_8,RAm_8,RAs_8,DE__8,DEd_8,
+ DEm_8,DEs_8,f_mag_8,pmRA_8,pmDE_8,B4mag_8,Vmag_8,rmag_8,imag_8
RAdeg_8 = rNULL__
DEdeg_16 = rNULL__
c Derive coordinates RAdeg_8 and DEdeg_16 from input data
c (RAdeg_8 and DEdeg_16 are set to rNULL__ when unknown)
if(RAhour_8 .GT. -180) RAdeg_8=RAhour_8*15.
if(DEdeg_17 .GE. 0) DEdeg_16=DEdeg_17
if(DEd_8 .GE. 0) DEdeg_16=DEdeg_16+DEd_8
if(DEm_8 .GE. 0) DEdeg_16=DEdeg_16+DEm_8/60.
if(DEs_8 .GE. 0) DEdeg_16=DEdeg_16+DEs_8/3600.
if(DE__8.EQ.'-'.AND.DEdeg_16.GE.0) DEdeg_16=-DEdeg_16
c ..............Just test output...........
write(6,9)
+ ID_8,k_8,RAhour_8,e_RAhour_8,DEdeg_17,e_DEdeg_8,Bmag_8,
+ e_Bmag_8,Epoch_8,FWHM_8,cI_8,RAh_8,RAm_8,RAs_8,DE__8,DEd_8,
+ DEm_8,DEs_8,f_mag_8,pmRA_8,pmDE_8,B4mag_8,Vmag_8,rmag_8,imag_8
write(6,'(6H Pos: 2F8.4)') RAdeg_8,DEdeg_16
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n09.dat' ! Star data file (zone from 09.0 to 09.9 degrees)
C Format for file interpretation
10 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n09.dat')
write(6,*) '....Loading file: f3n09.dat'
do i__=1,364476
read(1,'(A164)')ar__9
read(ar__9,10)
+ ID_9,k_9,RAhour_9,e_RAhour_9,DEdeg_19,e_DEdeg_9,Bmag_9,
+ e_Bmag_9,Epoch_9,FWHM_9,cI_9,RAh_9,RAm_9,RAs_9,DE__9,DEd_9,
+ DEm_9,DEs_9,f_mag_9,pmRA_9,pmDE_9,B4mag_9,Vmag_9,rmag_9,imag_9
RAdeg_9 = rNULL__
DEdeg_18 = rNULL__
c Derive coordinates RAdeg_9 and DEdeg_18 from input data
c (RAdeg_9 and DEdeg_18 are set to rNULL__ when unknown)
if(RAhour_9 .GT. -180) RAdeg_9=RAhour_9*15.
if(DEdeg_19 .GE. 0) DEdeg_18=DEdeg_19
if(DEd_9 .GE. 0) DEdeg_18=DEdeg_18+DEd_9
if(DEm_9 .GE. 0) DEdeg_18=DEdeg_18+DEm_9/60.
if(DEs_9 .GE. 0) DEdeg_18=DEdeg_18+DEs_9/3600.
if(DE__9.EQ.'-'.AND.DEdeg_18.GE.0) DEdeg_18=-DEdeg_18
c ..............Just test output...........
write(6,10)
+ ID_9,k_9,RAhour_9,e_RAhour_9,DEdeg_19,e_DEdeg_9,Bmag_9,
+ e_Bmag_9,Epoch_9,FWHM_9,cI_9,RAh_9,RAm_9,RAs_9,DE__9,DEd_9,
+ DEm_9,DEs_9,f_mag_9,pmRA_9,pmDE_9,B4mag_9,Vmag_9,rmag_9,imag_9
write(6,'(6H Pos: 2F8.4)') RAdeg_9,DEdeg_18
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n10.dat' ! Star data file (zone from 10.0 to 10.9 degrees)
C Format for file interpretation
11 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n10.dat')
write(6,*) '....Loading file: f3n10.dat'
do i__=1,361441
read(1,'(A164)')ar__10
read(ar__10,11)
+ ID_10,k_10,RAhour_10,e_RAhour_10,DEdeg_21,e_DEdeg_10,Bmag_10,
+ e_Bmag_10,Epoch_10,FWHM_10,cI_10,RAh_10,RAm_10,RAs_10,DE__10,
+ DEd_10,DEm_10,DEs_10,f_mag_10,pmRA_10,pmDE_10,B4mag_10,
+ Vmag_10,rmag_10,imag_10
RAdeg_10 = rNULL__
DEdeg_20 = rNULL__
c Derive coordinates RAdeg_10 and DEdeg_20 from input data
c (RAdeg_10 and DEdeg_20 are set to rNULL__ when unknown)
if(RAhour_10 .GT. -180) RAdeg_10=RAhour_10*15.
if(DEdeg_21 .GE. 0) DEdeg_20=DEdeg_21
if(DEd_10 .GE. 0) DEdeg_20=DEdeg_20+DEd_10
if(DEm_10 .GE. 0) DEdeg_20=DEdeg_20+DEm_10/60.
if(DEs_10 .GE. 0) DEdeg_20=DEdeg_20+DEs_10/3600.
if(DE__10.EQ.'-'.AND.DEdeg_20.GE.0) DEdeg_20=-DEdeg_20
c ..............Just test output...........
write(6,11)
+ ID_10,k_10,RAhour_10,e_RAhour_10,DEdeg_21,e_DEdeg_10,Bmag_10,
+ e_Bmag_10,Epoch_10,FWHM_10,cI_10,RAh_10,RAm_10,RAs_10,DE__10,
+ DEd_10,DEm_10,DEs_10,f_mag_10,pmRA_10,pmDE_10,B4mag_10,
+ Vmag_10,rmag_10,imag_10
write(6,'(6H Pos: 2F8.4)') RAdeg_10,DEdeg_20
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n11.dat' ! Star data file (zone from 11.0 to 11.9 degrees)
C Format for file interpretation
12 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n11.dat')
write(6,*) '....Loading file: f3n11.dat'
do i__=1,372358
read(1,'(A164)')ar__11
read(ar__11,12)
+ ID_11,k_11,RAhour_11,e_RAhour_11,DEdeg_23,e_DEdeg_11,Bmag_11,
+ e_Bmag_11,Epoch_11,FWHM_11,cI_11,RAh_11,RAm_11,RAs_11,DE__11,
+ DEd_11,DEm_11,DEs_11,f_mag_11,pmRA_11,pmDE_11,B4mag_11,
+ Vmag_11,rmag_11,imag_11
RAdeg_11 = rNULL__
DEdeg_22 = rNULL__
c Derive coordinates RAdeg_11 and DEdeg_22 from input data
c (RAdeg_11 and DEdeg_22 are set to rNULL__ when unknown)
if(RAhour_11 .GT. -180) RAdeg_11=RAhour_11*15.
if(DEdeg_23 .GE. 0) DEdeg_22=DEdeg_23
if(DEd_11 .GE. 0) DEdeg_22=DEdeg_22+DEd_11
if(DEm_11 .GE. 0) DEdeg_22=DEdeg_22+DEm_11/60.
if(DEs_11 .GE. 0) DEdeg_22=DEdeg_22+DEs_11/3600.
if(DE__11.EQ.'-'.AND.DEdeg_22.GE.0) DEdeg_22=-DEdeg_22
c ..............Just test output...........
write(6,12)
+ ID_11,k_11,RAhour_11,e_RAhour_11,DEdeg_23,e_DEdeg_11,Bmag_11,
+ e_Bmag_11,Epoch_11,FWHM_11,cI_11,RAh_11,RAm_11,RAs_11,DE__11,
+ DEd_11,DEm_11,DEs_11,f_mag_11,pmRA_11,pmDE_11,B4mag_11,
+ Vmag_11,rmag_11,imag_11
write(6,'(6H Pos: 2F8.4)') RAdeg_11,DEdeg_22
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n12.dat' ! Star data file (zone from 12.0 to 12.9 degrees)
C Format for file interpretation
13 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n12.dat')
write(6,*) '....Loading file: f3n12.dat'
do i__=1,355259
read(1,'(A164)')ar__12
read(ar__12,13)
+ ID_12,k_12,RAhour_12,e_RAhour_12,DEdeg_25,e_DEdeg_12,Bmag_12,
+ e_Bmag_12,Epoch_12,FWHM_12,cI_12,RAh_12,RAm_12,RAs_12,DE__12,
+ DEd_12,DEm_12,DEs_12,f_mag_12,pmRA_12,pmDE_12,B4mag_12,
+ Vmag_12,rmag_12,imag_12
RAdeg_12 = rNULL__
DEdeg_24 = rNULL__
c Derive coordinates RAdeg_12 and DEdeg_24 from input data
c (RAdeg_12 and DEdeg_24 are set to rNULL__ when unknown)
if(RAhour_12 .GT. -180) RAdeg_12=RAhour_12*15.
if(DEdeg_25 .GE. 0) DEdeg_24=DEdeg_25
if(DEd_12 .GE. 0) DEdeg_24=DEdeg_24+DEd_12
if(DEm_12 .GE. 0) DEdeg_24=DEdeg_24+DEm_12/60.
if(DEs_12 .GE. 0) DEdeg_24=DEdeg_24+DEs_12/3600.
if(DE__12.EQ.'-'.AND.DEdeg_24.GE.0) DEdeg_24=-DEdeg_24
c ..............Just test output...........
write(6,13)
+ ID_12,k_12,RAhour_12,e_RAhour_12,DEdeg_25,e_DEdeg_12,Bmag_12,
+ e_Bmag_12,Epoch_12,FWHM_12,cI_12,RAh_12,RAm_12,RAs_12,DE__12,
+ DEd_12,DEm_12,DEs_12,f_mag_12,pmRA_12,pmDE_12,B4mag_12,
+ Vmag_12,rmag_12,imag_12
write(6,'(6H Pos: 2F8.4)') RAdeg_12,DEdeg_24
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n13.dat' ! Star data file (zone from 13.0 to 13.9 degrees)
C Format for file interpretation
14 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n13.dat')
write(6,*) '....Loading file: f3n13.dat'
do i__=1,358325
read(1,'(A164)')ar__13
read(ar__13,14)
+ ID_13,k_13,RAhour_13,e_RAhour_13,DEdeg_27,e_DEdeg_13,Bmag_13,
+ e_Bmag_13,Epoch_13,FWHM_13,cI_13,RAh_13,RAm_13,RAs_13,DE__13,
+ DEd_13,DEm_13,DEs_13,f_mag_13,pmRA_13,pmDE_13,B4mag_13,
+ Vmag_13,rmag_13,imag_13
RAdeg_13 = rNULL__
DEdeg_26 = rNULL__
c Derive coordinates RAdeg_13 and DEdeg_26 from input data
c (RAdeg_13 and DEdeg_26 are set to rNULL__ when unknown)
if(RAhour_13 .GT. -180) RAdeg_13=RAhour_13*15.
if(DEdeg_27 .GE. 0) DEdeg_26=DEdeg_27
if(DEd_13 .GE. 0) DEdeg_26=DEdeg_26+DEd_13
if(DEm_13 .GE. 0) DEdeg_26=DEdeg_26+DEm_13/60.
if(DEs_13 .GE. 0) DEdeg_26=DEdeg_26+DEs_13/3600.
if(DE__13.EQ.'-'.AND.DEdeg_26.GE.0) DEdeg_26=-DEdeg_26
c ..............Just test output...........
write(6,14)
+ ID_13,k_13,RAhour_13,e_RAhour_13,DEdeg_27,e_DEdeg_13,Bmag_13,
+ e_Bmag_13,Epoch_13,FWHM_13,cI_13,RAh_13,RAm_13,RAs_13,DE__13,
+ DEd_13,DEm_13,DEs_13,f_mag_13,pmRA_13,pmDE_13,B4mag_13,
+ Vmag_13,rmag_13,imag_13
write(6,'(6H Pos: 2F8.4)') RAdeg_13,DEdeg_26
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n14.dat' ! Star data file (zone from 14.0 to 14.9 degrees)
C Format for file interpretation
15 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n14.dat')
write(6,*) '....Loading file: f3n14.dat'
do i__=1,359743
read(1,'(A164)')ar__14
read(ar__14,15)
+ ID_14,k_14,RAhour_14,e_RAhour_14,DEdeg_29,e_DEdeg_14,Bmag_14,
+ e_Bmag_14,Epoch_14,FWHM_14,cI_14,RAh_14,RAm_14,RAs_14,DE__14,
+ DEd_14,DEm_14,DEs_14,f_mag_14,pmRA_14,pmDE_14,B4mag_14,
+ Vmag_14,rmag_14,imag_14
RAdeg_14 = rNULL__
DEdeg_28 = rNULL__
c Derive coordinates RAdeg_14 and DEdeg_28 from input data
c (RAdeg_14 and DEdeg_28 are set to rNULL__ when unknown)
if(RAhour_14 .GT. -180) RAdeg_14=RAhour_14*15.
if(DEdeg_29 .GE. 0) DEdeg_28=DEdeg_29
if(DEd_14 .GE. 0) DEdeg_28=DEdeg_28+DEd_14
if(DEm_14 .GE. 0) DEdeg_28=DEdeg_28+DEm_14/60.
if(DEs_14 .GE. 0) DEdeg_28=DEdeg_28+DEs_14/3600.
if(DE__14.EQ.'-'.AND.DEdeg_28.GE.0) DEdeg_28=-DEdeg_28
c ..............Just test output...........
write(6,15)
+ ID_14,k_14,RAhour_14,e_RAhour_14,DEdeg_29,e_DEdeg_14,Bmag_14,
+ e_Bmag_14,Epoch_14,FWHM_14,cI_14,RAh_14,RAm_14,RAs_14,DE__14,
+ DEd_14,DEm_14,DEs_14,f_mag_14,pmRA_14,pmDE_14,B4mag_14,
+ Vmag_14,rmag_14,imag_14
write(6,'(6H Pos: 2F8.4)') RAdeg_14,DEdeg_28
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n15.dat' ! Star data file (zone from 15.0 to 15.9 degrees)
C Format for file interpretation
16 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n15.dat')
write(6,*) '....Loading file: f3n15.dat'
do i__=1,347273
read(1,'(A164)')ar__15
read(ar__15,16)
+ ID_15,k_15,RAhour_15,e_RAhour_15,DEdeg_31,e_DEdeg_15,Bmag_15,
+ e_Bmag_15,Epoch_15,FWHM_15,cI_15,RAh_15,RAm_15,RAs_15,DE__15,
+ DEd_15,DEm_15,DEs_15,f_mag_15,pmRA_15,pmDE_15,B4mag_15,
+ Vmag_15,rmag_15,imag_15
RAdeg_15 = rNULL__
DEdeg_30 = rNULL__
c Derive coordinates RAdeg_15 and DEdeg_30 from input data
c (RAdeg_15 and DEdeg_30 are set to rNULL__ when unknown)
if(RAhour_15 .GT. -180) RAdeg_15=RAhour_15*15.
if(DEdeg_31 .GE. 0) DEdeg_30=DEdeg_31
if(DEd_15 .GE. 0) DEdeg_30=DEdeg_30+DEd_15
if(DEm_15 .GE. 0) DEdeg_30=DEdeg_30+DEm_15/60.
if(DEs_15 .GE. 0) DEdeg_30=DEdeg_30+DEs_15/3600.
if(DE__15.EQ.'-'.AND.DEdeg_30.GE.0) DEdeg_30=-DEdeg_30
c ..............Just test output...........
write(6,16)
+ ID_15,k_15,RAhour_15,e_RAhour_15,DEdeg_31,e_DEdeg_15,Bmag_15,
+ e_Bmag_15,Epoch_15,FWHM_15,cI_15,RAh_15,RAm_15,RAs_15,DE__15,
+ DEd_15,DEm_15,DEs_15,f_mag_15,pmRA_15,pmDE_15,B4mag_15,
+ Vmag_15,rmag_15,imag_15
write(6,'(6H Pos: 2F8.4)') RAdeg_15,DEdeg_30
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n16.dat' ! Star data file (zone from 16.0 to 16.9 degrees)
C Format for file interpretation
17 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n16.dat')
write(6,*) '....Loading file: f3n16.dat'
do i__=1,330713
read(1,'(A164)')ar__16
read(ar__16,17)
+ ID_16,k_16,RAhour_16,e_RAhour_16,DEdeg_33,e_DEdeg_16,Bmag_16,
+ e_Bmag_16,Epoch_16,FWHM_16,cI_16,RAh_16,RAm_16,RAs_16,DE__16,
+ DEd_16,DEm_16,DEs_16,f_mag_16,pmRA_16,pmDE_16,B4mag_16,
+ Vmag_16,rmag_16,imag_16
RAdeg_16 = rNULL__
DEdeg_32 = rNULL__
c Derive coordinates RAdeg_16 and DEdeg_32 from input data
c (RAdeg_16 and DEdeg_32 are set to rNULL__ when unknown)
if(RAhour_16 .GT. -180) RAdeg_16=RAhour_16*15.
if(DEdeg_33 .GE. 0) DEdeg_32=DEdeg_33
if(DEd_16 .GE. 0) DEdeg_32=DEdeg_32+DEd_16
if(DEm_16 .GE. 0) DEdeg_32=DEdeg_32+DEm_16/60.
if(DEs_16 .GE. 0) DEdeg_32=DEdeg_32+DEs_16/3600.
if(DE__16.EQ.'-'.AND.DEdeg_32.GE.0) DEdeg_32=-DEdeg_32
c ..............Just test output...........
write(6,17)
+ ID_16,k_16,RAhour_16,e_RAhour_16,DEdeg_33,e_DEdeg_16,Bmag_16,
+ e_Bmag_16,Epoch_16,FWHM_16,cI_16,RAh_16,RAm_16,RAs_16,DE__16,
+ DEd_16,DEm_16,DEs_16,f_mag_16,pmRA_16,pmDE_16,B4mag_16,
+ Vmag_16,rmag_16,imag_16
write(6,'(6H Pos: 2F8.4)') RAdeg_16,DEdeg_32
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n17.dat' ! Star data file (zone from 17.0 to 17.9 degrees)
C Format for file interpretation
18 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n17.dat')
write(6,*) '....Loading file: f3n17.dat'
do i__=1,345780
read(1,'(A164)')ar__17
read(ar__17,18)
+ ID_17,k_17,RAhour_17,e_RAhour_17,DEdeg_35,e_DEdeg_17,Bmag_17,
+ e_Bmag_17,Epoch_17,FWHM_17,cI_17,RAh_17,RAm_17,RAs_17,DE__17,
+ DEd_17,DEm_17,DEs_17,f_mag_17,pmRA_17,pmDE_17,B4mag_17,
+ Vmag_17,rmag_17,imag_17
RAdeg_17 = rNULL__
DEdeg_34 = rNULL__
c Derive coordinates RAdeg_17 and DEdeg_34 from input data
c (RAdeg_17 and DEdeg_34 are set to rNULL__ when unknown)
if(RAhour_17 .GT. -180) RAdeg_17=RAhour_17*15.
if(DEdeg_35 .GE. 0) DEdeg_34=DEdeg_35
if(DEd_17 .GE. 0) DEdeg_34=DEdeg_34+DEd_17
if(DEm_17 .GE. 0) DEdeg_34=DEdeg_34+DEm_17/60.
if(DEs_17 .GE. 0) DEdeg_34=DEdeg_34+DEs_17/3600.
if(DE__17.EQ.'-'.AND.DEdeg_34.GE.0) DEdeg_34=-DEdeg_34
c ..............Just test output...........
write(6,18)
+ ID_17,k_17,RAhour_17,e_RAhour_17,DEdeg_35,e_DEdeg_17,Bmag_17,
+ e_Bmag_17,Epoch_17,FWHM_17,cI_17,RAh_17,RAm_17,RAs_17,DE__17,
+ DEd_17,DEm_17,DEs_17,f_mag_17,pmRA_17,pmDE_17,B4mag_17,
+ Vmag_17,rmag_17,imag_17
write(6,'(6H Pos: 2F8.4)') RAdeg_17,DEdeg_34
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n18.dat' ! Star data file (zone from 18.0 to 18.9 degrees)
C Format for file interpretation
19 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n18.dat')
write(6,*) '....Loading file: f3n18.dat'
do i__=1,390006
read(1,'(A164)')ar__18
read(ar__18,19)
+ ID_18,k_18,RAhour_18,e_RAhour_18,DEdeg_37,e_DEdeg_18,Bmag_18,
+ e_Bmag_18,Epoch_18,FWHM_18,cI_18,RAh_18,RAm_18,RAs_18,DE__18,
+ DEd_18,DEm_18,DEs_18,f_mag_18,pmRA_18,pmDE_18,B4mag_18,
+ Vmag_18,rmag_18,imag_18
RAdeg_18 = rNULL__
DEdeg_36 = rNULL__
c Derive coordinates RAdeg_18 and DEdeg_36 from input data
c (RAdeg_18 and DEdeg_36 are set to rNULL__ when unknown)
if(RAhour_18 .GT. -180) RAdeg_18=RAhour_18*15.
if(DEdeg_37 .GE. 0) DEdeg_36=DEdeg_37
if(DEd_18 .GE. 0) DEdeg_36=DEdeg_36+DEd_18
if(DEm_18 .GE. 0) DEdeg_36=DEdeg_36+DEm_18/60.
if(DEs_18 .GE. 0) DEdeg_36=DEdeg_36+DEs_18/3600.
if(DE__18.EQ.'-'.AND.DEdeg_36.GE.0) DEdeg_36=-DEdeg_36
c ..............Just test output...........
write(6,19)
+ ID_18,k_18,RAhour_18,e_RAhour_18,DEdeg_37,e_DEdeg_18,Bmag_18,
+ e_Bmag_18,Epoch_18,FWHM_18,cI_18,RAh_18,RAm_18,RAs_18,DE__18,
+ DEd_18,DEm_18,DEs_18,f_mag_18,pmRA_18,pmDE_18,B4mag_18,
+ Vmag_18,rmag_18,imag_18
write(6,'(6H Pos: 2F8.4)') RAdeg_18,DEdeg_36
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n19.dat' ! Star data file (zone from 19.0 to 19.9 degrees)
C Format for file interpretation
20 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n19.dat')
write(6,*) '....Loading file: f3n19.dat'
do i__=1,391717
read(1,'(A164)')ar__19
read(ar__19,20)
+ ID_19,k_19,RAhour_19,e_RAhour_19,DEdeg_39,e_DEdeg_19,Bmag_19,
+ e_Bmag_19,Epoch_19,FWHM_19,cI_19,RAh_19,RAm_19,RAs_19,DE__19,
+ DEd_19,DEm_19,DEs_19,f_mag_19,pmRA_19,pmDE_19,B4mag_19,
+ Vmag_19,rmag_19,imag_19
RAdeg_19 = rNULL__
DEdeg_38 = rNULL__
c Derive coordinates RAdeg_19 and DEdeg_38 from input data
c (RAdeg_19 and DEdeg_38 are set to rNULL__ when unknown)
if(RAhour_19 .GT. -180) RAdeg_19=RAhour_19*15.
if(DEdeg_39 .GE. 0) DEdeg_38=DEdeg_39
if(DEd_19 .GE. 0) DEdeg_38=DEdeg_38+DEd_19
if(DEm_19 .GE. 0) DEdeg_38=DEdeg_38+DEm_19/60.
if(DEs_19 .GE. 0) DEdeg_38=DEdeg_38+DEs_19/3600.
if(DE__19.EQ.'-'.AND.DEdeg_38.GE.0) DEdeg_38=-DEdeg_38
c ..............Just test output...........
write(6,20)
+ ID_19,k_19,RAhour_19,e_RAhour_19,DEdeg_39,e_DEdeg_19,Bmag_19,
+ e_Bmag_19,Epoch_19,FWHM_19,cI_19,RAh_19,RAm_19,RAs_19,DE__19,
+ DEd_19,DEm_19,DEs_19,f_mag_19,pmRA_19,pmDE_19,B4mag_19,
+ Vmag_19,rmag_19,imag_19
write(6,'(6H Pos: 2F8.4)') RAdeg_19,DEdeg_38
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n20.dat' ! Star data file (zone from 20.0 to 20.9 degrees)
C Format for file interpretation
21 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n20.dat')
write(6,*) '....Loading file: f3n20.dat'
do i__=1,391361
read(1,'(A164)')ar__20
read(ar__20,21)
+ ID_20,k_20,RAhour_20,e_RAhour_20,DEdeg_41,e_DEdeg_20,Bmag_20,
+ e_Bmag_20,Epoch_20,FWHM_20,cI_20,RAh_20,RAm_20,RAs_20,DE__20,
+ DEd_20,DEm_20,DEs_20,f_mag_20,pmRA_20,pmDE_20,B4mag_20,
+ Vmag_20,rmag_20,imag_20
RAdeg_20 = rNULL__
DEdeg_40 = rNULL__
c Derive coordinates RAdeg_20 and DEdeg_40 from input data
c (RAdeg_20 and DEdeg_40 are set to rNULL__ when unknown)
if(RAhour_20 .GT. -180) RAdeg_20=RAhour_20*15.
if(DEdeg_41 .GE. 0) DEdeg_40=DEdeg_41
if(DEd_20 .GE. 0) DEdeg_40=DEdeg_40+DEd_20
if(DEm_20 .GE. 0) DEdeg_40=DEdeg_40+DEm_20/60.
if(DEs_20 .GE. 0) DEdeg_40=DEdeg_40+DEs_20/3600.
if(DE__20.EQ.'-'.AND.DEdeg_40.GE.0) DEdeg_40=-DEdeg_40
c ..............Just test output...........
write(6,21)
+ ID_20,k_20,RAhour_20,e_RAhour_20,DEdeg_41,e_DEdeg_20,Bmag_20,
+ e_Bmag_20,Epoch_20,FWHM_20,cI_20,RAh_20,RAm_20,RAs_20,DE__20,
+ DEd_20,DEm_20,DEs_20,f_mag_20,pmRA_20,pmDE_20,B4mag_20,
+ Vmag_20,rmag_20,imag_20
write(6,'(6H Pos: 2F8.4)') RAdeg_20,DEdeg_40
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n21.dat' ! Star data file (zone from 21.0 to 21.9 degrees)
C Format for file interpretation
22 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n21.dat')
write(6,*) '....Loading file: f3n21.dat'
do i__=1,401577
read(1,'(A164)')ar__21
read(ar__21,22)
+ ID_21,k_21,RAhour_21,e_RAhour_21,DEdeg_43,e_DEdeg_21,Bmag_21,
+ e_Bmag_21,Epoch_21,FWHM_21,cI_21,RAh_21,RAm_21,RAs_21,DE__21,
+ DEd_21,DEm_21,DEs_21,f_mag_21,pmRA_21,pmDE_21,B4mag_21,
+ Vmag_21,rmag_21,imag_21
RAdeg_21 = rNULL__
DEdeg_42 = rNULL__
c Derive coordinates RAdeg_21 and DEdeg_42 from input data
c (RAdeg_21 and DEdeg_42 are set to rNULL__ when unknown)
if(RAhour_21 .GT. -180) RAdeg_21=RAhour_21*15.
if(DEdeg_43 .GE. 0) DEdeg_42=DEdeg_43
if(DEd_21 .GE. 0) DEdeg_42=DEdeg_42+DEd_21
if(DEm_21 .GE. 0) DEdeg_42=DEdeg_42+DEm_21/60.
if(DEs_21 .GE. 0) DEdeg_42=DEdeg_42+DEs_21/3600.
if(DE__21.EQ.'-'.AND.DEdeg_42.GE.0) DEdeg_42=-DEdeg_42
c ..............Just test output...........
write(6,22)
+ ID_21,k_21,RAhour_21,e_RAhour_21,DEdeg_43,e_DEdeg_21,Bmag_21,
+ e_Bmag_21,Epoch_21,FWHM_21,cI_21,RAh_21,RAm_21,RAs_21,DE__21,
+ DEd_21,DEm_21,DEs_21,f_mag_21,pmRA_21,pmDE_21,B4mag_21,
+ Vmag_21,rmag_21,imag_21
write(6,'(6H Pos: 2F8.4)') RAdeg_21,DEdeg_42
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n22.dat' ! Star data file (zone from 22.0 to 22.9 degrees)
C Format for file interpretation
23 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n22.dat')
write(6,*) '....Loading file: f3n22.dat'
do i__=1,405449
read(1,'(A164)')ar__22
read(ar__22,23)
+ ID_22,k_22,RAhour_22,e_RAhour_22,DEdeg_45,e_DEdeg_22,Bmag_22,
+ e_Bmag_22,Epoch_22,FWHM_22,cI_22,RAh_22,RAm_22,RAs_22,DE__22,
+ DEd_22,DEm_22,DEs_22,f_mag_22,pmRA_22,pmDE_22,B4mag_22,
+ Vmag_22,rmag_22,imag_22
RAdeg_22 = rNULL__
DEdeg_44 = rNULL__
c Derive coordinates RAdeg_22 and DEdeg_44 from input data
c (RAdeg_22 and DEdeg_44 are set to rNULL__ when unknown)
if(RAhour_22 .GT. -180) RAdeg_22=RAhour_22*15.
if(DEdeg_45 .GE. 0) DEdeg_44=DEdeg_45
if(DEd_22 .GE. 0) DEdeg_44=DEdeg_44+DEd_22
if(DEm_22 .GE. 0) DEdeg_44=DEdeg_44+DEm_22/60.
if(DEs_22 .GE. 0) DEdeg_44=DEdeg_44+DEs_22/3600.
if(DE__22.EQ.'-'.AND.DEdeg_44.GE.0) DEdeg_44=-DEdeg_44
c ..............Just test output...........
write(6,23)
+ ID_22,k_22,RAhour_22,e_RAhour_22,DEdeg_45,e_DEdeg_22,Bmag_22,
+ e_Bmag_22,Epoch_22,FWHM_22,cI_22,RAh_22,RAm_22,RAs_22,DE__22,
+ DEd_22,DEm_22,DEs_22,f_mag_22,pmRA_22,pmDE_22,B4mag_22,
+ Vmag_22,rmag_22,imag_22
write(6,'(6H Pos: 2F8.4)') RAdeg_22,DEdeg_44
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n23.dat' ! Star data file (zone from 23.0 to 23.9 degrees)
C Format for file interpretation
24 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n23.dat')
write(6,*) '....Loading file: f3n23.dat'
do i__=1,392915
read(1,'(A164)')ar__23
read(ar__23,24)
+ ID_23,k_23,RAhour_23,e_RAhour_23,DEdeg_47,e_DEdeg_23,Bmag_23,
+ e_Bmag_23,Epoch_23,FWHM_23,cI_23,RAh_23,RAm_23,RAs_23,DE__23,
+ DEd_23,DEm_23,DEs_23,f_mag_23,pmRA_23,pmDE_23,B4mag_23,
+ Vmag_23,rmag_23,imag_23
RAdeg_23 = rNULL__
DEdeg_46 = rNULL__
c Derive coordinates RAdeg_23 and DEdeg_46 from input data
c (RAdeg_23 and DEdeg_46 are set to rNULL__ when unknown)
if(RAhour_23 .GT. -180) RAdeg_23=RAhour_23*15.
if(DEdeg_47 .GE. 0) DEdeg_46=DEdeg_47
if(DEd_23 .GE. 0) DEdeg_46=DEdeg_46+DEd_23
if(DEm_23 .GE. 0) DEdeg_46=DEdeg_46+DEm_23/60.
if(DEs_23 .GE. 0) DEdeg_46=DEdeg_46+DEs_23/3600.
if(DE__23.EQ.'-'.AND.DEdeg_46.GE.0) DEdeg_46=-DEdeg_46
c ..............Just test output...........
write(6,24)
+ ID_23,k_23,RAhour_23,e_RAhour_23,DEdeg_47,e_DEdeg_23,Bmag_23,
+ e_Bmag_23,Epoch_23,FWHM_23,cI_23,RAh_23,RAm_23,RAs_23,DE__23,
+ DEd_23,DEm_23,DEs_23,f_mag_23,pmRA_23,pmDE_23,B4mag_23,
+ Vmag_23,rmag_23,imag_23
write(6,'(6H Pos: 2F8.4)') RAdeg_23,DEdeg_46
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n24.dat' ! Star data file (zone from 24.0 to 24.9 degrees)
C Format for file interpretation
25 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n24.dat')
write(6,*) '....Loading file: f3n24.dat'
do i__=1,402237
read(1,'(A164)')ar__24
read(ar__24,25)
+ ID_24,k_24,RAhour_24,e_RAhour_24,DEdeg_49,e_DEdeg_24,Bmag_24,
+ e_Bmag_24,Epoch_24,FWHM_24,cI_24,RAh_24,RAm_24,RAs_24,DE__24,
+ DEd_24,DEm_24,DEs_24,f_mag_24,pmRA_24,pmDE_24,B4mag_24,
+ Vmag_24,rmag_24,imag_24
RAdeg_24 = rNULL__
DEdeg_48 = rNULL__
c Derive coordinates RAdeg_24 and DEdeg_48 from input data
c (RAdeg_24 and DEdeg_48 are set to rNULL__ when unknown)
if(RAhour_24 .GT. -180) RAdeg_24=RAhour_24*15.
if(DEdeg_49 .GE. 0) DEdeg_48=DEdeg_49
if(DEd_24 .GE. 0) DEdeg_48=DEdeg_48+DEd_24
if(DEm_24 .GE. 0) DEdeg_48=DEdeg_48+DEm_24/60.
if(DEs_24 .GE. 0) DEdeg_48=DEdeg_48+DEs_24/3600.
if(DE__24.EQ.'-'.AND.DEdeg_48.GE.0) DEdeg_48=-DEdeg_48
c ..............Just test output...........
write(6,25)
+ ID_24,k_24,RAhour_24,e_RAhour_24,DEdeg_49,e_DEdeg_24,Bmag_24,
+ e_Bmag_24,Epoch_24,FWHM_24,cI_24,RAh_24,RAm_24,RAs_24,DE__24,
+ DEd_24,DEm_24,DEs_24,f_mag_24,pmRA_24,pmDE_24,B4mag_24,
+ Vmag_24,rmag_24,imag_24
write(6,'(6H Pos: 2F8.4)') RAdeg_24,DEdeg_48
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n25.dat' ! Star data file (zone from 25.0 to 25.9 degrees)
C Format for file interpretation
26 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n25.dat')
write(6,*) '....Loading file: f3n25.dat'
do i__=1,420326
read(1,'(A164)')ar__25
read(ar__25,26)
+ ID_25,k_25,RAhour_25,e_RAhour_25,DEdeg_51,e_DEdeg_25,Bmag_25,
+ e_Bmag_25,Epoch_25,FWHM_25,cI_25,RAh_25,RAm_25,RAs_25,DE__25,
+ DEd_25,DEm_25,DEs_25,f_mag_25,pmRA_25,pmDE_25,B4mag_25,
+ Vmag_25,rmag_25,imag_25
RAdeg_25 = rNULL__
DEdeg_50 = rNULL__
c Derive coordinates RAdeg_25 and DEdeg_50 from input data
c (RAdeg_25 and DEdeg_50 are set to rNULL__ when unknown)
if(RAhour_25 .GT. -180) RAdeg_25=RAhour_25*15.
if(DEdeg_51 .GE. 0) DEdeg_50=DEdeg_51
if(DEd_25 .GE. 0) DEdeg_50=DEdeg_50+DEd_25
if(DEm_25 .GE. 0) DEdeg_50=DEdeg_50+DEm_25/60.
if(DEs_25 .GE. 0) DEdeg_50=DEdeg_50+DEs_25/3600.
if(DE__25.EQ.'-'.AND.DEdeg_50.GE.0) DEdeg_50=-DEdeg_50
c ..............Just test output...........
write(6,26)
+ ID_25,k_25,RAhour_25,e_RAhour_25,DEdeg_51,e_DEdeg_25,Bmag_25,
+ e_Bmag_25,Epoch_25,FWHM_25,cI_25,RAh_25,RAm_25,RAs_25,DE__25,
+ DEd_25,DEm_25,DEs_25,f_mag_25,pmRA_25,pmDE_25,B4mag_25,
+ Vmag_25,rmag_25,imag_25
write(6,'(6H Pos: 2F8.4)') RAdeg_25,DEdeg_50
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n26.dat' ! Star data file (zone from 26.0 to 26.9 degrees)
C Format for file interpretation
27 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n26.dat')
write(6,*) '....Loading file: f3n26.dat'
do i__=1,403670
read(1,'(A164)')ar__26
read(ar__26,27)
+ ID_26,k_26,RAhour_26,e_RAhour_26,DEdeg_53,e_DEdeg_26,Bmag_26,
+ e_Bmag_26,Epoch_26,FWHM_26,cI_26,RAh_26,RAm_26,RAs_26,DE__26,
+ DEd_26,DEm_26,DEs_26,f_mag_26,pmRA_26,pmDE_26,B4mag_26,
+ Vmag_26,rmag_26,imag_26
RAdeg_26 = rNULL__
DEdeg_52 = rNULL__
c Derive coordinates RAdeg_26 and DEdeg_52 from input data
c (RAdeg_26 and DEdeg_52 are set to rNULL__ when unknown)
if(RAhour_26 .GT. -180) RAdeg_26=RAhour_26*15.
if(DEdeg_53 .GE. 0) DEdeg_52=DEdeg_53
if(DEd_26 .GE. 0) DEdeg_52=DEdeg_52+DEd_26
if(DEm_26 .GE. 0) DEdeg_52=DEdeg_52+DEm_26/60.
if(DEs_26 .GE. 0) DEdeg_52=DEdeg_52+DEs_26/3600.
if(DE__26.EQ.'-'.AND.DEdeg_52.GE.0) DEdeg_52=-DEdeg_52
c ..............Just test output...........
write(6,27)
+ ID_26,k_26,RAhour_26,e_RAhour_26,DEdeg_53,e_DEdeg_26,Bmag_26,
+ e_Bmag_26,Epoch_26,FWHM_26,cI_26,RAh_26,RAm_26,RAs_26,DE__26,
+ DEd_26,DEm_26,DEs_26,f_mag_26,pmRA_26,pmDE_26,B4mag_26,
+ Vmag_26,rmag_26,imag_26
write(6,'(6H Pos: 2F8.4)') RAdeg_26,DEdeg_52
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n27.dat' ! Star data file (zone from 27.0 to 27.9 degrees)
C Format for file interpretation
28 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n27.dat')
write(6,*) '....Loading file: f3n27.dat'
do i__=1,401501
read(1,'(A164)')ar__27
read(ar__27,28)
+ ID_27,k_27,RAhour_27,e_RAhour_27,DEdeg_55,e_DEdeg_27,Bmag_27,
+ e_Bmag_27,Epoch_27,FWHM_27,cI_27,RAh_27,RAm_27,RAs_27,DE__27,
+ DEd_27,DEm_27,DEs_27,f_mag_27,pmRA_27,pmDE_27,B4mag_27,
+ Vmag_27,rmag_27,imag_27
RAdeg_27 = rNULL__
DEdeg_54 = rNULL__
c Derive coordinates RAdeg_27 and DEdeg_54 from input data
c (RAdeg_27 and DEdeg_54 are set to rNULL__ when unknown)
if(RAhour_27 .GT. -180) RAdeg_27=RAhour_27*15.
if(DEdeg_55 .GE. 0) DEdeg_54=DEdeg_55
if(DEd_27 .GE. 0) DEdeg_54=DEdeg_54+DEd_27
if(DEm_27 .GE. 0) DEdeg_54=DEdeg_54+DEm_27/60.
if(DEs_27 .GE. 0) DEdeg_54=DEdeg_54+DEs_27/3600.
if(DE__27.EQ.'-'.AND.DEdeg_54.GE.0) DEdeg_54=-DEdeg_54
c ..............Just test output...........
write(6,28)
+ ID_27,k_27,RAhour_27,e_RAhour_27,DEdeg_55,e_DEdeg_27,Bmag_27,
+ e_Bmag_27,Epoch_27,FWHM_27,cI_27,RAh_27,RAm_27,RAs_27,DE__27,
+ DEd_27,DEm_27,DEs_27,f_mag_27,pmRA_27,pmDE_27,B4mag_27,
+ Vmag_27,rmag_27,imag_27
write(6,'(6H Pos: 2F8.4)') RAdeg_27,DEdeg_54
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n28.dat' ! Star data file (zone from 28.0 to 28.9 degrees)
C Format for file interpretation
29 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n28.dat')
write(6,*) '....Loading file: f3n28.dat'
do i__=1,402430
read(1,'(A164)')ar__28
read(ar__28,29)
+ ID_28,k_28,RAhour_28,e_RAhour_28,DEdeg_57,e_DEdeg_28,Bmag_28,
+ e_Bmag_28,Epoch_28,FWHM_28,cI_28,RAh_28,RAm_28,RAs_28,DE__28,
+ DEd_28,DEm_28,DEs_28,f_mag_28,pmRA_28,pmDE_28,B4mag_28,
+ Vmag_28,rmag_28,imag_28
RAdeg_28 = rNULL__
DEdeg_56 = rNULL__
c Derive coordinates RAdeg_28 and DEdeg_56 from input data
c (RAdeg_28 and DEdeg_56 are set to rNULL__ when unknown)
if(RAhour_28 .GT. -180) RAdeg_28=RAhour_28*15.
if(DEdeg_57 .GE. 0) DEdeg_56=DEdeg_57
if(DEd_28 .GE. 0) DEdeg_56=DEdeg_56+DEd_28
if(DEm_28 .GE. 0) DEdeg_56=DEdeg_56+DEm_28/60.
if(DEs_28 .GE. 0) DEdeg_56=DEdeg_56+DEs_28/3600.
if(DE__28.EQ.'-'.AND.DEdeg_56.GE.0) DEdeg_56=-DEdeg_56
c ..............Just test output...........
write(6,29)
+ ID_28,k_28,RAhour_28,e_RAhour_28,DEdeg_57,e_DEdeg_28,Bmag_28,
+ e_Bmag_28,Epoch_28,FWHM_28,cI_28,RAh_28,RAm_28,RAs_28,DE__28,
+ DEd_28,DEm_28,DEs_28,f_mag_28,pmRA_28,pmDE_28,B4mag_28,
+ Vmag_28,rmag_28,imag_28
write(6,'(6H Pos: 2F8.4)') RAdeg_28,DEdeg_56
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n29.dat' ! Star data file (zone from 29.0 to 29.9 degrees)
C Format for file interpretation
30 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n29.dat')
write(6,*) '....Loading file: f3n29.dat'
do i__=1,398872
read(1,'(A164)')ar__29
read(ar__29,30)
+ ID_29,k_29,RAhour_29,e_RAhour_29,DEdeg_59,e_DEdeg_29,Bmag_29,
+ e_Bmag_29,Epoch_29,FWHM_29,cI_29,RAh_29,RAm_29,RAs_29,DE__29,
+ DEd_29,DEm_29,DEs_29,f_mag_29,pmRA_29,pmDE_29,B4mag_29,
+ Vmag_29,rmag_29,imag_29
RAdeg_29 = rNULL__
DEdeg_58 = rNULL__
c Derive coordinates RAdeg_29 and DEdeg_58 from input data
c (RAdeg_29 and DEdeg_58 are set to rNULL__ when unknown)
if(RAhour_29 .GT. -180) RAdeg_29=RAhour_29*15.
if(DEdeg_59 .GE. 0) DEdeg_58=DEdeg_59
if(DEd_29 .GE. 0) DEdeg_58=DEdeg_58+DEd_29
if(DEm_29 .GE. 0) DEdeg_58=DEdeg_58+DEm_29/60.
if(DEs_29 .GE. 0) DEdeg_58=DEdeg_58+DEs_29/3600.
if(DE__29.EQ.'-'.AND.DEdeg_58.GE.0) DEdeg_58=-DEdeg_58
c ..............Just test output...........
write(6,30)
+ ID_29,k_29,RAhour_29,e_RAhour_29,DEdeg_59,e_DEdeg_29,Bmag_29,
+ e_Bmag_29,Epoch_29,FWHM_29,cI_29,RAh_29,RAm_29,RAs_29,DE__29,
+ DEd_29,DEm_29,DEs_29,f_mag_29,pmRA_29,pmDE_29,B4mag_29,
+ Vmag_29,rmag_29,imag_29
write(6,'(6H Pos: 2F8.4)') RAdeg_29,DEdeg_58
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n30.dat' ! Star data file (zone from 30.0 to 30.9 degrees)
C Format for file interpretation
31 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n30.dat')
write(6,*) '....Loading file: f3n30.dat'
do i__=1,367163
read(1,'(A164)')ar__30
read(ar__30,31)
+ ID_30,k_30,RAhour_30,e_RAhour_30,DEdeg_61,e_DEdeg_30,Bmag_30,
+ e_Bmag_30,Epoch_30,FWHM_30,cI_30,RAh_30,RAm_30,RAs_30,DE__30,
+ DEd_30,DEm_30,DEs_30,f_mag_30,pmRA_30,pmDE_30,B4mag_30,
+ Vmag_30,rmag_30,imag_30
RAdeg_30 = rNULL__
DEdeg_60 = rNULL__
c Derive coordinates RAdeg_30 and DEdeg_60 from input data
c (RAdeg_30 and DEdeg_60 are set to rNULL__ when unknown)
if(RAhour_30 .GT. -180) RAdeg_30=RAhour_30*15.
if(DEdeg_61 .GE. 0) DEdeg_60=DEdeg_61
if(DEd_30 .GE. 0) DEdeg_60=DEdeg_60+DEd_30
if(DEm_30 .GE. 0) DEdeg_60=DEdeg_60+DEm_30/60.
if(DEs_30 .GE. 0) DEdeg_60=DEdeg_60+DEs_30/3600.
if(DE__30.EQ.'-'.AND.DEdeg_60.GE.0) DEdeg_60=-DEdeg_60
c ..............Just test output...........
write(6,31)
+ ID_30,k_30,RAhour_30,e_RAhour_30,DEdeg_61,e_DEdeg_30,Bmag_30,
+ e_Bmag_30,Epoch_30,FWHM_30,cI_30,RAh_30,RAm_30,RAs_30,DE__30,
+ DEd_30,DEm_30,DEs_30,f_mag_30,pmRA_30,pmDE_30,B4mag_30,
+ Vmag_30,rmag_30,imag_30
write(6,'(6H Pos: 2F8.4)') RAdeg_30,DEdeg_60
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n31.dat' ! Star data file (zone from 31.0 to 31.9 degrees)
C Format for file interpretation
32 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n31.dat')
write(6,*) '....Loading file: f3n31.dat'
do i__=1,345936
read(1,'(A164)')ar__31
read(ar__31,32)
+ ID_31,k_31,RAhour_31,e_RAhour_31,DEdeg_63,e_DEdeg_31,Bmag_31,
+ e_Bmag_31,Epoch_31,FWHM_31,cI_31,RAh_31,RAm_31,RAs_31,DE__31,
+ DEd_31,DEm_31,DEs_31,f_mag_31,pmRA_31,pmDE_31,B4mag_31,
+ Vmag_31,rmag_31,imag_31
RAdeg_31 = rNULL__
DEdeg_62 = rNULL__
c Derive coordinates RAdeg_31 and DEdeg_62 from input data
c (RAdeg_31 and DEdeg_62 are set to rNULL__ when unknown)
if(RAhour_31 .GT. -180) RAdeg_31=RAhour_31*15.
if(DEdeg_63 .GE. 0) DEdeg_62=DEdeg_63
if(DEd_31 .GE. 0) DEdeg_62=DEdeg_62+DEd_31
if(DEm_31 .GE. 0) DEdeg_62=DEdeg_62+DEm_31/60.
if(DEs_31 .GE. 0) DEdeg_62=DEdeg_62+DEs_31/3600.
if(DE__31.EQ.'-'.AND.DEdeg_62.GE.0) DEdeg_62=-DEdeg_62
c ..............Just test output...........
write(6,32)
+ ID_31,k_31,RAhour_31,e_RAhour_31,DEdeg_63,e_DEdeg_31,Bmag_31,
+ e_Bmag_31,Epoch_31,FWHM_31,cI_31,RAh_31,RAm_31,RAs_31,DE__31,
+ DEd_31,DEm_31,DEs_31,f_mag_31,pmRA_31,pmDE_31,B4mag_31,
+ Vmag_31,rmag_31,imag_31
write(6,'(6H Pos: 2F8.4)') RAdeg_31,DEdeg_62
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n32.dat' ! Star data file (zone from 32.0 to 32.9 degrees)
C Format for file interpretation
33 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n32.dat')
write(6,*) '....Loading file: f3n32.dat'
do i__=1,326173
read(1,'(A164)')ar__32
read(ar__32,33)
+ ID_32,k_32,RAhour_32,e_RAhour_32,DEdeg_65,e_DEdeg_32,Bmag_32,
+ e_Bmag_32,Epoch_32,FWHM_32,cI_32,RAh_32,RAm_32,RAs_32,DE__32,
+ DEd_32,DEm_32,DEs_32,f_mag_32,pmRA_32,pmDE_32,B4mag_32,
+ Vmag_32,rmag_32,imag_32
RAdeg_32 = rNULL__
DEdeg_64 = rNULL__
c Derive coordinates RAdeg_32 and DEdeg_64 from input data
c (RAdeg_32 and DEdeg_64 are set to rNULL__ when unknown)
if(RAhour_32 .GT. -180) RAdeg_32=RAhour_32*15.
if(DEdeg_65 .GE. 0) DEdeg_64=DEdeg_65
if(DEd_32 .GE. 0) DEdeg_64=DEdeg_64+DEd_32
if(DEm_32 .GE. 0) DEdeg_64=DEdeg_64+DEm_32/60.
if(DEs_32 .GE. 0) DEdeg_64=DEdeg_64+DEs_32/3600.
if(DE__32.EQ.'-'.AND.DEdeg_64.GE.0) DEdeg_64=-DEdeg_64
c ..............Just test output...........
write(6,33)
+ ID_32,k_32,RAhour_32,e_RAhour_32,DEdeg_65,e_DEdeg_32,Bmag_32,
+ e_Bmag_32,Epoch_32,FWHM_32,cI_32,RAh_32,RAm_32,RAs_32,DE__32,
+ DEd_32,DEm_32,DEs_32,f_mag_32,pmRA_32,pmDE_32,B4mag_32,
+ Vmag_32,rmag_32,imag_32
write(6,'(6H Pos: 2F8.4)') RAdeg_32,DEdeg_64
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n33.dat' ! Star data file (zone from 33.0 to 33.9 degrees)
C Format for file interpretation
34 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n33.dat')
write(6,*) '....Loading file: f3n33.dat'
do i__=1,353087
read(1,'(A164)')ar__33
read(ar__33,34)
+ ID_33,k_33,RAhour_33,e_RAhour_33,DEdeg_67,e_DEdeg_33,Bmag_33,
+ e_Bmag_33,Epoch_33,FWHM_33,cI_33,RAh_33,RAm_33,RAs_33,DE__33,
+ DEd_33,DEm_33,DEs_33,f_mag_33,pmRA_33,pmDE_33,B4mag_33,
+ Vmag_33,rmag_33,imag_33
RAdeg_33 = rNULL__
DEdeg_66 = rNULL__
c Derive coordinates RAdeg_33 and DEdeg_66 from input data
c (RAdeg_33 and DEdeg_66 are set to rNULL__ when unknown)
if(RAhour_33 .GT. -180) RAdeg_33=RAhour_33*15.
if(DEdeg_67 .GE. 0) DEdeg_66=DEdeg_67
if(DEd_33 .GE. 0) DEdeg_66=DEdeg_66+DEd_33
if(DEm_33 .GE. 0) DEdeg_66=DEdeg_66+DEm_33/60.
if(DEs_33 .GE. 0) DEdeg_66=DEdeg_66+DEs_33/3600.
if(DE__33.EQ.'-'.AND.DEdeg_66.GE.0) DEdeg_66=-DEdeg_66
c ..............Just test output...........
write(6,34)
+ ID_33,k_33,RAhour_33,e_RAhour_33,DEdeg_67,e_DEdeg_33,Bmag_33,
+ e_Bmag_33,Epoch_33,FWHM_33,cI_33,RAh_33,RAm_33,RAs_33,DE__33,
+ DEd_33,DEm_33,DEs_33,f_mag_33,pmRA_33,pmDE_33,B4mag_33,
+ Vmag_33,rmag_33,imag_33
write(6,'(6H Pos: 2F8.4)') RAdeg_33,DEdeg_66
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n34.dat' ! Star data file (zone from 34.0 to 34.9 degrees)
C Format for file interpretation
35 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n34.dat')
write(6,*) '....Loading file: f3n34.dat'
do i__=1,352180
read(1,'(A164)')ar__34
read(ar__34,35)
+ ID_34,k_34,RAhour_34,e_RAhour_34,DEdeg_69,e_DEdeg_34,Bmag_34,
+ e_Bmag_34,Epoch_34,FWHM_34,cI_34,RAh_34,RAm_34,RAs_34,DE__34,
+ DEd_34,DEm_34,DEs_34,f_mag_34,pmRA_34,pmDE_34,B4mag_34,
+ Vmag_34,rmag_34,imag_34
RAdeg_34 = rNULL__
DEdeg_68 = rNULL__
c Derive coordinates RAdeg_34 and DEdeg_68 from input data
c (RAdeg_34 and DEdeg_68 are set to rNULL__ when unknown)
if(RAhour_34 .GT. -180) RAdeg_34=RAhour_34*15.
if(DEdeg_69 .GE. 0) DEdeg_68=DEdeg_69
if(DEd_34 .GE. 0) DEdeg_68=DEdeg_68+DEd_34
if(DEm_34 .GE. 0) DEdeg_68=DEdeg_68+DEm_34/60.
if(DEs_34 .GE. 0) DEdeg_68=DEdeg_68+DEs_34/3600.
if(DE__34.EQ.'-'.AND.DEdeg_68.GE.0) DEdeg_68=-DEdeg_68
c ..............Just test output...........
write(6,35)
+ ID_34,k_34,RAhour_34,e_RAhour_34,DEdeg_69,e_DEdeg_34,Bmag_34,
+ e_Bmag_34,Epoch_34,FWHM_34,cI_34,RAh_34,RAm_34,RAs_34,DE__34,
+ DEd_34,DEm_34,DEs_34,f_mag_34,pmRA_34,pmDE_34,B4mag_34,
+ Vmag_34,rmag_34,imag_34
write(6,'(6H Pos: 2F8.4)') RAdeg_34,DEdeg_68
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n35.dat' ! Star data file (zone from 35.0 to 35.9 degrees)
C Format for file interpretation
36 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n35.dat')
write(6,*) '....Loading file: f3n35.dat'
do i__=1,350485
read(1,'(A164)')ar__35
read(ar__35,36)
+ ID_35,k_35,RAhour_35,e_RAhour_35,DEdeg_71,e_DEdeg_35,Bmag_35,
+ e_Bmag_35,Epoch_35,FWHM_35,cI_35,RAh_35,RAm_35,RAs_35,DE__35,
+ DEd_35,DEm_35,DEs_35,f_mag_35,pmRA_35,pmDE_35,B4mag_35,
+ Vmag_35,rmag_35,imag_35
RAdeg_35 = rNULL__
DEdeg_70 = rNULL__
c Derive coordinates RAdeg_35 and DEdeg_70 from input data
c (RAdeg_35 and DEdeg_70 are set to rNULL__ when unknown)
if(RAhour_35 .GT. -180) RAdeg_35=RAhour_35*15.
if(DEdeg_71 .GE. 0) DEdeg_70=DEdeg_71
if(DEd_35 .GE. 0) DEdeg_70=DEdeg_70+DEd_35
if(DEm_35 .GE. 0) DEdeg_70=DEdeg_70+DEm_35/60.
if(DEs_35 .GE. 0) DEdeg_70=DEdeg_70+DEs_35/3600.
if(DE__35.EQ.'-'.AND.DEdeg_70.GE.0) DEdeg_70=-DEdeg_70
c ..............Just test output...........
write(6,36)
+ ID_35,k_35,RAhour_35,e_RAhour_35,DEdeg_71,e_DEdeg_35,Bmag_35,
+ e_Bmag_35,Epoch_35,FWHM_35,cI_35,RAh_35,RAm_35,RAs_35,DE__35,
+ DEd_35,DEm_35,DEs_35,f_mag_35,pmRA_35,pmDE_35,B4mag_35,
+ Vmag_35,rmag_35,imag_35
write(6,'(6H Pos: 2F8.4)') RAdeg_35,DEdeg_70
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n36.dat' ! Star data file (zone from 36.0 to 36.9 degrees)
C Format for file interpretation
37 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n36.dat')
write(6,*) '....Loading file: f3n36.dat'
do i__=1,350620
read(1,'(A164)')ar__36
read(ar__36,37)
+ ID_36,k_36,RAhour_36,e_RAhour_36,DEdeg_73,e_DEdeg_36,Bmag_36,
+ e_Bmag_36,Epoch_36,FWHM_36,cI_36,RAh_36,RAm_36,RAs_36,DE__36,
+ DEd_36,DEm_36,DEs_36,f_mag_36,pmRA_36,pmDE_36,B4mag_36,
+ Vmag_36,rmag_36,imag_36
RAdeg_36 = rNULL__
DEdeg_72 = rNULL__
c Derive coordinates RAdeg_36 and DEdeg_72 from input data
c (RAdeg_36 and DEdeg_72 are set to rNULL__ when unknown)
if(RAhour_36 .GT. -180) RAdeg_36=RAhour_36*15.
if(DEdeg_73 .GE. 0) DEdeg_72=DEdeg_73
if(DEd_36 .GE. 0) DEdeg_72=DEdeg_72+DEd_36
if(DEm_36 .GE. 0) DEdeg_72=DEdeg_72+DEm_36/60.
if(DEs_36 .GE. 0) DEdeg_72=DEdeg_72+DEs_36/3600.
if(DE__36.EQ.'-'.AND.DEdeg_72.GE.0) DEdeg_72=-DEdeg_72
c ..............Just test output...........
write(6,37)
+ ID_36,k_36,RAhour_36,e_RAhour_36,DEdeg_73,e_DEdeg_36,Bmag_36,
+ e_Bmag_36,Epoch_36,FWHM_36,cI_36,RAh_36,RAm_36,RAs_36,DE__36,
+ DEd_36,DEm_36,DEs_36,f_mag_36,pmRA_36,pmDE_36,B4mag_36,
+ Vmag_36,rmag_36,imag_36
write(6,'(6H Pos: 2F8.4)') RAdeg_36,DEdeg_72
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n37.dat' ! Star data file (zone from 37.0 to 37.9 degrees)
C Format for file interpretation
38 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n37.dat')
write(6,*) '....Loading file: f3n37.dat'
do i__=1,349939
read(1,'(A164)')ar__37
read(ar__37,38)
+ ID_37,k_37,RAhour_37,e_RAhour_37,DEdeg_75,e_DEdeg_37,Bmag_37,
+ e_Bmag_37,Epoch_37,FWHM_37,cI_37,RAh_37,RAm_37,RAs_37,DE__37,
+ DEd_37,DEm_37,DEs_37,f_mag_37,pmRA_37,pmDE_37,B4mag_37,
+ Vmag_37,rmag_37,imag_37
RAdeg_37 = rNULL__
DEdeg_74 = rNULL__
c Derive coordinates RAdeg_37 and DEdeg_74 from input data
c (RAdeg_37 and DEdeg_74 are set to rNULL__ when unknown)
if(RAhour_37 .GT. -180) RAdeg_37=RAhour_37*15.
if(DEdeg_75 .GE. 0) DEdeg_74=DEdeg_75
if(DEd_37 .GE. 0) DEdeg_74=DEdeg_74+DEd_37
if(DEm_37 .GE. 0) DEdeg_74=DEdeg_74+DEm_37/60.
if(DEs_37 .GE. 0) DEdeg_74=DEdeg_74+DEs_37/3600.
if(DE__37.EQ.'-'.AND.DEdeg_74.GE.0) DEdeg_74=-DEdeg_74
c ..............Just test output...........
write(6,38)
+ ID_37,k_37,RAhour_37,e_RAhour_37,DEdeg_75,e_DEdeg_37,Bmag_37,
+ e_Bmag_37,Epoch_37,FWHM_37,cI_37,RAh_37,RAm_37,RAs_37,DE__37,
+ DEd_37,DEm_37,DEs_37,f_mag_37,pmRA_37,pmDE_37,B4mag_37,
+ Vmag_37,rmag_37,imag_37
write(6,'(6H Pos: 2F8.4)') RAdeg_37,DEdeg_74
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n38.dat' ! Star data file (zone from 38.0 to 38.9 degrees)
C Format for file interpretation
39 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n38.dat')
write(6,*) '....Loading file: f3n38.dat'
do i__=1,349122
read(1,'(A164)')ar__38
read(ar__38,39)
+ ID_38,k_38,RAhour_38,e_RAhour_38,DEdeg_77,e_DEdeg_38,Bmag_38,
+ e_Bmag_38,Epoch_38,FWHM_38,cI_38,RAh_38,RAm_38,RAs_38,DE__38,
+ DEd_38,DEm_38,DEs_38,f_mag_38,pmRA_38,pmDE_38,B4mag_38,
+ Vmag_38,rmag_38,imag_38
RAdeg_38 = rNULL__
DEdeg_76 = rNULL__
c Derive coordinates RAdeg_38 and DEdeg_76 from input data
c (RAdeg_38 and DEdeg_76 are set to rNULL__ when unknown)
if(RAhour_38 .GT. -180) RAdeg_38=RAhour_38*15.
if(DEdeg_77 .GE. 0) DEdeg_76=DEdeg_77
if(DEd_38 .GE. 0) DEdeg_76=DEdeg_76+DEd_38
if(DEm_38 .GE. 0) DEdeg_76=DEdeg_76+DEm_38/60.
if(DEs_38 .GE. 0) DEdeg_76=DEdeg_76+DEs_38/3600.
if(DE__38.EQ.'-'.AND.DEdeg_76.GE.0) DEdeg_76=-DEdeg_76
c ..............Just test output...........
write(6,39)
+ ID_38,k_38,RAhour_38,e_RAhour_38,DEdeg_77,e_DEdeg_38,Bmag_38,
+ e_Bmag_38,Epoch_38,FWHM_38,cI_38,RAh_38,RAm_38,RAs_38,DE__38,
+ DEd_38,DEm_38,DEs_38,f_mag_38,pmRA_38,pmDE_38,B4mag_38,
+ Vmag_38,rmag_38,imag_38
write(6,'(6H Pos: 2F8.4)') RAdeg_38,DEdeg_76
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n39.dat' ! Star data file (zone from 39.0 to 39.9 degrees)
C Format for file interpretation
40 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n39.dat')
write(6,*) '....Loading file: f3n39.dat'
do i__=1,335004
read(1,'(A164)')ar__39
read(ar__39,40)
+ ID_39,k_39,RAhour_39,e_RAhour_39,DEdeg_79,e_DEdeg_39,Bmag_39,
+ e_Bmag_39,Epoch_39,FWHM_39,cI_39,RAh_39,RAm_39,RAs_39,DE__39,
+ DEd_39,DEm_39,DEs_39,f_mag_39,pmRA_39,pmDE_39,B4mag_39,
+ Vmag_39,rmag_39,imag_39
RAdeg_39 = rNULL__
DEdeg_78 = rNULL__
c Derive coordinates RAdeg_39 and DEdeg_78 from input data
c (RAdeg_39 and DEdeg_78 are set to rNULL__ when unknown)
if(RAhour_39 .GT. -180) RAdeg_39=RAhour_39*15.
if(DEdeg_79 .GE. 0) DEdeg_78=DEdeg_79
if(DEd_39 .GE. 0) DEdeg_78=DEdeg_78+DEd_39
if(DEm_39 .GE. 0) DEdeg_78=DEdeg_78+DEm_39/60.
if(DEs_39 .GE. 0) DEdeg_78=DEdeg_78+DEs_39/3600.
if(DE__39.EQ.'-'.AND.DEdeg_78.GE.0) DEdeg_78=-DEdeg_78
c ..............Just test output...........
write(6,40)
+ ID_39,k_39,RAhour_39,e_RAhour_39,DEdeg_79,e_DEdeg_39,Bmag_39,
+ e_Bmag_39,Epoch_39,FWHM_39,cI_39,RAh_39,RAm_39,RAs_39,DE__39,
+ DEd_39,DEm_39,DEs_39,f_mag_39,pmRA_39,pmDE_39,B4mag_39,
+ Vmag_39,rmag_39,imag_39
write(6,'(6H Pos: 2F8.4)') RAdeg_39,DEdeg_78
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n40.dat' ! Star data file (zone from 40.0 to 40.9 degrees)
C Format for file interpretation
41 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n40.dat')
write(6,*) '....Loading file: f3n40.dat'
do i__=1,342089
read(1,'(A164)')ar__40
read(ar__40,41)
+ ID_40,k_40,RAhour_40,e_RAhour_40,DEdeg_81,e_DEdeg_40,Bmag_40,
+ e_Bmag_40,Epoch_40,FWHM_40,cI_40,RAh_40,RAm_40,RAs_40,DE__40,
+ DEd_40,DEm_40,DEs_40,f_mag_40,pmRA_40,pmDE_40,B4mag_40,
+ Vmag_40,rmag_40,imag_40
RAdeg_40 = rNULL__
DEdeg_80 = rNULL__
c Derive coordinates RAdeg_40 and DEdeg_80 from input data
c (RAdeg_40 and DEdeg_80 are set to rNULL__ when unknown)
if(RAhour_40 .GT. -180) RAdeg_40=RAhour_40*15.
if(DEdeg_81 .GE. 0) DEdeg_80=DEdeg_81
if(DEd_40 .GE. 0) DEdeg_80=DEdeg_80+DEd_40
if(DEm_40 .GE. 0) DEdeg_80=DEdeg_80+DEm_40/60.
if(DEs_40 .GE. 0) DEdeg_80=DEdeg_80+DEs_40/3600.
if(DE__40.EQ.'-'.AND.DEdeg_80.GE.0) DEdeg_80=-DEdeg_80
c ..............Just test output...........
write(6,41)
+ ID_40,k_40,RAhour_40,e_RAhour_40,DEdeg_81,e_DEdeg_40,Bmag_40,
+ e_Bmag_40,Epoch_40,FWHM_40,cI_40,RAh_40,RAm_40,RAs_40,DE__40,
+ DEd_40,DEm_40,DEs_40,f_mag_40,pmRA_40,pmDE_40,B4mag_40,
+ Vmag_40,rmag_40,imag_40
write(6,'(6H Pos: 2F8.4)') RAdeg_40,DEdeg_80
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n41.dat' ! Star data file (zone from 41.0 to 41.9 degrees)
C Format for file interpretation
42 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n41.dat')
write(6,*) '....Loading file: f3n41.dat'
do i__=1,361255
read(1,'(A164)')ar__41
read(ar__41,42)
+ ID_41,k_41,RAhour_41,e_RAhour_41,DEdeg_83,e_DEdeg_41,Bmag_41,
+ e_Bmag_41,Epoch_41,FWHM_41,cI_41,RAh_41,RAm_41,RAs_41,DE__41,
+ DEd_41,DEm_41,DEs_41,f_mag_41,pmRA_41,pmDE_41,B4mag_41,
+ Vmag_41,rmag_41,imag_41
RAdeg_41 = rNULL__
DEdeg_82 = rNULL__
c Derive coordinates RAdeg_41 and DEdeg_82 from input data
c (RAdeg_41 and DEdeg_82 are set to rNULL__ when unknown)
if(RAhour_41 .GT. -180) RAdeg_41=RAhour_41*15.
if(DEdeg_83 .GE. 0) DEdeg_82=DEdeg_83
if(DEd_41 .GE. 0) DEdeg_82=DEdeg_82+DEd_41
if(DEm_41 .GE. 0) DEdeg_82=DEdeg_82+DEm_41/60.
if(DEs_41 .GE. 0) DEdeg_82=DEdeg_82+DEs_41/3600.
if(DE__41.EQ.'-'.AND.DEdeg_82.GE.0) DEdeg_82=-DEdeg_82
c ..............Just test output...........
write(6,42)
+ ID_41,k_41,RAhour_41,e_RAhour_41,DEdeg_83,e_DEdeg_41,Bmag_41,
+ e_Bmag_41,Epoch_41,FWHM_41,cI_41,RAh_41,RAm_41,RAs_41,DE__41,
+ DEd_41,DEm_41,DEs_41,f_mag_41,pmRA_41,pmDE_41,B4mag_41,
+ Vmag_41,rmag_41,imag_41
write(6,'(6H Pos: 2F8.4)') RAdeg_41,DEdeg_82
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n42.dat' ! Star data file (zone from 42.0 to 42.9 degrees)
C Format for file interpretation
43 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n42.dat')
write(6,*) '....Loading file: f3n42.dat'
do i__=1,366599
read(1,'(A164)')ar__42
read(ar__42,43)
+ ID_42,k_42,RAhour_42,e_RAhour_42,DEdeg_85,e_DEdeg_42,Bmag_42,
+ e_Bmag_42,Epoch_42,FWHM_42,cI_42,RAh_42,RAm_42,RAs_42,DE__42,
+ DEd_42,DEm_42,DEs_42,f_mag_42,pmRA_42,pmDE_42,B4mag_42,
+ Vmag_42,rmag_42,imag_42
RAdeg_42 = rNULL__
DEdeg_84 = rNULL__
c Derive coordinates RAdeg_42 and DEdeg_84 from input data
c (RAdeg_42 and DEdeg_84 are set to rNULL__ when unknown)
if(RAhour_42 .GT. -180) RAdeg_42=RAhour_42*15.
if(DEdeg_85 .GE. 0) DEdeg_84=DEdeg_85
if(DEd_42 .GE. 0) DEdeg_84=DEdeg_84+DEd_42
if(DEm_42 .GE. 0) DEdeg_84=DEdeg_84+DEm_42/60.
if(DEs_42 .GE. 0) DEdeg_84=DEdeg_84+DEs_42/3600.
if(DE__42.EQ.'-'.AND.DEdeg_84.GE.0) DEdeg_84=-DEdeg_84
c ..............Just test output...........
write(6,43)
+ ID_42,k_42,RAhour_42,e_RAhour_42,DEdeg_85,e_DEdeg_42,Bmag_42,
+ e_Bmag_42,Epoch_42,FWHM_42,cI_42,RAh_42,RAm_42,RAs_42,DE__42,
+ DEd_42,DEm_42,DEs_42,f_mag_42,pmRA_42,pmDE_42,B4mag_42,
+ Vmag_42,rmag_42,imag_42
write(6,'(6H Pos: 2F8.4)') RAdeg_42,DEdeg_84
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n43.dat' ! Star data file (zone from 43.0 to 43.9 degrees)
C Format for file interpretation
44 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n43.dat')
write(6,*) '....Loading file: f3n43.dat'
do i__=1,363934
read(1,'(A164)')ar__43
read(ar__43,44)
+ ID_43,k_43,RAhour_43,e_RAhour_43,DEdeg_87,e_DEdeg_43,Bmag_43,
+ e_Bmag_43,Epoch_43,FWHM_43,cI_43,RAh_43,RAm_43,RAs_43,DE__43,
+ DEd_43,DEm_43,DEs_43,f_mag_43,pmRA_43,pmDE_43,B4mag_43,
+ Vmag_43,rmag_43,imag_43
RAdeg_43 = rNULL__
DEdeg_86 = rNULL__
c Derive coordinates RAdeg_43 and DEdeg_86 from input data
c (RAdeg_43 and DEdeg_86 are set to rNULL__ when unknown)
if(RAhour_43 .GT. -180) RAdeg_43=RAhour_43*15.
if(DEdeg_87 .GE. 0) DEdeg_86=DEdeg_87
if(DEd_43 .GE. 0) DEdeg_86=DEdeg_86+DEd_43
if(DEm_43 .GE. 0) DEdeg_86=DEdeg_86+DEm_43/60.
if(DEs_43 .GE. 0) DEdeg_86=DEdeg_86+DEs_43/3600.
if(DE__43.EQ.'-'.AND.DEdeg_86.GE.0) DEdeg_86=-DEdeg_86
c ..............Just test output...........
write(6,44)
+ ID_43,k_43,RAhour_43,e_RAhour_43,DEdeg_87,e_DEdeg_43,Bmag_43,
+ e_Bmag_43,Epoch_43,FWHM_43,cI_43,RAh_43,RAm_43,RAs_43,DE__43,
+ DEd_43,DEm_43,DEs_43,f_mag_43,pmRA_43,pmDE_43,B4mag_43,
+ Vmag_43,rmag_43,imag_43
write(6,'(6H Pos: 2F8.4)') RAdeg_43,DEdeg_86
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n44.dat' ! Star data file (zone from 44.0 to 44.9 degrees)
C Format for file interpretation
45 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n44.dat')
write(6,*) '....Loading file: f3n44.dat'
do i__=1,373436
read(1,'(A164)')ar__44
read(ar__44,45)
+ ID_44,k_44,RAhour_44,e_RAhour_44,DEdeg_89,e_DEdeg_44,Bmag_44,
+ e_Bmag_44,Epoch_44,FWHM_44,cI_44,RAh_44,RAm_44,RAs_44,DE__44,
+ DEd_44,DEm_44,DEs_44,f_mag_44,pmRA_44,pmDE_44,B4mag_44,
+ Vmag_44,rmag_44,imag_44
RAdeg_44 = rNULL__
DEdeg_88 = rNULL__
c Derive coordinates RAdeg_44 and DEdeg_88 from input data
c (RAdeg_44 and DEdeg_88 are set to rNULL__ when unknown)
if(RAhour_44 .GT. -180) RAdeg_44=RAhour_44*15.
if(DEdeg_89 .GE. 0) DEdeg_88=DEdeg_89
if(DEd_44 .GE. 0) DEdeg_88=DEdeg_88+DEd_44
if(DEm_44 .GE. 0) DEdeg_88=DEdeg_88+DEm_44/60.
if(DEs_44 .GE. 0) DEdeg_88=DEdeg_88+DEs_44/3600.
if(DE__44.EQ.'-'.AND.DEdeg_88.GE.0) DEdeg_88=-DEdeg_88
c ..............Just test output...........
write(6,45)
+ ID_44,k_44,RAhour_44,e_RAhour_44,DEdeg_89,e_DEdeg_44,Bmag_44,
+ e_Bmag_44,Epoch_44,FWHM_44,cI_44,RAh_44,RAm_44,RAs_44,DE__44,
+ DEd_44,DEm_44,DEs_44,f_mag_44,pmRA_44,pmDE_44,B4mag_44,
+ Vmag_44,rmag_44,imag_44
write(6,'(6H Pos: 2F8.4)') RAdeg_44,DEdeg_88
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n45.dat' ! Star data file (zone from 45.0 to 45.9 degrees)
C Format for file interpretation
46 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n45.dat')
write(6,*) '....Loading file: f3n45.dat'
do i__=1,414605
read(1,'(A164)')ar__45
read(ar__45,46)
+ ID_45,k_45,RAhour_45,e_RAhour_45,DEdeg_91,e_DEdeg_45,Bmag_45,
+ e_Bmag_45,Epoch_45,FWHM_45,cI_45,RAh_45,RAm_45,RAs_45,DE__45,
+ DEd_45,DEm_45,DEs_45,f_mag_45,pmRA_45,pmDE_45,B4mag_45,
+ Vmag_45,rmag_45,imag_45
RAdeg_45 = rNULL__
DEdeg_90 = rNULL__
c Derive coordinates RAdeg_45 and DEdeg_90 from input data
c (RAdeg_45 and DEdeg_90 are set to rNULL__ when unknown)
if(RAhour_45 .GT. -180) RAdeg_45=RAhour_45*15.
if(DEdeg_91 .GE. 0) DEdeg_90=DEdeg_91
if(DEd_45 .GE. 0) DEdeg_90=DEdeg_90+DEd_45
if(DEm_45 .GE. 0) DEdeg_90=DEdeg_90+DEm_45/60.
if(DEs_45 .GE. 0) DEdeg_90=DEdeg_90+DEs_45/3600.
if(DE__45.EQ.'-'.AND.DEdeg_90.GE.0) DEdeg_90=-DEdeg_90
c ..............Just test output...........
write(6,46)
+ ID_45,k_45,RAhour_45,e_RAhour_45,DEdeg_91,e_DEdeg_45,Bmag_45,
+ e_Bmag_45,Epoch_45,FWHM_45,cI_45,RAh_45,RAm_45,RAs_45,DE__45,
+ DEd_45,DEm_45,DEs_45,f_mag_45,pmRA_45,pmDE_45,B4mag_45,
+ Vmag_45,rmag_45,imag_45
write(6,'(6H Pos: 2F8.4)') RAdeg_45,DEdeg_90
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n46.dat' ! Star data file (zone from 46.0 to 46.9 degrees)
C Format for file interpretation
47 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n46.dat')
write(6,*) '....Loading file: f3n46.dat'
do i__=1,438428
read(1,'(A164)')ar__46
read(ar__46,47)
+ ID_46,k_46,RAhour_46,e_RAhour_46,DEdeg_93,e_DEdeg_46,Bmag_46,
+ e_Bmag_46,Epoch_46,FWHM_46,cI_46,RAh_46,RAm_46,RAs_46,DE__46,
+ DEd_46,DEm_46,DEs_46,f_mag_46,pmRA_46,pmDE_46,B4mag_46,
+ Vmag_46,rmag_46,imag_46
RAdeg_46 = rNULL__
DEdeg_92 = rNULL__
c Derive coordinates RAdeg_46 and DEdeg_92 from input data
c (RAdeg_46 and DEdeg_92 are set to rNULL__ when unknown)
if(RAhour_46 .GT. -180) RAdeg_46=RAhour_46*15.
if(DEdeg_93 .GE. 0) DEdeg_92=DEdeg_93
if(DEd_46 .GE. 0) DEdeg_92=DEdeg_92+DEd_46
if(DEm_46 .GE. 0) DEdeg_92=DEdeg_92+DEm_46/60.
if(DEs_46 .GE. 0) DEdeg_92=DEdeg_92+DEs_46/3600.
if(DE__46.EQ.'-'.AND.DEdeg_92.GE.0) DEdeg_92=-DEdeg_92
c ..............Just test output...........
write(6,47)
+ ID_46,k_46,RAhour_46,e_RAhour_46,DEdeg_93,e_DEdeg_46,Bmag_46,
+ e_Bmag_46,Epoch_46,FWHM_46,cI_46,RAh_46,RAm_46,RAs_46,DE__46,
+ DEd_46,DEm_46,DEs_46,f_mag_46,pmRA_46,pmDE_46,B4mag_46,
+ Vmag_46,rmag_46,imag_46
write(6,'(6H Pos: 2F8.4)') RAdeg_46,DEdeg_92
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n47.dat' ! Star data file (zone from 47.0 to 47.9 degrees)
C Format for file interpretation
48 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n47.dat')
write(6,*) '....Loading file: f3n47.dat'
do i__=1,420141
read(1,'(A164)')ar__47
read(ar__47,48)
+ ID_47,k_47,RAhour_47,e_RAhour_47,DEdeg_95,e_DEdeg_47,Bmag_47,
+ e_Bmag_47,Epoch_47,FWHM_47,cI_47,RAh_47,RAm_47,RAs_47,DE__47,
+ DEd_47,DEm_47,DEs_47,f_mag_47,pmRA_47,pmDE_47,B4mag_47,
+ Vmag_47,rmag_47,imag_47
RAdeg_47 = rNULL__
DEdeg_94 = rNULL__
c Derive coordinates RAdeg_47 and DEdeg_94 from input data
c (RAdeg_47 and DEdeg_94 are set to rNULL__ when unknown)
if(RAhour_47 .GT. -180) RAdeg_47=RAhour_47*15.
if(DEdeg_95 .GE. 0) DEdeg_94=DEdeg_95
if(DEd_47 .GE. 0) DEdeg_94=DEdeg_94+DEd_47
if(DEm_47 .GE. 0) DEdeg_94=DEdeg_94+DEm_47/60.
if(DEs_47 .GE. 0) DEdeg_94=DEdeg_94+DEs_47/3600.
if(DE__47.EQ.'-'.AND.DEdeg_94.GE.0) DEdeg_94=-DEdeg_94
c ..............Just test output...........
write(6,48)
+ ID_47,k_47,RAhour_47,e_RAhour_47,DEdeg_95,e_DEdeg_47,Bmag_47,
+ e_Bmag_47,Epoch_47,FWHM_47,cI_47,RAh_47,RAm_47,RAs_47,DE__47,
+ DEd_47,DEm_47,DEs_47,f_mag_47,pmRA_47,pmDE_47,B4mag_47,
+ Vmag_47,rmag_47,imag_47
write(6,'(6H Pos: 2F8.4)') RAdeg_47,DEdeg_94
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n48.dat' ! Star data file (zone from 48.0 to 48.9 degrees)
C Format for file interpretation
49 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n48.dat')
write(6,*) '....Loading file: f3n48.dat'
do i__=1,393585
read(1,'(A164)')ar__48
read(ar__48,49)
+ ID_48,k_48,RAhour_48,e_RAhour_48,DEdeg_97,e_DEdeg_48,Bmag_48,
+ e_Bmag_48,Epoch_48,FWHM_48,cI_48,RAh_48,RAm_48,RAs_48,DE__48,
+ DEd_48,DEm_48,DEs_48,f_mag_48,pmRA_48,pmDE_48,B4mag_48,
+ Vmag_48,rmag_48,imag_48
RAdeg_48 = rNULL__
DEdeg_96 = rNULL__
c Derive coordinates RAdeg_48 and DEdeg_96 from input data
c (RAdeg_48 and DEdeg_96 are set to rNULL__ when unknown)
if(RAhour_48 .GT. -180) RAdeg_48=RAhour_48*15.
if(DEdeg_97 .GE. 0) DEdeg_96=DEdeg_97
if(DEd_48 .GE. 0) DEdeg_96=DEdeg_96+DEd_48
if(DEm_48 .GE. 0) DEdeg_96=DEdeg_96+DEm_48/60.
if(DEs_48 .GE. 0) DEdeg_96=DEdeg_96+DEs_48/3600.
if(DE__48.EQ.'-'.AND.DEdeg_96.GE.0) DEdeg_96=-DEdeg_96
c ..............Just test output...........
write(6,49)
+ ID_48,k_48,RAhour_48,e_RAhour_48,DEdeg_97,e_DEdeg_48,Bmag_48,
+ e_Bmag_48,Epoch_48,FWHM_48,cI_48,RAh_48,RAm_48,RAs_48,DE__48,
+ DEd_48,DEm_48,DEs_48,f_mag_48,pmRA_48,pmDE_48,B4mag_48,
+ Vmag_48,rmag_48,imag_48
write(6,'(6H Pos: 2F8.4)') RAdeg_48,DEdeg_96
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n49.dat' ! Star data file (zone from 49.0 to 49.9 degrees)
C Format for file interpretation
50 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n49.dat')
write(6,*) '....Loading file: f3n49.dat'
do i__=1,389740
read(1,'(A164)')ar__49
read(ar__49,50)
+ ID_49,k_49,RAhour_49,e_RAhour_49,DEdeg_99,e_DEdeg_49,Bmag_49,
+ e_Bmag_49,Epoch_49,FWHM_49,cI_49,RAh_49,RAm_49,RAs_49,DE__49,
+ DEd_49,DEm_49,DEs_49,f_mag_49,pmRA_49,pmDE_49,B4mag_49,
+ Vmag_49,rmag_49,imag_49
RAdeg_49 = rNULL__
DEdeg_98 = rNULL__
c Derive coordinates RAdeg_49 and DEdeg_98 from input data
c (RAdeg_49 and DEdeg_98 are set to rNULL__ when unknown)
if(RAhour_49 .GT. -180) RAdeg_49=RAhour_49*15.
if(DEdeg_99 .GE. 0) DEdeg_98=DEdeg_99
if(DEd_49 .GE. 0) DEdeg_98=DEdeg_98+DEd_49
if(DEm_49 .GE. 0) DEdeg_98=DEdeg_98+DEm_49/60.
if(DEs_49 .GE. 0) DEdeg_98=DEdeg_98+DEs_49/3600.
if(DE__49.EQ.'-'.AND.DEdeg_98.GE.0) DEdeg_98=-DEdeg_98
c ..............Just test output...........
write(6,50)
+ ID_49,k_49,RAhour_49,e_RAhour_49,DEdeg_99,e_DEdeg_49,Bmag_49,
+ e_Bmag_49,Epoch_49,FWHM_49,cI_49,RAh_49,RAm_49,RAs_49,DE__49,
+ DEd_49,DEm_49,DEs_49,f_mag_49,pmRA_49,pmDE_49,B4mag_49,
+ Vmag_49,rmag_49,imag_49
write(6,'(6H Pos: 2F8.4)') RAdeg_49,DEdeg_98
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n50.dat' ! Star data file (zone from 50.0 to 50.9 degrees)
C Format for file interpretation
51 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n50.dat')
write(6,*) '....Loading file: f3n50.dat'
do i__=1,371627
read(1,'(A164)')ar__50
read(ar__50,51)
+ ID_50,k_50,RAhour_50,e_RAhour_50,DEdeg_101,e_DEdeg_50,Bmag_50,
+ e_Bmag_50,Epoch_50,FWHM_50,cI_50,RAh_50,RAm_50,RAs_50,DE__50,
+ DEd_50,DEm_50,DEs_50,f_mag_50,pmRA_50,pmDE_50,B4mag_50,
+ Vmag_50,rmag_50,imag_50
RAdeg_50 = rNULL__
DEdeg_100 = rNULL__
c Derive coordinates RAdeg_50 and DEdeg_100 from input data
c (RAdeg_50 and DEdeg_100 are set to rNULL__ when unknown)
if(RAhour_50 .GT. -180) RAdeg_50=RAhour_50*15.
if(DEdeg_101 .GE. 0) DEdeg_100=DEdeg_101
if(DEd_50 .GE. 0) DEdeg_100=DEdeg_100+DEd_50
if(DEm_50 .GE. 0) DEdeg_100=DEdeg_100+DEm_50/60.
if(DEs_50 .GE. 0) DEdeg_100=DEdeg_100+DEs_50/3600.
if(DE__50.EQ.'-'.AND.DEdeg_100.GE.0) DEdeg_100=-DEdeg_100
c ..............Just test output...........
write(6,51)
+ ID_50,k_50,RAhour_50,e_RAhour_50,DEdeg_101,e_DEdeg_50,Bmag_50,
+ e_Bmag_50,Epoch_50,FWHM_50,cI_50,RAh_50,RAm_50,RAs_50,DE__50,
+ DEd_50,DEm_50,DEs_50,f_mag_50,pmRA_50,pmDE_50,B4mag_50,
+ Vmag_50,rmag_50,imag_50
write(6,'(6H Pos: 2F8.4)') RAdeg_50,DEdeg_100
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n51.dat' ! Star data file (zone from 51.0 to 51.9 degrees)
C Format for file interpretation
52 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n51.dat')
write(6,*) '....Loading file: f3n51.dat'
do i__=1,353020
read(1,'(A164)')ar__51
read(ar__51,52)
+ ID_51,k_51,RAhour_51,e_RAhour_51,DEdeg_103,e_DEdeg_51,Bmag_51,
+ e_Bmag_51,Epoch_51,FWHM_51,cI_51,RAh_51,RAm_51,RAs_51,DE__51,
+ DEd_51,DEm_51,DEs_51,f_mag_51,pmRA_51,pmDE_51,B4mag_51,
+ Vmag_51,rmag_51,imag_51
RAdeg_51 = rNULL__
DEdeg_102 = rNULL__
c Derive coordinates RAdeg_51 and DEdeg_102 from input data
c (RAdeg_51 and DEdeg_102 are set to rNULL__ when unknown)
if(RAhour_51 .GT. -180) RAdeg_51=RAhour_51*15.
if(DEdeg_103 .GE. 0) DEdeg_102=DEdeg_103
if(DEd_51 .GE. 0) DEdeg_102=DEdeg_102+DEd_51
if(DEm_51 .GE. 0) DEdeg_102=DEdeg_102+DEm_51/60.
if(DEs_51 .GE. 0) DEdeg_102=DEdeg_102+DEs_51/3600.
if(DE__51.EQ.'-'.AND.DEdeg_102.GE.0) DEdeg_102=-DEdeg_102
c ..............Just test output...........
write(6,52)
+ ID_51,k_51,RAhour_51,e_RAhour_51,DEdeg_103,e_DEdeg_51,Bmag_51,
+ e_Bmag_51,Epoch_51,FWHM_51,cI_51,RAh_51,RAm_51,RAs_51,DE__51,
+ DEd_51,DEm_51,DEs_51,f_mag_51,pmRA_51,pmDE_51,B4mag_51,
+ Vmag_51,rmag_51,imag_51
write(6,'(6H Pos: 2F8.4)') RAdeg_51,DEdeg_102
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n52.dat' ! Star data file (zone from 52.0 to 52.9 degrees)
C Format for file interpretation
53 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n52.dat')
write(6,*) '....Loading file: f3n52.dat'
do i__=1,325355
read(1,'(A164)')ar__52
read(ar__52,53)
+ ID_52,k_52,RAhour_52,e_RAhour_52,DEdeg_105,e_DEdeg_52,Bmag_52,
+ e_Bmag_52,Epoch_52,FWHM_52,cI_52,RAh_52,RAm_52,RAs_52,DE__52,
+ DEd_52,DEm_52,DEs_52,f_mag_52,pmRA_52,pmDE_52,B4mag_52,
+ Vmag_52,rmag_52,imag_52
RAdeg_52 = rNULL__
DEdeg_104 = rNULL__
c Derive coordinates RAdeg_52 and DEdeg_104 from input data
c (RAdeg_52 and DEdeg_104 are set to rNULL__ when unknown)
if(RAhour_52 .GT. -180) RAdeg_52=RAhour_52*15.
if(DEdeg_105 .GE. 0) DEdeg_104=DEdeg_105
if(DEd_52 .GE. 0) DEdeg_104=DEdeg_104+DEd_52
if(DEm_52 .GE. 0) DEdeg_104=DEdeg_104+DEm_52/60.
if(DEs_52 .GE. 0) DEdeg_104=DEdeg_104+DEs_52/3600.
if(DE__52.EQ.'-'.AND.DEdeg_104.GE.0) DEdeg_104=-DEdeg_104
c ..............Just test output...........
write(6,53)
+ ID_52,k_52,RAhour_52,e_RAhour_52,DEdeg_105,e_DEdeg_52,Bmag_52,
+ e_Bmag_52,Epoch_52,FWHM_52,cI_52,RAh_52,RAm_52,RAs_52,DE__52,
+ DEd_52,DEm_52,DEs_52,f_mag_52,pmRA_52,pmDE_52,B4mag_52,
+ Vmag_52,rmag_52,imag_52
write(6,'(6H Pos: 2F8.4)') RAdeg_52,DEdeg_104
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n53.dat' ! Star data file (zone from 53.0 to 53.9 degrees)
C Format for file interpretation
54 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n53.dat')
write(6,*) '....Loading file: f3n53.dat'
do i__=1,327494
read(1,'(A164)')ar__53
read(ar__53,54)
+ ID_53,k_53,RAhour_53,e_RAhour_53,DEdeg_107,e_DEdeg_53,Bmag_53,
+ e_Bmag_53,Epoch_53,FWHM_53,cI_53,RAh_53,RAm_53,RAs_53,DE__53,
+ DEd_53,DEm_53,DEs_53,f_mag_53,pmRA_53,pmDE_53,B4mag_53,
+ Vmag_53,rmag_53,imag_53
RAdeg_53 = rNULL__
DEdeg_106 = rNULL__
c Derive coordinates RAdeg_53 and DEdeg_106 from input data
c (RAdeg_53 and DEdeg_106 are set to rNULL__ when unknown)
if(RAhour_53 .GT. -180) RAdeg_53=RAhour_53*15.
if(DEdeg_107 .GE. 0) DEdeg_106=DEdeg_107
if(DEd_53 .GE. 0) DEdeg_106=DEdeg_106+DEd_53
if(DEm_53 .GE. 0) DEdeg_106=DEdeg_106+DEm_53/60.
if(DEs_53 .GE. 0) DEdeg_106=DEdeg_106+DEs_53/3600.
if(DE__53.EQ.'-'.AND.DEdeg_106.GE.0) DEdeg_106=-DEdeg_106
c ..............Just test output...........
write(6,54)
+ ID_53,k_53,RAhour_53,e_RAhour_53,DEdeg_107,e_DEdeg_53,Bmag_53,
+ e_Bmag_53,Epoch_53,FWHM_53,cI_53,RAh_53,RAm_53,RAs_53,DE__53,
+ DEd_53,DEm_53,DEs_53,f_mag_53,pmRA_53,pmDE_53,B4mag_53,
+ Vmag_53,rmag_53,imag_53
write(6,'(6H Pos: 2F8.4)') RAdeg_53,DEdeg_106
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n54.dat' ! Star data file (zone from 54.0 to 54.9 degrees)
C Format for file interpretation
55 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n54.dat')
write(6,*) '....Loading file: f3n54.dat'
do i__=1,310072
read(1,'(A164)')ar__54
read(ar__54,55)
+ ID_54,k_54,RAhour_54,e_RAhour_54,DEdeg_109,e_DEdeg_54,Bmag_54,
+ e_Bmag_54,Epoch_54,FWHM_54,cI_54,RAh_54,RAm_54,RAs_54,DE__54,
+ DEd_54,DEm_54,DEs_54,f_mag_54,pmRA_54,pmDE_54,B4mag_54,
+ Vmag_54,rmag_54,imag_54
RAdeg_54 = rNULL__
DEdeg_108 = rNULL__
c Derive coordinates RAdeg_54 and DEdeg_108 from input data
c (RAdeg_54 and DEdeg_108 are set to rNULL__ when unknown)
if(RAhour_54 .GT. -180) RAdeg_54=RAhour_54*15.
if(DEdeg_109 .GE. 0) DEdeg_108=DEdeg_109
if(DEd_54 .GE. 0) DEdeg_108=DEdeg_108+DEd_54
if(DEm_54 .GE. 0) DEdeg_108=DEdeg_108+DEm_54/60.
if(DEs_54 .GE. 0) DEdeg_108=DEdeg_108+DEs_54/3600.
if(DE__54.EQ.'-'.AND.DEdeg_108.GE.0) DEdeg_108=-DEdeg_108
c ..............Just test output...........
write(6,55)
+ ID_54,k_54,RAhour_54,e_RAhour_54,DEdeg_109,e_DEdeg_54,Bmag_54,
+ e_Bmag_54,Epoch_54,FWHM_54,cI_54,RAh_54,RAm_54,RAs_54,DE__54,
+ DEd_54,DEm_54,DEs_54,f_mag_54,pmRA_54,pmDE_54,B4mag_54,
+ Vmag_54,rmag_54,imag_54
write(6,'(6H Pos: 2F8.4)') RAdeg_54,DEdeg_108
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n55.dat' ! Star data file (zone from 55.0 to 55.9 degrees)
C Format for file interpretation
56 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n55.dat')
write(6,*) '....Loading file: f3n55.dat'
do i__=1,285012
read(1,'(A164)')ar__55
read(ar__55,56)
+ ID_55,k_55,RAhour_55,e_RAhour_55,DEdeg_111,e_DEdeg_55,Bmag_55,
+ e_Bmag_55,Epoch_55,FWHM_55,cI_55,RAh_55,RAm_55,RAs_55,DE__55,
+ DEd_55,DEm_55,DEs_55,f_mag_55,pmRA_55,pmDE_55,B4mag_55,
+ Vmag_55,rmag_55,imag_55
RAdeg_55 = rNULL__
DEdeg_110 = rNULL__
c Derive coordinates RAdeg_55 and DEdeg_110 from input data
c (RAdeg_55 and DEdeg_110 are set to rNULL__ when unknown)
if(RAhour_55 .GT. -180) RAdeg_55=RAhour_55*15.
if(DEdeg_111 .GE. 0) DEdeg_110=DEdeg_111
if(DEd_55 .GE. 0) DEdeg_110=DEdeg_110+DEd_55
if(DEm_55 .GE. 0) DEdeg_110=DEdeg_110+DEm_55/60.
if(DEs_55 .GE. 0) DEdeg_110=DEdeg_110+DEs_55/3600.
if(DE__55.EQ.'-'.AND.DEdeg_110.GE.0) DEdeg_110=-DEdeg_110
c ..............Just test output...........
write(6,56)
+ ID_55,k_55,RAhour_55,e_RAhour_55,DEdeg_111,e_DEdeg_55,Bmag_55,
+ e_Bmag_55,Epoch_55,FWHM_55,cI_55,RAh_55,RAm_55,RAs_55,DE__55,
+ DEd_55,DEm_55,DEs_55,f_mag_55,pmRA_55,pmDE_55,B4mag_55,
+ Vmag_55,rmag_55,imag_55
write(6,'(6H Pos: 2F8.4)') RAdeg_55,DEdeg_110
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n56.dat' ! Star data file (zone from 56.0 to 56.9 degrees)
C Format for file interpretation
57 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n56.dat')
write(6,*) '....Loading file: f3n56.dat'
do i__=1,286857
read(1,'(A164)')ar__56
read(ar__56,57)
+ ID_56,k_56,RAhour_56,e_RAhour_56,DEdeg_113,e_DEdeg_56,Bmag_56,
+ e_Bmag_56,Epoch_56,FWHM_56,cI_56,RAh_56,RAm_56,RAs_56,DE__56,
+ DEd_56,DEm_56,DEs_56,f_mag_56,pmRA_56,pmDE_56,B4mag_56,
+ Vmag_56,rmag_56,imag_56
RAdeg_56 = rNULL__
DEdeg_112 = rNULL__
c Derive coordinates RAdeg_56 and DEdeg_112 from input data
c (RAdeg_56 and DEdeg_112 are set to rNULL__ when unknown)
if(RAhour_56 .GT. -180) RAdeg_56=RAhour_56*15.
if(DEdeg_113 .GE. 0) DEdeg_112=DEdeg_113
if(DEd_56 .GE. 0) DEdeg_112=DEdeg_112+DEd_56
if(DEm_56 .GE. 0) DEdeg_112=DEdeg_112+DEm_56/60.
if(DEs_56 .GE. 0) DEdeg_112=DEdeg_112+DEs_56/3600.
if(DE__56.EQ.'-'.AND.DEdeg_112.GE.0) DEdeg_112=-DEdeg_112
c ..............Just test output...........
write(6,57)
+ ID_56,k_56,RAhour_56,e_RAhour_56,DEdeg_113,e_DEdeg_56,Bmag_56,
+ e_Bmag_56,Epoch_56,FWHM_56,cI_56,RAh_56,RAm_56,RAs_56,DE__56,
+ DEd_56,DEm_56,DEs_56,f_mag_56,pmRA_56,pmDE_56,B4mag_56,
+ Vmag_56,rmag_56,imag_56
write(6,'(6H Pos: 2F8.4)') RAdeg_56,DEdeg_112
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n57.dat' ! Star data file (zone from 57.0 to 57.9 degrees)
C Format for file interpretation
58 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n57.dat')
write(6,*) '....Loading file: f3n57.dat'
do i__=1,292508
read(1,'(A164)')ar__57
read(ar__57,58)
+ ID_57,k_57,RAhour_57,e_RAhour_57,DEdeg_115,e_DEdeg_57,Bmag_57,
+ e_Bmag_57,Epoch_57,FWHM_57,cI_57,RAh_57,RAm_57,RAs_57,DE__57,
+ DEd_57,DEm_57,DEs_57,f_mag_57,pmRA_57,pmDE_57,B4mag_57,
+ Vmag_57,rmag_57,imag_57
RAdeg_57 = rNULL__
DEdeg_114 = rNULL__
c Derive coordinates RAdeg_57 and DEdeg_114 from input data
c (RAdeg_57 and DEdeg_114 are set to rNULL__ when unknown)
if(RAhour_57 .GT. -180) RAdeg_57=RAhour_57*15.
if(DEdeg_115 .GE. 0) DEdeg_114=DEdeg_115
if(DEd_57 .GE. 0) DEdeg_114=DEdeg_114+DEd_57
if(DEm_57 .GE. 0) DEdeg_114=DEdeg_114+DEm_57/60.
if(DEs_57 .GE. 0) DEdeg_114=DEdeg_114+DEs_57/3600.
if(DE__57.EQ.'-'.AND.DEdeg_114.GE.0) DEdeg_114=-DEdeg_114
c ..............Just test output...........
write(6,58)
+ ID_57,k_57,RAhour_57,e_RAhour_57,DEdeg_115,e_DEdeg_57,Bmag_57,
+ e_Bmag_57,Epoch_57,FWHM_57,cI_57,RAh_57,RAm_57,RAs_57,DE__57,
+ DEd_57,DEm_57,DEs_57,f_mag_57,pmRA_57,pmDE_57,B4mag_57,
+ Vmag_57,rmag_57,imag_57
write(6,'(6H Pos: 2F8.4)') RAdeg_57,DEdeg_114
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n58.dat' ! Star data file (zone from 58.0 to 58.9 degrees)
C Format for file interpretation
59 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n58.dat')
write(6,*) '....Loading file: f3n58.dat'
do i__=1,257054
read(1,'(A164)')ar__58
read(ar__58,59)
+ ID_58,k_58,RAhour_58,e_RAhour_58,DEdeg_117,e_DEdeg_58,Bmag_58,
+ e_Bmag_58,Epoch_58,FWHM_58,cI_58,RAh_58,RAm_58,RAs_58,DE__58,
+ DEd_58,DEm_58,DEs_58,f_mag_58,pmRA_58,pmDE_58,B4mag_58,
+ Vmag_58,rmag_58,imag_58
RAdeg_58 = rNULL__
DEdeg_116 = rNULL__
c Derive coordinates RAdeg_58 and DEdeg_116 from input data
c (RAdeg_58 and DEdeg_116 are set to rNULL__ when unknown)
if(RAhour_58 .GT. -180) RAdeg_58=RAhour_58*15.
if(DEdeg_117 .GE. 0) DEdeg_116=DEdeg_117
if(DEd_58 .GE. 0) DEdeg_116=DEdeg_116+DEd_58
if(DEm_58 .GE. 0) DEdeg_116=DEdeg_116+DEm_58/60.
if(DEs_58 .GE. 0) DEdeg_116=DEdeg_116+DEs_58/3600.
if(DE__58.EQ.'-'.AND.DEdeg_116.GE.0) DEdeg_116=-DEdeg_116
c ..............Just test output...........
write(6,59)
+ ID_58,k_58,RAhour_58,e_RAhour_58,DEdeg_117,e_DEdeg_58,Bmag_58,
+ e_Bmag_58,Epoch_58,FWHM_58,cI_58,RAh_58,RAm_58,RAs_58,DE__58,
+ DEd_58,DEm_58,DEs_58,f_mag_58,pmRA_58,pmDE_58,B4mag_58,
+ Vmag_58,rmag_58,imag_58
write(6,'(6H Pos: 2F8.4)') RAdeg_58,DEdeg_116
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n59.dat' ! Star data file (zone from 59.0 to 59.9 degrees)
C Format for file interpretation
60 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n59.dat')
write(6,*) '....Loading file: f3n59.dat'
do i__=1,234981
read(1,'(A164)')ar__59
read(ar__59,60)
+ ID_59,k_59,RAhour_59,e_RAhour_59,DEdeg_119,e_DEdeg_59,Bmag_59,
+ e_Bmag_59,Epoch_59,FWHM_59,cI_59,RAh_59,RAm_59,RAs_59,DE__59,
+ DEd_59,DEm_59,DEs_59,f_mag_59,pmRA_59,pmDE_59,B4mag_59,
+ Vmag_59,rmag_59,imag_59
RAdeg_59 = rNULL__
DEdeg_118 = rNULL__
c Derive coordinates RAdeg_59 and DEdeg_118 from input data
c (RAdeg_59 and DEdeg_118 are set to rNULL__ when unknown)
if(RAhour_59 .GT. -180) RAdeg_59=RAhour_59*15.
if(DEdeg_119 .GE. 0) DEdeg_118=DEdeg_119
if(DEd_59 .GE. 0) DEdeg_118=DEdeg_118+DEd_59
if(DEm_59 .GE. 0) DEdeg_118=DEdeg_118+DEm_59/60.
if(DEs_59 .GE. 0) DEdeg_118=DEdeg_118+DEs_59/3600.
if(DE__59.EQ.'-'.AND.DEdeg_118.GE.0) DEdeg_118=-DEdeg_118
c ..............Just test output...........
write(6,60)
+ ID_59,k_59,RAhour_59,e_RAhour_59,DEdeg_119,e_DEdeg_59,Bmag_59,
+ e_Bmag_59,Epoch_59,FWHM_59,cI_59,RAh_59,RAm_59,RAs_59,DE__59,
+ DEd_59,DEm_59,DEs_59,f_mag_59,pmRA_59,pmDE_59,B4mag_59,
+ Vmag_59,rmag_59,imag_59
write(6,'(6H Pos: 2F8.4)') RAdeg_59,DEdeg_118
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n60.dat' ! Star data file (zone from 60.0 to 60.9 degrees)
C Format for file interpretation
61 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n60.dat')
write(6,*) '....Loading file: f3n60.dat'
do i__=1,209652
read(1,'(A164)')ar__60
read(ar__60,61)
+ ID_60,k_60,RAhour_60,e_RAhour_60,DEdeg_121,e_DEdeg_60,Bmag_60,
+ e_Bmag_60,Epoch_60,FWHM_60,cI_60,RAh_60,RAm_60,RAs_60,DE__60,
+ DEd_60,DEm_60,DEs_60,f_mag_60,pmRA_60,pmDE_60,B4mag_60,
+ Vmag_60,rmag_60,imag_60
RAdeg_60 = rNULL__
DEdeg_120 = rNULL__
c Derive coordinates RAdeg_60 and DEdeg_120 from input data
c (RAdeg_60 and DEdeg_120 are set to rNULL__ when unknown)
if(RAhour_60 .GT. -180) RAdeg_60=RAhour_60*15.
if(DEdeg_121 .GE. 0) DEdeg_120=DEdeg_121
if(DEd_60 .GE. 0) DEdeg_120=DEdeg_120+DEd_60
if(DEm_60 .GE. 0) DEdeg_120=DEdeg_120+DEm_60/60.
if(DEs_60 .GE. 0) DEdeg_120=DEdeg_120+DEs_60/3600.
if(DE__60.EQ.'-'.AND.DEdeg_120.GE.0) DEdeg_120=-DEdeg_120
c ..............Just test output...........
write(6,61)
+ ID_60,k_60,RAhour_60,e_RAhour_60,DEdeg_121,e_DEdeg_60,Bmag_60,
+ e_Bmag_60,Epoch_60,FWHM_60,cI_60,RAh_60,RAm_60,RAs_60,DE__60,
+ DEd_60,DEm_60,DEs_60,f_mag_60,pmRA_60,pmDE_60,B4mag_60,
+ Vmag_60,rmag_60,imag_60
write(6,'(6H Pos: 2F8.4)') RAdeg_60,DEdeg_120
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n61.dat' ! Star data file (zone from 61.0 to 61.9 degrees)
C Format for file interpretation
62 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n61.dat')
write(6,*) '....Loading file: f3n61.dat'
do i__=1,204434
read(1,'(A164)')ar__61
read(ar__61,62)
+ ID_61,k_61,RAhour_61,e_RAhour_61,DEdeg_123,e_DEdeg_61,Bmag_61,
+ e_Bmag_61,Epoch_61,FWHM_61,cI_61,RAh_61,RAm_61,RAs_61,DE__61,
+ DEd_61,DEm_61,DEs_61,f_mag_61,pmRA_61,pmDE_61,B4mag_61,
+ Vmag_61,rmag_61,imag_61
RAdeg_61 = rNULL__
DEdeg_122 = rNULL__
c Derive coordinates RAdeg_61 and DEdeg_122 from input data
c (RAdeg_61 and DEdeg_122 are set to rNULL__ when unknown)
if(RAhour_61 .GT. -180) RAdeg_61=RAhour_61*15.
if(DEdeg_123 .GE. 0) DEdeg_122=DEdeg_123
if(DEd_61 .GE. 0) DEdeg_122=DEdeg_122+DEd_61
if(DEm_61 .GE. 0) DEdeg_122=DEdeg_122+DEm_61/60.
if(DEs_61 .GE. 0) DEdeg_122=DEdeg_122+DEs_61/3600.
if(DE__61.EQ.'-'.AND.DEdeg_122.GE.0) DEdeg_122=-DEdeg_122
c ..............Just test output...........
write(6,62)
+ ID_61,k_61,RAhour_61,e_RAhour_61,DEdeg_123,e_DEdeg_61,Bmag_61,
+ e_Bmag_61,Epoch_61,FWHM_61,cI_61,RAh_61,RAm_61,RAs_61,DE__61,
+ DEd_61,DEm_61,DEs_61,f_mag_61,pmRA_61,pmDE_61,B4mag_61,
+ Vmag_61,rmag_61,imag_61
write(6,'(6H Pos: 2F8.4)') RAdeg_61,DEdeg_122
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n62.dat' ! Star data file (zone from 62.0 to 62.9 degrees)
C Format for file interpretation
63 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n62.dat')
write(6,*) '....Loading file: f3n62.dat'
do i__=1,196456
read(1,'(A164)')ar__62
read(ar__62,63)
+ ID_62,k_62,RAhour_62,e_RAhour_62,DEdeg_125,e_DEdeg_62,Bmag_62,
+ e_Bmag_62,Epoch_62,FWHM_62,cI_62,RAh_62,RAm_62,RAs_62,DE__62,
+ DEd_62,DEm_62,DEs_62,f_mag_62,pmRA_62,pmDE_62,B4mag_62,
+ Vmag_62,rmag_62,imag_62
RAdeg_62 = rNULL__
DEdeg_124 = rNULL__
c Derive coordinates RAdeg_62 and DEdeg_124 from input data
c (RAdeg_62 and DEdeg_124 are set to rNULL__ when unknown)
if(RAhour_62 .GT. -180) RAdeg_62=RAhour_62*15.
if(DEdeg_125 .GE. 0) DEdeg_124=DEdeg_125
if(DEd_62 .GE. 0) DEdeg_124=DEdeg_124+DEd_62
if(DEm_62 .GE. 0) DEdeg_124=DEdeg_124+DEm_62/60.
if(DEs_62 .GE. 0) DEdeg_124=DEdeg_124+DEs_62/3600.
if(DE__62.EQ.'-'.AND.DEdeg_124.GE.0) DEdeg_124=-DEdeg_124
c ..............Just test output...........
write(6,63)
+ ID_62,k_62,RAhour_62,e_RAhour_62,DEdeg_125,e_DEdeg_62,Bmag_62,
+ e_Bmag_62,Epoch_62,FWHM_62,cI_62,RAh_62,RAm_62,RAs_62,DE__62,
+ DEd_62,DEm_62,DEs_62,f_mag_62,pmRA_62,pmDE_62,B4mag_62,
+ Vmag_62,rmag_62,imag_62
write(6,'(6H Pos: 2F8.4)') RAdeg_62,DEdeg_124
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n63.dat' ! Star data file (zone from 63.0 to 63.9 degrees)
C Format for file interpretation
64 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n63.dat')
write(6,*) '....Loading file: f3n63.dat'
do i__=1,176102
read(1,'(A164)')ar__63
read(ar__63,64)
+ ID_63,k_63,RAhour_63,e_RAhour_63,DEdeg_127,e_DEdeg_63,Bmag_63,
+ e_Bmag_63,Epoch_63,FWHM_63,cI_63,RAh_63,RAm_63,RAs_63,DE__63,
+ DEd_63,DEm_63,DEs_63,f_mag_63,pmRA_63,pmDE_63,B4mag_63,
+ Vmag_63,rmag_63,imag_63
RAdeg_63 = rNULL__
DEdeg_126 = rNULL__
c Derive coordinates RAdeg_63 and DEdeg_126 from input data
c (RAdeg_63 and DEdeg_126 are set to rNULL__ when unknown)
if(RAhour_63 .GT. -180) RAdeg_63=RAhour_63*15.
if(DEdeg_127 .GE. 0) DEdeg_126=DEdeg_127
if(DEd_63 .GE. 0) DEdeg_126=DEdeg_126+DEd_63
if(DEm_63 .GE. 0) DEdeg_126=DEdeg_126+DEm_63/60.
if(DEs_63 .GE. 0) DEdeg_126=DEdeg_126+DEs_63/3600.
if(DE__63.EQ.'-'.AND.DEdeg_126.GE.0) DEdeg_126=-DEdeg_126
c ..............Just test output...........
write(6,64)
+ ID_63,k_63,RAhour_63,e_RAhour_63,DEdeg_127,e_DEdeg_63,Bmag_63,
+ e_Bmag_63,Epoch_63,FWHM_63,cI_63,RAh_63,RAm_63,RAs_63,DE__63,
+ DEd_63,DEm_63,DEs_63,f_mag_63,pmRA_63,pmDE_63,B4mag_63,
+ Vmag_63,rmag_63,imag_63
write(6,'(6H Pos: 2F8.4)') RAdeg_63,DEdeg_126
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n64.dat' ! Star data file (zone from 64.0 to 64.9 degrees)
C Format for file interpretation
65 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n64.dat')
write(6,*) '....Loading file: f3n64.dat'
do i__=1,123376
read(1,'(A164)')ar__64
read(ar__64,65)
+ ID_64,k_64,RAhour_64,e_RAhour_64,DEdeg_129,e_DEdeg_64,Bmag_64,
+ e_Bmag_64,Epoch_64,FWHM_64,cI_64,RAh_64,RAm_64,RAs_64,DE__64,
+ DEd_64,DEm_64,DEs_64,f_mag_64,pmRA_64,pmDE_64,B4mag_64,
+ Vmag_64,rmag_64,imag_64
RAdeg_64 = rNULL__
DEdeg_128 = rNULL__
c Derive coordinates RAdeg_64 and DEdeg_128 from input data
c (RAdeg_64 and DEdeg_128 are set to rNULL__ when unknown)
if(RAhour_64 .GT. -180) RAdeg_64=RAhour_64*15.
if(DEdeg_129 .GE. 0) DEdeg_128=DEdeg_129
if(DEd_64 .GE. 0) DEdeg_128=DEdeg_128+DEd_64
if(DEm_64 .GE. 0) DEdeg_128=DEdeg_128+DEm_64/60.
if(DEs_64 .GE. 0) DEdeg_128=DEdeg_128+DEs_64/3600.
if(DE__64.EQ.'-'.AND.DEdeg_128.GE.0) DEdeg_128=-DEdeg_128
c ..............Just test output...........
write(6,65)
+ ID_64,k_64,RAhour_64,e_RAhour_64,DEdeg_129,e_DEdeg_64,Bmag_64,
+ e_Bmag_64,Epoch_64,FWHM_64,cI_64,RAh_64,RAm_64,RAs_64,DE__64,
+ DEd_64,DEm_64,DEs_64,f_mag_64,pmRA_64,pmDE_64,B4mag_64,
+ Vmag_64,rmag_64,imag_64
write(6,'(6H Pos: 2F8.4)') RAdeg_64,DEdeg_128
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n65.dat' ! Star data file (zone from 65.0 to 65.9 degrees)
C Format for file interpretation
66 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n65.dat')
write(6,*) '....Loading file: f3n65.dat'
do i__=1,115517
read(1,'(A164)')ar__65
read(ar__65,66)
+ ID_65,k_65,RAhour_65,e_RAhour_65,DEdeg_131,e_DEdeg_65,Bmag_65,
+ e_Bmag_65,Epoch_65,FWHM_65,cI_65,RAh_65,RAm_65,RAs_65,DE__65,
+ DEd_65,DEm_65,DEs_65,f_mag_65,pmRA_65,pmDE_65,B4mag_65,
+ Vmag_65,rmag_65,imag_65
RAdeg_65 = rNULL__
DEdeg_130 = rNULL__
c Derive coordinates RAdeg_65 and DEdeg_130 from input data
c (RAdeg_65 and DEdeg_130 are set to rNULL__ when unknown)
if(RAhour_65 .GT. -180) RAdeg_65=RAhour_65*15.
if(DEdeg_131 .GE. 0) DEdeg_130=DEdeg_131
if(DEd_65 .GE. 0) DEdeg_130=DEdeg_130+DEd_65
if(DEm_65 .GE. 0) DEdeg_130=DEdeg_130+DEm_65/60.
if(DEs_65 .GE. 0) DEdeg_130=DEdeg_130+DEs_65/3600.
if(DE__65.EQ.'-'.AND.DEdeg_130.GE.0) DEdeg_130=-DEdeg_130
c ..............Just test output...........
write(6,66)
+ ID_65,k_65,RAhour_65,e_RAhour_65,DEdeg_131,e_DEdeg_65,Bmag_65,
+ e_Bmag_65,Epoch_65,FWHM_65,cI_65,RAh_65,RAm_65,RAs_65,DE__65,
+ DEd_65,DEm_65,DEs_65,f_mag_65,pmRA_65,pmDE_65,B4mag_65,
+ Vmag_65,rmag_65,imag_65
write(6,'(6H Pos: 2F8.4)') RAdeg_65,DEdeg_130
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n66.dat' ! Star data file (zone from 66.0 to 66.9 degrees)
C Format for file interpretation
67 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n66.dat')
write(6,*) '....Loading file: f3n66.dat'
do i__=1,104310
read(1,'(A164)')ar__66
read(ar__66,67)
+ ID_66,k_66,RAhour_66,e_RAhour_66,DEdeg_133,e_DEdeg_66,Bmag_66,
+ e_Bmag_66,Epoch_66,FWHM_66,cI_66,RAh_66,RAm_66,RAs_66,DE__66,
+ DEd_66,DEm_66,DEs_66,f_mag_66,pmRA_66,pmDE_66,B4mag_66,
+ Vmag_66,rmag_66,imag_66
RAdeg_66 = rNULL__
DEdeg_132 = rNULL__
c Derive coordinates RAdeg_66 and DEdeg_132 from input data
c (RAdeg_66 and DEdeg_132 are set to rNULL__ when unknown)
if(RAhour_66 .GT. -180) RAdeg_66=RAhour_66*15.
if(DEdeg_133 .GE. 0) DEdeg_132=DEdeg_133
if(DEd_66 .GE. 0) DEdeg_132=DEdeg_132+DEd_66
if(DEm_66 .GE. 0) DEdeg_132=DEdeg_132+DEm_66/60.
if(DEs_66 .GE. 0) DEdeg_132=DEdeg_132+DEs_66/3600.
if(DE__66.EQ.'-'.AND.DEdeg_132.GE.0) DEdeg_132=-DEdeg_132
c ..............Just test output...........
write(6,67)
+ ID_66,k_66,RAhour_66,e_RAhour_66,DEdeg_133,e_DEdeg_66,Bmag_66,
+ e_Bmag_66,Epoch_66,FWHM_66,cI_66,RAh_66,RAm_66,RAs_66,DE__66,
+ DEd_66,DEm_66,DEs_66,f_mag_66,pmRA_66,pmDE_66,B4mag_66,
+ Vmag_66,rmag_66,imag_66
write(6,'(6H Pos: 2F8.4)') RAdeg_66,DEdeg_132
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n67.dat' ! Star data file (zone from 67.0 to 67.9 degrees)
C Format for file interpretation
68 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n67.dat')
write(6,*) '....Loading file: f3n67.dat'
do i__=1,102538
read(1,'(A164)')ar__67
read(ar__67,68)
+ ID_67,k_67,RAhour_67,e_RAhour_67,DEdeg_135,e_DEdeg_67,Bmag_67,
+ e_Bmag_67,Epoch_67,FWHM_67,cI_67,RAh_67,RAm_67,RAs_67,DE__67,
+ DEd_67,DEm_67,DEs_67,f_mag_67,pmRA_67,pmDE_67,B4mag_67,
+ Vmag_67,rmag_67,imag_67
RAdeg_67 = rNULL__
DEdeg_134 = rNULL__
c Derive coordinates RAdeg_67 and DEdeg_134 from input data
c (RAdeg_67 and DEdeg_134 are set to rNULL__ when unknown)
if(RAhour_67 .GT. -180) RAdeg_67=RAhour_67*15.
if(DEdeg_135 .GE. 0) DEdeg_134=DEdeg_135
if(DEd_67 .GE. 0) DEdeg_134=DEdeg_134+DEd_67
if(DEm_67 .GE. 0) DEdeg_134=DEdeg_134+DEm_67/60.
if(DEs_67 .GE. 0) DEdeg_134=DEdeg_134+DEs_67/3600.
if(DE__67.EQ.'-'.AND.DEdeg_134.GE.0) DEdeg_134=-DEdeg_134
c ..............Just test output...........
write(6,68)
+ ID_67,k_67,RAhour_67,e_RAhour_67,DEdeg_135,e_DEdeg_67,Bmag_67,
+ e_Bmag_67,Epoch_67,FWHM_67,cI_67,RAh_67,RAm_67,RAs_67,DE__67,
+ DEd_67,DEm_67,DEs_67,f_mag_67,pmRA_67,pmDE_67,B4mag_67,
+ Vmag_67,rmag_67,imag_67
write(6,'(6H Pos: 2F8.4)') RAdeg_67,DEdeg_134
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n68.dat' ! Star data file (zone from 68.0 to 68.9 degrees)
C Format for file interpretation
69 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n68.dat')
write(6,*) '....Loading file: f3n68.dat'
do i__=1,109044
read(1,'(A164)')ar__68
read(ar__68,69)
+ ID_68,k_68,RAhour_68,e_RAhour_68,DEdeg_137,e_DEdeg_68,Bmag_68,
+ e_Bmag_68,Epoch_68,FWHM_68,cI_68,RAh_68,RAm_68,RAs_68,DE__68,
+ DEd_68,DEm_68,DEs_68,f_mag_68,pmRA_68,pmDE_68,B4mag_68,
+ Vmag_68,rmag_68,imag_68
RAdeg_68 = rNULL__
DEdeg_136 = rNULL__
c Derive coordinates RAdeg_68 and DEdeg_136 from input data
c (RAdeg_68 and DEdeg_136 are set to rNULL__ when unknown)
if(RAhour_68 .GT. -180) RAdeg_68=RAhour_68*15.
if(DEdeg_137 .GE. 0) DEdeg_136=DEdeg_137
if(DEd_68 .GE. 0) DEdeg_136=DEdeg_136+DEd_68
if(DEm_68 .GE. 0) DEdeg_136=DEdeg_136+DEm_68/60.
if(DEs_68 .GE. 0) DEdeg_136=DEdeg_136+DEs_68/3600.
if(DE__68.EQ.'-'.AND.DEdeg_136.GE.0) DEdeg_136=-DEdeg_136
c ..............Just test output...........
write(6,69)
+ ID_68,k_68,RAhour_68,e_RAhour_68,DEdeg_137,e_DEdeg_68,Bmag_68,
+ e_Bmag_68,Epoch_68,FWHM_68,cI_68,RAh_68,RAm_68,RAs_68,DE__68,
+ DEd_68,DEm_68,DEs_68,f_mag_68,pmRA_68,pmDE_68,B4mag_68,
+ Vmag_68,rmag_68,imag_68
write(6,'(6H Pos: 2F8.4)') RAdeg_68,DEdeg_136
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n69.dat' ! Star data file (zone from 69.0 to 69.9 degrees)
C Format for file interpretation
70 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n69.dat')
write(6,*) '....Loading file: f3n69.dat'
do i__=1,111398
read(1,'(A164)')ar__69
read(ar__69,70)
+ ID_69,k_69,RAhour_69,e_RAhour_69,DEdeg_139,e_DEdeg_69,Bmag_69,
+ e_Bmag_69,Epoch_69,FWHM_69,cI_69,RAh_69,RAm_69,RAs_69,DE__69,
+ DEd_69,DEm_69,DEs_69,f_mag_69,pmRA_69,pmDE_69,B4mag_69,
+ Vmag_69,rmag_69,imag_69
RAdeg_69 = rNULL__
DEdeg_138 = rNULL__
c Derive coordinates RAdeg_69 and DEdeg_138 from input data
c (RAdeg_69 and DEdeg_138 are set to rNULL__ when unknown)
if(RAhour_69 .GT. -180) RAdeg_69=RAhour_69*15.
if(DEdeg_139 .GE. 0) DEdeg_138=DEdeg_139
if(DEd_69 .GE. 0) DEdeg_138=DEdeg_138+DEd_69
if(DEm_69 .GE. 0) DEdeg_138=DEdeg_138+DEm_69/60.
if(DEs_69 .GE. 0) DEdeg_138=DEdeg_138+DEs_69/3600.
if(DE__69.EQ.'-'.AND.DEdeg_138.GE.0) DEdeg_138=-DEdeg_138
c ..............Just test output...........
write(6,70)
+ ID_69,k_69,RAhour_69,e_RAhour_69,DEdeg_139,e_DEdeg_69,Bmag_69,
+ e_Bmag_69,Epoch_69,FWHM_69,cI_69,RAh_69,RAm_69,RAs_69,DE__69,
+ DEd_69,DEm_69,DEs_69,f_mag_69,pmRA_69,pmDE_69,B4mag_69,
+ Vmag_69,rmag_69,imag_69
write(6,'(6H Pos: 2F8.4)') RAdeg_69,DEdeg_138
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n70.dat' ! Star data file (zone from 70.0 to 70.9 degrees)
C Format for file interpretation
71 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n70.dat')
write(6,*) '....Loading file: f3n70.dat'
do i__=1,112297
read(1,'(A164)')ar__70
read(ar__70,71)
+ ID_70,k_70,RAhour_70,e_RAhour_70,DEdeg_141,e_DEdeg_70,Bmag_70,
+ e_Bmag_70,Epoch_70,FWHM_70,cI_70,RAh_70,RAm_70,RAs_70,DE__70,
+ DEd_70,DEm_70,DEs_70,f_mag_70,pmRA_70,pmDE_70,B4mag_70,
+ Vmag_70,rmag_70,imag_70
RAdeg_70 = rNULL__
DEdeg_140 = rNULL__
c Derive coordinates RAdeg_70 and DEdeg_140 from input data
c (RAdeg_70 and DEdeg_140 are set to rNULL__ when unknown)
if(RAhour_70 .GT. -180) RAdeg_70=RAhour_70*15.
if(DEdeg_141 .GE. 0) DEdeg_140=DEdeg_141
if(DEd_70 .GE. 0) DEdeg_140=DEdeg_140+DEd_70
if(DEm_70 .GE. 0) DEdeg_140=DEdeg_140+DEm_70/60.
if(DEs_70 .GE. 0) DEdeg_140=DEdeg_140+DEs_70/3600.
if(DE__70.EQ.'-'.AND.DEdeg_140.GE.0) DEdeg_140=-DEdeg_140
c ..............Just test output...........
write(6,71)
+ ID_70,k_70,RAhour_70,e_RAhour_70,DEdeg_141,e_DEdeg_70,Bmag_70,
+ e_Bmag_70,Epoch_70,FWHM_70,cI_70,RAh_70,RAm_70,RAs_70,DE__70,
+ DEd_70,DEm_70,DEs_70,f_mag_70,pmRA_70,pmDE_70,B4mag_70,
+ Vmag_70,rmag_70,imag_70
write(6,'(6H Pos: 2F8.4)') RAdeg_70,DEdeg_140
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n71.dat' ! Star data file (zone from 71.0 to 71.9 degrees)
C Format for file interpretation
72 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n71.dat')
write(6,*) '....Loading file: f3n71.dat'
do i__=1,105491
read(1,'(A164)')ar__71
read(ar__71,72)
+ ID_71,k_71,RAhour_71,e_RAhour_71,DEdeg_143,e_DEdeg_71,Bmag_71,
+ e_Bmag_71,Epoch_71,FWHM_71,cI_71,RAh_71,RAm_71,RAs_71,DE__71,
+ DEd_71,DEm_71,DEs_71,f_mag_71,pmRA_71,pmDE_71,B4mag_71,
+ Vmag_71,rmag_71,imag_71
RAdeg_71 = rNULL__
DEdeg_142 = rNULL__
c Derive coordinates RAdeg_71 and DEdeg_142 from input data
c (RAdeg_71 and DEdeg_142 are set to rNULL__ when unknown)
if(RAhour_71 .GT. -180) RAdeg_71=RAhour_71*15.
if(DEdeg_143 .GE. 0) DEdeg_142=DEdeg_143
if(DEd_71 .GE. 0) DEdeg_142=DEdeg_142+DEd_71
if(DEm_71 .GE. 0) DEdeg_142=DEdeg_142+DEm_71/60.
if(DEs_71 .GE. 0) DEdeg_142=DEdeg_142+DEs_71/3600.
if(DE__71.EQ.'-'.AND.DEdeg_142.GE.0) DEdeg_142=-DEdeg_142
c ..............Just test output...........
write(6,72)
+ ID_71,k_71,RAhour_71,e_RAhour_71,DEdeg_143,e_DEdeg_71,Bmag_71,
+ e_Bmag_71,Epoch_71,FWHM_71,cI_71,RAh_71,RAm_71,RAs_71,DE__71,
+ DEd_71,DEm_71,DEs_71,f_mag_71,pmRA_71,pmDE_71,B4mag_71,
+ Vmag_71,rmag_71,imag_71
write(6,'(6H Pos: 2F8.4)') RAdeg_71,DEdeg_142
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n72.dat' ! Star data file (zone from 72.0 to 72.9 degrees)
C Format for file interpretation
73 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n72.dat')
write(6,*) '....Loading file: f3n72.dat'
do i__=1,95700
read(1,'(A164)')ar__72
read(ar__72,73)
+ ID_72,k_72,RAhour_72,e_RAhour_72,DEdeg_145,e_DEdeg_72,Bmag_72,
+ e_Bmag_72,Epoch_72,FWHM_72,cI_72,RAh_72,RAm_72,RAs_72,DE__72,
+ DEd_72,DEm_72,DEs_72,f_mag_72,pmRA_72,pmDE_72,B4mag_72,
+ Vmag_72,rmag_72,imag_72
RAdeg_72 = rNULL__
DEdeg_144 = rNULL__
c Derive coordinates RAdeg_72 and DEdeg_144 from input data
c (RAdeg_72 and DEdeg_144 are set to rNULL__ when unknown)
if(RAhour_72 .GT. -180) RAdeg_72=RAhour_72*15.
if(DEdeg_145 .GE. 0) DEdeg_144=DEdeg_145
if(DEd_72 .GE. 0) DEdeg_144=DEdeg_144+DEd_72
if(DEm_72 .GE. 0) DEdeg_144=DEdeg_144+DEm_72/60.
if(DEs_72 .GE. 0) DEdeg_144=DEdeg_144+DEs_72/3600.
if(DE__72.EQ.'-'.AND.DEdeg_144.GE.0) DEdeg_144=-DEdeg_144
c ..............Just test output...........
write(6,73)
+ ID_72,k_72,RAhour_72,e_RAhour_72,DEdeg_145,e_DEdeg_72,Bmag_72,
+ e_Bmag_72,Epoch_72,FWHM_72,cI_72,RAh_72,RAm_72,RAs_72,DE__72,
+ DEd_72,DEm_72,DEs_72,f_mag_72,pmRA_72,pmDE_72,B4mag_72,
+ Vmag_72,rmag_72,imag_72
write(6,'(6H Pos: 2F8.4)') RAdeg_72,DEdeg_144
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n73.dat' ! Star data file (zone from 73.0 to 73.9 degrees)
C Format for file interpretation
74 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n73.dat')
write(6,*) '....Loading file: f3n73.dat'
do i__=1,100130
read(1,'(A164)')ar__73
read(ar__73,74)
+ ID_73,k_73,RAhour_73,e_RAhour_73,DEdeg_147,e_DEdeg_73,Bmag_73,
+ e_Bmag_73,Epoch_73,FWHM_73,cI_73,RAh_73,RAm_73,RAs_73,DE__73,
+ DEd_73,DEm_73,DEs_73,f_mag_73,pmRA_73,pmDE_73,B4mag_73,
+ Vmag_73,rmag_73,imag_73
RAdeg_73 = rNULL__
DEdeg_146 = rNULL__
c Derive coordinates RAdeg_73 and DEdeg_146 from input data
c (RAdeg_73 and DEdeg_146 are set to rNULL__ when unknown)
if(RAhour_73 .GT. -180) RAdeg_73=RAhour_73*15.
if(DEdeg_147 .GE. 0) DEdeg_146=DEdeg_147
if(DEd_73 .GE. 0) DEdeg_146=DEdeg_146+DEd_73
if(DEm_73 .GE. 0) DEdeg_146=DEdeg_146+DEm_73/60.
if(DEs_73 .GE. 0) DEdeg_146=DEdeg_146+DEs_73/3600.
if(DE__73.EQ.'-'.AND.DEdeg_146.GE.0) DEdeg_146=-DEdeg_146
c ..............Just test output...........
write(6,74)
+ ID_73,k_73,RAhour_73,e_RAhour_73,DEdeg_147,e_DEdeg_73,Bmag_73,
+ e_Bmag_73,Epoch_73,FWHM_73,cI_73,RAh_73,RAm_73,RAs_73,DE__73,
+ DEd_73,DEm_73,DEs_73,f_mag_73,pmRA_73,pmDE_73,B4mag_73,
+ Vmag_73,rmag_73,imag_73
write(6,'(6H Pos: 2F8.4)') RAdeg_73,DEdeg_146
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n74.dat' ! Star data file (zone from 74.0 to 74.9 degrees)
C Format for file interpretation
75 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n74.dat')
write(6,*) '....Loading file: f3n74.dat'
do i__=1,94138
read(1,'(A164)')ar__74
read(ar__74,75)
+ ID_74,k_74,RAhour_74,e_RAhour_74,DEdeg_149,e_DEdeg_74,Bmag_74,
+ e_Bmag_74,Epoch_74,FWHM_74,cI_74,RAh_74,RAm_74,RAs_74,DE__74,
+ DEd_74,DEm_74,DEs_74,f_mag_74,pmRA_74,pmDE_74,B4mag_74,
+ Vmag_74,rmag_74,imag_74
RAdeg_74 = rNULL__
DEdeg_148 = rNULL__
c Derive coordinates RAdeg_74 and DEdeg_148 from input data
c (RAdeg_74 and DEdeg_148 are set to rNULL__ when unknown)
if(RAhour_74 .GT. -180) RAdeg_74=RAhour_74*15.
if(DEdeg_149 .GE. 0) DEdeg_148=DEdeg_149
if(DEd_74 .GE. 0) DEdeg_148=DEdeg_148+DEd_74
if(DEm_74 .GE. 0) DEdeg_148=DEdeg_148+DEm_74/60.
if(DEs_74 .GE. 0) DEdeg_148=DEdeg_148+DEs_74/3600.
if(DE__74.EQ.'-'.AND.DEdeg_148.GE.0) DEdeg_148=-DEdeg_148
c ..............Just test output...........
write(6,75)
+ ID_74,k_74,RAhour_74,e_RAhour_74,DEdeg_149,e_DEdeg_74,Bmag_74,
+ e_Bmag_74,Epoch_74,FWHM_74,cI_74,RAh_74,RAm_74,RAs_74,DE__74,
+ DEd_74,DEm_74,DEs_74,f_mag_74,pmRA_74,pmDE_74,B4mag_74,
+ Vmag_74,rmag_74,imag_74
write(6,'(6H Pos: 2F8.4)') RAdeg_74,DEdeg_148
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n75.dat' ! Star data file (zone from 75.0 to 75.9 degrees)
C Format for file interpretation
76 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n75.dat')
write(6,*) '....Loading file: f3n75.dat'
do i__=1,83239
read(1,'(A164)')ar__75
read(ar__75,76)
+ ID_75,k_75,RAhour_75,e_RAhour_75,DEdeg_151,e_DEdeg_75,Bmag_75,
+ e_Bmag_75,Epoch_75,FWHM_75,cI_75,RAh_75,RAm_75,RAs_75,DE__75,
+ DEd_75,DEm_75,DEs_75,f_mag_75,pmRA_75,pmDE_75,B4mag_75,
+ Vmag_75,rmag_75,imag_75
RAdeg_75 = rNULL__
DEdeg_150 = rNULL__
c Derive coordinates RAdeg_75 and DEdeg_150 from input data
c (RAdeg_75 and DEdeg_150 are set to rNULL__ when unknown)
if(RAhour_75 .GT. -180) RAdeg_75=RAhour_75*15.
if(DEdeg_151 .GE. 0) DEdeg_150=DEdeg_151
if(DEd_75 .GE. 0) DEdeg_150=DEdeg_150+DEd_75
if(DEm_75 .GE. 0) DEdeg_150=DEdeg_150+DEm_75/60.
if(DEs_75 .GE. 0) DEdeg_150=DEdeg_150+DEs_75/3600.
if(DE__75.EQ.'-'.AND.DEdeg_150.GE.0) DEdeg_150=-DEdeg_150
c ..............Just test output...........
write(6,76)
+ ID_75,k_75,RAhour_75,e_RAhour_75,DEdeg_151,e_DEdeg_75,Bmag_75,
+ e_Bmag_75,Epoch_75,FWHM_75,cI_75,RAh_75,RAm_75,RAs_75,DE__75,
+ DEd_75,DEm_75,DEs_75,f_mag_75,pmRA_75,pmDE_75,B4mag_75,
+ Vmag_75,rmag_75,imag_75
write(6,'(6H Pos: 2F8.4)') RAdeg_75,DEdeg_150
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n76.dat' ! Star data file (zone from 76.0 to 76.9 degrees)
C Format for file interpretation
77 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n76.dat')
write(6,*) '....Loading file: f3n76.dat'
do i__=1,72388
read(1,'(A164)')ar__76
read(ar__76,77)
+ ID_76,k_76,RAhour_76,e_RAhour_76,DEdeg_153,e_DEdeg_76,Bmag_76,
+ e_Bmag_76,Epoch_76,FWHM_76,cI_76,RAh_76,RAm_76,RAs_76,DE__76,
+ DEd_76,DEm_76,DEs_76,f_mag_76,pmRA_76,pmDE_76,B4mag_76,
+ Vmag_76,rmag_76,imag_76
RAdeg_76 = rNULL__
DEdeg_152 = rNULL__
c Derive coordinates RAdeg_76 and DEdeg_152 from input data
c (RAdeg_76 and DEdeg_152 are set to rNULL__ when unknown)
if(RAhour_76 .GT. -180) RAdeg_76=RAhour_76*15.
if(DEdeg_153 .GE. 0) DEdeg_152=DEdeg_153
if(DEd_76 .GE. 0) DEdeg_152=DEdeg_152+DEd_76
if(DEm_76 .GE. 0) DEdeg_152=DEdeg_152+DEm_76/60.
if(DEs_76 .GE. 0) DEdeg_152=DEdeg_152+DEs_76/3600.
if(DE__76.EQ.'-'.AND.DEdeg_152.GE.0) DEdeg_152=-DEdeg_152
c ..............Just test output...........
write(6,77)
+ ID_76,k_76,RAhour_76,e_RAhour_76,DEdeg_153,e_DEdeg_76,Bmag_76,
+ e_Bmag_76,Epoch_76,FWHM_76,cI_76,RAh_76,RAm_76,RAs_76,DE__76,
+ DEd_76,DEm_76,DEs_76,f_mag_76,pmRA_76,pmDE_76,B4mag_76,
+ Vmag_76,rmag_76,imag_76
write(6,'(6H Pos: 2F8.4)') RAdeg_76,DEdeg_152
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n77.dat' ! Star data file (zone from 77.0 to 77.9 degrees)
C Format for file interpretation
78 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n77.dat')
write(6,*) '....Loading file: f3n77.dat'
do i__=1,75577
read(1,'(A164)')ar__77
read(ar__77,78)
+ ID_77,k_77,RAhour_77,e_RAhour_77,DEdeg_155,e_DEdeg_77,Bmag_77,
+ e_Bmag_77,Epoch_77,FWHM_77,cI_77,RAh_77,RAm_77,RAs_77,DE__77,
+ DEd_77,DEm_77,DEs_77,f_mag_77,pmRA_77,pmDE_77,B4mag_77,
+ Vmag_77,rmag_77,imag_77
RAdeg_77 = rNULL__
DEdeg_154 = rNULL__
c Derive coordinates RAdeg_77 and DEdeg_154 from input data
c (RAdeg_77 and DEdeg_154 are set to rNULL__ when unknown)
if(RAhour_77 .GT. -180) RAdeg_77=RAhour_77*15.
if(DEdeg_155 .GE. 0) DEdeg_154=DEdeg_155
if(DEd_77 .GE. 0) DEdeg_154=DEdeg_154+DEd_77
if(DEm_77 .GE. 0) DEdeg_154=DEdeg_154+DEm_77/60.
if(DEs_77 .GE. 0) DEdeg_154=DEdeg_154+DEs_77/3600.
if(DE__77.EQ.'-'.AND.DEdeg_154.GE.0) DEdeg_154=-DEdeg_154
c ..............Just test output...........
write(6,78)
+ ID_77,k_77,RAhour_77,e_RAhour_77,DEdeg_155,e_DEdeg_77,Bmag_77,
+ e_Bmag_77,Epoch_77,FWHM_77,cI_77,RAh_77,RAm_77,RAs_77,DE__77,
+ DEd_77,DEm_77,DEs_77,f_mag_77,pmRA_77,pmDE_77,B4mag_77,
+ Vmag_77,rmag_77,imag_77
write(6,'(6H Pos: 2F8.4)') RAdeg_77,DEdeg_154
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n78.dat' ! Star data file (zone from 78.0 to 78.9 degrees)
C Format for file interpretation
79 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n78.dat')
write(6,*) '....Loading file: f3n78.dat'
do i__=1,69999
read(1,'(A164)')ar__78
read(ar__78,79)
+ ID_78,k_78,RAhour_78,e_RAhour_78,DEdeg_157,e_DEdeg_78,Bmag_78,
+ e_Bmag_78,Epoch_78,FWHM_78,cI_78,RAh_78,RAm_78,RAs_78,DE__78,
+ DEd_78,DEm_78,DEs_78,f_mag_78,pmRA_78,pmDE_78,B4mag_78,
+ Vmag_78,rmag_78,imag_78
RAdeg_78 = rNULL__
DEdeg_156 = rNULL__
c Derive coordinates RAdeg_78 and DEdeg_156 from input data
c (RAdeg_78 and DEdeg_156 are set to rNULL__ when unknown)
if(RAhour_78 .GT. -180) RAdeg_78=RAhour_78*15.
if(DEdeg_157 .GE. 0) DEdeg_156=DEdeg_157
if(DEd_78 .GE. 0) DEdeg_156=DEdeg_156+DEd_78
if(DEm_78 .GE. 0) DEdeg_156=DEdeg_156+DEm_78/60.
if(DEs_78 .GE. 0) DEdeg_156=DEdeg_156+DEs_78/3600.
if(DE__78.EQ.'-'.AND.DEdeg_156.GE.0) DEdeg_156=-DEdeg_156
c ..............Just test output...........
write(6,79)
+ ID_78,k_78,RAhour_78,e_RAhour_78,DEdeg_157,e_DEdeg_78,Bmag_78,
+ e_Bmag_78,Epoch_78,FWHM_78,cI_78,RAh_78,RAm_78,RAs_78,DE__78,
+ DEd_78,DEm_78,DEs_78,f_mag_78,pmRA_78,pmDE_78,B4mag_78,
+ Vmag_78,rmag_78,imag_78
write(6,'(6H Pos: 2F8.4)') RAdeg_78,DEdeg_156
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n79.dat' ! Star data file (zone from 79.0 to 79.9 degrees)
C Format for file interpretation
80 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n79.dat')
write(6,*) '....Loading file: f3n79.dat'
do i__=1,61035
read(1,'(A164)')ar__79
read(ar__79,80)
+ ID_79,k_79,RAhour_79,e_RAhour_79,DEdeg_159,e_DEdeg_79,Bmag_79,
+ e_Bmag_79,Epoch_79,FWHM_79,cI_79,RAh_79,RAm_79,RAs_79,DE__79,
+ DEd_79,DEm_79,DEs_79,f_mag_79,pmRA_79,pmDE_79,B4mag_79,
+ Vmag_79,rmag_79,imag_79
RAdeg_79 = rNULL__
DEdeg_158 = rNULL__
c Derive coordinates RAdeg_79 and DEdeg_158 from input data
c (RAdeg_79 and DEdeg_158 are set to rNULL__ when unknown)
if(RAhour_79 .GT. -180) RAdeg_79=RAhour_79*15.
if(DEdeg_159 .GE. 0) DEdeg_158=DEdeg_159
if(DEd_79 .GE. 0) DEdeg_158=DEdeg_158+DEd_79
if(DEm_79 .GE. 0) DEdeg_158=DEdeg_158+DEm_79/60.
if(DEs_79 .GE. 0) DEdeg_158=DEdeg_158+DEs_79/3600.
if(DE__79.EQ.'-'.AND.DEdeg_158.GE.0) DEdeg_158=-DEdeg_158
c ..............Just test output...........
write(6,80)
+ ID_79,k_79,RAhour_79,e_RAhour_79,DEdeg_159,e_DEdeg_79,Bmag_79,
+ e_Bmag_79,Epoch_79,FWHM_79,cI_79,RAh_79,RAm_79,RAs_79,DE__79,
+ DEd_79,DEm_79,DEs_79,f_mag_79,pmRA_79,pmDE_79,B4mag_79,
+ Vmag_79,rmag_79,imag_79
write(6,'(6H Pos: 2F8.4)') RAdeg_79,DEdeg_158
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n80.dat' ! Star data file (zone from 80.0 to 80.9 degrees)
C Format for file interpretation
81 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n80.dat')
write(6,*) '....Loading file: f3n80.dat'
do i__=1,45432
read(1,'(A164)')ar__80
read(ar__80,81)
+ ID_80,k_80,RAhour_80,e_RAhour_80,DEdeg_161,e_DEdeg_80,Bmag_80,
+ e_Bmag_80,Epoch_80,FWHM_80,cI_80,RAh_80,RAm_80,RAs_80,DE__80,
+ DEd_80,DEm_80,DEs_80,f_mag_80,pmRA_80,pmDE_80,B4mag_80,
+ Vmag_80,rmag_80,imag_80
RAdeg_80 = rNULL__
DEdeg_160 = rNULL__
c Derive coordinates RAdeg_80 and DEdeg_160 from input data
c (RAdeg_80 and DEdeg_160 are set to rNULL__ when unknown)
if(RAhour_80 .GT. -180) RAdeg_80=RAhour_80*15.
if(DEdeg_161 .GE. 0) DEdeg_160=DEdeg_161
if(DEd_80 .GE. 0) DEdeg_160=DEdeg_160+DEd_80
if(DEm_80 .GE. 0) DEdeg_160=DEdeg_160+DEm_80/60.
if(DEs_80 .GE. 0) DEdeg_160=DEdeg_160+DEs_80/3600.
if(DE__80.EQ.'-'.AND.DEdeg_160.GE.0) DEdeg_160=-DEdeg_160
c ..............Just test output...........
write(6,81)
+ ID_80,k_80,RAhour_80,e_RAhour_80,DEdeg_161,e_DEdeg_80,Bmag_80,
+ e_Bmag_80,Epoch_80,FWHM_80,cI_80,RAh_80,RAm_80,RAs_80,DE__80,
+ DEd_80,DEm_80,DEs_80,f_mag_80,pmRA_80,pmDE_80,B4mag_80,
+ Vmag_80,rmag_80,imag_80
write(6,'(6H Pos: 2F8.4)') RAdeg_80,DEdeg_160
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n81.dat' ! Star data file (zone from 81.0 to 81.9 degrees)
C Format for file interpretation
82 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n81.dat')
write(6,*) '....Loading file: f3n81.dat'
do i__=1,46996
read(1,'(A164)')ar__81
read(ar__81,82)
+ ID_81,k_81,RAhour_81,e_RAhour_81,DEdeg_163,e_DEdeg_81,Bmag_81,
+ e_Bmag_81,Epoch_81,FWHM_81,cI_81,RAh_81,RAm_81,RAs_81,DE__81,
+ DEd_81,DEm_81,DEs_81,f_mag_81,pmRA_81,pmDE_81,B4mag_81,
+ Vmag_81,rmag_81,imag_81
RAdeg_81 = rNULL__
DEdeg_162 = rNULL__
c Derive coordinates RAdeg_81 and DEdeg_162 from input data
c (RAdeg_81 and DEdeg_162 are set to rNULL__ when unknown)
if(RAhour_81 .GT. -180) RAdeg_81=RAhour_81*15.
if(DEdeg_163 .GE. 0) DEdeg_162=DEdeg_163
if(DEd_81 .GE. 0) DEdeg_162=DEdeg_162+DEd_81
if(DEm_81 .GE. 0) DEdeg_162=DEdeg_162+DEm_81/60.
if(DEs_81 .GE. 0) DEdeg_162=DEdeg_162+DEs_81/3600.
if(DE__81.EQ.'-'.AND.DEdeg_162.GE.0) DEdeg_162=-DEdeg_162
c ..............Just test output...........
write(6,82)
+ ID_81,k_81,RAhour_81,e_RAhour_81,DEdeg_163,e_DEdeg_81,Bmag_81,
+ e_Bmag_81,Epoch_81,FWHM_81,cI_81,RAh_81,RAm_81,RAs_81,DE__81,
+ DEd_81,DEm_81,DEs_81,f_mag_81,pmRA_81,pmDE_81,B4mag_81,
+ Vmag_81,rmag_81,imag_81
write(6,'(6H Pos: 2F8.4)') RAdeg_81,DEdeg_162
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n82.dat' ! Star data file (zone from 82.0 to 82.9 degrees)
C Format for file interpretation
83 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n82.dat')
write(6,*) '....Loading file: f3n82.dat'
do i__=1,42334
read(1,'(A164)')ar__82
read(ar__82,83)
+ ID_82,k_82,RAhour_82,e_RAhour_82,DEdeg_165,e_DEdeg_82,Bmag_82,
+ e_Bmag_82,Epoch_82,FWHM_82,cI_82,RAh_82,RAm_82,RAs_82,DE__82,
+ DEd_82,DEm_82,DEs_82,f_mag_82,pmRA_82,pmDE_82,B4mag_82,
+ Vmag_82,rmag_82,imag_82
RAdeg_82 = rNULL__
DEdeg_164 = rNULL__
c Derive coordinates RAdeg_82 and DEdeg_164 from input data
c (RAdeg_82 and DEdeg_164 are set to rNULL__ when unknown)
if(RAhour_82 .GT. -180) RAdeg_82=RAhour_82*15.
if(DEdeg_165 .GE. 0) DEdeg_164=DEdeg_165
if(DEd_82 .GE. 0) DEdeg_164=DEdeg_164+DEd_82
if(DEm_82 .GE. 0) DEdeg_164=DEdeg_164+DEm_82/60.
if(DEs_82 .GE. 0) DEdeg_164=DEdeg_164+DEs_82/3600.
if(DE__82.EQ.'-'.AND.DEdeg_164.GE.0) DEdeg_164=-DEdeg_164
c ..............Just test output...........
write(6,83)
+ ID_82,k_82,RAhour_82,e_RAhour_82,DEdeg_165,e_DEdeg_82,Bmag_82,
+ e_Bmag_82,Epoch_82,FWHM_82,cI_82,RAh_82,RAm_82,RAs_82,DE__82,
+ DEd_82,DEm_82,DEs_82,f_mag_82,pmRA_82,pmDE_82,B4mag_82,
+ Vmag_82,rmag_82,imag_82
write(6,'(6H Pos: 2F8.4)') RAdeg_82,DEdeg_164
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n83.dat' ! Star data file (zone from 83.0 to 83.9 degrees)
C Format for file interpretation
84 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n83.dat')
write(6,*) '....Loading file: f3n83.dat'
do i__=1,35067
read(1,'(A164)')ar__83
read(ar__83,84)
+ ID_83,k_83,RAhour_83,e_RAhour_83,DEdeg_167,e_DEdeg_83,Bmag_83,
+ e_Bmag_83,Epoch_83,FWHM_83,cI_83,RAh_83,RAm_83,RAs_83,DE__83,
+ DEd_83,DEm_83,DEs_83,f_mag_83,pmRA_83,pmDE_83,B4mag_83,
+ Vmag_83,rmag_83,imag_83
RAdeg_83 = rNULL__
DEdeg_166 = rNULL__
c Derive coordinates RAdeg_83 and DEdeg_166 from input data
c (RAdeg_83 and DEdeg_166 are set to rNULL__ when unknown)
if(RAhour_83 .GT. -180) RAdeg_83=RAhour_83*15.
if(DEdeg_167 .GE. 0) DEdeg_166=DEdeg_167
if(DEd_83 .GE. 0) DEdeg_166=DEdeg_166+DEd_83
if(DEm_83 .GE. 0) DEdeg_166=DEdeg_166+DEm_83/60.
if(DEs_83 .GE. 0) DEdeg_166=DEdeg_166+DEs_83/3600.
if(DE__83.EQ.'-'.AND.DEdeg_166.GE.0) DEdeg_166=-DEdeg_166
c ..............Just test output...........
write(6,84)
+ ID_83,k_83,RAhour_83,e_RAhour_83,DEdeg_167,e_DEdeg_83,Bmag_83,
+ e_Bmag_83,Epoch_83,FWHM_83,cI_83,RAh_83,RAm_83,RAs_83,DE__83,
+ DEd_83,DEm_83,DEs_83,f_mag_83,pmRA_83,pmDE_83,B4mag_83,
+ Vmag_83,rmag_83,imag_83
write(6,'(6H Pos: 2F8.4)') RAdeg_83,DEdeg_166
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n84.dat' ! Star data file (zone from 84.0 to 84.9 degrees)
C Format for file interpretation
85 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n84.dat')
write(6,*) '....Loading file: f3n84.dat'
do i__=1,24488
read(1,'(A164)')ar__84
read(ar__84,85)
+ ID_84,k_84,RAhour_84,e_RAhour_84,DEdeg_169,e_DEdeg_84,Bmag_84,
+ e_Bmag_84,Epoch_84,FWHM_84,cI_84,RAh_84,RAm_84,RAs_84,DE__84,
+ DEd_84,DEm_84,DEs_84,f_mag_84,pmRA_84,pmDE_84,B4mag_84,
+ Vmag_84,rmag_84,imag_84
RAdeg_84 = rNULL__
DEdeg_168 = rNULL__
c Derive coordinates RAdeg_84 and DEdeg_168 from input data
c (RAdeg_84 and DEdeg_168 are set to rNULL__ when unknown)
if(RAhour_84 .GT. -180) RAdeg_84=RAhour_84*15.
if(DEdeg_169 .GE. 0) DEdeg_168=DEdeg_169
if(DEd_84 .GE. 0) DEdeg_168=DEdeg_168+DEd_84
if(DEm_84 .GE. 0) DEdeg_168=DEdeg_168+DEm_84/60.
if(DEs_84 .GE. 0) DEdeg_168=DEdeg_168+DEs_84/3600.
if(DE__84.EQ.'-'.AND.DEdeg_168.GE.0) DEdeg_168=-DEdeg_168
c ..............Just test output...........
write(6,85)
+ ID_84,k_84,RAhour_84,e_RAhour_84,DEdeg_169,e_DEdeg_84,Bmag_84,
+ e_Bmag_84,Epoch_84,FWHM_84,cI_84,RAh_84,RAm_84,RAs_84,DE__84,
+ DEd_84,DEm_84,DEs_84,f_mag_84,pmRA_84,pmDE_84,B4mag_84,
+ Vmag_84,rmag_84,imag_84
write(6,'(6H Pos: 2F8.4)') RAdeg_84,DEdeg_168
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n85.dat' ! Star data file (zone from 85.0 to 85.9 degrees)
C Format for file interpretation
86 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n85.dat')
write(6,*) '....Loading file: f3n85.dat'
do i__=1,21424
read(1,'(A164)')ar__85
read(ar__85,86)
+ ID_85,k_85,RAhour_85,e_RAhour_85,DEdeg_171,e_DEdeg_85,Bmag_85,
+ e_Bmag_85,Epoch_85,FWHM_85,cI_85,RAh_85,RAm_85,RAs_85,DE__85,
+ DEd_85,DEm_85,DEs_85,f_mag_85,pmRA_85,pmDE_85,B4mag_85,
+ Vmag_85,rmag_85,imag_85
RAdeg_85 = rNULL__
DEdeg_170 = rNULL__
c Derive coordinates RAdeg_85 and DEdeg_170 from input data
c (RAdeg_85 and DEdeg_170 are set to rNULL__ when unknown)
if(RAhour_85 .GT. -180) RAdeg_85=RAhour_85*15.
if(DEdeg_171 .GE. 0) DEdeg_170=DEdeg_171
if(DEd_85 .GE. 0) DEdeg_170=DEdeg_170+DEd_85
if(DEm_85 .GE. 0) DEdeg_170=DEdeg_170+DEm_85/60.
if(DEs_85 .GE. 0) DEdeg_170=DEdeg_170+DEs_85/3600.
if(DE__85.EQ.'-'.AND.DEdeg_170.GE.0) DEdeg_170=-DEdeg_170
c ..............Just test output...........
write(6,86)
+ ID_85,k_85,RAhour_85,e_RAhour_85,DEdeg_171,e_DEdeg_85,Bmag_85,
+ e_Bmag_85,Epoch_85,FWHM_85,cI_85,RAh_85,RAm_85,RAs_85,DE__85,
+ DEd_85,DEm_85,DEs_85,f_mag_85,pmRA_85,pmDE_85,B4mag_85,
+ Vmag_85,rmag_85,imag_85
write(6,'(6H Pos: 2F8.4)') RAdeg_85,DEdeg_170
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n86.dat' ! Star data file (zone from 86.0 to 86.9 degrees)
C Format for file interpretation
87 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n86.dat')
write(6,*) '....Loading file: f3n86.dat'
do i__=1,12349
read(1,'(A164)')ar__86
read(ar__86,87)
+ ID_86,k_86,RAhour_86,e_RAhour_86,DEdeg_173,e_DEdeg_86,Bmag_86,
+ e_Bmag_86,Epoch_86,FWHM_86,cI_86,RAh_86,RAm_86,RAs_86,DE__86,
+ DEd_86,DEm_86,DEs_86,f_mag_86,pmRA_86,pmDE_86,B4mag_86,
+ Vmag_86,rmag_86,imag_86
RAdeg_86 = rNULL__
DEdeg_172 = rNULL__
c Derive coordinates RAdeg_86 and DEdeg_172 from input data
c (RAdeg_86 and DEdeg_172 are set to rNULL__ when unknown)
if(RAhour_86 .GT. -180) RAdeg_86=RAhour_86*15.
if(DEdeg_173 .GE. 0) DEdeg_172=DEdeg_173
if(DEd_86 .GE. 0) DEdeg_172=DEdeg_172+DEd_86
if(DEm_86 .GE. 0) DEdeg_172=DEdeg_172+DEm_86/60.
if(DEs_86 .GE. 0) DEdeg_172=DEdeg_172+DEs_86/3600.
if(DE__86.EQ.'-'.AND.DEdeg_172.GE.0) DEdeg_172=-DEdeg_172
c ..............Just test output...........
write(6,87)
+ ID_86,k_86,RAhour_86,e_RAhour_86,DEdeg_173,e_DEdeg_86,Bmag_86,
+ e_Bmag_86,Epoch_86,FWHM_86,cI_86,RAh_86,RAm_86,RAs_86,DE__86,
+ DEd_86,DEm_86,DEs_86,f_mag_86,pmRA_86,pmDE_86,B4mag_86,
+ Vmag_86,rmag_86,imag_86
write(6,'(6H Pos: 2F8.4)') RAdeg_86,DEdeg_172
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n87.dat' ! Star data file (zone from 87.0 to 87.9 degrees)
C Format for file interpretation
88 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n87.dat')
write(6,*) '....Loading file: f3n87.dat'
do i__=1,4603
read(1,'(A164)')ar__87
read(ar__87,88)
+ ID_87,k_87,RAhour_87,e_RAhour_87,DEdeg_175,e_DEdeg_87,Bmag_87,
+ e_Bmag_87,Epoch_87,FWHM_87,cI_87,RAh_87,RAm_87,RAs_87,DE__87,
+ DEd_87,DEm_87,DEs_87,f_mag_87,pmRA_87,pmDE_87,B4mag_87,
+ Vmag_87,rmag_87,imag_87
RAdeg_87 = rNULL__
DEdeg_174 = rNULL__
c Derive coordinates RAdeg_87 and DEdeg_174 from input data
c (RAdeg_87 and DEdeg_174 are set to rNULL__ when unknown)
if(RAhour_87 .GT. -180) RAdeg_87=RAhour_87*15.
if(DEdeg_175 .GE. 0) DEdeg_174=DEdeg_175
if(DEd_87 .GE. 0) DEdeg_174=DEdeg_174+DEd_87
if(DEm_87 .GE. 0) DEdeg_174=DEdeg_174+DEm_87/60.
if(DEs_87 .GE. 0) DEdeg_174=DEdeg_174+DEs_87/3600.
if(DE__87.EQ.'-'.AND.DEdeg_174.GE.0) DEdeg_174=-DEdeg_174
c ..............Just test output...........
write(6,88)
+ ID_87,k_87,RAhour_87,e_RAhour_87,DEdeg_175,e_DEdeg_87,Bmag_87,
+ e_Bmag_87,Epoch_87,FWHM_87,cI_87,RAh_87,RAm_87,RAs_87,DE__87,
+ DEd_87,DEm_87,DEs_87,f_mag_87,pmRA_87,pmDE_87,B4mag_87,
+ Vmag_87,rmag_87,imag_87
write(6,'(6H Pos: 2F8.4)') RAdeg_87,DEdeg_174
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n88.dat' ! Star data file (zone from 88.0 to 88.9 degrees)
C Format for file interpretation
89 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n88.dat')
write(6,*) '....Loading file: f3n88.dat'
do i__=1,1919
read(1,'(A164)')ar__88
read(ar__88,89)
+ ID_88,k_88,RAhour_88,e_RAhour_88,DEdeg_177,e_DEdeg_88,Bmag_88,
+ e_Bmag_88,Epoch_88,FWHM_88,cI_88,RAh_88,RAm_88,RAs_88,DE__88,
+ DEd_88,DEm_88,DEs_88,f_mag_88,pmRA_88,pmDE_88,B4mag_88,
+ Vmag_88,rmag_88,imag_88
RAdeg_88 = rNULL__
DEdeg_176 = rNULL__
c Derive coordinates RAdeg_88 and DEdeg_176 from input data
c (RAdeg_88 and DEdeg_176 are set to rNULL__ when unknown)
if(RAhour_88 .GT. -180) RAdeg_88=RAhour_88*15.
if(DEdeg_177 .GE. 0) DEdeg_176=DEdeg_177
if(DEd_88 .GE. 0) DEdeg_176=DEdeg_176+DEd_88
if(DEm_88 .GE. 0) DEdeg_176=DEdeg_176+DEm_88/60.
if(DEs_88 .GE. 0) DEdeg_176=DEdeg_176+DEs_88/3600.
if(DE__88.EQ.'-'.AND.DEdeg_176.GE.0) DEdeg_176=-DEdeg_176
c ..............Just test output...........
write(6,89)
+ ID_88,k_88,RAhour_88,e_RAhour_88,DEdeg_177,e_DEdeg_88,Bmag_88,
+ e_Bmag_88,Epoch_88,FWHM_88,cI_88,RAh_88,RAm_88,RAs_88,DE__88,
+ DEd_88,DEm_88,DEs_88,f_mag_88,pmRA_88,pmDE_88,B4mag_88,
+ Vmag_88,rmag_88,imag_88
write(6,'(6H Pos: 2F8.4)') RAdeg_88,DEdeg_176
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3n89.dat' ! Star data file (zone from 89.0 to 89.9 degrees)
C Format for file interpretation
90 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3n89.dat')
write(6,*) '....Loading file: f3n89.dat'
do i__=1,151
read(1,'(A164)')ar__89
read(ar__89,90)
+ ID_89,k_89,RAhour_89,e_RAhour_89,DEdeg_179,e_DEdeg_89,Bmag_89,
+ e_Bmag_89,Epoch_89,FWHM_89,cI_89,RAh_89,RAm_89,RAs_89,DE__89,
+ DEd_89,DEm_89,DEs_89,f_mag_89,pmRA_89,pmDE_89,B4mag_89,
+ Vmag_89,rmag_89,imag_89
RAdeg_89 = rNULL__
DEdeg_178 = rNULL__
c Derive coordinates RAdeg_89 and DEdeg_178 from input data
c (RAdeg_89 and DEdeg_178 are set to rNULL__ when unknown)
if(RAhour_89 .GT. -180) RAdeg_89=RAhour_89*15.
if(DEdeg_179 .GE. 0) DEdeg_178=DEdeg_179
if(DEd_89 .GE. 0) DEdeg_178=DEdeg_178+DEd_89
if(DEm_89 .GE. 0) DEdeg_178=DEdeg_178+DEm_89/60.
if(DEs_89 .GE. 0) DEdeg_178=DEdeg_178+DEs_89/3600.
if(DE__89.EQ.'-'.AND.DEdeg_178.GE.0) DEdeg_178=-DEdeg_178
c ..............Just test output...........
write(6,90)
+ ID_89,k_89,RAhour_89,e_RAhour_89,DEdeg_179,e_DEdeg_89,Bmag_89,
+ e_Bmag_89,Epoch_89,FWHM_89,cI_89,RAh_89,RAm_89,RAs_89,DE__89,
+ DEd_89,DEm_89,DEs_89,f_mag_89,pmRA_89,pmDE_89,B4mag_89,
+ Vmag_89,rmag_89,imag_89
write(6,'(6H Pos: 2F8.4)') RAdeg_89,DEdeg_178
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3s00.dat' ! Star data file (zone from -00.9 to 00.0 degrees)
C Format for file interpretation
91 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3s00.dat')
write(6,*) '....Loading file: f3s00.dat'
do i__=1,269299
read(1,'(A164)')ar__90
read(ar__90,91)
+ ID_90,k_90,RAhour_90,e_RAhour_90,DEdeg_181,e_DEdeg_90,Bmag_90,
+ e_Bmag_90,Epoch_90,FWHM_90,cI_90,RAh_90,RAm_90,RAs_90,DE__90,
+ DEd_90,DEm_90,DEs_90,f_mag_90,pmRA_90,pmDE_90,B4mag_90,
+ Vmag_90,rmag_90,imag_90
RAdeg_90 = rNULL__
DEdeg_180 = rNULL__
c Derive coordinates RAdeg_90 and DEdeg_180 from input data
c (RAdeg_90 and DEdeg_180 are set to rNULL__ when unknown)
if(RAhour_90 .GT. -180) RAdeg_90=RAhour_90*15.
if(DEdeg_181 .GE. 0) DEdeg_180=DEdeg_181
if(DEd_90 .GE. 0) DEdeg_180=DEdeg_180+DEd_90
if(DEm_90 .GE. 0) DEdeg_180=DEdeg_180+DEm_90/60.
if(DEs_90 .GE. 0) DEdeg_180=DEdeg_180+DEs_90/3600.
if(DE__90.EQ.'-'.AND.DEdeg_180.GE.0) DEdeg_180=-DEdeg_180
c ..............Just test output...........
write(6,91)
+ ID_90,k_90,RAhour_90,e_RAhour_90,DEdeg_181,e_DEdeg_90,Bmag_90,
+ e_Bmag_90,Epoch_90,FWHM_90,cI_90,RAh_90,RAm_90,RAs_90,DE__90,
+ DEd_90,DEm_90,DEs_90,f_mag_90,pmRA_90,pmDE_90,B4mag_90,
+ Vmag_90,rmag_90,imag_90
write(6,'(6H Pos: 2F8.4)') RAdeg_90,DEdeg_180
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3s01.dat' ! Star data file (zone from -01.9 to -01.0 degrees)
C Format for file interpretation
92 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3s01.dat')
write(6,*) '....Loading file: f3s01.dat'
do i__=1,252875
read(1,'(A164)')ar__91
read(ar__91,92)
+ ID_91,k_91,RAhour_91,e_RAhour_91,DEdeg_183,e_DEdeg_91,Bmag_91,
+ e_Bmag_91,Epoch_91,FWHM_91,cI_91,RAh_91,RAm_91,RAs_91,DE__91,
+ DEd_91,DEm_91,DEs_91,f_mag_91,pmRA_91,pmDE_91,B4mag_91,
+ Vmag_91,rmag_91,imag_91
RAdeg_91 = rNULL__
DEdeg_182 = rNULL__
c Derive coordinates RAdeg_91 and DEdeg_182 from input data
c (RAdeg_91 and DEdeg_182 are set to rNULL__ when unknown)
if(RAhour_91 .GT. -180) RAdeg_91=RAhour_91*15.
if(DEdeg_183 .GE. 0) DEdeg_182=DEdeg_183
if(DEd_91 .GE. 0) DEdeg_182=DEdeg_182+DEd_91
if(DEm_91 .GE. 0) DEdeg_182=DEdeg_182+DEm_91/60.
if(DEs_91 .GE. 0) DEdeg_182=DEdeg_182+DEs_91/3600.
if(DE__91.EQ.'-'.AND.DEdeg_182.GE.0) DEdeg_182=-DEdeg_182
c ..............Just test output...........
write(6,92)
+ ID_91,k_91,RAhour_91,e_RAhour_91,DEdeg_183,e_DEdeg_91,Bmag_91,
+ e_Bmag_91,Epoch_91,FWHM_91,cI_91,RAh_91,RAm_91,RAs_91,DE__91,
+ DEd_91,DEm_91,DEs_91,f_mag_91,pmRA_91,pmDE_91,B4mag_91,
+ Vmag_91,rmag_91,imag_91
write(6,'(6H Pos: 2F8.4)') RAdeg_91,DEdeg_182
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3s02.dat' ! Star data file (zone from -02.9 to -02.0 degrees)
C Format for file interpretation
93 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3s02.dat')
write(6,*) '....Loading file: f3s02.dat'
do i__=1,212802
read(1,'(A164)')ar__92
read(ar__92,93)
+ ID_92,k_92,RAhour_92,e_RAhour_92,DEdeg_185,e_DEdeg_92,Bmag_92,
+ e_Bmag_92,Epoch_92,FWHM_92,cI_92,RAh_92,RAm_92,RAs_92,DE__92,
+ DEd_92,DEm_92,DEs_92,f_mag_92,pmRA_92,pmDE_92,B4mag_92,
+ Vmag_92,rmag_92,imag_92
RAdeg_92 = rNULL__
DEdeg_184 = rNULL__
c Derive coordinates RAdeg_92 and DEdeg_184 from input data
c (RAdeg_92 and DEdeg_184 are set to rNULL__ when unknown)
if(RAhour_92 .GT. -180) RAdeg_92=RAhour_92*15.
if(DEdeg_185 .GE. 0) DEdeg_184=DEdeg_185
if(DEd_92 .GE. 0) DEdeg_184=DEdeg_184+DEd_92
if(DEm_92 .GE. 0) DEdeg_184=DEdeg_184+DEm_92/60.
if(DEs_92 .GE. 0) DEdeg_184=DEdeg_184+DEs_92/3600.
if(DE__92.EQ.'-'.AND.DEdeg_184.GE.0) DEdeg_184=-DEdeg_184
c ..............Just test output...........
write(6,93)
+ ID_92,k_92,RAhour_92,e_RAhour_92,DEdeg_185,e_DEdeg_92,Bmag_92,
+ e_Bmag_92,Epoch_92,FWHM_92,cI_92,RAh_92,RAm_92,RAs_92,DE__92,
+ DEd_92,DEm_92,DEs_92,f_mag_92,pmRA_92,pmDE_92,B4mag_92,
+ Vmag_92,rmag_92,imag_92
write(6,'(6H Pos: 2F8.4)') RAdeg_92,DEdeg_184
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'f3s03.dat' ! Star data file (zone from -03.9 to -03.0 degrees)
C Format for file interpretation
94 format(
+ I7,1X,I2,1X,F12.8,1X,F5.3,2X,F11.7,1X,F5.3,2X,F5.2,1X,F4.2,2X,
+ F8.3,2X,F6.2,1X,F7.2,2X,I2,I2,F6.3,1X,A1,I2,I2,F5.2,2X,F6.3,
+ 2X,F7.1,2X,F7.1,2X,F6.3,1X,F6.3,1X,F6.3,1X,F6.3)
C Effective file loading
open(unit=1,status='old',file=
+'f3s03.dat')
write(6,*) '....Loading file: f3s03.dat'
do i__=1,148577
read(1,'(A164)')ar__93
read(ar__93,94)
+ ID_93,k_93,RAhour_93,e_RAhour_93,DEdeg_187,e_DEdeg_93,Bmag_93,
+ e_Bmag_93,Epoch_93,FWHM_93,cI_93,RAh_93,RAm_93,RAs_93,DE__93,
+ DEd_93,DEm_93,DEs_93,f_mag_93,pmRA_93,pmDE_93,B4mag_93,
+ Vmag_93,rmag_93,imag_93
RAdeg_93 = rNULL__
DEdeg_186 = rNULL__
c Derive coordinates RAdeg_93 and DEdeg_186 from input data
c (RAdeg_93 and DEdeg_186 are set to rNULL__ when unknown)
if(RAhour_93 .GT. -180) RAdeg_93=RAhour_93*15.
if(DEdeg_187 .GE. 0) DEdeg_186=DEdeg_187
if(DEd_93 .GE. 0) DEdeg_186=DEdeg_186+DEd_93
if(DEm_93 .GE. 0) DEdeg_186=DEdeg_186+DEm_93/60.
if(DEs_93 .GE. 0) DEdeg_186=DEdeg_186+DEs_93/3600.
if(DE__93.EQ.'-'.AND.DEdeg_186.GE.0) DEdeg_186=-DEdeg_186
c ..............Just test output...........
write(6,94)
+ ID_93,k_93,RAhour_93,e_RAhour_93,DEdeg_187,e_DEdeg_93,Bmag_93,
+ e_Bmag_93,Epoch_93,FWHM_93,cI_93,RAh_93,RAm_93,RAs_93,DE__93,
+ DEd_93,DEm_93,DEs_93,f_mag_93,pmRA_93,pmDE_93,B4mag_93,
+ Vmag_93,rmag_93,imag_93
write(6,'(6H Pos: 2F8.4)') RAdeg_93,DEdeg_186
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end