FORTRAN Generation
(/./ftp/cats/J/ApJS/150/455)

Conversion of standardized ReadMe file for file /./ftp/cats/J/ApJS/150/455 into FORTRAN code for reading data files line by line.

Note that special values are assigned to unknown or unspecified numbers (also called NULL numbers); when necessary, the coordinate components making up the right ascension and declination are converted into floating-point numbers representing these angles in degrees.



++++Column 'RAdeg' at line 125: Right Ascension in decimal degrees (J2000) (G1)
    position has no associated Epoch (last analysed word: 'and')
      program load_ReadMe
C=============================================================================
C  F77-compliant program generated by readme2f_1.8, on 2014-Oct-24
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__=-1.e37)     	! NULL real number
      parameter  (iNULL__=-2147483647)	! NULL int  number

C=============================================================================
Cat. J/ApJS/150/455      New HIP-based parallaxes for 424 faint stars  (Gould+, 2004)
*================================================================================
*New HIPPARCOS-based parallaxes for 424 faint stars.
*    Gould A., Chaname J.
*   <Astrophys. J. Suppl. Ser., 150, 455-464 (2004)>
*   =2004ApJS..150..455G
C=============================================================================

C  Internal variables

      integer*4 i__

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

C  Declarations for 'table1.dat'	! New parallaxes for Hipparcos Companions

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

      integer*4     NLTT        ! Companion NLTT (<I/98>) number
      real*8        RAdeg       ! (deg) Companion right Ascension in decimal degrees
*                                  (J2000, Ep=J2000) (G1)
      real*8        DEdeg       ! (deg) Companion declination in decimal degrees
*                                  (J2000, Ep=J2000) (G1)
      integer*4     pmRA        ! (mas/yr) Companion east proper-motion component
      integer*4     pmDE        ! (mas/yr) Companion north proper-motion component
      real*4        Vmag        ! (mag) Companion V band magnitude
      real*4        v_V_J       ! (mag) ?=-9.00 Companion (V-J) color index
      real*4        VMAG_1      ! (mag) Companion absolute V band magnitude
      integer*4     Code        ! Companion source code (2)
      integer*4     NLTT1       ! Primary NLTT (<I/98>) number
      real*8        RA1deg      ! (deg) Primary Right Ascension in decimal
*                                  degrees (2000) (G1)
      real*8        DE1deg      ! (deg) Primary Declination in decimal
*                                  degrees (J2000) (G1)
      integer*4     pmRA1       ! (mas/yr) Primary East proper-motion component
      integer*4     pmDE1       ! (mas/yr) Primary North proper-motion component
      real*4        Vmag1       ! (mag) Primary V band magnitude
      real*4        v_V_J_1     ! (mag) ?=-9.00 Primary (V-J) color index
      real*4        VMAG1_1     ! (mag) Primary absolute V band magnitude
      integer*4     Code1       ! Primary source code (2)
      real*4        Sep         ! (arcsec) Separation of the companion with respect
*                                  to the primary
      real*4        PA          ! (deg) Position angle of the companion with respect
*                                  to the primary, north through east
      integer*4     HIP1        ! Primary Hipparcos (<I/239>) number
      real*4        plx1        ! (mas) Primary Hipparcos parallax
      real*4        e_plx1      ! (mas) Error in plx
      integer*4     Dpm         ! Adopted proper-motion difference
      integer*4     Bin         ! [0/1] Binarity flag (3)
*Note (2): The three-digit source code is an expanded version of the source
*    code used in rNLTT, Cat. <J/ApJ/582/1011>. There, the three digits
*    refer to the sources of the position, proper motion, and V photometry.
*      1 = Hipparcos, Cat. <I/239>
*      2 = Tycho-2, Cat. <I/259>
*      3 = TDSC, Cat. <I/276>
*      4 = Starnet, Cat. <I/253>
*      5 = USNO/2MASS, Cat. <II/246>
*      6 = NLTT, Cat. <I/98>
*      7 = USNO-A, Cat. <I/252>, (for position) or common proper motion
*          companion (for proper motion).
*      8 = USNO-B, Cat. <I/284> (position and proper motion)
*      9 = no actual detection in any catalog (position is inferred from
*          the separation vector given in the NLTT Notes)
*    More specifically, "555" means 2MASS based position, USNO-A based V
*    photometry, and USNO/2MASS based proper motion. The "8" and "9" notes
*    are an addition to the rNLTT codes. USNO-A photometry and NLTT
*    photometry are transformed to V photometry using the prescriptions
*    of Salim & Gould (2003, Cat. <J/ApJ/582/1011>).
*Note (3): Binary flag:
*      0 = binary certain
*      1 = binary "somewhat uncertain"

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

C  Declarations for 'table2.dat'	! Hipparcos doubles

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

      integer*4     HIP1_1      ! Brighter component Hipparcos (<I/239>) number
      integer*4     NLTT1_1     ! Brighter component rNLTT (<J/ApJ/582/1011>)
*                                  number
      real*4        plx1_1      ! (mas) Brighter component parallax
      real*4        e_plx1_1    ! (mas) Error in plx1
      real*4        Vmag1_2     ! (mag) Brighter component V band magnitude
      real*4        v_V_J_1_1   ! (mag) Brighter component (V-J) color
      integer*4     HIP2        ! Fainter component Hipparcos number
      integer*4     NLTT2       ! Fainter component rNLTT number
      real*4        plx2        ! (mas) Fainter component parallax
      real*4        e_plx2      ! (mas) Error in plx2
      real*4        Vmag2       ! (mag) Fainter component V band magnitude
      real*4        v_V_J_2     ! (mag) Fainter component (V-J) color
      real*4        Sep_1       ! (arcsec) Separation between fainter and brighter
*                                  components
      real*4        PA_1        ! (deg) Position angle between fainter and brighter
*                                  components

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

C  Declarations for 'table3.dat'	! White Dwarf Companions to Hipparcos Stars

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

      integer*4     NLTT_1      ! Companion NLTT (<I/98>) number
      real*8        RAdeg_1     ! (deg) Right Ascension in decimal degrees (J2000) (G1)
      real*8        DEdeg_1     ! (deg) Declination in decimal degrees (J2000) (G1)
      real*4        Vmag_2      ! (mag) V band magnitude
      real*4        V_J         ! (mag) ?=-9.00 (V-J) color index
      real*4        VMAG_3      ! (mag) Absolute V band magnitude
      real*4        Sep_2       ! (arcsec) Separation relative to the primary star
      real*4        PA_2        ! (deg) Position angle relative to the primary star,
*                                 north through east
      integer*4     HIP1_2      ! Primary Hipparcos (<I/239>) number
      real*4        plx1_2      ! (mas) Hipparcos parallax of the primary
      real*4        e_plx1_2    ! (mas) Error in plx
      real*4        plxOld      ! (mas) ? Previously tabulated parallax of the companion
      real*4        e_plxOld    ! (mas) ? Error in plxOld
      character*10  Name        ! Name of the companion
      character*6   SpType      ! Spectral type of the companion

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

C  Declarations for 'table4.dat'	! M_V_>14 Companions to Hipparcos Stars

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

      integer*4     NLTT_2      ! Companion NLTT (<I/98>) number
      real*8        RAdeg_2     ! (deg) Right Ascension in decimal degrees (J2000) (G1)
      real*8        DEdeg_2     ! (deg) Declination in decimal degrees (J2000) (G1)
      real*4        Vmag_4      ! (mag) V band magnitude
      real*4        V_J_1       ! (mag) ?=-9.00 (V-J) color index
      real*4        VMAG_5      ! (mag) Absolute V band magnitude
      real*4        Sep_3       ! (arcsec) Separation relative to the primary star
      real*4        PA_3        ! (deg) Position angle relative to the primary star,
*                                 north through east
      integer*4     HIP1_3      ! Primary Hipparcos (<I/239>) number
      real*4        plx1_3      ! (mas) Hipparcos parallax of the primary
      real*4        e_plx1_3    ! (mas) Error in plx
      real*4        plxOld_1    ! (mas) ? Previously tabulated parallax of the companion
      real*4        e_plxOld_1  ! (mas) ? Error in plxOld
      character*10  Name_1      ! Name of the companion
      character*6   SpType_1    ! Spectral type of the companion

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

C  Loading file 'table1.dat'	! New parallaxes for Hipparcos Companions

C  Format for file interpretation

    1 format(
     +  I5,1X,F9.5,1X,F9.5,1X,I5,1X,I5,1X,F5.2,1X,F5.2,1X,F5.2,1X,I3,
     +  1X,I5,1X,F9.5,1X,F9.5,1X,I5,1X,I5,1X,F5.2,1X,F5.2,1X,F5.2,1X,
     +  I3,1X,F5.1,1X,F5.1,1X,I6,1X,F6.2,1X,F5.2,1X,I3,1X,I1)

C  Effective file loading

      open(unit=1,file='table1.dat', status='old')
      write(6,*) '....Loading file: table1.dat'
      do i__=1,424
        read(1,'(A157)')ar__
        read(ar__,1)
     +  NLTT,RAdeg,DEdeg,pmRA,pmDE,Vmag,v_V_J,VMAG_1,Code,NLTT1,
     +  RA1deg,DE1deg,pmRA1,pmDE1,Vmag1,v_V_J_1,VMAG1_1,Code1,Sep,PA,
     +  HIP1,plx1,e_plx1,Dpm,Bin
c    ..............Just test output...........
        write(6,1)
     +  NLTT,RAdeg,DEdeg,pmRA,pmDE,Vmag,v_V_J,VMAG_1,Code,NLTT1,
     +  RA1deg,DE1deg,pmRA1,pmDE1,Vmag1,v_V_J_1,VMAG1_1,Code1,Sep,PA,
     +  HIP1,plx1,e_plx1,Dpm,Bin
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table2.dat'	! Hipparcos doubles

C  Format for file interpretation

    2 format(
     +  I6,1X,I5,1X,F6.2,1X,F5.2,1X,F5.2,1X,F4.2,1X,I6,1X,I5,1X,F6.2,
     +  1X,F5.2,1X,F5.2,1X,F4.2,1X,F5.1,1X,F5.1)

C  Effective file loading

      open(unit=1,file='table2.dat', status='old')
      write(6,*) '....Loading file: table2.dat'
      do i__=1,84
        read(1,'(A85)')ar__1
        read(ar__1,2)
     +  HIP1_1,NLTT1_1,plx1_1,e_plx1_1,Vmag1_2,v_V_J_1_1,HIP2,NLTT2,
     +  plx2,e_plx2,Vmag2,v_V_J_2,Sep_1,PA_1
c    ..............Just test output...........
        write(6,2)
     +  HIP1_1,NLTT1_1,plx1_1,e_plx1_1,Vmag1_2,v_V_J_1_1,HIP2,NLTT2,
     +  plx2,e_plx2,Vmag2,v_V_J_2,Sep_1,PA_1
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table3.dat'	! White Dwarf Companions to Hipparcos Stars

C  Format for file interpretation

    3 format(
     +  I5,1X,F9.5,1X,F9.5,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.1,1X,F5.1,1X,
     +  I6,1X,F6.2,1X,F4.2,1X,F6.2,1X,F5.2,1X,A10,1X,A6)

C  Effective file loading

      open(unit=1,file='table3.dat', status='old')
      write(6,*) '....Loading file: table3.dat'
      do i__=1,20
        read(1,'(A105)')ar__2
        read(ar__2,3)
     +  NLTT_1,RAdeg_1,DEdeg_1,Vmag_2,V_J,VMAG_3,Sep_2,PA_2,HIP1_2,
     +  plx1_2,e_plx1_2,plxOld,e_plxOld,Name,SpType
        if(ar__2(76:81) .EQ. '') plxOld = rNULL__
        if(ar__2(83:87) .EQ. '') e_plxOld = rNULL__
c    ..............Just test output...........
        write(6,3)
     +  NLTT_1,RAdeg_1,DEdeg_1,Vmag_2,V_J,VMAG_3,Sep_2,PA_2,HIP1_2,
     +  plx1_2,e_plx1_2,plxOld,e_plxOld,Name,SpType
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table4.dat'	! M_V_>14 Companions to Hipparcos Stars

C  Format for file interpretation

    4 format(
     +  I5,1X,F9.5,1X,F9.5,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.1,1X,F5.1,1X,
     +  I6,1X,F6.2,1X,F4.2,1X,F6.2,1X,F5.2,1X,A10,1X,A6)

C  Effective file loading

      open(unit=1,file='table4.dat', status='old')
      write(6,*) '....Loading file: table4.dat'
      do i__=1,29
        read(1,'(A105)')ar__3
        read(ar__3,4)
     +  NLTT_2,RAdeg_2,DEdeg_2,Vmag_4,V_J_1,VMAG_5,Sep_3,PA_3,HIP1_3,
     +  plx1_3,e_plx1_3,plxOld_1,e_plxOld_1,Name_1,SpType_1
        if(ar__3(76:81) .EQ. '') plxOld_1 = rNULL__
        if(ar__3(83:87) .EQ. '') e_plxOld_1 = rNULL__
c    ..............Just test output...........
        write(6,4)
     +  NLTT_2,RAdeg_2,DEdeg_2,Vmag_4,V_J_1,VMAG_5,Sep_3,PA_3,HIP1_3,
     +  plx1_3,e_plx1_3,plxOld_1,e_plxOld_1,Name_1,SpType_1
c    .......End.of.Just test output...........
      end do
      close(1)

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