FORTRAN Generation
(/./ftp/cats/I/312)

Conversion of standardized ReadMe file for file /./ftp/cats/I/312 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 2017-Nov-20
C=============================================================================
*  This code was generated from the ReadMe file documenting a catalogue
*  according to the "Standard for Documentation of Astronomical Catalogues"
*  currently in use by the Astronomical Data Centers (CDS, ADC, A&A)
*  (see full documentation at URL http://vizier.u-strasbg.fr/doc/catstd.htx)
*  Please report problems or questions to   
C=============================================================================

      implicit none
*  Unspecified or NULL values, generally corresponding to blank columns,
*  are assigned one of the following special values:
*     rNULL__    for unknown or NULL floating-point values
*     iNULL__    for unknown or NULL   integer      values
      real*4     rNULL__
      integer*4  iNULL__
      parameter  (rNULL__=--2147483648.)  	! NULL real number
      parameter  (iNULL__=(-2147483647-1))	! NULL int  number
      integer    idig			! testing NULL number

C=============================================================================
Cat. I/312             PPMX Catalog of positions and proper motions   (Roeser+ 2008)
*================================================================================
*PPM-Extended, a catalogue of positions and proper motions
*     Roeser S., Schilbach E., Schwan H., Kharchenko N.V.,  Piskunov A.E.,
*     Scholz R.-D.
*    <Astron. Astrophys. 488, 401 (2008)>
*    =2008A&A...488..401R
C=============================================================================

C  Internal variables

      integer*4 i__

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'n0000.dat'	! Declination from +00 to +07.5{deg}

      integer*4 nr__
      parameter (nr__=1131366)	! Number of records
      character*166 ar__   	! Full-size record

C  J2000.0 position composed of: RAmas DEmas (Epoch=2000.0)
      character*15  PPMX        ! Name (IAU convention HHMMSS.S+DDMMSS)
      character*1   m_PPMX      ! [pf] if name is identical (346 cases)
      integer*8     RAmas       ! (mas) Right Ascension J2000.0, epoch 2000.0
      integer*8     DEmas       ! (mas) Declination J2000.0, epoch 2000.0
      integer*4     pmRA        ! (0.01mas/yr) Proper Motion in RA*cos(DEmas) (mas/100yr)
      integer*4     pmDE        ! (0.01mas/yr) Proper Motion in DE (mas/100yr)
      integer*4     epRA        ! (0.01yr) Mean Epoch (RA) - 2000.00
      integer*4     epDE        ! (0.01yr) Mean Epoch (DE) - 2000.00
      integer*4     e_RAmas     ! (mas) Mean error in RA*cos(DEmas) at epRA
      integer*4     e_DEmas     ! (mas) Mean error in DE at epDE
      integer*4     e_pmRA      ! (0.1mas/yr) Mean error in pmRA*cos(DEmas) (mas/10yr)
      integer*4     e_pmDE      ! (0.1mas/yr) Mean error in pmDE (mas/10yr)
      integer*4     Cmag        ! (mmag) ?=-9999 Catalogue magnitude from source
      integer*4     Rmag        ! (mmag) ?=-9999 Calculated Ru magnitude (579-642nm)
*                                            from source
      integer*4     Bmag        ! (mmag) ?=-9999 B magnitude in Johnson system
      integer*4     e_Bmag      ! (mmag) ?=-99 Standard error on B magnitude
      integer*4     Vmag        ! (mmag) ?=-9999 V magnitude in Johnson system
      integer*4     e_Vmag      ! (mmag) ?=-99 Standard error on V magnitude
      integer*4     Jmag        ! (mmag) ?=-9999 J magnitude from 2MASS
      integer*4     e_Jmag      ! (mmag) ?=-99 Standard error on J magnitude
      integer*4     Hmag        ! (mmag) ?=-9999 H magnitude from 2MASS
      integer*4     e_Hmag      ! (mmag) ?=-99 Standard error on H magnitude
      integer*4     Kmag        ! (mmag) ?=-9999 K magnitude from 2MASS
      integer*4     e_Kmag      ! (mmag) ?=-99 Standard error on K magnitude
      integer*4     Nobs        ! ? Number of observation in LSQ fit
      character*1   P           ! [P] P if LSQ fit is bad
      character*1   sub         ! [SHO] subset flag (1)
      character*1   r_ID        ! [HTPSGA] source catalogue flag (2)
      character*12  ID          ! star identifier in the source catalogue
*Note (1): PPMX consist of 3 parts designated as follows:
*    S = a survey S of stars brighter than R=12.8, consisting of 5,620,114 stars
*    H = 874,934 stars fainter than the survey limit have measurements in the AC
*        and therefore highly accurate proper motions
*    O = all other stars (11,593,871).
*Note (2): These columns give the star identifiers in the following catalogues:
*      H = the ARIHIP catalogue  (Wielen et al., 2001VeARI..40....1W)
*      T = the Tycho-2 catalogue (Hoeg et al. 2000, Cat. I/259)
*      P = the PPM catalogue (Roeser & Bastian, 1991, Cat. I/146, I/193)
*      S = STARNET catalogue (Roeser 1996, IAU Symp. 172, 481)
*      G = the Guide Star Catalog 1.2 (Morrison et al., 2001, Cat. I/254)
*      A = the AC2000.0 catalogue  (Urban et al., 2001, Cat. I/275)

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'n0730.dat'	! Declination from +07.5 to +15{deg}

      integer*4 nr__1
      parameter (nr__1=1040650)	! Number of records
      character*166 ar__1  	! Full-size record

C  J2000.0 position composed of: RAmas DEmas (Epoch=2000.0)
      character*15  PPMX_1      ! Name (IAU convention HHMMSS.S+DDMMSS)
      character*1   m_PPMX_1    ! [pf] if name is identical (346 cases)
      integer*8     RAmas_1     ! (mas) Right Ascension J2000.0, epoch 2000.0
      integer*8     DEmas_1     ! (mas) Declination J2000.0, epoch 2000.0
      integer*4     pmRA_1      ! (0.01mas/yr) Proper Motion in RA*cos(DEmas) (mas/100yr)
      integer*4     pmDE_1      ! (0.01mas/yr) Proper Motion in DE (mas/100yr)
      integer*4     epRA_1      ! (0.01yr) Mean Epoch (RA) - 2000.00
      integer*4     epDE_1      ! (0.01yr) Mean Epoch (DE) - 2000.00
      integer*4     e_RAmas_1   ! (mas) Mean error in RA*cos(DEmas) at epRA
      integer*4     e_DEmas_1   ! (mas) Mean error in DE at epDE
      integer*4     e_pmRA_1    ! (0.1mas/yr) Mean error in pmRA*cos(DEmas) (mas/10yr)
      integer*4     e_pmDE_1    ! (0.1mas/yr) Mean error in pmDE (mas/10yr)
      integer*4     Cmag_1      ! (mmag) ?=-9999 Catalogue magnitude from source
      integer*4     Rmag_1      ! (mmag) ?=-9999 Calculated Ru magnitude (579-642nm)
*                                            from source
      integer*4     Bmag_1      ! (mmag) ?=-9999 B magnitude in Johnson system
      integer*4     e_Bmag_1    ! (mmag) ?=-99 Standard error on B magnitude
      integer*4     Vmag_1      ! (mmag) ?=-9999 V magnitude in Johnson system
      integer*4     e_Vmag_1    ! (mmag) ?=-99 Standard error on V magnitude
      integer*4     Jmag_1      ! (mmag) ?=-9999 J magnitude from 2MASS
      integer*4     e_Jmag_1    ! (mmag) ?=-99 Standard error on J magnitude
      integer*4     Hmag_1      ! (mmag) ?=-9999 H magnitude from 2MASS
      integer*4     e_Hmag_1    ! (mmag) ?=-99 Standard error on H magnitude
      integer*4     Kmag_1      ! (mmag) ?=-9999 K magnitude from 2MASS
      integer*4     e_Kmag_1    ! (mmag) ?=-99 Standard error on K magnitude
      integer*4     Nobs_1      ! ? Number of observation in LSQ fit
      character*1   P_1         ! [P] P if LSQ fit is bad
      character*1   sub_1       ! [SHO] subset flag (1)
      character*1   r_ID_1      ! [HTPSGA] source catalogue flag (2)
      character*12  ID_1        ! star identifier in the source catalogue
*Note (1): PPMX consist of 3 parts designated as follows:
*    S = a survey S of stars brighter than R=12.8, consisting of 5,620,114 stars
*    H = 874,934 stars fainter than the survey limit have measurements in the AC
*        and therefore highly accurate proper motions
*    O = all other stars (11,593,871).
*Note (2): These columns give the star identifiers in the following catalogues:
*      H = the ARIHIP catalogue  (Wielen et al., 2001VeARI..40....1W)
*      T = the Tycho-2 catalogue (Hoeg et al. 2000, Cat. I/259)
*      P = the PPM catalogue (Roeser & Bastian, 1991, Cat. I/146, I/193)
*      S = STARNET catalogue (Roeser 1996, IAU Symp. 172, 481)
*      G = the Guide Star Catalog 1.2 (Morrison et al., 2001, Cat. I/254)
*      A = the AC2000.0 catalogue  (Urban et al., 2001, Cat. I/275)

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'n1500.dat'	! Declination from +15 to +22.5{deg}

      integer*4 nr__2
      parameter (nr__2=1005212)	! Number of records
      character*166 ar__2  	! Full-size record

C  J2000.0 position composed of: RAmas DEmas (Epoch=2000.0)
      character*15  PPMX_2      ! Name (IAU convention HHMMSS.S+DDMMSS)
      character*1   m_PPMX_2    ! [pf] if name is identical (346 cases)
      integer*8     RAmas_2     ! (mas) Right Ascension J2000.0, epoch 2000.0
      integer*8     DEmas_2     ! (mas) Declination J2000.0, epoch 2000.0
      integer*4     pmRA_2      ! (0.01mas/yr) Proper Motion in RA*cos(DEmas) (mas/100yr)
      integer*4     pmDE_2      ! (0.01mas/yr) Proper Motion in DE (mas/100yr)
      integer*4     epRA_2      ! (0.01yr) Mean Epoch (RA) - 2000.00
      integer*4     epDE_2      ! (0.01yr) Mean Epoch (DE) - 2000.00
      integer*4     e_RAmas_2   ! (mas) Mean error in RA*cos(DEmas) at epRA
      integer*4     e_DEmas_2   ! (mas) Mean error in DE at epDE
      integer*4     e_pmRA_2    ! (0.1mas/yr) Mean error in pmRA*cos(DEmas) (mas/10yr)
      integer*4     e_pmDE_2    ! (0.1mas/yr) Mean error in pmDE (mas/10yr)
      integer*4     Cmag_2      ! (mmag) ?=-9999 Catalogue magnitude from source
      integer*4     Rmag_2      ! (mmag) ?=-9999 Calculated Ru magnitude (579-642nm)
*                                            from source
      integer*4     Bmag_2      ! (mmag) ?=-9999 B magnitude in Johnson system
      integer*4     e_Bmag_2    ! (mmag) ?=-99 Standard error on B magnitude
      integer*4     Vmag_2      ! (mmag) ?=-9999 V magnitude in Johnson system
      integer*4     e_Vmag_2    ! (mmag) ?=-99 Standard error on V magnitude
      integer*4     Jmag_2      ! (mmag) ?=-9999 J magnitude from 2MASS
      integer*4     e_Jmag_2    ! (mmag) ?=-99 Standard error on J magnitude
      integer*4     Hmag_2      ! (mmag) ?=-9999 H magnitude from 2MASS
      integer*4     e_Hmag_2    ! (mmag) ?=-99 Standard error on H magnitude
      integer*4     Kmag_2      ! (mmag) ?=-9999 K magnitude from 2MASS
      integer*4     e_Kmag_2    ! (mmag) ?=-99 Standard error on K magnitude
      integer*4     Nobs_2      ! ? Number of observation in LSQ fit
      character*1   P_2         ! [P] P if LSQ fit is bad
      character*1   sub_2       ! [SHO] subset flag (1)
      character*1   r_ID_2      ! [HTPSGA] source catalogue flag (2)
      character*12  ID_2        ! star identifier in the source catalogue
*Note (1): PPMX consist of 3 parts designated as follows:
*    S = a survey S of stars brighter than R=12.8, consisting of 5,620,114 stars
*    H = 874,934 stars fainter than the survey limit have measurements in the AC
*        and therefore highly accurate proper motions
*    O = all other stars (11,593,871).
*Note (2): These columns give the star identifiers in the following catalogues:
*      H = the ARIHIP catalogue  (Wielen et al., 2001VeARI..40....1W)
*      T = the Tycho-2 catalogue (Hoeg et al. 2000, Cat. I/259)
*      P = the PPM catalogue (Roeser & Bastian, 1991, Cat. I/146, I/193)
*      S = STARNET catalogue (Roeser 1996, IAU Symp. 172, 481)
*      G = the Guide Star Catalog 1.2 (Morrison et al., 2001, Cat. I/254)
*      A = the AC2000.0 catalogue  (Urban et al., 2001, Cat. I/275)

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'n2230.dat'	! Declination from +22.5 to +30{deg}

      integer*4 nr__3
      parameter (nr__3=1040381)	! Number of records
      character*166 ar__3  	! Full-size record

C  J2000.0 position composed of: RAmas DEmas (Epoch=2000.0)
      character*15  PPMX_3      ! Name (IAU convention HHMMSS.S+DDMMSS)
      character*1   m_PPMX_3    ! [pf] if name is identical (346 cases)
      integer*8     RAmas_3     ! (mas) Right Ascension J2000.0, epoch 2000.0
      integer*8     DEmas_3     ! (mas) Declination J2000.0, epoch 2000.0
      integer*4     pmRA_3      ! (0.01mas/yr) Proper Motion in RA*cos(DEmas) (mas/100yr)
      integer*4     pmDE_3      ! (0.01mas/yr) Proper Motion in DE (mas/100yr)
      integer*4     epRA_3      ! (0.01yr) Mean Epoch (RA) - 2000.00
      integer*4     epDE_3      ! (0.01yr) Mean Epoch (DE) - 2000.00
      integer*4     e_RAmas_3   ! (mas) Mean error in RA*cos(DEmas) at epRA
      integer*4     e_DEmas_3   ! (mas) Mean error in DE at epDE
      integer*4     e_pmRA_3    ! (0.1mas/yr) Mean error in pmRA*cos(DEmas) (mas/10yr)
      integer*4     e_pmDE_3    ! (0.1mas/yr) Mean error in pmDE (mas/10yr)
      integer*4     Cmag_3      ! (mmag) ?=-9999 Catalogue magnitude from source
      integer*4     Rmag_3      ! (mmag) ?=-9999 Calculated Ru magnitude (579-642nm)
*                                            from source
      integer*4     Bmag_3      ! (mmag) ?=-9999 B magnitude in Johnson system
      integer*4     e_Bmag_3    ! (mmag) ?=-99 Standard error on B magnitude
      integer*4     Vmag_3      ! (mmag) ?=-9999 V magnitude in Johnson system
      integer*4     e_Vmag_3    ! (mmag) ?=-99 Standard error on V magnitude
      integer*4     Jmag_3      ! (mmag) ?=-9999 J magnitude from 2MASS
      integer*4     e_Jmag_3    ! (mmag) ?=-99 Standard error on J magnitude
      integer*4     Hmag_3      ! (mmag) ?=-9999 H magnitude from 2MASS
      integer*4     e_Hmag_3    ! (mmag) ?=-99 Standard error on H magnitude
      integer*4     Kmag_3      ! (mmag) ?=-9999 K magnitude from 2MASS
      integer*4     e_Kmag_3    ! (mmag) ?=-99 Standard error on K magnitude
      integer*4     Nobs_3      ! ? Number of observation in LSQ fit
      character*1   P_3         ! [P] P if LSQ fit is bad
      character*1   sub_3       ! [SHO] subset flag (1)
      character*1   r_ID_3      ! [HTPSGA] source catalogue flag (2)
      character*12  ID_3        ! star identifier in the source catalogue
*Note (1): PPMX consist of 3 parts designated as follows:
*    S = a survey S of stars brighter than R=12.8, consisting of 5,620,114 stars
*    H = 874,934 stars fainter than the survey limit have measurements in the AC
*        and therefore highly accurate proper motions
*    O = all other stars (11,593,871).
*Note (2): These columns give the star identifiers in the following catalogues:
*      H = the ARIHIP catalogue  (Wielen et al., 2001VeARI..40....1W)
*      T = the Tycho-2 catalogue (Hoeg et al. 2000, Cat. I/259)
*      P = the PPM catalogue (Roeser & Bastian, 1991, Cat. I/146, I/193)
*      S = STARNET catalogue (Roeser 1996, IAU Symp. 172, 481)
*      G = the Guide Star Catalog 1.2 (Morrison et al., 2001, Cat. I/254)
*      A = the AC2000.0 catalogue  (Urban et al., 2001, Cat. I/275)

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'n3000.dat'	! Declination from +30 to +37.5{deg}

      integer*4 nr__4
      parameter (nr__4=1020072)	! Number of records
      character*166 ar__4  	! Full-size record

C  J2000.0 position composed of: RAmas DEmas (Epoch=2000.0)
      character*15  PPMX_4      ! Name (IAU convention HHMMSS.S+DDMMSS)
      character*1   m_PPMX_4    ! [pf] if name is identical (346 cases)
      integer*8     RAmas_4     ! (mas) Right Ascension J2000.0, epoch 2000.0
      integer*8     DEmas_4     ! (mas) Declination J2000.0, epoch 2000.0
      integer*4     pmRA_4      ! (0.01mas/yr) Proper Motion in RA*cos(DEmas) (mas/100yr)
      integer*4     pmDE_4      ! (0.01mas/yr) Proper Motion in DE (mas/100yr)
      integer*4     epRA_4      ! (0.01yr) Mean Epoch (RA) - 2000.00
      integer*4     epDE_4      ! (0.01yr) Mean Epoch (DE) - 2000.00
      integer*4     e_RAmas_4   ! (mas) Mean error in RA*cos(DEmas) at epRA
      integer*4     e_DEmas_4   ! (mas) Mean error in DE at epDE
      integer*4     e_pmRA_4    ! (0.1mas/yr) Mean error in pmRA*cos(DEmas) (mas/10yr)
      integer*4     e_pmDE_4    ! (0.1mas/yr) Mean error in pmDE (mas/10yr)
      integer*4     Cmag_4      ! (mmag) ?=-9999 Catalogue magnitude from source
      integer*4     Rmag_4      ! (mmag) ?=-9999 Calculated Ru magnitude (579-642nm)
*                                            from source
      integer*4     Bmag_4      ! (mmag) ?=-9999 B magnitude in Johnson system
      integer*4     e_Bmag_4    ! (mmag) ?=-99 Standard error on B magnitude
      integer*4     Vmag_4      ! (mmag) ?=-9999 V magnitude in Johnson system
      integer*4     e_Vmag_4    ! (mmag) ?=-99 Standard error on V magnitude
      integer*4     Jmag_4      ! (mmag) ?=-9999 J magnitude from 2MASS
      integer*4     e_Jmag_4    ! (mmag) ?=-99 Standard error on J magnitude
      integer*4     Hmag_4      ! (mmag) ?=-9999 H magnitude from 2MASS
      integer*4     e_Hmag_4    ! (mmag) ?=-99 Standard error on H magnitude
      integer*4     Kmag_4      ! (mmag) ?=-9999 K magnitude from 2MASS
      integer*4     e_Kmag_4    ! (mmag) ?=-99 Standard error on K magnitude
      integer*4     Nobs_4      ! ? Number of observation in LSQ fit
      character*1   P_4         ! [P] P if LSQ fit is bad
      character*1   sub_4       ! [SHO] subset flag (1)
      character*1   r_ID_4      ! [HTPSGA] source catalogue flag (2)
      character*12  ID_4        ! star identifier in the source catalogue
*Note (1): PPMX consist of 3 parts designated as follows:
*    S = a survey S of stars brighter than R=12.8, consisting of 5,620,114 stars
*    H = 874,934 stars fainter than the survey limit have measurements in the AC
*        and therefore highly accurate proper motions
*    O = all other stars (11,593,871).
*Note (2): These columns give the star identifiers in the following catalogues:
*      H = the ARIHIP catalogue  (Wielen et al., 2001VeARI..40....1W)
*      T = the Tycho-2 catalogue (Hoeg et al. 2000, Cat. I/259)
*      P = the PPM catalogue (Roeser & Bastian, 1991, Cat. I/146, I/193)
*      S = STARNET catalogue (Roeser 1996, IAU Symp. 172, 481)
*      G = the Guide Star Catalog 1.2 (Morrison et al., 2001, Cat. I/254)
*      A = the AC2000.0 catalogue  (Urban et al., 2001, Cat. I/275)

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'n3730.dat'	! Declination from +37.5 to +45{deg}

      integer*4 nr__5
      parameter (nr__5=982895)	! Number of records
      character*166 ar__5  	! Full-size record

C  J2000.0 position composed of: RAmas DEmas (Epoch=2000.0)
      character*15  PPMX_5      ! Name (IAU convention HHMMSS.S+DDMMSS)
      character*1   m_PPMX_5    ! [pf] if name is identical (346 cases)
      integer*8     RAmas_5     ! (mas) Right Ascension J2000.0, epoch 2000.0
      integer*8     DEmas_5     ! (mas) Declination J2000.0, epoch 2000.0
      integer*4     pmRA_5      ! (0.01mas/yr) Proper Motion in RA*cos(DEmas) (mas/100yr)
      integer*4     pmDE_5      ! (0.01mas/yr) Proper Motion in DE (mas/100yr)
      integer*4     epRA_5      ! (0.01yr) Mean Epoch (RA) - 2000.00
      integer*4     epDE_5      ! (0.01yr) Mean Epoch (DE) - 2000.00
      integer*4     e_RAmas_5   ! (mas) Mean error in RA*cos(DEmas) at epRA
      integer*4     e_DEmas_5   ! (mas) Mean error in DE at epDE
      integer*4     e_pmRA_5    ! (0.1mas/yr) Mean error in pmRA*cos(DEmas) (mas/10yr)
      integer*4     e_pmDE_5    ! (0.1mas/yr) Mean error in pmDE (mas/10yr)
      integer*4     Cmag_5      ! (mmag) ?=-9999 Catalogue magnitude from source
      integer*4     Rmag_5      ! (mmag) ?=-9999 Calculated Ru magnitude (579-642nm)
*                                            from source
      integer*4     Bmag_5      ! (mmag) ?=-9999 B magnitude in Johnson system
      integer*4     e_Bmag_5    ! (mmag) ?=-99 Standard error on B magnitude
      integer*4     Vmag_5      ! (mmag) ?=-9999 V magnitude in Johnson system
      integer*4     e_Vmag_5    ! (mmag) ?=-99 Standard error on V magnitude
      integer*4     Jmag_5      ! (mmag) ?=-9999 J magnitude from 2MASS
      integer*4     e_Jmag_5    ! (mmag) ?=-99 Standard error on J magnitude
      integer*4     Hmag_5      ! (mmag) ?=-9999 H magnitude from 2MASS
      integer*4     e_Hmag_5    ! (mmag) ?=-99 Standard error on H magnitude
      integer*4     Kmag_5      ! (mmag) ?=-9999 K magnitude from 2MASS
      integer*4     e_Kmag_5    ! (mmag) ?=-99 Standard error on K magnitude
      integer*4     Nobs_5      ! ? Number of observation in LSQ fit
      character*1   P_5         ! [P] P if LSQ fit is bad
      character*1   sub_5       ! [SHO] subset flag (1)
      character*1   r_ID_5      ! [HTPSGA] source catalogue flag (2)
      character*12  ID_5        ! star identifier in the source catalogue
*Note (1): PPMX consist of 3 parts designated as follows:
*    S = a survey S of stars brighter than R=12.8, consisting of 5,620,114 stars
*    H = 874,934 stars fainter than the survey limit have measurements in the AC
*        and therefore highly accurate proper motions
*    O = all other stars (11,593,871).
*Note (2): These columns give the star identifiers in the following catalogues:
*      H = the ARIHIP catalogue  (Wielen et al., 2001VeARI..40....1W)
*      T = the Tycho-2 catalogue (Hoeg et al. 2000, Cat. I/259)
*      P = the PPM catalogue (Roeser & Bastian, 1991, Cat. I/146, I/193)
*      S = STARNET catalogue (Roeser 1996, IAU Symp. 172, 481)
*      G = the Guide Star Catalog 1.2 (Morrison et al., 2001, Cat. I/254)
*      A = the AC2000.0 catalogue  (Urban et al., 2001, Cat. I/275)

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'n4500.dat'	! Declination from +45 to +52.5{deg}

      integer*4 nr__6
      parameter (nr__6=863340)	! Number of records
      character*166 ar__6  	! Full-size record

C  J2000.0 position composed of: RAmas DEmas (Epoch=2000.0)
      character*15  PPMX_6      ! Name (IAU convention HHMMSS.S+DDMMSS)
      character*1   m_PPMX_6    ! [pf] if name is identical (346 cases)
      integer*8     RAmas_6     ! (mas) Right Ascension J2000.0, epoch 2000.0
      integer*8     DEmas_6     ! (mas) Declination J2000.0, epoch 2000.0
      integer*4     pmRA_6      ! (0.01mas/yr) Proper Motion in RA*cos(DEmas) (mas/100yr)
      integer*4     pmDE_6      ! (0.01mas/yr) Proper Motion in DE (mas/100yr)
      integer*4     epRA_6      ! (0.01yr) Mean Epoch (RA) - 2000.00
      integer*4     epDE_6      ! (0.01yr) Mean Epoch (DE) - 2000.00
      integer*4     e_RAmas_6   ! (mas) Mean error in RA*cos(DEmas) at epRA
      integer*4     e_DEmas_6   ! (mas) Mean error in DE at epDE
      integer*4     e_pmRA_6    ! (0.1mas/yr) Mean error in pmRA*cos(DEmas) (mas/10yr)
      integer*4     e_pmDE_6    ! (0.1mas/yr) Mean error in pmDE (mas/10yr)
      integer*4     Cmag_6      ! (mmag) ?=-9999 Catalogue magnitude from source
      integer*4     Rmag_6      ! (mmag) ?=-9999 Calculated Ru magnitude (579-642nm)
*                                            from source
      integer*4     Bmag_6      ! (mmag) ?=-9999 B magnitude in Johnson system
      integer*4     e_Bmag_6    ! (mmag) ?=-99 Standard error on B magnitude
      integer*4     Vmag_6      ! (mmag) ?=-9999 V magnitude in Johnson system
      integer*4     e_Vmag_6    ! (mmag) ?=-99 Standard error on V magnitude
      integer*4     Jmag_6      ! (mmag) ?=-9999 J magnitude from 2MASS
      integer*4     e_Jmag_6    ! (mmag) ?=-99 Standard error on J magnitude
      integer*4     Hmag_6      ! (mmag) ?=-9999 H magnitude from 2MASS
      integer*4     e_Hmag_6    ! (mmag) ?=-99 Standard error on H magnitude
      integer*4     Kmag_6      ! (mmag) ?=-9999 K magnitude from 2MASS
      integer*4     e_Kmag_6    ! (mmag) ?=-99 Standard error on K magnitude
      integer*4     Nobs_6      ! ? Number of observation in LSQ fit
      character*1   P_6         ! [P] P if LSQ fit is bad
      character*1   sub_6       ! [SHO] subset flag (1)
      character*1   r_ID_6      ! [HTPSGA] source catalogue flag (2)
      character*12  ID_6        ! star identifier in the source catalogue
*Note (1): PPMX consist of 3 parts designated as follows:
*    S = a survey S of stars brighter than R=12.8, consisting of 5,620,114 stars
*    H = 874,934 stars fainter than the survey limit have measurements in the AC
*        and therefore highly accurate proper motions
*    O = all other stars (11,593,871).
*Note (2): These columns give the star identifiers in the following catalogues:
*      H = the ARIHIP catalogue  (Wielen et al., 2001VeARI..40....1W)
*      T = the Tycho-2 catalogue (Hoeg et al. 2000, Cat. I/259)
*      P = the PPM catalogue (Roeser & Bastian, 1991, Cat. I/146, I/193)
*      S = STARNET catalogue (Roeser 1996, IAU Symp. 172, 481)
*      G = the Guide Star Catalog 1.2 (Morrison et al., 2001, Cat. I/254)
*      A = the AC2000.0 catalogue  (Urban et al., 2001, Cat. I/275)

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'n5230.dat'	! Declination from +52.5 to +60{deg}

      integer*4 nr__7
      parameter (nr__7=663079)	! Number of records
      character*166 ar__7  	! Full-size record

C  J2000.0 position composed of: RAmas DEmas (Epoch=2000.0)
      character*15  PPMX_7      ! Name (IAU convention HHMMSS.S+DDMMSS)
      character*1   m_PPMX_7    ! [pf] if name is identical (346 cases)
      integer*8     RAmas_7     ! (mas) Right Ascension J2000.0, epoch 2000.0
      integer*8     DEmas_7     ! (mas) Declination J2000.0, epoch 2000.0
      integer*4     pmRA_7      ! (0.01mas/yr) Proper Motion in RA*cos(DEmas) (mas/100yr)
      integer*4     pmDE_7      ! (0.01mas/yr) Proper Motion in DE (mas/100yr)
      integer*4     epRA_7      ! (0.01yr) Mean Epoch (RA) - 2000.00
      integer*4     epDE_7      ! (0.01yr) Mean Epoch (DE) - 2000.00
      integer*4     e_RAmas_7   ! (mas) Mean error in RA*cos(DEmas) at epRA
      integer*4     e_DEmas_7   ! (mas) Mean error in DE at epDE
      integer*4     e_pmRA_7    ! (0.1mas/yr) Mean error in pmRA*cos(DEmas) (mas/10yr)
      integer*4     e_pmDE_7    ! (0.1mas/yr) Mean error in pmDE (mas/10yr)
      integer*4     Cmag_7      ! (mmag) ?=-9999 Catalogue magnitude from source
      integer*4     Rmag_7      ! (mmag) ?=-9999 Calculated Ru magnitude (579-642nm)
*                                            from source
      integer*4     Bmag_7      ! (mmag) ?=-9999 B magnitude in Johnson system
      integer*4     e_Bmag_7    ! (mmag) ?=-99 Standard error on B magnitude
      integer*4     Vmag_7      ! (mmag) ?=-9999 V magnitude in Johnson system
      integer*4     e_Vmag_7    ! (mmag) ?=-99 Standard error on V magnitude
      integer*4     Jmag_7      ! (mmag) ?=-9999 J magnitude from 2MASS
      integer*4     e_Jmag_7    ! (mmag) ?=-99 Standard error on J magnitude
      integer*4     Hmag_7      ! (mmag) ?=-9999 H magnitude from 2MASS
      integer*4     e_Hmag_7    ! (mmag) ?=-99 Standard error on H magnitude
      integer*4     Kmag_7      ! (mmag) ?=-9999 K magnitude from 2MASS
      integer*4     e_Kmag_7    ! (mmag) ?=-99 Standard error on K magnitude
      integer*4     Nobs_7      ! ? Number of observation in LSQ fit
      character*1   P_7         ! [P] P if LSQ fit is bad
      character*1   sub_7       ! [SHO] subset flag (1)
      character*1   r_ID_7      ! [HTPSGA] source catalogue flag (2)
      character*12  ID_7        ! star identifier in the source catalogue
*Note (1): PPMX consist of 3 parts designated as follows:
*    S = a survey S of stars brighter than R=12.8, consisting of 5,620,114 stars
*    H = 874,934 stars fainter than the survey limit have measurements in the AC
*        and therefore highly accurate proper motions
*    O = all other stars (11,593,871).
*Note (2): These columns give the star identifiers in the following catalogues:
*      H = the ARIHIP catalogue  (Wielen et al., 2001VeARI..40....1W)
*      T = the Tycho-2 catalogue (Hoeg et al. 2000, Cat. I/259)
*      P = the PPM catalogue (Roeser & Bastian, 1991, Cat. I/146, I/193)
*      S = STARNET catalogue (Roeser 1996, IAU Symp. 172, 481)
*      G = the Guide Star Catalog 1.2 (Morrison et al., 2001, Cat. I/254)
*      A = the AC2000.0 catalogue  (Urban et al., 2001, Cat. I/275)

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'n6000.dat'	! Declination from +60 to +67.5{deg}

      integer*4 nr__8
      parameter (nr__8=512841)	! Number of records
      character*166 ar__8  	! Full-size record

C  J2000.0 position composed of: RAmas DEmas (Epoch=2000.0)
      character*15  PPMX_8      ! Name (IAU convention HHMMSS.S+DDMMSS)
      character*1   m_PPMX_8    ! [pf] if name is identical (346 cases)
      integer*8     RAmas_8     ! (mas) Right Ascension J2000.0, epoch 2000.0
      integer*8     DEmas_8     ! (mas) Declination J2000.0, epoch 2000.0
      integer*4     pmRA_8      ! (0.01mas/yr) Proper Motion in RA*cos(DEmas) (mas/100yr)
      integer*4     pmDE_8      ! (0.01mas/yr) Proper Motion in DE (mas/100yr)
      integer*4     epRA_8      ! (0.01yr) Mean Epoch (RA) - 2000.00
      integer*4     epDE_8      ! (0.01yr) Mean Epoch (DE) - 2000.00
      integer*4     e_RAmas_8   ! (mas) Mean error in RA*cos(DEmas) at epRA
      integer*4     e_DEmas_8   ! (mas) Mean error in DE at epDE
      integer*4     e_pmRA_8    ! (0.1mas/yr) Mean error in pmRA*cos(DEmas) (mas/10yr)
      integer*4     e_pmDE_8    ! (0.1mas/yr) Mean error in pmDE (mas/10yr)
      integer*4     Cmag_8      ! (mmag) ?=-9999 Catalogue magnitude from source
      integer*4     Rmag_8      ! (mmag) ?=-9999 Calculated Ru magnitude (579-642nm)
*                                            from source
      integer*4     Bmag_8      ! (mmag) ?=-9999 B magnitude in Johnson system
      integer*4     e_Bmag_8    ! (mmag) ?=-99 Standard error on B magnitude
      integer*4     Vmag_8      ! (mmag) ?=-9999 V magnitude in Johnson system
      integer*4     e_Vmag_8    ! (mmag) ?=-99 Standard error on V magnitude
      integer*4     Jmag_8      ! (mmag) ?=-9999 J magnitude from 2MASS
      integer*4     e_Jmag_8    ! (mmag) ?=-99 Standard error on J magnitude
      integer*4     Hmag_8      ! (mmag) ?=-9999 H magnitude from 2MASS
      integer*4     e_Hmag_8    ! (mmag) ?=-99 Standard error on H magnitude
      integer*4     Kmag_8      ! (mmag) ?=-9999 K magnitude from 2MASS
      integer*4     e_Kmag_8    ! (mmag) ?=-99 Standard error on K magnitude
      integer*4     Nobs_8      ! ? Number of observation in LSQ fit
      character*1   P_8         ! [P] P if LSQ fit is bad
      character*1   sub_8       ! [SHO] subset flag (1)
      character*1   r_ID_8      ! [HTPSGA] source catalogue flag (2)
      character*12  ID_8        ! star identifier in the source catalogue
*Note (1): PPMX consist of 3 parts designated as follows:
*    S = a survey S of stars brighter than R=12.8, consisting of 5,620,114 stars
*    H = 874,934 stars fainter than the survey limit have measurements in the AC
*        and therefore highly accurate proper motions
*    O = all other stars (11,593,871).
*Note (2): These columns give the star identifiers in the following catalogues:
*      H = the ARIHIP catalogue  (Wielen et al., 2001VeARI..40....1W)
*      T = the Tycho-2 catalogue (Hoeg et al. 2000, Cat. I/259)
*      P = the PPM catalogue (Roeser & Bastian, 1991, Cat. I/146, I/193)
*      S = STARNET catalogue (Roeser 1996, IAU Symp. 172, 481)
*      G = the Guide Star Catalog 1.2 (Morrison et al., 2001, Cat. I/254)
*      A = the AC2000.0 catalogue  (Urban et al., 2001, Cat. I/275)

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'n6730.dat'	! Declination from +67.5 to +75{deg}

      integer*4 nr__9
      parameter (nr__9=369595)	! Number of records
      character*166 ar__9  	! Full-size record

C  J2000.0 position composed of: RAmas DEmas (Epoch=2000.0)
      character*15  PPMX_9      ! Name (IAU convention HHMMSS.S+DDMMSS)
      character*1   m_PPMX_9    ! [pf] if name is identical (346 cases)
      integer*8     RAmas_9     ! (mas) Right Ascension J2000.0, epoch 2000.0
      integer*8     DEmas_9     ! (mas) Declination J2000.0, epoch 2000.0
      integer*4     pmRA_9      ! (0.01mas/yr) Proper Motion in RA*cos(DEmas) (mas/100yr)
      integer*4     pmDE_9      ! (0.01mas/yr) Proper Motion in DE (mas/100yr)
      integer*4     epRA_9      ! (0.01yr) Mean Epoch (RA) - 2000.00
      integer*4     epDE_9      ! (0.01yr) Mean Epoch (DE) - 2000.00
      integer*4     e_RAmas_9   ! (mas) Mean error in RA*cos(DEmas) at epRA
      integer*4     e_DEmas_9   ! (mas) Mean error in DE at epDE
      integer*4     e_pmRA_9    ! (0.1mas/yr) Mean error in pmRA*cos(DEmas) (mas/10yr)
      integer*4     e_pmDE_9    ! (0.1mas/yr) Mean error in pmDE (mas/10yr)
      integer*4     Cmag_9      ! (mmag) ?=-9999 Catalogue magnitude from source
      integer*4     Rmag_9      ! (mmag) ?=-9999 Calculated Ru magnitude (579-642nm)
*                                            from source
      integer*4     Bmag_9      ! (mmag) ?=-9999 B magnitude in Johnson system
      integer*4     e_Bmag_9    ! (mmag) ?=-99 Standard error on B magnitude
      integer*4     Vmag_9      ! (mmag) ?=-9999 V magnitude in Johnson system
      integer*4     e_Vmag_9    ! (mmag) ?=-99 Standard error on V magnitude
      integer*4     Jmag_9      ! (mmag) ?=-9999 J magnitude from 2MASS
      integer*4     e_Jmag_9    ! (mmag) ?=-99 Standard error on J magnitude
      integer*4     Hmag_9      ! (mmag) ?=-9999 H magnitude from 2MASS
      integer*4     e_Hmag_9    ! (mmag) ?=-99 Standard error on H magnitude
      integer*4     Kmag_9      ! (mmag) ?=-9999 K magnitude from 2MASS
      integer*4     e_Kmag_9    ! (mmag) ?=-99 Standard error on K magnitude
      integer*4     Nobs_9      ! ? Number of observation in LSQ fit
      character*1   P_9         ! [P] P if LSQ fit is bad
      character*1   sub_9       ! [SHO] subset flag (1)
      character*1   r_ID_9      ! [HTPSGA] source catalogue flag (2)
      character*12  ID_9        ! star identifier in the source catalogue
*Note (1): PPMX consist of 3 parts designated as follows:
*    S = a survey S of stars brighter than R=12.8, consisting of 5,620,114 stars
*    H = 874,934 stars fainter than the survey limit have measurements in the AC
*        and therefore highly accurate proper motions
*    O = all other stars (11,593,871).
*Note (2): These columns give the star identifiers in the following catalogues:
*      H = the ARIHIP catalogue  (Wielen et al., 2001VeARI..40....1W)
*      T = the Tycho-2 catalogue (Hoeg et al. 2000, Cat. I/259)
*      P = the PPM catalogue (Roeser & Bastian, 1991, Cat. I/146, I/193)
*      S = STARNET catalogue (Roeser 1996, IAU Symp. 172, 481)
*      G = the Guide Star Catalog 1.2 (Morrison et al., 2001, Cat. I/254)
*      A = the AC2000.0 catalogue  (Urban et al., 2001, Cat. I/275)

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'n7500.dat'	! Declination from +75 to +82.5{deg}

      integer*4 nr__10
      parameter (nr__10=258995)	! Number of records
      character*166 ar__10 	! Full-size record

C  J2000.0 position composed of: RAmas DEmas (Epoch=2000.0)
      character*15  PPMX_10     ! Name (IAU convention HHMMSS.S+DDMMSS)
      character*1   m_PPMX_10   ! [pf] if name is identical (346 cases)
      integer*8     RAmas_10    ! (mas) Right Ascension J2000.0, epoch 2000.0
      integer*8     DEmas_10    ! (mas) Declination J2000.0, epoch 2000.0
      integer*4     pmRA_10     ! (0.01mas/yr) Proper Motion in RA*cos(DEmas) (mas/100yr)
      integer*4     pmDE_10     ! (0.01mas/yr) Proper Motion in DE (mas/100yr)
      integer*4     epRA_10     ! (0.01yr) Mean Epoch (RA) - 2000.00
      integer*4     epDE_10     ! (0.01yr) Mean Epoch (DE) - 2000.00
      integer*4     e_RAmas_10  ! (mas) Mean error in RA*cos(DEmas) at epRA
      integer*4     e_DEmas_10  ! (mas) Mean error in DE at epDE
      integer*4     e_pmRA_10   ! (0.1mas/yr) Mean error in pmRA*cos(DEmas) (mas/10yr)
      integer*4     e_pmDE_10   ! (0.1mas/yr) Mean error in pmDE (mas/10yr)
      integer*4     Cmag_10     ! (mmag) ?=-9999 Catalogue magnitude from source
      integer*4     Rmag_10     ! (mmag) ?=-9999 Calculated Ru magnitude (579-642nm)
*                                            from source
      integer*4     Bmag_10     ! (mmag) ?=-9999 B magnitude in Johnson system
      integer*4     e_Bmag_10   ! (mmag) ?=-99 Standard error on B magnitude
      integer*4     Vmag_10     ! (mmag) ?=-9999 V magnitude in Johnson system
      integer*4     e_Vmag_10   ! (mmag) ?=-99 Standard error on V magnitude
      integer*4     Jmag_10     ! (mmag) ?=-9999 J magnitude from 2MASS
      integer*4     e_Jmag_10   ! (mmag) ?=-99 Standard error on J magnitude
      integer*4     Hmag_10     ! (mmag) ?=-9999 H magnitude from 2MASS
      integer*4     e_Hmag_10   ! (mmag) ?=-99 Standard error on H magnitude
      integer*4     Kmag_10     ! (mmag) ?=-9999 K magnitude from 2MASS
      integer*4     e_Kmag_10   ! (mmag) ?=-99 Standard error on K magnitude
      integer*4     Nobs_10     ! ? Number of observation in LSQ fit
      character*1   P_10        ! [P] P if LSQ fit is bad
      character*1   sub_10      ! [SHO] subset flag (1)
      character*1   r_ID_10     ! [HTPSGA] source catalogue flag (2)
      character*12  ID_10       ! star identifier in the source catalogue
*Note (1): PPMX consist of 3 parts designated as follows:
*    S = a survey S of stars brighter than R=12.8, consisting of 5,620,114 stars
*    H = 874,934 stars fainter than the survey limit have measurements in the AC
*        and therefore highly accurate proper motions
*    O = all other stars (11,593,871).
*Note (2): These columns give the star identifiers in the following catalogues:
*      H = the ARIHIP catalogue  (Wielen et al., 2001VeARI..40....1W)
*      T = the Tycho-2 catalogue (Hoeg et al. 2000, Cat. I/259)
*      P = the PPM catalogue (Roeser & Bastian, 1991, Cat. I/146, I/193)
*      S = STARNET catalogue (Roeser 1996, IAU Symp. 172, 481)
*      G = the Guide Star Catalog 1.2 (Morrison et al., 2001, Cat. I/254)
*      A = the AC2000.0 catalogue  (Urban et al., 2001, Cat. I/275)

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'n8230.dat'	! Declination from +82.5 to +90{deg}

      integer*4 nr__11
      parameter (nr__11=73460)	! Number of records
      character*166 ar__11 	! Full-size record

C  J2000.0 position composed of: RAmas DEmas (Epoch=2000.0)
      character*15  PPMX_11     ! Name (IAU convention HHMMSS.S+DDMMSS)
      character*1   m_PPMX_11   ! [pf] if name is identical (346 cases)
      integer*8     RAmas_11    ! (mas) Right Ascension J2000.0, epoch 2000.0
      integer*8     DEmas_11    ! (mas) Declination J2000.0, epoch 2000.0
      integer*4     pmRA_11     ! (0.01mas/yr) Proper Motion in RA*cos(DEmas) (mas/100yr)
      integer*4     pmDE_11     ! (0.01mas/yr) Proper Motion in DE (mas/100yr)
      integer*4     epRA_11     ! (0.01yr) Mean Epoch (RA) - 2000.00
      integer*4     epDE_11     ! (0.01yr) Mean Epoch (DE) - 2000.00
      integer*4     e_RAmas_11  ! (mas) Mean error in RA*cos(DEmas) at epRA
      integer*4     e_DEmas_11  ! (mas) Mean error in DE at epDE
      integer*4     e_pmRA_11   ! (0.1mas/yr) Mean error in pmRA*cos(DEmas) (mas/10yr)
      integer*4     e_pmDE_11   ! (0.1mas/yr) Mean error in pmDE (mas/10yr)
      integer*4     Cmag_11     ! (mmag) ?=-9999 Catalogue magnitude from source
      integer*4     Rmag_11     ! (mmag) ?=-9999 Calculated Ru magnitude (579-642nm)
*                                            from source
      integer*4     Bmag_11     ! (mmag) ?=-9999 B magnitude in Johnson system
      integer*4     e_Bmag_11   ! (mmag) ?=-99 Standard error on B magnitude
      integer*4     Vmag_11     ! (mmag) ?=-9999 V magnitude in Johnson system
      integer*4     e_Vmag_11   ! (mmag) ?=-99 Standard error on V magnitude
      integer*4     Jmag_11     ! (mmag) ?=-9999 J magnitude from 2MASS
      integer*4     e_Jmag_11   ! (mmag) ?=-99 Standard error on J magnitude
      integer*4     Hmag_11     ! (mmag) ?=-9999 H magnitude from 2MASS
      integer*4     e_Hmag_11   ! (mmag) ?=-99 Standard error on H magnitude
      integer*4     Kmag_11     ! (mmag) ?=-9999 K magnitude from 2MASS
      integer*4     e_Kmag_11   ! (mmag) ?=-99 Standard error on K magnitude
      integer*4     Nobs_11     ! ? Number of observation in LSQ fit
      character*1   P_11        ! [P] P if LSQ fit is bad
      character*1   sub_11      ! [SHO] subset flag (1)
      character*1   r_ID_11     ! [HTPSGA] source catalogue flag (2)
      character*12  ID_11       ! star identifier in the source catalogue
*Note (1): PPMX consist of 3 parts designated as follows:
*    S = a survey S of stars brighter than R=12.8, consisting of 5,620,114 stars
*    H = 874,934 stars fainter than the survey limit have measurements in the AC
*        and therefore highly accurate proper motions
*    O = all other stars (11,593,871).
*Note (2): These columns give the star identifiers in the following catalogues:
*      H = the ARIHIP catalogue  (Wielen et al., 2001VeARI..40....1W)
*      T = the Tycho-2 catalogue (Hoeg et al. 2000, Cat. I/259)
*      P = the PPM catalogue (Roeser & Bastian, 1991, Cat. I/146, I/193)
*      S = STARNET catalogue (Roeser 1996, IAU Symp. 172, 481)
*      G = the Guide Star Catalog 1.2 (Morrison et al., 2001, Cat. I/254)
*      A = the AC2000.0 catalogue  (Urban et al., 2001, Cat. I/275)

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 's0000.dat'	! Declination from -00 to -07.5{deg}

      integer*4 nr__12
      parameter (nr__12=970673)	! Number of records
      character*166 ar__12 	! Full-size record

C  J2000.0 position composed of: RAmas DEmas (Epoch=2000.0)
      character*15  PPMX_12     ! Name (IAU convention HHMMSS.S+DDMMSS)
      character*1   m_PPMX_12   ! [pf] if name is identical (346 cases)
      integer*8     RAmas_12    ! (mas) Right Ascension J2000.0, epoch 2000.0
      integer*8     DEmas_12    ! (mas) Declination J2000.0, epoch 2000.0
      integer*4     pmRA_12     ! (0.01mas/yr) Proper Motion in RA*cos(DEmas) (mas/100yr)
      integer*4     pmDE_12     ! (0.01mas/yr) Proper Motion in DE (mas/100yr)
      integer*4     epRA_12     ! (0.01yr) Mean Epoch (RA) - 2000.00
      integer*4     epDE_12     ! (0.01yr) Mean Epoch (DE) - 2000.00
      integer*4     e_RAmas_12  ! (mas) Mean error in RA*cos(DEmas) at epRA
      integer*4     e_DEmas_12  ! (mas) Mean error in DE at epDE
      integer*4     e_pmRA_12   ! (0.1mas/yr) Mean error in pmRA*cos(DEmas) (mas/10yr)
      integer*4     e_pmDE_12   ! (0.1mas/yr) Mean error in pmDE (mas/10yr)
      integer*4     Cmag_12     ! (mmag) ?=-9999 Catalogue magnitude from source
      integer*4     Rmag_12     ! (mmag) ?=-9999 Calculated Ru magnitude (579-642nm)
*                                            from source
      integer*4     Bmag_12     ! (mmag) ?=-9999 B magnitude in Johnson system
      integer*4     e_Bmag_12   ! (mmag) ?=-99 Standard error on B magnitude
      integer*4     Vmag_12     ! (mmag) ?=-9999 V magnitude in Johnson system
      integer*4     e_Vmag_12   ! (mmag) ?=-99 Standard error on V magnitude
      integer*4     Jmag_12     ! (mmag) ?=-9999 J magnitude from 2MASS
      integer*4     e_Jmag_12   ! (mmag) ?=-99 Standard error on J magnitude
      integer*4     Hmag_12     ! (mmag) ?=-9999 H magnitude from 2MASS
      integer*4     e_Hmag_12   ! (mmag) ?=-99 Standard error on H magnitude
      integer*4     Kmag_12     ! (mmag) ?=-9999 K magnitude from 2MASS
      integer*4     e_Kmag_12   ! (mmag) ?=-99 Standard error on K magnitude
      integer*4     Nobs_12     ! ? Number of observation in LSQ fit
      character*1   P_12        ! [P] P if LSQ fit is bad
      character*1   sub_12      ! [SHO] subset flag (1)
      character*1   r_ID_12     ! [HTPSGA] source catalogue flag (2)
      character*12  ID_12       ! star identifier in the source catalogue
*Note (1): PPMX consist of 3 parts designated as follows:
*    S = a survey S of stars brighter than R=12.8, consisting of 5,620,114 stars
*    H = 874,934 stars fainter than the survey limit have measurements in the AC
*        and therefore highly accurate proper motions
*    O = all other stars (11,593,871).
*Note (2): These columns give the star identifiers in the following catalogues:
*      H = the ARIHIP catalogue  (Wielen et al., 2001VeARI..40....1W)
*      T = the Tycho-2 catalogue (Hoeg et al. 2000, Cat. I/259)
*      P = the PPM catalogue (Roeser & Bastian, 1991, Cat. I/146, I/193)
*      S = STARNET catalogue (Roeser 1996, IAU Symp. 172, 481)
*      G = the Guide Star Catalog 1.2 (Morrison et al., 2001, Cat. I/254)
*      A = the AC2000.0 catalogue  (Urban et al., 2001, Cat. I/275)

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 's0730.dat'	! Declination from -07.5 to -15{deg}

      integer*4 nr__13
      parameter (nr__13=970094)	! Number of records
      character*166 ar__13 	! Full-size record

C  J2000.0 position composed of: RAmas DEmas (Epoch=2000.0)
      character*15  PPMX_13     ! Name (IAU convention HHMMSS.S+DDMMSS)
      character*1   m_PPMX_13   ! [pf] if name is identical (346 cases)
      integer*8     RAmas_13    ! (mas) Right Ascension J2000.0, epoch 2000.0
      integer*8     DEmas_13    ! (mas) Declination J2000.0, epoch 2000.0
      integer*4     pmRA_13     ! (0.01mas/yr) Proper Motion in RA*cos(DEmas) (mas/100yr)
      integer*4     pmDE_13     ! (0.01mas/yr) Proper Motion in DE (mas/100yr)
      integer*4     epRA_13     ! (0.01yr) Mean Epoch (RA) - 2000.00
      integer*4     epDE_13     ! (0.01yr) Mean Epoch (DE) - 2000.00
      integer*4     e_RAmas_13  ! (mas) Mean error in RA*cos(DEmas) at epRA
      integer*4     e_DEmas_13  ! (mas) Mean error in DE at epDE
      integer*4     e_pmRA_13   ! (0.1mas/yr) Mean error in pmRA*cos(DEmas) (mas/10yr)
      integer*4     e_pmDE_13   ! (0.1mas/yr) Mean error in pmDE (mas/10yr)
      integer*4     Cmag_13     ! (mmag) ?=-9999 Catalogue magnitude from source
      integer*4     Rmag_13     ! (mmag) ?=-9999 Calculated Ru magnitude (579-642nm)
*                                            from source
      integer*4     Bmag_13     ! (mmag) ?=-9999 B magnitude in Johnson system
      integer*4     e_Bmag_13   ! (mmag) ?=-99 Standard error on B magnitude
      integer*4     Vmag_13     ! (mmag) ?=-9999 V magnitude in Johnson system
      integer*4     e_Vmag_13   ! (mmag) ?=-99 Standard error on V magnitude
      integer*4     Jmag_13     ! (mmag) ?=-9999 J magnitude from 2MASS
      integer*4     e_Jmag_13   ! (mmag) ?=-99 Standard error on J magnitude
      integer*4     Hmag_13     ! (mmag) ?=-9999 H magnitude from 2MASS
      integer*4     e_Hmag_13   ! (mmag) ?=-99 Standard error on H magnitude
      integer*4     Kmag_13     ! (mmag) ?=-9999 K magnitude from 2MASS
      integer*4     e_Kmag_13   ! (mmag) ?=-99 Standard error on K magnitude
      integer*4     Nobs_13     ! ? Number of observation in LSQ fit
      character*1   P_13        ! [P] P if LSQ fit is bad
      character*1   sub_13      ! [SHO] subset flag (1)
      character*1   r_ID_13     ! [HTPSGA] source catalogue flag (2)
      character*12  ID_13       ! star identifier in the source catalogue
*Note (1): PPMX consist of 3 parts designated as follows:
*    S = a survey S of stars brighter than R=12.8, consisting of 5,620,114 stars
*    H = 874,934 stars fainter than the survey limit have measurements in the AC
*        and therefore highly accurate proper motions
*    O = all other stars (11,593,871).
*Note (2): These columns give the star identifiers in the following catalogues:
*      H = the ARIHIP catalogue  (Wielen et al., 2001VeARI..40....1W)
*      T = the Tycho-2 catalogue (Hoeg et al. 2000, Cat. I/259)
*      P = the PPM catalogue (Roeser & Bastian, 1991, Cat. I/146, I/193)
*      S = STARNET catalogue (Roeser 1996, IAU Symp. 172, 481)
*      G = the Guide Star Catalog 1.2 (Morrison et al., 2001, Cat. I/254)
*      A = the AC2000.0 catalogue  (Urban et al., 2001, Cat. I/275)

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 's1500.dat'	! Declination from -15 to -22.5{deg}

      integer*4 nr__14
      parameter (nr__14=1010372)	! Number of records
      character*166 ar__14 	! Full-size record

C  J2000.0 position composed of: RAmas DEmas (Epoch=2000.0)
      character*15  PPMX_14     ! Name (IAU convention HHMMSS.S+DDMMSS)
      character*1   m_PPMX_14   ! [pf] if name is identical (346 cases)
      integer*8     RAmas_14    ! (mas) Right Ascension J2000.0, epoch 2000.0
      integer*8     DEmas_14    ! (mas) Declination J2000.0, epoch 2000.0
      integer*4     pmRA_14     ! (0.01mas/yr) Proper Motion in RA*cos(DEmas) (mas/100yr)
      integer*4     pmDE_14     ! (0.01mas/yr) Proper Motion in DE (mas/100yr)
      integer*4     epRA_14     ! (0.01yr) Mean Epoch (RA) - 2000.00
      integer*4     epDE_14     ! (0.01yr) Mean Epoch (DE) - 2000.00
      integer*4     e_RAmas_14  ! (mas) Mean error in RA*cos(DEmas) at epRA
      integer*4     e_DEmas_14  ! (mas) Mean error in DE at epDE
      integer*4     e_pmRA_14   ! (0.1mas/yr) Mean error in pmRA*cos(DEmas) (mas/10yr)
      integer*4     e_pmDE_14   ! (0.1mas/yr) Mean error in pmDE (mas/10yr)
      integer*4     Cmag_14     ! (mmag) ?=-9999 Catalogue magnitude from source
      integer*4     Rmag_14     ! (mmag) ?=-9999 Calculated Ru magnitude (579-642nm)
*                                            from source
      integer*4     Bmag_14     ! (mmag) ?=-9999 B magnitude in Johnson system
      integer*4     e_Bmag_14   ! (mmag) ?=-99 Standard error on B magnitude
      integer*4     Vmag_14     ! (mmag) ?=-9999 V magnitude in Johnson system
      integer*4     e_Vmag_14   ! (mmag) ?=-99 Standard error on V magnitude
      integer*4     Jmag_14     ! (mmag) ?=-9999 J magnitude from 2MASS
      integer*4     e_Jmag_14   ! (mmag) ?=-99 Standard error on J magnitude
      integer*4     Hmag_14     ! (mmag) ?=-9999 H magnitude from 2MASS
      integer*4     e_Hmag_14   ! (mmag) ?=-99 Standard error on H magnitude
      integer*4     Kmag_14     ! (mmag) ?=-9999 K magnitude from 2MASS
      integer*4     e_Kmag_14   ! (mmag) ?=-99 Standard error on K magnitude
      integer*4     Nobs_14     ! ? Number of observation in LSQ fit
      character*1   P_14        ! [P] P if LSQ fit is bad
      character*1   sub_14      ! [SHO] subset flag (1)
      character*1   r_ID_14     ! [HTPSGA] source catalogue flag (2)
      character*12  ID_14       ! star identifier in the source catalogue
*Note (1): PPMX consist of 3 parts designated as follows:
*    S = a survey S of stars brighter than R=12.8, consisting of 5,620,114 stars
*    H = 874,934 stars fainter than the survey limit have measurements in the AC
*        and therefore highly accurate proper motions
*    O = all other stars (11,593,871).
*Note (2): These columns give the star identifiers in the following catalogues:
*      H = the ARIHIP catalogue  (Wielen et al., 2001VeARI..40....1W)
*      T = the Tycho-2 catalogue (Hoeg et al. 2000, Cat. I/259)
*      P = the PPM catalogue (Roeser & Bastian, 1991, Cat. I/146, I/193)
*      S = STARNET catalogue (Roeser 1996, IAU Symp. 172, 481)
*      G = the Guide Star Catalog 1.2 (Morrison et al., 2001, Cat. I/254)
*      A = the AC2000.0 catalogue  (Urban et al., 2001, Cat. I/275)

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 's2230.dat'	! Declination from -22.5 to -30{deg}

      integer*4 nr__15
      parameter (nr__15=1019597)	! Number of records
      character*166 ar__15 	! Full-size record

C  J2000.0 position composed of: RAmas DEmas (Epoch=2000.0)
      character*15  PPMX_15     ! Name (IAU convention HHMMSS.S+DDMMSS)
      character*1   m_PPMX_15   ! [pf] if name is identical (346 cases)
      integer*8     RAmas_15    ! (mas) Right Ascension J2000.0, epoch 2000.0
      integer*8     DEmas_15    ! (mas) Declination J2000.0, epoch 2000.0
      integer*4     pmRA_15     ! (0.01mas/yr) Proper Motion in RA*cos(DEmas) (mas/100yr)
      integer*4     pmDE_15     ! (0.01mas/yr) Proper Motion in DE (mas/100yr)
      integer*4     epRA_15     ! (0.01yr) Mean Epoch (RA) - 2000.00
      integer*4     epDE_15     ! (0.01yr) Mean Epoch (DE) - 2000.00
      integer*4     e_RAmas_15  ! (mas) Mean error in RA*cos(DEmas) at epRA
      integer*4     e_DEmas_15  ! (mas) Mean error in DE at epDE
      integer*4     e_pmRA_15   ! (0.1mas/yr) Mean error in pmRA*cos(DEmas) (mas/10yr)
      integer*4     e_pmDE_15   ! (0.1mas/yr) Mean error in pmDE (mas/10yr)
      integer*4     Cmag_15     ! (mmag) ?=-9999 Catalogue magnitude from source
      integer*4     Rmag_15     ! (mmag) ?=-9999 Calculated Ru magnitude (579-642nm)
*                                            from source
      integer*4     Bmag_15     ! (mmag) ?=-9999 B magnitude in Johnson system
      integer*4     e_Bmag_15   ! (mmag) ?=-99 Standard error on B magnitude
      integer*4     Vmag_15     ! (mmag) ?=-9999 V magnitude in Johnson system
      integer*4     e_Vmag_15   ! (mmag) ?=-99 Standard error on V magnitude
      integer*4     Jmag_15     ! (mmag) ?=-9999 J magnitude from 2MASS
      integer*4     e_Jmag_15   ! (mmag) ?=-99 Standard error on J magnitude
      integer*4     Hmag_15     ! (mmag) ?=-9999 H magnitude from 2MASS
      integer*4     e_Hmag_15   ! (mmag) ?=-99 Standard error on H magnitude
      integer*4     Kmag_15     ! (mmag) ?=-9999 K magnitude from 2MASS
      integer*4     e_Kmag_15   ! (mmag) ?=-99 Standard error on K magnitude
      integer*4     Nobs_15     ! ? Number of observation in LSQ fit
      character*1   P_15        ! [P] P if LSQ fit is bad
      character*1   sub_15      ! [SHO] subset flag (1)
      character*1   r_ID_15     ! [HTPSGA] source catalogue flag (2)
      character*12  ID_15       ! star identifier in the source catalogue
*Note (1): PPMX consist of 3 parts designated as follows:
*    S = a survey S of stars brighter than R=12.8, consisting of 5,620,114 stars
*    H = 874,934 stars fainter than the survey limit have measurements in the AC
*        and therefore highly accurate proper motions
*    O = all other stars (11,593,871).
*Note (2): These columns give the star identifiers in the following catalogues:
*      H = the ARIHIP catalogue  (Wielen et al., 2001VeARI..40....1W)
*      T = the Tycho-2 catalogue (Hoeg et al. 2000, Cat. I/259)
*      P = the PPM catalogue (Roeser & Bastian, 1991, Cat. I/146, I/193)
*      S = STARNET catalogue (Roeser 1996, IAU Symp. 172, 481)
*      G = the Guide Star Catalog 1.2 (Morrison et al., 2001, Cat. I/254)
*      A = the AC2000.0 catalogue  (Urban et al., 2001, Cat. I/275)

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 's3000.dat'	! Declination from -30 to -37.5{deg}

      integer*4 nr__16
      parameter (nr__16=975900)	! Number of records
      character*166 ar__16 	! Full-size record

C  J2000.0 position composed of: RAmas DEmas (Epoch=2000.0)
      character*15  PPMX_16     ! Name (IAU convention HHMMSS.S+DDMMSS)
      character*1   m_PPMX_16   ! [pf] if name is identical (346 cases)
      integer*8     RAmas_16    ! (mas) Right Ascension J2000.0, epoch 2000.0
      integer*8     DEmas_16    ! (mas) Declination J2000.0, epoch 2000.0
      integer*4     pmRA_16     ! (0.01mas/yr) Proper Motion in RA*cos(DEmas) (mas/100yr)
      integer*4     pmDE_16     ! (0.01mas/yr) Proper Motion in DE (mas/100yr)
      integer*4     epRA_16     ! (0.01yr) Mean Epoch (RA) - 2000.00
      integer*4     epDE_16     ! (0.01yr) Mean Epoch (DE) - 2000.00
      integer*4     e_RAmas_16  ! (mas) Mean error in RA*cos(DEmas) at epRA
      integer*4     e_DEmas_16  ! (mas) Mean error in DE at epDE
      integer*4     e_pmRA_16   ! (0.1mas/yr) Mean error in pmRA*cos(DEmas) (mas/10yr)
      integer*4     e_pmDE_16   ! (0.1mas/yr) Mean error in pmDE (mas/10yr)
      integer*4     Cmag_16     ! (mmag) ?=-9999 Catalogue magnitude from source
      integer*4     Rmag_16     ! (mmag) ?=-9999 Calculated Ru magnitude (579-642nm)
*                                            from source
      integer*4     Bmag_16     ! (mmag) ?=-9999 B magnitude in Johnson system
      integer*4     e_Bmag_16   ! (mmag) ?=-99 Standard error on B magnitude
      integer*4     Vmag_16     ! (mmag) ?=-9999 V magnitude in Johnson system
      integer*4     e_Vmag_16   ! (mmag) ?=-99 Standard error on V magnitude
      integer*4     Jmag_16     ! (mmag) ?=-9999 J magnitude from 2MASS
      integer*4     e_Jmag_16   ! (mmag) ?=-99 Standard error on J magnitude
      integer*4     Hmag_16     ! (mmag) ?=-9999 H magnitude from 2MASS
      integer*4     e_Hmag_16   ! (mmag) ?=-99 Standard error on H magnitude
      integer*4     Kmag_16     ! (mmag) ?=-9999 K magnitude from 2MASS
      integer*4     e_Kmag_16   ! (mmag) ?=-99 Standard error on K magnitude
      integer*4     Nobs_16     ! ? Number of observation in LSQ fit
      character*1   P_16        ! [P] P if LSQ fit is bad
      character*1   sub_16      ! [SHO] subset flag (1)
      character*1   r_ID_16     ! [HTPSGA] source catalogue flag (2)
      character*12  ID_16       ! star identifier in the source catalogue
*Note (1): PPMX consist of 3 parts designated as follows:
*    S = a survey S of stars brighter than R=12.8, consisting of 5,620,114 stars
*    H = 874,934 stars fainter than the survey limit have measurements in the AC
*        and therefore highly accurate proper motions
*    O = all other stars (11,593,871).
*Note (2): These columns give the star identifiers in the following catalogues:
*      H = the ARIHIP catalogue  (Wielen et al., 2001VeARI..40....1W)
*      T = the Tycho-2 catalogue (Hoeg et al. 2000, Cat. I/259)
*      P = the PPM catalogue (Roeser & Bastian, 1991, Cat. I/146, I/193)
*      S = STARNET catalogue (Roeser 1996, IAU Symp. 172, 481)
*      G = the Guide Star Catalog 1.2 (Morrison et al., 2001, Cat. I/254)
*      A = the AC2000.0 catalogue  (Urban et al., 2001, Cat. I/275)

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 's3730.dat'	! Declination from -37.5 to -45{deg}

      integer*4 nr__17
      parameter (nr__17=991495)	! Number of records
      character*166 ar__17 	! Full-size record

C  J2000.0 position composed of: RAmas DEmas (Epoch=2000.0)
      character*15  PPMX_17     ! Name (IAU convention HHMMSS.S+DDMMSS)
      character*1   m_PPMX_17   ! [pf] if name is identical (346 cases)
      integer*8     RAmas_17    ! (mas) Right Ascension J2000.0, epoch 2000.0
      integer*8     DEmas_17    ! (mas) Declination J2000.0, epoch 2000.0
      integer*4     pmRA_17     ! (0.01mas/yr) Proper Motion in RA*cos(DEmas) (mas/100yr)
      integer*4     pmDE_17     ! (0.01mas/yr) Proper Motion in DE (mas/100yr)
      integer*4     epRA_17     ! (0.01yr) Mean Epoch (RA) - 2000.00
      integer*4     epDE_17     ! (0.01yr) Mean Epoch (DE) - 2000.00
      integer*4     e_RAmas_17  ! (mas) Mean error in RA*cos(DEmas) at epRA
      integer*4     e_DEmas_17  ! (mas) Mean error in DE at epDE
      integer*4     e_pmRA_17   ! (0.1mas/yr) Mean error in pmRA*cos(DEmas) (mas/10yr)
      integer*4     e_pmDE_17   ! (0.1mas/yr) Mean error in pmDE (mas/10yr)
      integer*4     Cmag_17     ! (mmag) ?=-9999 Catalogue magnitude from source
      integer*4     Rmag_17     ! (mmag) ?=-9999 Calculated Ru magnitude (579-642nm)
*                                            from source
      integer*4     Bmag_17     ! (mmag) ?=-9999 B magnitude in Johnson system
      integer*4     e_Bmag_17   ! (mmag) ?=-99 Standard error on B magnitude
      integer*4     Vmag_17     ! (mmag) ?=-9999 V magnitude in Johnson system
      integer*4     e_Vmag_17   ! (mmag) ?=-99 Standard error on V magnitude
      integer*4     Jmag_17     ! (mmag) ?=-9999 J magnitude from 2MASS
      integer*4     e_Jmag_17   ! (mmag) ?=-99 Standard error on J magnitude
      integer*4     Hmag_17     ! (mmag) ?=-9999 H magnitude from 2MASS
      integer*4     e_Hmag_17   ! (mmag) ?=-99 Standard error on H magnitude
      integer*4     Kmag_17     ! (mmag) ?=-9999 K magnitude from 2MASS
      integer*4     e_Kmag_17   ! (mmag) ?=-99 Standard error on K magnitude
      integer*4     Nobs_17     ! ? Number of observation in LSQ fit
      character*1   P_17        ! [P] P if LSQ fit is bad
      character*1   sub_17      ! [SHO] subset flag (1)
      character*1   r_ID_17     ! [HTPSGA] source catalogue flag (2)
      character*12  ID_17       ! star identifier in the source catalogue
*Note (1): PPMX consist of 3 parts designated as follows:
*    S = a survey S of stars brighter than R=12.8, consisting of 5,620,114 stars
*    H = 874,934 stars fainter than the survey limit have measurements in the AC
*        and therefore highly accurate proper motions
*    O = all other stars (11,593,871).
*Note (2): These columns give the star identifiers in the following catalogues:
*      H = the ARIHIP catalogue  (Wielen et al., 2001VeARI..40....1W)
*      T = the Tycho-2 catalogue (Hoeg et al. 2000, Cat. I/259)
*      P = the PPM catalogue (Roeser & Bastian, 1991, Cat. I/146, I/193)
*      S = STARNET catalogue (Roeser 1996, IAU Symp. 172, 481)
*      G = the Guide Star Catalog 1.2 (Morrison et al., 2001, Cat. I/254)
*      A = the AC2000.0 catalogue  (Urban et al., 2001, Cat. I/275)

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 's4500.dat'	! Declination from -45 to -52.5{deg}

      integer*4 nr__18
      parameter (nr__18=951351)	! Number of records
      character*166 ar__18 	! Full-size record

C  J2000.0 position composed of: RAmas DEmas (Epoch=2000.0)
      character*15  PPMX_18     ! Name (IAU convention HHMMSS.S+DDMMSS)
      character*1   m_PPMX_18   ! [pf] if name is identical (346 cases)
      integer*8     RAmas_18    ! (mas) Right Ascension J2000.0, epoch 2000.0
      integer*8     DEmas_18    ! (mas) Declination J2000.0, epoch 2000.0
      integer*4     pmRA_18     ! (0.01mas/yr) Proper Motion in RA*cos(DEmas) (mas/100yr)
      integer*4     pmDE_18     ! (0.01mas/yr) Proper Motion in DE (mas/100yr)
      integer*4     epRA_18     ! (0.01yr) Mean Epoch (RA) - 2000.00
      integer*4     epDE_18     ! (0.01yr) Mean Epoch (DE) - 2000.00
      integer*4     e_RAmas_18  ! (mas) Mean error in RA*cos(DEmas) at epRA
      integer*4     e_DEmas_18  ! (mas) Mean error in DE at epDE
      integer*4     e_pmRA_18   ! (0.1mas/yr) Mean error in pmRA*cos(DEmas) (mas/10yr)
      integer*4     e_pmDE_18   ! (0.1mas/yr) Mean error in pmDE (mas/10yr)
      integer*4     Cmag_18     ! (mmag) ?=-9999 Catalogue magnitude from source
      integer*4     Rmag_18     ! (mmag) ?=-9999 Calculated Ru magnitude (579-642nm)
*                                            from source
      integer*4     Bmag_18     ! (mmag) ?=-9999 B magnitude in Johnson system
      integer*4     e_Bmag_18   ! (mmag) ?=-99 Standard error on B magnitude
      integer*4     Vmag_18     ! (mmag) ?=-9999 V magnitude in Johnson system
      integer*4     e_Vmag_18   ! (mmag) ?=-99 Standard error on V magnitude
      integer*4     Jmag_18     ! (mmag) ?=-9999 J magnitude from 2MASS
      integer*4     e_Jmag_18   ! (mmag) ?=-99 Standard error on J magnitude
      integer*4     Hmag_18     ! (mmag) ?=-9999 H magnitude from 2MASS
      integer*4     e_Hmag_18   ! (mmag) ?=-99 Standard error on H magnitude
      integer*4     Kmag_18     ! (mmag) ?=-9999 K magnitude from 2MASS
      integer*4     e_Kmag_18   ! (mmag) ?=-99 Standard error on K magnitude
      integer*4     Nobs_18     ! ? Number of observation in LSQ fit
      character*1   P_18        ! [P] P if LSQ fit is bad
      character*1   sub_18      ! [SHO] subset flag (1)
      character*1   r_ID_18     ! [HTPSGA] source catalogue flag (2)
      character*12  ID_18       ! star identifier in the source catalogue
*Note (1): PPMX consist of 3 parts designated as follows:
*    S = a survey S of stars brighter than R=12.8, consisting of 5,620,114 stars
*    H = 874,934 stars fainter than the survey limit have measurements in the AC
*        and therefore highly accurate proper motions
*    O = all other stars (11,593,871).
*Note (2): These columns give the star identifiers in the following catalogues:
*      H = the ARIHIP catalogue  (Wielen et al., 2001VeARI..40....1W)
*      T = the Tycho-2 catalogue (Hoeg et al. 2000, Cat. I/259)
*      P = the PPM catalogue (Roeser & Bastian, 1991, Cat. I/146, I/193)
*      S = STARNET catalogue (Roeser 1996, IAU Symp. 172, 481)
*      G = the Guide Star Catalog 1.2 (Morrison et al., 2001, Cat. I/254)
*      A = the AC2000.0 catalogue  (Urban et al., 2001, Cat. I/275)

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 's5230.dat'	! Declination from -52.5 to -60{deg}

      integer*4 nr__19
      parameter (nr__19=782446)	! Number of records
      character*166 ar__19 	! Full-size record

C  J2000.0 position composed of: RAmas DEmas (Epoch=2000.0)
      character*15  PPMX_19     ! Name (IAU convention HHMMSS.S+DDMMSS)
      character*1   m_PPMX_19   ! [pf] if name is identical (346 cases)
      integer*8     RAmas_19    ! (mas) Right Ascension J2000.0, epoch 2000.0
      integer*8     DEmas_19    ! (mas) Declination J2000.0, epoch 2000.0
      integer*4     pmRA_19     ! (0.01mas/yr) Proper Motion in RA*cos(DEmas) (mas/100yr)
      integer*4     pmDE_19     ! (0.01mas/yr) Proper Motion in DE (mas/100yr)
      integer*4     epRA_19     ! (0.01yr) Mean Epoch (RA) - 2000.00
      integer*4     epDE_19     ! (0.01yr) Mean Epoch (DE) - 2000.00
      integer*4     e_RAmas_19  ! (mas) Mean error in RA*cos(DEmas) at epRA
      integer*4     e_DEmas_19  ! (mas) Mean error in DE at epDE
      integer*4     e_pmRA_19   ! (0.1mas/yr) Mean error in pmRA*cos(DEmas) (mas/10yr)
      integer*4     e_pmDE_19   ! (0.1mas/yr) Mean error in pmDE (mas/10yr)
      integer*4     Cmag_19     ! (mmag) ?=-9999 Catalogue magnitude from source
      integer*4     Rmag_19     ! (mmag) ?=-9999 Calculated Ru magnitude (579-642nm)
*                                            from source
      integer*4     Bmag_19     ! (mmag) ?=-9999 B magnitude in Johnson system
      integer*4     e_Bmag_19   ! (mmag) ?=-99 Standard error on B magnitude
      integer*4     Vmag_19     ! (mmag) ?=-9999 V magnitude in Johnson system
      integer*4     e_Vmag_19   ! (mmag) ?=-99 Standard error on V magnitude
      integer*4     Jmag_19     ! (mmag) ?=-9999 J magnitude from 2MASS
      integer*4     e_Jmag_19   ! (mmag) ?=-99 Standard error on J magnitude
      integer*4     Hmag_19     ! (mmag) ?=-9999 H magnitude from 2MASS
      integer*4     e_Hmag_19   ! (mmag) ?=-99 Standard error on H magnitude
      integer*4     Kmag_19     ! (mmag) ?=-9999 K magnitude from 2MASS
      integer*4     e_Kmag_19   ! (mmag) ?=-99 Standard error on K magnitude
      integer*4     Nobs_19     ! ? Number of observation in LSQ fit
      character*1   P_19        ! [P] P if LSQ fit is bad
      character*1   sub_19      ! [SHO] subset flag (1)
      character*1   r_ID_19     ! [HTPSGA] source catalogue flag (2)
      character*12  ID_19       ! star identifier in the source catalogue
*Note (1): PPMX consist of 3 parts designated as follows:
*    S = a survey S of stars brighter than R=12.8, consisting of 5,620,114 stars
*    H = 874,934 stars fainter than the survey limit have measurements in the AC
*        and therefore highly accurate proper motions
*    O = all other stars (11,593,871).
*Note (2): These columns give the star identifiers in the following catalogues:
*      H = the ARIHIP catalogue  (Wielen et al., 2001VeARI..40....1W)
*      T = the Tycho-2 catalogue (Hoeg et al. 2000, Cat. I/259)
*      P = the PPM catalogue (Roeser & Bastian, 1991, Cat. I/146, I/193)
*      S = STARNET catalogue (Roeser 1996, IAU Symp. 172, 481)
*      G = the Guide Star Catalog 1.2 (Morrison et al., 2001, Cat. I/254)
*      A = the AC2000.0 catalogue  (Urban et al., 2001, Cat. I/275)

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 's6000.dat'	! Declination from -60 to -67.5{deg}

      integer*4 nr__20
      parameter (nr__20=640425)	! Number of records
      character*166 ar__20 	! Full-size record

C  J2000.0 position composed of: RAmas DEmas (Epoch=2000.0)
      character*15  PPMX_20     ! Name (IAU convention HHMMSS.S+DDMMSS)
      character*1   m_PPMX_20   ! [pf] if name is identical (346 cases)
      integer*8     RAmas_20    ! (mas) Right Ascension J2000.0, epoch 2000.0
      integer*8     DEmas_20    ! (mas) Declination J2000.0, epoch 2000.0
      integer*4     pmRA_20     ! (0.01mas/yr) Proper Motion in RA*cos(DEmas) (mas/100yr)
      integer*4     pmDE_20     ! (0.01mas/yr) Proper Motion in DE (mas/100yr)
      integer*4     epRA_20     ! (0.01yr) Mean Epoch (RA) - 2000.00
      integer*4     epDE_20     ! (0.01yr) Mean Epoch (DE) - 2000.00
      integer*4     e_RAmas_20  ! (mas) Mean error in RA*cos(DEmas) at epRA
      integer*4     e_DEmas_20  ! (mas) Mean error in DE at epDE
      integer*4     e_pmRA_20   ! (0.1mas/yr) Mean error in pmRA*cos(DEmas) (mas/10yr)
      integer*4     e_pmDE_20   ! (0.1mas/yr) Mean error in pmDE (mas/10yr)
      integer*4     Cmag_20     ! (mmag) ?=-9999 Catalogue magnitude from source
      integer*4     Rmag_20     ! (mmag) ?=-9999 Calculated Ru magnitude (579-642nm)
*                                            from source
      integer*4     Bmag_20     ! (mmag) ?=-9999 B magnitude in Johnson system
      integer*4     e_Bmag_20   ! (mmag) ?=-99 Standard error on B magnitude
      integer*4     Vmag_20     ! (mmag) ?=-9999 V magnitude in Johnson system
      integer*4     e_Vmag_20   ! (mmag) ?=-99 Standard error on V magnitude
      integer*4     Jmag_20     ! (mmag) ?=-9999 J magnitude from 2MASS
      integer*4     e_Jmag_20   ! (mmag) ?=-99 Standard error on J magnitude
      integer*4     Hmag_20     ! (mmag) ?=-9999 H magnitude from 2MASS
      integer*4     e_Hmag_20   ! (mmag) ?=-99 Standard error on H magnitude
      integer*4     Kmag_20     ! (mmag) ?=-9999 K magnitude from 2MASS
      integer*4     e_Kmag_20   ! (mmag) ?=-99 Standard error on K magnitude
      integer*4     Nobs_20     ! ? Number of observation in LSQ fit
      character*1   P_20        ! [P] P if LSQ fit is bad
      character*1   sub_20      ! [SHO] subset flag (1)
      character*1   r_ID_20     ! [HTPSGA] source catalogue flag (2)
      character*12  ID_20       ! star identifier in the source catalogue
*Note (1): PPMX consist of 3 parts designated as follows:
*    S = a survey S of stars brighter than R=12.8, consisting of 5,620,114 stars
*    H = 874,934 stars fainter than the survey limit have measurements in the AC
*        and therefore highly accurate proper motions
*    O = all other stars (11,593,871).
*Note (2): These columns give the star identifiers in the following catalogues:
*      H = the ARIHIP catalogue  (Wielen et al., 2001VeARI..40....1W)
*      T = the Tycho-2 catalogue (Hoeg et al. 2000, Cat. I/259)
*      P = the PPM catalogue (Roeser & Bastian, 1991, Cat. I/146, I/193)
*      S = STARNET catalogue (Roeser 1996, IAU Symp. 172, 481)
*      G = the Guide Star Catalog 1.2 (Morrison et al., 2001, Cat. I/254)
*      A = the AC2000.0 catalogue  (Urban et al., 2001, Cat. I/275)

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 's6730.dat'	! Declination from -67.5 to -75{deg}

      integer*4 nr__21
      parameter (nr__21=452628)	! Number of records
      character*166 ar__21 	! Full-size record

C  J2000.0 position composed of: RAmas DEmas (Epoch=2000.0)
      character*15  PPMX_21     ! Name (IAU convention HHMMSS.S+DDMMSS)
      character*1   m_PPMX_21   ! [pf] if name is identical (346 cases)
      integer*8     RAmas_21    ! (mas) Right Ascension J2000.0, epoch 2000.0
      integer*8     DEmas_21    ! (mas) Declination J2000.0, epoch 2000.0
      integer*4     pmRA_21     ! (0.01mas/yr) Proper Motion in RA*cos(DEmas) (mas/100yr)
      integer*4     pmDE_21     ! (0.01mas/yr) Proper Motion in DE (mas/100yr)
      integer*4     epRA_21     ! (0.01yr) Mean Epoch (RA) - 2000.00
      integer*4     epDE_21     ! (0.01yr) Mean Epoch (DE) - 2000.00
      integer*4     e_RAmas_21  ! (mas) Mean error in RA*cos(DEmas) at epRA
      integer*4     e_DEmas_21  ! (mas) Mean error in DE at epDE
      integer*4     e_pmRA_21   ! (0.1mas/yr) Mean error in pmRA*cos(DEmas) (mas/10yr)
      integer*4     e_pmDE_21   ! (0.1mas/yr) Mean error in pmDE (mas/10yr)
      integer*4     Cmag_21     ! (mmag) ?=-9999 Catalogue magnitude from source
      integer*4     Rmag_21     ! (mmag) ?=-9999 Calculated Ru magnitude (579-642nm)
*                                            from source
      integer*4     Bmag_21     ! (mmag) ?=-9999 B magnitude in Johnson system
      integer*4     e_Bmag_21   ! (mmag) ?=-99 Standard error on B magnitude
      integer*4     Vmag_21     ! (mmag) ?=-9999 V magnitude in Johnson system
      integer*4     e_Vmag_21   ! (mmag) ?=-99 Standard error on V magnitude
      integer*4     Jmag_21     ! (mmag) ?=-9999 J magnitude from 2MASS
      integer*4     e_Jmag_21   ! (mmag) ?=-99 Standard error on J magnitude
      integer*4     Hmag_21     ! (mmag) ?=-9999 H magnitude from 2MASS
      integer*4     e_Hmag_21   ! (mmag) ?=-99 Standard error on H magnitude
      integer*4     Kmag_21     ! (mmag) ?=-9999 K magnitude from 2MASS
      integer*4     e_Kmag_21   ! (mmag) ?=-99 Standard error on K magnitude
      integer*4     Nobs_21     ! ? Number of observation in LSQ fit
      character*1   P_21        ! [P] P if LSQ fit is bad
      character*1   sub_21      ! [SHO] subset flag (1)
      character*1   r_ID_21     ! [HTPSGA] source catalogue flag (2)
      character*12  ID_21       ! star identifier in the source catalogue
*Note (1): PPMX consist of 3 parts designated as follows:
*    S = a survey S of stars brighter than R=12.8, consisting of 5,620,114 stars
*    H = 874,934 stars fainter than the survey limit have measurements in the AC
*        and therefore highly accurate proper motions
*    O = all other stars (11,593,871).
*Note (2): These columns give the star identifiers in the following catalogues:
*      H = the ARIHIP catalogue  (Wielen et al., 2001VeARI..40....1W)
*      T = the Tycho-2 catalogue (Hoeg et al. 2000, Cat. I/259)
*      P = the PPM catalogue (Roeser & Bastian, 1991, Cat. I/146, I/193)
*      S = STARNET catalogue (Roeser 1996, IAU Symp. 172, 481)
*      G = the Guide Star Catalog 1.2 (Morrison et al., 2001, Cat. I/254)
*      A = the AC2000.0 catalogue  (Urban et al., 2001, Cat. I/275)

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 's7500.dat'	! Declination from -75 to -82.5{deg}

      integer*4 nr__22
      parameter (nr__22=269692)	! Number of records
      character*166 ar__22 	! Full-size record

C  J2000.0 position composed of: RAmas DEmas (Epoch=2000.0)
      character*15  PPMX_22     ! Name (IAU convention HHMMSS.S+DDMMSS)
      character*1   m_PPMX_22   ! [pf] if name is identical (346 cases)
      integer*8     RAmas_22    ! (mas) Right Ascension J2000.0, epoch 2000.0
      integer*8     DEmas_22    ! (mas) Declination J2000.0, epoch 2000.0
      integer*4     pmRA_22     ! (0.01mas/yr) Proper Motion in RA*cos(DEmas) (mas/100yr)
      integer*4     pmDE_22     ! (0.01mas/yr) Proper Motion in DE (mas/100yr)
      integer*4     epRA_22     ! (0.01yr) Mean Epoch (RA) - 2000.00
      integer*4     epDE_22     ! (0.01yr) Mean Epoch (DE) - 2000.00
      integer*4     e_RAmas_22  ! (mas) Mean error in RA*cos(DEmas) at epRA
      integer*4     e_DEmas_22  ! (mas) Mean error in DE at epDE
      integer*4     e_pmRA_22   ! (0.1mas/yr) Mean error in pmRA*cos(DEmas) (mas/10yr)
      integer*4     e_pmDE_22   ! (0.1mas/yr) Mean error in pmDE (mas/10yr)
      integer*4     Cmag_22     ! (mmag) ?=-9999 Catalogue magnitude from source
      integer*4     Rmag_22     ! (mmag) ?=-9999 Calculated Ru magnitude (579-642nm)
*                                            from source
      integer*4     Bmag_22     ! (mmag) ?=-9999 B magnitude in Johnson system
      integer*4     e_Bmag_22   ! (mmag) ?=-99 Standard error on B magnitude
      integer*4     Vmag_22     ! (mmag) ?=-9999 V magnitude in Johnson system
      integer*4     e_Vmag_22   ! (mmag) ?=-99 Standard error on V magnitude
      integer*4     Jmag_22     ! (mmag) ?=-9999 J magnitude from 2MASS
      integer*4     e_Jmag_22   ! (mmag) ?=-99 Standard error on J magnitude
      integer*4     Hmag_22     ! (mmag) ?=-9999 H magnitude from 2MASS
      integer*4     e_Hmag_22   ! (mmag) ?=-99 Standard error on H magnitude
      integer*4     Kmag_22     ! (mmag) ?=-9999 K magnitude from 2MASS
      integer*4     e_Kmag_22   ! (mmag) ?=-99 Standard error on K magnitude
      integer*4     Nobs_22     ! ? Number of observation in LSQ fit
      character*1   P_22        ! [P] P if LSQ fit is bad
      character*1   sub_22      ! [SHO] subset flag (1)
      character*1   r_ID_22     ! [HTPSGA] source catalogue flag (2)
      character*12  ID_22       ! star identifier in the source catalogue
*Note (1): PPMX consist of 3 parts designated as follows:
*    S = a survey S of stars brighter than R=12.8, consisting of 5,620,114 stars
*    H = 874,934 stars fainter than the survey limit have measurements in the AC
*        and therefore highly accurate proper motions
*    O = all other stars (11,593,871).
*Note (2): These columns give the star identifiers in the following catalogues:
*      H = the ARIHIP catalogue  (Wielen et al., 2001VeARI..40....1W)
*      T = the Tycho-2 catalogue (Hoeg et al. 2000, Cat. I/259)
*      P = the PPM catalogue (Roeser & Bastian, 1991, Cat. I/146, I/193)
*      S = STARNET catalogue (Roeser 1996, IAU Symp. 172, 481)
*      G = the Guide Star Catalog 1.2 (Morrison et al., 2001, Cat. I/254)
*      A = the AC2000.0 catalogue  (Urban et al., 2001, Cat. I/275)

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 's8230.dat'	! Declination from -82.5 to -90{deg}

      integer*4 nr__23
      parameter (nr__23=92360)	! Number of records
      character*166 ar__23 	! Full-size record

C  J2000.0 position composed of: RAmas DEmas (Epoch=2000.0)
      character*15  PPMX_23     ! Name (IAU convention HHMMSS.S+DDMMSS)
      character*1   m_PPMX_23   ! [pf] if name is identical (346 cases)
      integer*8     RAmas_23    ! (mas) Right Ascension J2000.0, epoch 2000.0
      integer*8     DEmas_23    ! (mas) Declination J2000.0, epoch 2000.0
      integer*4     pmRA_23     ! (0.01mas/yr) Proper Motion in RA*cos(DEmas) (mas/100yr)
      integer*4     pmDE_23     ! (0.01mas/yr) Proper Motion in DE (mas/100yr)
      integer*4     epRA_23     ! (0.01yr) Mean Epoch (RA) - 2000.00
      integer*4     epDE_23     ! (0.01yr) Mean Epoch (DE) - 2000.00
      integer*4     e_RAmas_23  ! (mas) Mean error in RA*cos(DEmas) at epRA
      integer*4     e_DEmas_23  ! (mas) Mean error in DE at epDE
      integer*4     e_pmRA_23   ! (0.1mas/yr) Mean error in pmRA*cos(DEmas) (mas/10yr)
      integer*4     e_pmDE_23   ! (0.1mas/yr) Mean error in pmDE (mas/10yr)
      integer*4     Cmag_23     ! (mmag) ?=-9999 Catalogue magnitude from source
      integer*4     Rmag_23     ! (mmag) ?=-9999 Calculated Ru magnitude (579-642nm)
*                                            from source
      integer*4     Bmag_23     ! (mmag) ?=-9999 B magnitude in Johnson system
      integer*4     e_Bmag_23   ! (mmag) ?=-99 Standard error on B magnitude
      integer*4     Vmag_23     ! (mmag) ?=-9999 V magnitude in Johnson system
      integer*4     e_Vmag_23   ! (mmag) ?=-99 Standard error on V magnitude
      integer*4     Jmag_23     ! (mmag) ?=-9999 J magnitude from 2MASS
      integer*4     e_Jmag_23   ! (mmag) ?=-99 Standard error on J magnitude
      integer*4     Hmag_23     ! (mmag) ?=-9999 H magnitude from 2MASS
      integer*4     e_Hmag_23   ! (mmag) ?=-99 Standard error on H magnitude
      integer*4     Kmag_23     ! (mmag) ?=-9999 K magnitude from 2MASS
      integer*4     e_Kmag_23   ! (mmag) ?=-99 Standard error on K magnitude
      integer*4     Nobs_23     ! ? Number of observation in LSQ fit
      character*1   P_23        ! [P] P if LSQ fit is bad
      character*1   sub_23      ! [SHO] subset flag (1)
      character*1   r_ID_23     ! [HTPSGA] source catalogue flag (2)
      character*12  ID_23       ! star identifier in the source catalogue
*Note (1): PPMX consist of 3 parts designated as follows:
*    S = a survey S of stars brighter than R=12.8, consisting of 5,620,114 stars
*    H = 874,934 stars fainter than the survey limit have measurements in the AC
*        and therefore highly accurate proper motions
*    O = all other stars (11,593,871).
*Note (2): These columns give the star identifiers in the following catalogues:
*      H = the ARIHIP catalogue  (Wielen et al., 2001VeARI..40....1W)
*      T = the Tycho-2 catalogue (Hoeg et al. 2000, Cat. I/259)
*      P = the PPM catalogue (Roeser & Bastian, 1991, Cat. I/146, I/193)
*      S = STARNET catalogue (Roeser 1996, IAU Symp. 172, 481)
*      G = the Guide Star Catalog 1.2 (Morrison et al., 2001, Cat. I/254)
*      A = the AC2000.0 catalogue  (Urban et al., 2001, Cat. I/275)

C=============================================================================

C  Loading file 'n0000.dat'	! Declination from +00 to +07.5{deg}

C  Format for file interpretation

    1 format(
     +  A15,A1,1X,I10,1X,I10,1X,I7,1X,I7,1X,I5,1X,I5,1X,I3,1X,I3,1X,
     +  I3,1X,I3,1X,I5,1X,I5,1X,I5,1X,I3,1X,I5,1X,I3,1X,I5,1X,I3,1X,
     +  I5,1X,I3,1X,I5,1X,I3,1X,I2,1X,A1,1X,A1,1X,A1,1X,A12)

C  Effective file loading

      open(unit=1,status='old',file=
     +'n0000.dat')
      write(6,*) '....Loading file: n0000.dat'
      do i__=1,1131366
        read(1,'(A166)')ar__
        read(ar__,1)
     +  PPMX,m_PPMX,RAmas,DEmas,pmRA,pmDE,epRA,epDE,e_RAmas,e_DEmas,
     +  e_pmRA,e_pmDE,Cmag,Rmag,Bmag,e_Bmag,Vmag,e_Vmag,Jmag,e_Jmag,
     +  Hmag,e_Hmag,Kmag,e_Kmag,Nobs,P,sub,r_ID,ID
        if(ar__(146:147) .EQ. '') Nobs = iNULL__
c    ..............Just test output...........
        write(6,1)
     +  PPMX,m_PPMX,RAmas,DEmas,pmRA,pmDE,epRA,epDE,e_RAmas,e_DEmas,
     +  e_pmRA,e_pmDE,Cmag,Rmag,Bmag,e_Bmag,Vmag,e_Vmag,Jmag,e_Jmag,
     +  Hmag,e_Hmag,Kmag,e_Kmag,Nobs,P,sub,r_ID,ID
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'n0730.dat'	! Declination from +07.5 to +15{deg}

C  Format for file interpretation

    2 format(
     +  A15,A1,1X,I10,1X,I10,1X,I7,1X,I7,1X,I5,1X,I5,1X,I3,1X,I3,1X,
     +  I3,1X,I3,1X,I5,1X,I5,1X,I5,1X,I3,1X,I5,1X,I3,1X,I5,1X,I3,1X,
     +  I5,1X,I3,1X,I5,1X,I3,1X,I2,1X,A1,1X,A1,1X,A1,1X,A12)

C  Effective file loading

      open(unit=1,status='old',file=
     +'n0730.dat')
      write(6,*) '....Loading file: n0730.dat'
      do i__=1,1040650
        read(1,'(A166)')ar__1
        read(ar__1,2)
     +  PPMX_1,m_PPMX_1,RAmas_1,DEmas_1,pmRA_1,pmDE_1,epRA_1,epDE_1,
     +  e_RAmas_1,e_DEmas_1,e_pmRA_1,e_pmDE_1,Cmag_1,Rmag_1,Bmag_1,
     +  e_Bmag_1,Vmag_1,e_Vmag_1,Jmag_1,e_Jmag_1,Hmag_1,e_Hmag_1,
     +  Kmag_1,e_Kmag_1,Nobs_1,P_1,sub_1,r_ID_1,ID_1
        if(ar__1(146:147) .EQ. '') Nobs_1 = iNULL__
c    ..............Just test output...........
        write(6,2)
     +  PPMX_1,m_PPMX_1,RAmas_1,DEmas_1,pmRA_1,pmDE_1,epRA_1,epDE_1,
     +  e_RAmas_1,e_DEmas_1,e_pmRA_1,e_pmDE_1,Cmag_1,Rmag_1,Bmag_1,
     +  e_Bmag_1,Vmag_1,e_Vmag_1,Jmag_1,e_Jmag_1,Hmag_1,e_Hmag_1,
     +  Kmag_1,e_Kmag_1,Nobs_1,P_1,sub_1,r_ID_1,ID_1
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'n1500.dat'	! Declination from +15 to +22.5{deg}

C  Format for file interpretation

    3 format(
     +  A15,A1,1X,I10,1X,I10,1X,I7,1X,I7,1X,I5,1X,I5,1X,I3,1X,I3,1X,
     +  I3,1X,I3,1X,I5,1X,I5,1X,I5,1X,I3,1X,I5,1X,I3,1X,I5,1X,I3,1X,
     +  I5,1X,I3,1X,I5,1X,I3,1X,I2,1X,A1,1X,A1,1X,A1,1X,A12)

C  Effective file loading

      open(unit=1,status='old',file=
     +'n1500.dat')
      write(6,*) '....Loading file: n1500.dat'
      do i__=1,1005212
        read(1,'(A166)')ar__2
        read(ar__2,3)
     +  PPMX_2,m_PPMX_2,RAmas_2,DEmas_2,pmRA_2,pmDE_2,epRA_2,epDE_2,
     +  e_RAmas_2,e_DEmas_2,e_pmRA_2,e_pmDE_2,Cmag_2,Rmag_2,Bmag_2,
     +  e_Bmag_2,Vmag_2,e_Vmag_2,Jmag_2,e_Jmag_2,Hmag_2,e_Hmag_2,
     +  Kmag_2,e_Kmag_2,Nobs_2,P_2,sub_2,r_ID_2,ID_2
        if(ar__2(146:147) .EQ. '') Nobs_2 = iNULL__
c    ..............Just test output...........
        write(6,3)
     +  PPMX_2,m_PPMX_2,RAmas_2,DEmas_2,pmRA_2,pmDE_2,epRA_2,epDE_2,
     +  e_RAmas_2,e_DEmas_2,e_pmRA_2,e_pmDE_2,Cmag_2,Rmag_2,Bmag_2,
     +  e_Bmag_2,Vmag_2,e_Vmag_2,Jmag_2,e_Jmag_2,Hmag_2,e_Hmag_2,
     +  Kmag_2,e_Kmag_2,Nobs_2,P_2,sub_2,r_ID_2,ID_2
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'n2230.dat'	! Declination from +22.5 to +30{deg}

C  Format for file interpretation

    4 format(
     +  A15,A1,1X,I10,1X,I10,1X,I7,1X,I7,1X,I5,1X,I5,1X,I3,1X,I3,1X,
     +  I3,1X,I3,1X,I5,1X,I5,1X,I5,1X,I3,1X,I5,1X,I3,1X,I5,1X,I3,1X,
     +  I5,1X,I3,1X,I5,1X,I3,1X,I2,1X,A1,1X,A1,1X,A1,1X,A12)

C  Effective file loading

      open(unit=1,status='old',file=
     +'n2230.dat')
      write(6,*) '....Loading file: n2230.dat'
      do i__=1,1040381
        read(1,'(A166)')ar__3
        read(ar__3,4)
     +  PPMX_3,m_PPMX_3,RAmas_3,DEmas_3,pmRA_3,pmDE_3,epRA_3,epDE_3,
     +  e_RAmas_3,e_DEmas_3,e_pmRA_3,e_pmDE_3,Cmag_3,Rmag_3,Bmag_3,
     +  e_Bmag_3,Vmag_3,e_Vmag_3,Jmag_3,e_Jmag_3,Hmag_3,e_Hmag_3,
     +  Kmag_3,e_Kmag_3,Nobs_3,P_3,sub_3,r_ID_3,ID_3
        if(ar__3(146:147) .EQ. '') Nobs_3 = iNULL__
c    ..............Just test output...........
        write(6,4)
     +  PPMX_3,m_PPMX_3,RAmas_3,DEmas_3,pmRA_3,pmDE_3,epRA_3,epDE_3,
     +  e_RAmas_3,e_DEmas_3,e_pmRA_3,e_pmDE_3,Cmag_3,Rmag_3,Bmag_3,
     +  e_Bmag_3,Vmag_3,e_Vmag_3,Jmag_3,e_Jmag_3,Hmag_3,e_Hmag_3,
     +  Kmag_3,e_Kmag_3,Nobs_3,P_3,sub_3,r_ID_3,ID_3
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'n3000.dat'	! Declination from +30 to +37.5{deg}

C  Format for file interpretation

    5 format(
     +  A15,A1,1X,I10,1X,I10,1X,I7,1X,I7,1X,I5,1X,I5,1X,I3,1X,I3,1X,
     +  I3,1X,I3,1X,I5,1X,I5,1X,I5,1X,I3,1X,I5,1X,I3,1X,I5,1X,I3,1X,
     +  I5,1X,I3,1X,I5,1X,I3,1X,I2,1X,A1,1X,A1,1X,A1,1X,A12)

C  Effective file loading

      open(unit=1,status='old',file=
     +'n3000.dat')
      write(6,*) '....Loading file: n3000.dat'
      do i__=1,1020072
        read(1,'(A166)')ar__4
        read(ar__4,5)
     +  PPMX_4,m_PPMX_4,RAmas_4,DEmas_4,pmRA_4,pmDE_4,epRA_4,epDE_4,
     +  e_RAmas_4,e_DEmas_4,e_pmRA_4,e_pmDE_4,Cmag_4,Rmag_4,Bmag_4,
     +  e_Bmag_4,Vmag_4,e_Vmag_4,Jmag_4,e_Jmag_4,Hmag_4,e_Hmag_4,
     +  Kmag_4,e_Kmag_4,Nobs_4,P_4,sub_4,r_ID_4,ID_4
        if(ar__4(146:147) .EQ. '') Nobs_4 = iNULL__
c    ..............Just test output...........
        write(6,5)
     +  PPMX_4,m_PPMX_4,RAmas_4,DEmas_4,pmRA_4,pmDE_4,epRA_4,epDE_4,
     +  e_RAmas_4,e_DEmas_4,e_pmRA_4,e_pmDE_4,Cmag_4,Rmag_4,Bmag_4,
     +  e_Bmag_4,Vmag_4,e_Vmag_4,Jmag_4,e_Jmag_4,Hmag_4,e_Hmag_4,
     +  Kmag_4,e_Kmag_4,Nobs_4,P_4,sub_4,r_ID_4,ID_4
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'n3730.dat'	! Declination from +37.5 to +45{deg}

C  Format for file interpretation

    6 format(
     +  A15,A1,1X,I10,1X,I10,1X,I7,1X,I7,1X,I5,1X,I5,1X,I3,1X,I3,1X,
     +  I3,1X,I3,1X,I5,1X,I5,1X,I5,1X,I3,1X,I5,1X,I3,1X,I5,1X,I3,1X,
     +  I5,1X,I3,1X,I5,1X,I3,1X,I2,1X,A1,1X,A1,1X,A1,1X,A12)

C  Effective file loading

      open(unit=1,status='old',file=
     +'n3730.dat')
      write(6,*) '....Loading file: n3730.dat'
      do i__=1,982895
        read(1,'(A166)')ar__5
        read(ar__5,6)
     +  PPMX_5,m_PPMX_5,RAmas_5,DEmas_5,pmRA_5,pmDE_5,epRA_5,epDE_5,
     +  e_RAmas_5,e_DEmas_5,e_pmRA_5,e_pmDE_5,Cmag_5,Rmag_5,Bmag_5,
     +  e_Bmag_5,Vmag_5,e_Vmag_5,Jmag_5,e_Jmag_5,Hmag_5,e_Hmag_5,
     +  Kmag_5,e_Kmag_5,Nobs_5,P_5,sub_5,r_ID_5,ID_5
        if(ar__5(146:147) .EQ. '') Nobs_5 = iNULL__
c    ..............Just test output...........
        write(6,6)
     +  PPMX_5,m_PPMX_5,RAmas_5,DEmas_5,pmRA_5,pmDE_5,epRA_5,epDE_5,
     +  e_RAmas_5,e_DEmas_5,e_pmRA_5,e_pmDE_5,Cmag_5,Rmag_5,Bmag_5,
     +  e_Bmag_5,Vmag_5,e_Vmag_5,Jmag_5,e_Jmag_5,Hmag_5,e_Hmag_5,
     +  Kmag_5,e_Kmag_5,Nobs_5,P_5,sub_5,r_ID_5,ID_5
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'n4500.dat'	! Declination from +45 to +52.5{deg}

C  Format for file interpretation

    7 format(
     +  A15,A1,1X,I10,1X,I10,1X,I7,1X,I7,1X,I5,1X,I5,1X,I3,1X,I3,1X,
     +  I3,1X,I3,1X,I5,1X,I5,1X,I5,1X,I3,1X,I5,1X,I3,1X,I5,1X,I3,1X,
     +  I5,1X,I3,1X,I5,1X,I3,1X,I2,1X,A1,1X,A1,1X,A1,1X,A12)

C  Effective file loading

      open(unit=1,status='old',file=
     +'n4500.dat')
      write(6,*) '....Loading file: n4500.dat'
      do i__=1,863340
        read(1,'(A166)')ar__6
        read(ar__6,7)
     +  PPMX_6,m_PPMX_6,RAmas_6,DEmas_6,pmRA_6,pmDE_6,epRA_6,epDE_6,
     +  e_RAmas_6,e_DEmas_6,e_pmRA_6,e_pmDE_6,Cmag_6,Rmag_6,Bmag_6,
     +  e_Bmag_6,Vmag_6,e_Vmag_6,Jmag_6,e_Jmag_6,Hmag_6,e_Hmag_6,
     +  Kmag_6,e_Kmag_6,Nobs_6,P_6,sub_6,r_ID_6,ID_6
        if(ar__6(146:147) .EQ. '') Nobs_6 = iNULL__
c    ..............Just test output...........
        write(6,7)
     +  PPMX_6,m_PPMX_6,RAmas_6,DEmas_6,pmRA_6,pmDE_6,epRA_6,epDE_6,
     +  e_RAmas_6,e_DEmas_6,e_pmRA_6,e_pmDE_6,Cmag_6,Rmag_6,Bmag_6,
     +  e_Bmag_6,Vmag_6,e_Vmag_6,Jmag_6,e_Jmag_6,Hmag_6,e_Hmag_6,
     +  Kmag_6,e_Kmag_6,Nobs_6,P_6,sub_6,r_ID_6,ID_6
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'n5230.dat'	! Declination from +52.5 to +60{deg}

C  Format for file interpretation

    8 format(
     +  A15,A1,1X,I10,1X,I10,1X,I7,1X,I7,1X,I5,1X,I5,1X,I3,1X,I3,1X,
     +  I3,1X,I3,1X,I5,1X,I5,1X,I5,1X,I3,1X,I5,1X,I3,1X,I5,1X,I3,1X,
     +  I5,1X,I3,1X,I5,1X,I3,1X,I2,1X,A1,1X,A1,1X,A1,1X,A12)

C  Effective file loading

      open(unit=1,status='old',file=
     +'n5230.dat')
      write(6,*) '....Loading file: n5230.dat'
      do i__=1,663079
        read(1,'(A166)')ar__7
        read(ar__7,8)
     +  PPMX_7,m_PPMX_7,RAmas_7,DEmas_7,pmRA_7,pmDE_7,epRA_7,epDE_7,
     +  e_RAmas_7,e_DEmas_7,e_pmRA_7,e_pmDE_7,Cmag_7,Rmag_7,Bmag_7,
     +  e_Bmag_7,Vmag_7,e_Vmag_7,Jmag_7,e_Jmag_7,Hmag_7,e_Hmag_7,
     +  Kmag_7,e_Kmag_7,Nobs_7,P_7,sub_7,r_ID_7,ID_7
        if(ar__7(146:147) .EQ. '') Nobs_7 = iNULL__
c    ..............Just test output...........
        write(6,8)
     +  PPMX_7,m_PPMX_7,RAmas_7,DEmas_7,pmRA_7,pmDE_7,epRA_7,epDE_7,
     +  e_RAmas_7,e_DEmas_7,e_pmRA_7,e_pmDE_7,Cmag_7,Rmag_7,Bmag_7,
     +  e_Bmag_7,Vmag_7,e_Vmag_7,Jmag_7,e_Jmag_7,Hmag_7,e_Hmag_7,
     +  Kmag_7,e_Kmag_7,Nobs_7,P_7,sub_7,r_ID_7,ID_7
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'n6000.dat'	! Declination from +60 to +67.5{deg}

C  Format for file interpretation

    9 format(
     +  A15,A1,1X,I10,1X,I10,1X,I7,1X,I7,1X,I5,1X,I5,1X,I3,1X,I3,1X,
     +  I3,1X,I3,1X,I5,1X,I5,1X,I5,1X,I3,1X,I5,1X,I3,1X,I5,1X,I3,1X,
     +  I5,1X,I3,1X,I5,1X,I3,1X,I2,1X,A1,1X,A1,1X,A1,1X,A12)

C  Effective file loading

      open(unit=1,status='old',file=
     +'n6000.dat')
      write(6,*) '....Loading file: n6000.dat'
      do i__=1,512841
        read(1,'(A166)')ar__8
        read(ar__8,9)
     +  PPMX_8,m_PPMX_8,RAmas_8,DEmas_8,pmRA_8,pmDE_8,epRA_8,epDE_8,
     +  e_RAmas_8,e_DEmas_8,e_pmRA_8,e_pmDE_8,Cmag_8,Rmag_8,Bmag_8,
     +  e_Bmag_8,Vmag_8,e_Vmag_8,Jmag_8,e_Jmag_8,Hmag_8,e_Hmag_8,
     +  Kmag_8,e_Kmag_8,Nobs_8,P_8,sub_8,r_ID_8,ID_8
        if(ar__8(146:147) .EQ. '') Nobs_8 = iNULL__
c    ..............Just test output...........
        write(6,9)
     +  PPMX_8,m_PPMX_8,RAmas_8,DEmas_8,pmRA_8,pmDE_8,epRA_8,epDE_8,
     +  e_RAmas_8,e_DEmas_8,e_pmRA_8,e_pmDE_8,Cmag_8,Rmag_8,Bmag_8,
     +  e_Bmag_8,Vmag_8,e_Vmag_8,Jmag_8,e_Jmag_8,Hmag_8,e_Hmag_8,
     +  Kmag_8,e_Kmag_8,Nobs_8,P_8,sub_8,r_ID_8,ID_8
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'n6730.dat'	! Declination from +67.5 to +75{deg}

C  Format for file interpretation

   10 format(
     +  A15,A1,1X,I10,1X,I10,1X,I7,1X,I7,1X,I5,1X,I5,1X,I3,1X,I3,1X,
     +  I3,1X,I3,1X,I5,1X,I5,1X,I5,1X,I3,1X,I5,1X,I3,1X,I5,1X,I3,1X,
     +  I5,1X,I3,1X,I5,1X,I3,1X,I2,1X,A1,1X,A1,1X,A1,1X,A12)

C  Effective file loading

      open(unit=1,status='old',file=
     +'n6730.dat')
      write(6,*) '....Loading file: n6730.dat'
      do i__=1,369595
        read(1,'(A166)')ar__9
        read(ar__9,10)
     +  PPMX_9,m_PPMX_9,RAmas_9,DEmas_9,pmRA_9,pmDE_9,epRA_9,epDE_9,
     +  e_RAmas_9,e_DEmas_9,e_pmRA_9,e_pmDE_9,Cmag_9,Rmag_9,Bmag_9,
     +  e_Bmag_9,Vmag_9,e_Vmag_9,Jmag_9,e_Jmag_9,Hmag_9,e_Hmag_9,
     +  Kmag_9,e_Kmag_9,Nobs_9,P_9,sub_9,r_ID_9,ID_9
        if(ar__9(146:147) .EQ. '') Nobs_9 = iNULL__
c    ..............Just test output...........
        write(6,10)
     +  PPMX_9,m_PPMX_9,RAmas_9,DEmas_9,pmRA_9,pmDE_9,epRA_9,epDE_9,
     +  e_RAmas_9,e_DEmas_9,e_pmRA_9,e_pmDE_9,Cmag_9,Rmag_9,Bmag_9,
     +  e_Bmag_9,Vmag_9,e_Vmag_9,Jmag_9,e_Jmag_9,Hmag_9,e_Hmag_9,
     +  Kmag_9,e_Kmag_9,Nobs_9,P_9,sub_9,r_ID_9,ID_9
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'n7500.dat'	! Declination from +75 to +82.5{deg}

C  Format for file interpretation

   11 format(
     +  A15,A1,1X,I10,1X,I10,1X,I7,1X,I7,1X,I5,1X,I5,1X,I3,1X,I3,1X,
     +  I3,1X,I3,1X,I5,1X,I5,1X,I5,1X,I3,1X,I5,1X,I3,1X,I5,1X,I3,1X,
     +  I5,1X,I3,1X,I5,1X,I3,1X,I2,1X,A1,1X,A1,1X,A1,1X,A12)

C  Effective file loading

      open(unit=1,status='old',file=
     +'n7500.dat')
      write(6,*) '....Loading file: n7500.dat'
      do i__=1,258995
        read(1,'(A166)')ar__10
        read(ar__10,11)
     +  PPMX_10,m_PPMX_10,RAmas_10,DEmas_10,pmRA_10,pmDE_10,epRA_10,
     +  epDE_10,e_RAmas_10,e_DEmas_10,e_pmRA_10,e_pmDE_10,Cmag_10,
     +  Rmag_10,Bmag_10,e_Bmag_10,Vmag_10,e_Vmag_10,Jmag_10,e_Jmag_10,
     +  Hmag_10,e_Hmag_10,Kmag_10,e_Kmag_10,Nobs_10,P_10,sub_10,
     +  r_ID_10,ID_10
        if(ar__10(146:147) .EQ. '') Nobs_10 = iNULL__
c    ..............Just test output...........
        write(6,11)
     +  PPMX_10,m_PPMX_10,RAmas_10,DEmas_10,pmRA_10,pmDE_10,epRA_10,
     +  epDE_10,e_RAmas_10,e_DEmas_10,e_pmRA_10,e_pmDE_10,Cmag_10,
     +  Rmag_10,Bmag_10,e_Bmag_10,Vmag_10,e_Vmag_10,Jmag_10,e_Jmag_10,
     +  Hmag_10,e_Hmag_10,Kmag_10,e_Kmag_10,Nobs_10,P_10,sub_10,
     +  r_ID_10,ID_10
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'n8230.dat'	! Declination from +82.5 to +90{deg}

C  Format for file interpretation

   12 format(
     +  A15,A1,1X,I10,1X,I10,1X,I7,1X,I7,1X,I5,1X,I5,1X,I3,1X,I3,1X,
     +  I3,1X,I3,1X,I5,1X,I5,1X,I5,1X,I3,1X,I5,1X,I3,1X,I5,1X,I3,1X,
     +  I5,1X,I3,1X,I5,1X,I3,1X,I2,1X,A1,1X,A1,1X,A1,1X,A12)

C  Effective file loading

      open(unit=1,status='old',file=
     +'n8230.dat')
      write(6,*) '....Loading file: n8230.dat'
      do i__=1,73460
        read(1,'(A166)')ar__11
        read(ar__11,12)
     +  PPMX_11,m_PPMX_11,RAmas_11,DEmas_11,pmRA_11,pmDE_11,epRA_11,
     +  epDE_11,e_RAmas_11,e_DEmas_11,e_pmRA_11,e_pmDE_11,Cmag_11,
     +  Rmag_11,Bmag_11,e_Bmag_11,Vmag_11,e_Vmag_11,Jmag_11,e_Jmag_11,
     +  Hmag_11,e_Hmag_11,Kmag_11,e_Kmag_11,Nobs_11,P_11,sub_11,
     +  r_ID_11,ID_11
        if(ar__11(146:147) .EQ. '') Nobs_11 = iNULL__
c    ..............Just test output...........
        write(6,12)
     +  PPMX_11,m_PPMX_11,RAmas_11,DEmas_11,pmRA_11,pmDE_11,epRA_11,
     +  epDE_11,e_RAmas_11,e_DEmas_11,e_pmRA_11,e_pmDE_11,Cmag_11,
     +  Rmag_11,Bmag_11,e_Bmag_11,Vmag_11,e_Vmag_11,Jmag_11,e_Jmag_11,
     +  Hmag_11,e_Hmag_11,Kmag_11,e_Kmag_11,Nobs_11,P_11,sub_11,
     +  r_ID_11,ID_11
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 's0000.dat'	! Declination from -00 to -07.5{deg}

C  Format for file interpretation

   13 format(
     +  A15,A1,1X,I10,1X,I10,1X,I7,1X,I7,1X,I5,1X,I5,1X,I3,1X,I3,1X,
     +  I3,1X,I3,1X,I5,1X,I5,1X,I5,1X,I3,1X,I5,1X,I3,1X,I5,1X,I3,1X,
     +  I5,1X,I3,1X,I5,1X,I3,1X,I2,1X,A1,1X,A1,1X,A1,1X,A12)

C  Effective file loading

      open(unit=1,status='old',file=
     +'s0000.dat')
      write(6,*) '....Loading file: s0000.dat'
      do i__=1,970673
        read(1,'(A166)')ar__12
        read(ar__12,13)
     +  PPMX_12,m_PPMX_12,RAmas_12,DEmas_12,pmRA_12,pmDE_12,epRA_12,
     +  epDE_12,e_RAmas_12,e_DEmas_12,e_pmRA_12,e_pmDE_12,Cmag_12,
     +  Rmag_12,Bmag_12,e_Bmag_12,Vmag_12,e_Vmag_12,Jmag_12,e_Jmag_12,
     +  Hmag_12,e_Hmag_12,Kmag_12,e_Kmag_12,Nobs_12,P_12,sub_12,
     +  r_ID_12,ID_12
        if(ar__12(146:147) .EQ. '') Nobs_12 = iNULL__
c    ..............Just test output...........
        write(6,13)
     +  PPMX_12,m_PPMX_12,RAmas_12,DEmas_12,pmRA_12,pmDE_12,epRA_12,
     +  epDE_12,e_RAmas_12,e_DEmas_12,e_pmRA_12,e_pmDE_12,Cmag_12,
     +  Rmag_12,Bmag_12,e_Bmag_12,Vmag_12,e_Vmag_12,Jmag_12,e_Jmag_12,
     +  Hmag_12,e_Hmag_12,Kmag_12,e_Kmag_12,Nobs_12,P_12,sub_12,
     +  r_ID_12,ID_12
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 's0730.dat'	! Declination from -07.5 to -15{deg}

C  Format for file interpretation

   14 format(
     +  A15,A1,1X,I10,1X,I10,1X,I7,1X,I7,1X,I5,1X,I5,1X,I3,1X,I3,1X,
     +  I3,1X,I3,1X,I5,1X,I5,1X,I5,1X,I3,1X,I5,1X,I3,1X,I5,1X,I3,1X,
     +  I5,1X,I3,1X,I5,1X,I3,1X,I2,1X,A1,1X,A1,1X,A1,1X,A12)

C  Effective file loading

      open(unit=1,status='old',file=
     +'s0730.dat')
      write(6,*) '....Loading file: s0730.dat'
      do i__=1,970094
        read(1,'(A166)')ar__13
        read(ar__13,14)
     +  PPMX_13,m_PPMX_13,RAmas_13,DEmas_13,pmRA_13,pmDE_13,epRA_13,
     +  epDE_13,e_RAmas_13,e_DEmas_13,e_pmRA_13,e_pmDE_13,Cmag_13,
     +  Rmag_13,Bmag_13,e_Bmag_13,Vmag_13,e_Vmag_13,Jmag_13,e_Jmag_13,
     +  Hmag_13,e_Hmag_13,Kmag_13,e_Kmag_13,Nobs_13,P_13,sub_13,
     +  r_ID_13,ID_13
        if(ar__13(146:147) .EQ. '') Nobs_13 = iNULL__
c    ..............Just test output...........
        write(6,14)
     +  PPMX_13,m_PPMX_13,RAmas_13,DEmas_13,pmRA_13,pmDE_13,epRA_13,
     +  epDE_13,e_RAmas_13,e_DEmas_13,e_pmRA_13,e_pmDE_13,Cmag_13,
     +  Rmag_13,Bmag_13,e_Bmag_13,Vmag_13,e_Vmag_13,Jmag_13,e_Jmag_13,
     +  Hmag_13,e_Hmag_13,Kmag_13,e_Kmag_13,Nobs_13,P_13,sub_13,
     +  r_ID_13,ID_13
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 's1500.dat'	! Declination from -15 to -22.5{deg}

C  Format for file interpretation

   15 format(
     +  A15,A1,1X,I10,1X,I10,1X,I7,1X,I7,1X,I5,1X,I5,1X,I3,1X,I3,1X,
     +  I3,1X,I3,1X,I5,1X,I5,1X,I5,1X,I3,1X,I5,1X,I3,1X,I5,1X,I3,1X,
     +  I5,1X,I3,1X,I5,1X,I3,1X,I2,1X,A1,1X,A1,1X,A1,1X,A12)

C  Effective file loading

      open(unit=1,status='old',file=
     +'s1500.dat')
      write(6,*) '....Loading file: s1500.dat'
      do i__=1,1010372
        read(1,'(A166)')ar__14
        read(ar__14,15)
     +  PPMX_14,m_PPMX_14,RAmas_14,DEmas_14,pmRA_14,pmDE_14,epRA_14,
     +  epDE_14,e_RAmas_14,e_DEmas_14,e_pmRA_14,e_pmDE_14,Cmag_14,
     +  Rmag_14,Bmag_14,e_Bmag_14,Vmag_14,e_Vmag_14,Jmag_14,e_Jmag_14,
     +  Hmag_14,e_Hmag_14,Kmag_14,e_Kmag_14,Nobs_14,P_14,sub_14,
     +  r_ID_14,ID_14
        if(ar__14(146:147) .EQ. '') Nobs_14 = iNULL__
c    ..............Just test output...........
        write(6,15)
     +  PPMX_14,m_PPMX_14,RAmas_14,DEmas_14,pmRA_14,pmDE_14,epRA_14,
     +  epDE_14,e_RAmas_14,e_DEmas_14,e_pmRA_14,e_pmDE_14,Cmag_14,
     +  Rmag_14,Bmag_14,e_Bmag_14,Vmag_14,e_Vmag_14,Jmag_14,e_Jmag_14,
     +  Hmag_14,e_Hmag_14,Kmag_14,e_Kmag_14,Nobs_14,P_14,sub_14,
     +  r_ID_14,ID_14
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 's2230.dat'	! Declination from -22.5 to -30{deg}

C  Format for file interpretation

   16 format(
     +  A15,A1,1X,I10,1X,I10,1X,I7,1X,I7,1X,I5,1X,I5,1X,I3,1X,I3,1X,
     +  I3,1X,I3,1X,I5,1X,I5,1X,I5,1X,I3,1X,I5,1X,I3,1X,I5,1X,I3,1X,
     +  I5,1X,I3,1X,I5,1X,I3,1X,I2,1X,A1,1X,A1,1X,A1,1X,A12)

C  Effective file loading

      open(unit=1,status='old',file=
     +'s2230.dat')
      write(6,*) '....Loading file: s2230.dat'
      do i__=1,1019597
        read(1,'(A166)')ar__15
        read(ar__15,16)
     +  PPMX_15,m_PPMX_15,RAmas_15,DEmas_15,pmRA_15,pmDE_15,epRA_15,
     +  epDE_15,e_RAmas_15,e_DEmas_15,e_pmRA_15,e_pmDE_15,Cmag_15,
     +  Rmag_15,Bmag_15,e_Bmag_15,Vmag_15,e_Vmag_15,Jmag_15,e_Jmag_15,
     +  Hmag_15,e_Hmag_15,Kmag_15,e_Kmag_15,Nobs_15,P_15,sub_15,
     +  r_ID_15,ID_15
        if(ar__15(146:147) .EQ. '') Nobs_15 = iNULL__
c    ..............Just test output...........
        write(6,16)
     +  PPMX_15,m_PPMX_15,RAmas_15,DEmas_15,pmRA_15,pmDE_15,epRA_15,
     +  epDE_15,e_RAmas_15,e_DEmas_15,e_pmRA_15,e_pmDE_15,Cmag_15,
     +  Rmag_15,Bmag_15,e_Bmag_15,Vmag_15,e_Vmag_15,Jmag_15,e_Jmag_15,
     +  Hmag_15,e_Hmag_15,Kmag_15,e_Kmag_15,Nobs_15,P_15,sub_15,
     +  r_ID_15,ID_15
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 's3000.dat'	! Declination from -30 to -37.5{deg}

C  Format for file interpretation

   17 format(
     +  A15,A1,1X,I10,1X,I10,1X,I7,1X,I7,1X,I5,1X,I5,1X,I3,1X,I3,1X,
     +  I3,1X,I3,1X,I5,1X,I5,1X,I5,1X,I3,1X,I5,1X,I3,1X,I5,1X,I3,1X,
     +  I5,1X,I3,1X,I5,1X,I3,1X,I2,1X,A1,1X,A1,1X,A1,1X,A12)

C  Effective file loading

      open(unit=1,status='old',file=
     +'s3000.dat')
      write(6,*) '....Loading file: s3000.dat'
      do i__=1,975900
        read(1,'(A166)')ar__16
        read(ar__16,17)
     +  PPMX_16,m_PPMX_16,RAmas_16,DEmas_16,pmRA_16,pmDE_16,epRA_16,
     +  epDE_16,e_RAmas_16,e_DEmas_16,e_pmRA_16,e_pmDE_16,Cmag_16,
     +  Rmag_16,Bmag_16,e_Bmag_16,Vmag_16,e_Vmag_16,Jmag_16,e_Jmag_16,
     +  Hmag_16,e_Hmag_16,Kmag_16,e_Kmag_16,Nobs_16,P_16,sub_16,
     +  r_ID_16,ID_16
        if(ar__16(146:147) .EQ. '') Nobs_16 = iNULL__
c    ..............Just test output...........
        write(6,17)
     +  PPMX_16,m_PPMX_16,RAmas_16,DEmas_16,pmRA_16,pmDE_16,epRA_16,
     +  epDE_16,e_RAmas_16,e_DEmas_16,e_pmRA_16,e_pmDE_16,Cmag_16,
     +  Rmag_16,Bmag_16,e_Bmag_16,Vmag_16,e_Vmag_16,Jmag_16,e_Jmag_16,
     +  Hmag_16,e_Hmag_16,Kmag_16,e_Kmag_16,Nobs_16,P_16,sub_16,
     +  r_ID_16,ID_16
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 's3730.dat'	! Declination from -37.5 to -45{deg}

C  Format for file interpretation

   18 format(
     +  A15,A1,1X,I10,1X,I10,1X,I7,1X,I7,1X,I5,1X,I5,1X,I3,1X,I3,1X,
     +  I3,1X,I3,1X,I5,1X,I5,1X,I5,1X,I3,1X,I5,1X,I3,1X,I5,1X,I3,1X,
     +  I5,1X,I3,1X,I5,1X,I3,1X,I2,1X,A1,1X,A1,1X,A1,1X,A12)

C  Effective file loading

      open(unit=1,status='old',file=
     +'s3730.dat')
      write(6,*) '....Loading file: s3730.dat'
      do i__=1,991495
        read(1,'(A166)')ar__17
        read(ar__17,18)
     +  PPMX_17,m_PPMX_17,RAmas_17,DEmas_17,pmRA_17,pmDE_17,epRA_17,
     +  epDE_17,e_RAmas_17,e_DEmas_17,e_pmRA_17,e_pmDE_17,Cmag_17,
     +  Rmag_17,Bmag_17,e_Bmag_17,Vmag_17,e_Vmag_17,Jmag_17,e_Jmag_17,
     +  Hmag_17,e_Hmag_17,Kmag_17,e_Kmag_17,Nobs_17,P_17,sub_17,
     +  r_ID_17,ID_17
        if(ar__17(146:147) .EQ. '') Nobs_17 = iNULL__
c    ..............Just test output...........
        write(6,18)
     +  PPMX_17,m_PPMX_17,RAmas_17,DEmas_17,pmRA_17,pmDE_17,epRA_17,
     +  epDE_17,e_RAmas_17,e_DEmas_17,e_pmRA_17,e_pmDE_17,Cmag_17,
     +  Rmag_17,Bmag_17,e_Bmag_17,Vmag_17,e_Vmag_17,Jmag_17,e_Jmag_17,
     +  Hmag_17,e_Hmag_17,Kmag_17,e_Kmag_17,Nobs_17,P_17,sub_17,
     +  r_ID_17,ID_17
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 's4500.dat'	! Declination from -45 to -52.5{deg}

C  Format for file interpretation

   19 format(
     +  A15,A1,1X,I10,1X,I10,1X,I7,1X,I7,1X,I5,1X,I5,1X,I3,1X,I3,1X,
     +  I3,1X,I3,1X,I5,1X,I5,1X,I5,1X,I3,1X,I5,1X,I3,1X,I5,1X,I3,1X,
     +  I5,1X,I3,1X,I5,1X,I3,1X,I2,1X,A1,1X,A1,1X,A1,1X,A12)

C  Effective file loading

      open(unit=1,status='old',file=
     +'s4500.dat')
      write(6,*) '....Loading file: s4500.dat'
      do i__=1,951351
        read(1,'(A166)')ar__18
        read(ar__18,19)
     +  PPMX_18,m_PPMX_18,RAmas_18,DEmas_18,pmRA_18,pmDE_18,epRA_18,
     +  epDE_18,e_RAmas_18,e_DEmas_18,e_pmRA_18,e_pmDE_18,Cmag_18,
     +  Rmag_18,Bmag_18,e_Bmag_18,Vmag_18,e_Vmag_18,Jmag_18,e_Jmag_18,
     +  Hmag_18,e_Hmag_18,Kmag_18,e_Kmag_18,Nobs_18,P_18,sub_18,
     +  r_ID_18,ID_18
        if(ar__18(146:147) .EQ. '') Nobs_18 = iNULL__
c    ..............Just test output...........
        write(6,19)
     +  PPMX_18,m_PPMX_18,RAmas_18,DEmas_18,pmRA_18,pmDE_18,epRA_18,
     +  epDE_18,e_RAmas_18,e_DEmas_18,e_pmRA_18,e_pmDE_18,Cmag_18,
     +  Rmag_18,Bmag_18,e_Bmag_18,Vmag_18,e_Vmag_18,Jmag_18,e_Jmag_18,
     +  Hmag_18,e_Hmag_18,Kmag_18,e_Kmag_18,Nobs_18,P_18,sub_18,
     +  r_ID_18,ID_18
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 's5230.dat'	! Declination from -52.5 to -60{deg}

C  Format for file interpretation

   20 format(
     +  A15,A1,1X,I10,1X,I10,1X,I7,1X,I7,1X,I5,1X,I5,1X,I3,1X,I3,1X,
     +  I3,1X,I3,1X,I5,1X,I5,1X,I5,1X,I3,1X,I5,1X,I3,1X,I5,1X,I3,1X,
     +  I5,1X,I3,1X,I5,1X,I3,1X,I2,1X,A1,1X,A1,1X,A1,1X,A12)

C  Effective file loading

      open(unit=1,status='old',file=
     +'s5230.dat')
      write(6,*) '....Loading file: s5230.dat'
      do i__=1,782446
        read(1,'(A166)')ar__19
        read(ar__19,20)
     +  PPMX_19,m_PPMX_19,RAmas_19,DEmas_19,pmRA_19,pmDE_19,epRA_19,
     +  epDE_19,e_RAmas_19,e_DEmas_19,e_pmRA_19,e_pmDE_19,Cmag_19,
     +  Rmag_19,Bmag_19,e_Bmag_19,Vmag_19,e_Vmag_19,Jmag_19,e_Jmag_19,
     +  Hmag_19,e_Hmag_19,Kmag_19,e_Kmag_19,Nobs_19,P_19,sub_19,
     +  r_ID_19,ID_19
        if(ar__19(146:147) .EQ. '') Nobs_19 = iNULL__
c    ..............Just test output...........
        write(6,20)
     +  PPMX_19,m_PPMX_19,RAmas_19,DEmas_19,pmRA_19,pmDE_19,epRA_19,
     +  epDE_19,e_RAmas_19,e_DEmas_19,e_pmRA_19,e_pmDE_19,Cmag_19,
     +  Rmag_19,Bmag_19,e_Bmag_19,Vmag_19,e_Vmag_19,Jmag_19,e_Jmag_19,
     +  Hmag_19,e_Hmag_19,Kmag_19,e_Kmag_19,Nobs_19,P_19,sub_19,
     +  r_ID_19,ID_19
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 's6000.dat'	! Declination from -60 to -67.5{deg}

C  Format for file interpretation

   21 format(
     +  A15,A1,1X,I10,1X,I10,1X,I7,1X,I7,1X,I5,1X,I5,1X,I3,1X,I3,1X,
     +  I3,1X,I3,1X,I5,1X,I5,1X,I5,1X,I3,1X,I5,1X,I3,1X,I5,1X,I3,1X,
     +  I5,1X,I3,1X,I5,1X,I3,1X,I2,1X,A1,1X,A1,1X,A1,1X,A12)

C  Effective file loading

      open(unit=1,status='old',file=
     +'s6000.dat')
      write(6,*) '....Loading file: s6000.dat'
      do i__=1,640425
        read(1,'(A166)')ar__20
        read(ar__20,21)
     +  PPMX_20,m_PPMX_20,RAmas_20,DEmas_20,pmRA_20,pmDE_20,epRA_20,
     +  epDE_20,e_RAmas_20,e_DEmas_20,e_pmRA_20,e_pmDE_20,Cmag_20,
     +  Rmag_20,Bmag_20,e_Bmag_20,Vmag_20,e_Vmag_20,Jmag_20,e_Jmag_20,
     +  Hmag_20,e_Hmag_20,Kmag_20,e_Kmag_20,Nobs_20,P_20,sub_20,
     +  r_ID_20,ID_20
        if(ar__20(146:147) .EQ. '') Nobs_20 = iNULL__
c    ..............Just test output...........
        write(6,21)
     +  PPMX_20,m_PPMX_20,RAmas_20,DEmas_20,pmRA_20,pmDE_20,epRA_20,
     +  epDE_20,e_RAmas_20,e_DEmas_20,e_pmRA_20,e_pmDE_20,Cmag_20,
     +  Rmag_20,Bmag_20,e_Bmag_20,Vmag_20,e_Vmag_20,Jmag_20,e_Jmag_20,
     +  Hmag_20,e_Hmag_20,Kmag_20,e_Kmag_20,Nobs_20,P_20,sub_20,
     +  r_ID_20,ID_20
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 's6730.dat'	! Declination from -67.5 to -75{deg}

C  Format for file interpretation

   22 format(
     +  A15,A1,1X,I10,1X,I10,1X,I7,1X,I7,1X,I5,1X,I5,1X,I3,1X,I3,1X,
     +  I3,1X,I3,1X,I5,1X,I5,1X,I5,1X,I3,1X,I5,1X,I3,1X,I5,1X,I3,1X,
     +  I5,1X,I3,1X,I5,1X,I3,1X,I2,1X,A1,1X,A1,1X,A1,1X,A12)

C  Effective file loading

      open(unit=1,status='old',file=
     +'s6730.dat')
      write(6,*) '....Loading file: s6730.dat'
      do i__=1,452628
        read(1,'(A166)')ar__21
        read(ar__21,22)
     +  PPMX_21,m_PPMX_21,RAmas_21,DEmas_21,pmRA_21,pmDE_21,epRA_21,
     +  epDE_21,e_RAmas_21,e_DEmas_21,e_pmRA_21,e_pmDE_21,Cmag_21,
     +  Rmag_21,Bmag_21,e_Bmag_21,Vmag_21,e_Vmag_21,Jmag_21,e_Jmag_21,
     +  Hmag_21,e_Hmag_21,Kmag_21,e_Kmag_21,Nobs_21,P_21,sub_21,
     +  r_ID_21,ID_21
        if(ar__21(146:147) .EQ. '') Nobs_21 = iNULL__
c    ..............Just test output...........
        write(6,22)
     +  PPMX_21,m_PPMX_21,RAmas_21,DEmas_21,pmRA_21,pmDE_21,epRA_21,
     +  epDE_21,e_RAmas_21,e_DEmas_21,e_pmRA_21,e_pmDE_21,Cmag_21,
     +  Rmag_21,Bmag_21,e_Bmag_21,Vmag_21,e_Vmag_21,Jmag_21,e_Jmag_21,
     +  Hmag_21,e_Hmag_21,Kmag_21,e_Kmag_21,Nobs_21,P_21,sub_21,
     +  r_ID_21,ID_21
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 's7500.dat'	! Declination from -75 to -82.5{deg}

C  Format for file interpretation

   23 format(
     +  A15,A1,1X,I10,1X,I10,1X,I7,1X,I7,1X,I5,1X,I5,1X,I3,1X,I3,1X,
     +  I3,1X,I3,1X,I5,1X,I5,1X,I5,1X,I3,1X,I5,1X,I3,1X,I5,1X,I3,1X,
     +  I5,1X,I3,1X,I5,1X,I3,1X,I2,1X,A1,1X,A1,1X,A1,1X,A12)

C  Effective file loading

      open(unit=1,status='old',file=
     +'s7500.dat')
      write(6,*) '....Loading file: s7500.dat'
      do i__=1,269692
        read(1,'(A166)')ar__22
        read(ar__22,23)
     +  PPMX_22,m_PPMX_22,RAmas_22,DEmas_22,pmRA_22,pmDE_22,epRA_22,
     +  epDE_22,e_RAmas_22,e_DEmas_22,e_pmRA_22,e_pmDE_22,Cmag_22,
     +  Rmag_22,Bmag_22,e_Bmag_22,Vmag_22,e_Vmag_22,Jmag_22,e_Jmag_22,
     +  Hmag_22,e_Hmag_22,Kmag_22,e_Kmag_22,Nobs_22,P_22,sub_22,
     +  r_ID_22,ID_22
        if(ar__22(146:147) .EQ. '') Nobs_22 = iNULL__
c    ..............Just test output...........
        write(6,23)
     +  PPMX_22,m_PPMX_22,RAmas_22,DEmas_22,pmRA_22,pmDE_22,epRA_22,
     +  epDE_22,e_RAmas_22,e_DEmas_22,e_pmRA_22,e_pmDE_22,Cmag_22,
     +  Rmag_22,Bmag_22,e_Bmag_22,Vmag_22,e_Vmag_22,Jmag_22,e_Jmag_22,
     +  Hmag_22,e_Hmag_22,Kmag_22,e_Kmag_22,Nobs_22,P_22,sub_22,
     +  r_ID_22,ID_22
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 's8230.dat'	! Declination from -82.5 to -90{deg}

C  Format for file interpretation

   24 format(
     +  A15,A1,1X,I10,1X,I10,1X,I7,1X,I7,1X,I5,1X,I5,1X,I3,1X,I3,1X,
     +  I3,1X,I3,1X,I5,1X,I5,1X,I5,1X,I3,1X,I5,1X,I3,1X,I5,1X,I3,1X,
     +  I5,1X,I3,1X,I5,1X,I3,1X,I2,1X,A1,1X,A1,1X,A1,1X,A12)

C  Effective file loading

      open(unit=1,status='old',file=
     +'s8230.dat')
      write(6,*) '....Loading file: s8230.dat'
      do i__=1,92360
        read(1,'(A166)')ar__23
        read(ar__23,24)
     +  PPMX_23,m_PPMX_23,RAmas_23,DEmas_23,pmRA_23,pmDE_23,epRA_23,
     +  epDE_23,e_RAmas_23,e_DEmas_23,e_pmRA_23,e_pmDE_23,Cmag_23,
     +  Rmag_23,Bmag_23,e_Bmag_23,Vmag_23,e_Vmag_23,Jmag_23,e_Jmag_23,
     +  Hmag_23,e_Hmag_23,Kmag_23,e_Kmag_23,Nobs_23,P_23,sub_23,
     +  r_ID_23,ID_23
        if(ar__23(146:147) .EQ. '') Nobs_23 = iNULL__
c    ..............Just test output...........
        write(6,24)
     +  PPMX_23,m_PPMX_23,RAmas_23,DEmas_23,pmRA_23,pmDE_23,epRA_23,
     +  epDE_23,e_RAmas_23,e_DEmas_23,e_pmRA_23,e_pmDE_23,Cmag_23,
     +  Rmag_23,Bmag_23,e_Bmag_23,Vmag_23,e_Vmag_23,Jmag_23,e_Jmag_23,
     +  Hmag_23,e_Hmag_23,Kmag_23,e_Kmag_23,Nobs_23,P_23,sub_23,
     +  r_ID_23,ID_23
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================
      stop
      end