FORTRAN Generation
(/./ftp/cats/J/ApJS/196/4)

Conversion of standardized ReadMe file for file /./ftp/cats/J/ApJS/196/4 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 2024-Mar-28
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. J/ApJS/196/4     New young star candidates in Taurus-Auriga     (Rebull+, 2011)
*================================================================================
*New young star candidates in the Taurus-Auriga region as selected from the
*Wide-field Infrared Survey Explorer.
*    Rebull L.M., Koenig X.P., Padgett D.L., Terebey S., McGehee P.M.,
*    Hillenbrand L.A., Knapp G.R., Leisawitz D., Liu W., Noriega-Crespo A.,
*    Ressler M.E., Stapelfeldt K.R., Fajardo-Acosta S., Mainzer A.
*   <Astrophys. J. Suppl. Ser., 196, 4 (2011)>
*   =2011ApJS..196....4R
C=============================================================================

C  Internal variables

      integer*4 i__

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

C  Declarations for 'table1.dat'	! Multiband measurements of WISE-identified YSOs
                             with previous indications of youth in the
                             literature towards the Taurus region

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

      integer*4     Seq         ! Sequential number within the table
      character*19  WISE        ! Catalog identification (JHHMMSS.ss+DDMMSS.s)
      character*25  Name        ! Source name (1)
      real*4        W1mag       ! (mag) WISE 3.4 micron band magnitude
      real*4        e_W1mag     ! (mag) Uncertainty in W1mag
      real*4        W2mag       ! (mag) WISE 4.6 micron band magnitude
      real*4        e_W2mag     ! (mag) Uncertainty in W2mag
      real*4        W3mag       ! (mag) WISE 12 micron band magnitude
      real*4        e_W3mag     ! (mag) Uncertainty in W3mag
      real*4        W4mag       ! (mag) WISE 22 micron band magnitude
      real*4        e_W4mag     ! (mag) Uncertainty in W4mag
      character*1   St          ! [b] status (2)
      character*72  Notes       ! Additional source notes
*Note (1): Note added by CDS: In table 2 (Rejected YSO), the Name "TYC1823-680-1"
*          (04 11 22.762 +26 52 43.35, J2000) is very doubtfully linked to
*          WISE J041121.83+293320.5.
*Note (2):
* b = Object identified in Rebull et al. (2010ApJS..186..259R) as a
*     candidate Taurus member, but discussed there as needing additional
*     data to confirm/refute it as a Taurus member.

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

C  Declarations for 'table2.dat'	! Multiband measurements of WISE-identified
                             rejected YSO candidates in Taurus region

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

      integer*4     Seq_1       ! Sequential number within the table
      character*19  WISE_1      ! Catalog identification (JHHMMSS.ss+DDMMSS.s)
      character*25  Name_1      ! Source name (1)
      real*4        W1mag_1     ! (mag) WISE 3.4 micron band magnitude
      real*4        e_W1mag_1   ! (mag) Uncertainty in W1mag
      real*4        W2mag_1     ! (mag) WISE 4.6 micron band magnitude
      real*4        e_W2mag_1   ! (mag) Uncertainty in W2mag
      real*4        W3mag_1     ! (mag) WISE 12 micron band magnitude
      real*4        e_W3mag_1   ! (mag) Uncertainty in W3mag
      real*4        W4mag_1     ! (mag) WISE 22 micron band magnitude
      real*4        e_W4mag_1   ! (mag) Uncertainty in W4mag
      character*1   St_1        ! [b] status (2)
      character*72  Notes_1     ! Additional source notes
*Note (1): Note added by CDS: In table 2 (Rejected YSO), the Name "TYC1823-680-1"
*          (04 11 22.762 +26 52 43.35, J2000) is very doubtfully linked to
*          WISE J041121.83+293320.5.
*Note (2):
* b = Object identified in Rebull et al. (2010ApJS..186..259R) as a
*     candidate Taurus member, but discussed there as needing additional
*     data to confirm/refute it as a Taurus member.

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

C  Declarations for 'table3.dat'	! Multiband measurements of WISE-identified new
                             YSO candidates in Taurus region

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

      integer*4     Seq_2       ! Sequential number within the table
      character*19  WISE_2      ! Catalog identification (JHHMMSS.ss+DDMMSS.s)
      character*25  Name_2      ! Source name (1)
      real*4        W1mag_2     ! (mag) WISE 3.4 micron band magnitude
      real*4        e_W1mag_2   ! (mag) Uncertainty in W1mag
      real*4        W2mag_2     ! (mag) WISE 4.6 micron band magnitude
      real*4        e_W2mag_2   ! (mag) Uncertainty in W2mag
      real*4        W3mag_2     ! (mag) WISE 12 micron band magnitude
      real*4        e_W3mag_2   ! (mag) Uncertainty in W3mag
      real*4        W4mag_2     ! (mag) WISE 22 micron band magnitude
      real*4        e_W4mag_2   ! (mag) Uncertainty in W4mag
      character*1   St_2        ! [b] status (2)
      character*72  Notes_2     ! Additional source notes
*Note (1): Note added by CDS: In table 2 (Rejected YSO), the Name "TYC1823-680-1"
*          (04 11 22.762 +26 52 43.35, J2000) is very doubtfully linked to
*          WISE J041121.83+293320.5.
*Note (2):
* b = Object identified in Rebull et al. (2010ApJS..186..259R) as a
*     candidate Taurus member, but discussed there as needing additional
*     data to confirm/refute it as a Taurus member.

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

C  Loading file 'table1.dat'	! Multiband measurements of WISE-identified YSOs
*                             with previous indications of youth in the
*                             literature towards the Taurus region

C  Format for file interpretation

    1 format(
     +  I3,1X,A19,1X,A25,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,
     +  F4.2,1X,F5.2,1X,F4.2,1X,A1,1X,A72)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table1.dat')
      write(6,*) '....Loading file: table1.dat'
      do i__=1,196
        read(1,'(A168)')ar__
        read(ar__,1)
     +  Seq,WISE,Name,W1mag,e_W1mag,W2mag,e_W2mag,W3mag,e_W3mag,W4mag,
     +  e_W4mag,St,Notes
c    ..............Just test output...........
        write(6,1)
     +  Seq,WISE,Name,W1mag,e_W1mag,W2mag,e_W2mag,W3mag,e_W3mag,W4mag,
     +  e_W4mag,St,Notes
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table2.dat'	! Multiband measurements of WISE-identified
*                             rejected YSO candidates in Taurus region

C  Format for file interpretation

    2 format(
     +  I3,1X,A19,1X,A25,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,
     +  F4.2,1X,F5.2,1X,F4.2,1X,A1,1X,A72)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table2.dat')
      write(6,*) '....Loading file: table2.dat'
      do i__=1,724
        read(1,'(A168)')ar__1
        read(ar__1,2)
     +  Seq_1,WISE_1,Name_1,W1mag_1,e_W1mag_1,W2mag_1,e_W2mag_1,
     +  W3mag_1,e_W3mag_1,W4mag_1,e_W4mag_1,St_1,Notes_1
c    ..............Just test output...........
        write(6,2)
     +  Seq_1,WISE_1,Name_1,W1mag_1,e_W1mag_1,W2mag_1,e_W2mag_1,
     +  W3mag_1,e_W3mag_1,W4mag_1,e_W4mag_1,St_1,Notes_1
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table3.dat'	! Multiband measurements of WISE-identified new
*                             YSO candidates in Taurus region

C  Format for file interpretation

    3 format(
     +  I3,1X,A19,1X,A25,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,
     +  F4.2,1X,F5.2,1X,F4.2,1X,A1,1X,A72)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table3.dat')
      write(6,*) '....Loading file: table3.dat'
      do i__=1,94
        read(1,'(A168)')ar__2
        read(ar__2,3)
     +  Seq_2,WISE_2,Name_2,W1mag_2,e_W1mag_2,W2mag_2,e_W2mag_2,
     +  W3mag_2,e_W3mag_2,W4mag_2,e_W4mag_2,St_2,Notes_2
c    ..............Just test output...........
        write(6,3)
     +  Seq_2,WISE_2,Name_2,W1mag_2,e_W1mag_2,W2mag_2,e_W2mag_2,
     +  W3mag_2,e_W3mag_2,W4mag_2,e_W4mag_2,St_2,Notes_2
c    .......End.of.Just test output...........
      end do
      close(1)

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