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

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

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

C=============================================================================
Cat. I/333               URAT Parallax Catalog (UPC)                  (Finch+, 2016)
*================================================================================
*The URAT Parallax Catalog (UPC).
*   Finch C.T., Zacharias N.
*   <URAT Parallax Catalog (2016)>
*   =2016yCat.1333....0F
C=============================================================================

C  Internal variables

      integer*4 i__

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

C  Declarations for 'upc.dat'	! URAT Parallax Catalog

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

C  Position composed of: RAdeg DEdeg (Epoch=J2014)
      integer*4     UPC         ! URAT Parallax Catalog (UPC) number
      real*8        RAdeg       ! (deg) Right ascension on ICRS, at Epoch J2014 (1)
      real*8        DEdeg       ! (deg) Declination on ICRS, at Epoch J2014     (1)
      character*30  Name        ! Identifier                              (2)
      real*4        f_mag       ! (mag) URAT mean model fit magnitude           (3)
      real*4        relpi       ! (mas) URAT relative parallax
      real*4        picor       ! (mas) Parallax correction
      character*1   corflg      ! [0-2] Parallax correction flag          (4)
      real*4        abspi       ! (mas) Absolute parallax
      real*4        e_abspi     ! (mas) Error on absolute parallax
      real*8        pmRA        ! (mas/yr) Proper motion in right ascension
      real*4        e_pmRA      ! (mas/yr) Error proper motion in right ascension
      real*8        pmDE        ! (mas/yr) Proper motion in Declination
      real*4        e_pmDE      ! (mas/yr) Error proper motion in Declination
      integer*4     ne          ! Total number of epochs available        (5)
      integer*4     nr          ! Total number of epochs rejected         (5)
      real*4        Espan       ! (yr) Epoch span of data
      real*4        Elo         ! Average elongation of image             (6)
      real*4        fsig1       ! Fit sigma 1 (reduced chi-square)        (7)
      real*4        fsig2       ! (mas) Fit sigma 2 (mean error indiv.obs.)
      character*1   srcflg      ! [0-5] Source flag                       (8)
      real*8        srcpi       ! (mas) Parallax from external source           (9)
      real*4        e_srcpi     ! (mas) Parallax error from external source     (9)
*Note (1):  Positions are on the International Celestial Reference System
*     (ICRS) as represented by the UCAC4 catalog. Mean observed positions
*     are given at epoch J2014 (mean observed positions have been updated
*     to J2014 using the proper motions from column ('pmRA', 'pmDE').
*Note (2): Identifier comes from the external source from which the URAT
*     position was matched column ('srcflg').  For Mearth the LSPM North
*     Catalog Designation is given. This is left blank if no identifier
*     was found.
*Note (3):  This is the mean, observed magnitude in the 680-750 nm URAT
*     bandpass, calibrated by APASS photometry. This bandpass is between
*     R and I, thus further into the red than UCAC. Observations in
*     non-photometric nights *are* included thus the URAT magnitudes need
*     to be taken with caution.
*Note (4): The parallax correction flag is as follows:
*     0 = correction from the photometric parallaxes of UCAC4 ref.stars
*     1 = no correction so the mean of 1.3mas was used
*     2 = large correction so the cut off of 3.9mas was used
*Note (5): the number of epochs available in the URAT epoch data (ne) and
*     the number of epochs rejected (nr) during the fit solutions.
*Note (6): average image elongation from moment analysis, ratio of major
*     to minor axis is given (1.0 = round)
*Note (7): The error of unit weight (reduced chi-square) of the parallax fit
*     solution is given. Thus 1.0 means the scatter of the post-fit residuals
*     match the expected observational errors and assigned weights.
*Note (8): The source flag gives the external source to which the URAT
*     position was matched and where the information for columns 'srcpi'
*     and e_srcpi are from.
*       0 = no match to any of the following external catalogs found
*       1 = matched to Hipparcos (Cat. I/239)
*       2 = matched with The Yale Parallax Catalog
*            (van Altena et al., 1995, Cat. I/238)
*       3 = matched with (Finch & Zacharias, 2016, AJ, in press)
*       4 = matched with MEarth parallaxes
*             (Dittmann et.  al., 2014ApJ...784..156D)
*       5 = matched with SIMBAD database (http://simbad.u-strasbg.fr/simbad/)
*Note (9): Parallax and error from external source. Due to the
*     limitations of the SIMBAD database automated search feature the
*     parallax error or the source of the parallax is not given so for
*     all srcflg = 5, the parallax error is reported as 0.0. For all
*     srcflg = 0, meaning no match to an external catalog the parallax
*     and error are reported as 0.0.

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

C  Loading file 'upc.dat'	! URAT Parallax Catalog

C  Format for file interpretation

    1 format(
     +  I6,1X,F11.7,1X,F11.7,1X,A30,1X,F5.2,1X,F6.1,1X,F3.1,1X,A1,1X,
     +  F6.1,1X,F5.1,1X,F7.1,1X,F5.1,1X,F7.1,1X,F5.1,1X,I3,1X,I2,1X,
     +  F4.2,1X,F5.3,1X,F5.3,1X,F5.1,1X,A1,1X,F7.2,1X,F5.2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'upc.dat')
      write(6,*) '....Loading file: upc.dat'
      do i__=1,112177
        read(1,'(A167)')ar__
        read(ar__,1)
     +  UPC,RAdeg,DEdeg,Name,f_mag,relpi,picor,corflg,abspi,e_abspi,
     +  pmRA,e_pmRA,pmDE,e_pmDE,ne,nr,Espan,Elo,fsig1,fsig2,srcflg,
     +  srcpi,e_srcpi
c    ..............Just test output...........
        write(6,1)
     +  UPC,RAdeg,DEdeg,Name,f_mag,relpi,picor,corflg,abspi,e_abspi,
     +  pmRA,e_pmRA,pmDE,e_pmDE,ne,nr,Espan,Elo,fsig1,fsig2,srcflg,
     +  srcpi,e_srcpi
c    .......End.of.Just test output...........
      end do
      close(1)

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