FORTRAN Generation
(/./ftp/cats/J/ApJ/722/1226)

Conversion of standardized ReadMe file for file /./ftp/cats/J/ApJ/722/1226 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-29
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/ApJ/722/1226    IR photometry in {lambda} Orionis cluster   (Hernandez+, 2010)
*================================================================================
*Spitzer observations of the {lambda} Orionis cluster.
*II. Disks around solar-type and low-mass stars.
*    Hernandez J., Morales-Calderon M., Calvet N., Hartmann L., Muzerolle J.,
*    Gutermuth R., Luhman K.L., Stauffer J.
*   <Astrophys. J., 722, 1226-1239 (2010)>
*   =2010ApJ...722.1226H
C=============================================================================

C  Internal variables

      integer*4 i__

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

C  Declarations for 'table1.dat'	! Compiled membership information of the
                             {lambda} Orionis Cluster

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

C  J2000 position composed of: RAdeg DEdeg
      integer*4     ID          ! [936/7971] Identification number
      real*8        RAdeg       ! (deg) Right Ascension in decimal degrees (J2000)
      real*8        DEdeg       ! (deg) Declination in decimal degrees (J2000)
      character*12  Name        ! Source name (LOriNNN, see ref. 2 or DMNN, see
*                                  ref. 1)
      character*10  SpType      ! MK spectral type
      character*3   r_SpType    ! Reference(s) for SpType (1)
      real*4        RV1         ! (km/s) ? Radial velocity 1
      real*4        RV2         ! (km/s) ? Radial velocity 2
      real*4        RV3         ! (km/s) ? Radial velocity 3
      character*5   r_RV        ! Reference(s) for radial velocities (1)
      character*3   LiI         ! Li I present? (Y according to r_LiI)
      character*3   r_LiI       ! Reference(s) for LiI (1)
      character*11  Memb        ! Membership details (G1)
      character*3   Mm          ! Membership flag (2)
*Note (1): Reference as follows:
*    1 = Dolan & Mathieu (2001, Cat. J/AJ/121/2124; <[DM99] NNN> in Simbad);
*    2 = Barrado y Navascues et al. (2007, Cat. J/ApJ/664/481; <lOri-CFHT NNN> in
*        Simbad);
*    3 = Maxted et al. (2008, Cat. J/MNRAS/385/2210; [MJO2008] JHHMMSS.s+DDMMSS>
*        in Simbad);
*    4 = Sacco et al. (2008, Cat. J/A+A/488/167; <[SFR2008] LNN> in Simbad);
*    5 = Dolan & Mathieu (2001, Cat. J/AJ/121/2124);
*    6 = Barrado y Navascues et al. (2007, Cat. J/ApJ/664/481);
*    7 = Sacco et al. (2008, Cat. J/A+A/488/167).
*Note (2): Membership flag as follows:
*   m1 = radial velocity members with LiI in absorption;
*   m2 = radial velocity members with no LiI information;
*   m3 = stars with LiI in absorption and radial velocity out of member range;
*   m4 = both spectral type and photometric data in agreement with cluster
*        sequence;
*   m5 = photometric members;
*  nm1 = non-members based on photometric analysis;
*  nm2 = non-members based in spectroscopic analysis.

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

C  Declarations for 'table2.dat'	! Photometric candidates of the {lambda} Orionis
                             Cluster

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

C  J2000 position composed of: RAdeg DEdeg
      integer*4     ID_1        ! [30/7968] Identification number
      character*16  v2MASS      ! 2MASS identification number
      real*8        RAdeg_1     ! (deg) Right Ascension in decimal degrees (J2000)
      real*8        DEdeg_1     ! (deg) Declination in decimal degrees (J2000)
      real*4        v_3_6_      ! (mag) Spitzer/IRAC 3.6 micron band magnitude
      real*4        e__3_6_     ! (mag) Uncertainty in [3.6]
      real*4        v_4_5_      ! (mag) Spitzer/IRAC 4.5 micron band magnitude
      real*4        e__4_5_     ! (mag) Uncertainty in [4.5]
      real*4        v_5_8_      ! (mag) ?=100 Spitzer/IRAC 5.8 micron band magnitude
      real*4        e__5_8_     ! (mag) ?=99.99 Uncertainty in [5.8]
      real*4        v_8_0_      ! (mag) ?=100 Spitzer/IRAC 8.0 micron band magnitude
      real*4        e__8_0_     ! (mag) ?=100 Uncertainty in [8.0]
      real*4        F24         ! (mJy) ? Spitzer/MIPS 24 micron flux density
      real*4        e_F24       ! (mJy) ? Uncertainty in F24
      character*8   DType       ! Disk type (1)
      character*3   f_DType     ! Flag(s) on DType (2)
      character*9   Memb_1      ! Membership details (G1)
*Note (1): Disk type as follows:
*      Thk = star with an optically thick disk;
*       TD = transitional disk candidate;
*      PTD = pre transitional disk candidate;
*       EV = star with an evolved (flat) disk;
* diskless = star with no infrared excesses.
*Note (2): Flag as follows:
*    1 = stars with uncertain 24 micron excess.
*    2 = stars with uncertain 8 micron excess.
*    3 = stars without 24 micron counterpart.
*    4 = Faint stars with not reliable excesses at 5.8 micron and 8.0 micron.
*    5 = Star with moderate IR excess at 8.0 micron but the 24 micron flux is
*        consistent with the photospheric fluxes.
*    6 = Classified as evolved disk star from the IRAC SED slope.
*    7 = The star {lambda} Orionis may mask the detection at 24 micron.

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

C  Declarations for 'table3.dat'	! Additional sources with infrared excesses

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

C  J2000 position composed of: RAdeg DEdeg
      integer*4     ID_2        ! [241/7615] Identification number
      character*16  v2MASS_1    ! 2MASS identification (HHMMSSss+DDMMSSs)
      real*8        RAdeg_2     ! (deg) Right ascension in decimal degrees (J2000)
      real*8        DEdeg_2     ! (deg) Declination in decimal degrees (J2000)
      real*4        v_3_6__1    ! (mag) Spitzer/IRAC 3.6um band magnitude
      real*4        e__3_6__1   ! (mag) Uncertainty in [3.6]
      real*4        v_4_5__1    ! (mag) Spitzer/IRAC 4.5um band magnitude
      real*4        e__4_5__1   ! (mag) Uncertainty in [4.5]
      real*4        v_5_8__1    ! (mag) Spitzer/IRAC 5.8um band magnitude
      real*4        e__5_8__1   ! (mag) Uncertainty in [5.8]
      real*4        v_8_0__1    ! (mag) Spitzer/IRAC 8.0um band magnitude
      real*4        e__8_0__1   ! (mag) Uncertainty in [8.0]
      real*8        F24_1       ! (mJy) Spitzer/MIPS 24um flux density
      real*4        e_F24_1     ! (mJy) F24 uncertainty
      character*8   Comm        ! Comment (Galaxy or Stellar?)

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

C  Loading file 'table1.dat'	! Compiled membership information of the
*                             {lambda} Orionis Cluster

C  Format for file interpretation

    1 format(
     +  I4,1X,F8.5,1X,F8.5,1X,A12,1X,A10,1X,A3,1X,F5.2,1X,F5.2,1X,
     +  F5.2,1X,A5,1X,A3,1X,A3,1X,A11,1X,A3)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table1.dat')
      write(6,*) '....Loading file: table1.dat'
      do i__=1,205
        read(1,'(A98)')ar__
        read(ar__,1)
     +  ID,RAdeg,DEdeg,Name,SpType,r_SpType,RV1,RV2,RV3,r_RV,LiI,
     +  r_LiI,Memb,Mm
        if(ar__(52:56) .EQ. '') RV1 = rNULL__
        if(ar__(58:62) .EQ. '') RV2 = rNULL__
        if(ar__(64:68) .EQ. '') RV3 = rNULL__
c    ..............Just test output...........
        write(6,1)
     +  ID,RAdeg,DEdeg,Name,SpType,r_SpType,RV1,RV2,RV3,r_RV,LiI,
     +  r_LiI,Memb,Mm
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table2.dat'	! Photometric candidates of the {lambda} Orionis
*                             Cluster

C  Format for file interpretation

    2 format(
     +  I4,1X,A16,1X,F8.5,1X,F8.5,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,
     +  F6.2,1X,F5.2,1X,F6.2,1X,F6.2,1X,F5.2,1X,F4.2,1X,A8,1X,A3,1X,A9)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table2.dat')
      write(6,*) '....Loading file: table2.dat'
      do i__=1,436
        read(1,'(A122)')ar__1
        read(ar__1,2)
     +  ID_1,v2MASS,RAdeg_1,DEdeg_1,v_3_6_,e__3_6_,v_4_5_,e__4_5_,
     +  v_5_8_,e__5_8_,v_8_0_,e__8_0_,F24,e_F24,DType,f_DType,Memb_1
        if(ar__1(90:94) .EQ. '') F24 = rNULL__
        if(ar__1(96:99) .EQ. '') e_F24 = rNULL__
c    ..............Just test output...........
        write(6,2)
     +  ID_1,v2MASS,RAdeg_1,DEdeg_1,v_3_6_,e__3_6_,v_4_5_,e__4_5_,
     +  v_5_8_,e__5_8_,v_8_0_,e__8_0_,F24,e_F24,DType,f_DType,Memb_1
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table3.dat'	! Additional sources with infrared excesses

C  Format for file interpretation

    3 format(
     +  I4,1X,A16,1X,F8.5,1X,F8.5,1X,F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,
     +  F6.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F7.2,1X,F6.2,1X,A8)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table3.dat')
      write(6,*) '....Loading file: table3.dat'
      do i__=1,41
        read(1,'(A115)')ar__2
        read(ar__2,3)
     +  ID_2,v2MASS_1,RAdeg_2,DEdeg_2,v_3_6__1,e__3_6__1,v_4_5__1,
     +  e__4_5__1,v_5_8__1,e__5_8__1,v_8_0__1,e__8_0__1,F24_1,e_F24_1,
     +  Comm
c    ..............Just test output...........
        write(6,3)
     +  ID_2,v2MASS_1,RAdeg_2,DEdeg_2,v_3_6__1,e__3_6__1,v_4_5__1,
     +  e__4_5__1,v_5_8__1,e__5_8__1,v_8_0__1,e__8_0__1,F24_1,e_F24_1,
     +  Comm
c    .......End.of.Just test output...........
      end do
      close(1)

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