FORTRAN Generation
(/./ftp/cats/J/A_A/416/555)

Conversion of standardized ReadMe file for file /./ftp/cats/J/A_A/416/555 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/A+A/416/555       Brown Dwarfs in ChaI Dark Cloud    (Lopez-Marti+ 2004)
*================================================================================
*The brown dwarf population in the Chamaeleon I cloud.
*    Lopez-Marti B., Eisloeffel J., Scholz A., Mundt R.
*   <Astron. Astrophys., 416, 555-576 (2004)>
*   =2004A&A...416..555L
C=============================================================================

C  Internal variables

      integer*4 i__

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

C  Declarations for 'table4.dat'	! Candidate low-mass members of ChaI

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

C  J2000 position composed of: RAh RAm RAs DE- DEd DEm DEs
      real*8        RAdeg       ! (deg) Right Ascension J2000
      real*8        DEdeg       ! (deg)     Declination J2000
C  ---------------------------------- ! (position vector(s) in degrees)

      integer*4     ChaI        ! [400,760] Source number
      character*1   n_ChaI      ! [efg] Individual notes (G1)
      integer*4     RAh         ! (h) Right Ascension J2000 (hours)
      integer*4     RAm         ! (min) Right Ascension J2000 (minutes)
      real*4        RAs         ! (s) Right Ascension J2000 (seconds)
      character*1   DE_         ! Declination J2000 (sign)
      integer*4     DEd         ! (deg) Declination J2000 (degrees)
      integer*4     DEm         ! (arcmin) Declination J2000 (minutes)
      real*4        DEs         ! (arcsec) Declination J2000 (seconds)
      real*4        Rmag        ! (mag) Red magnitude (reduced with Landolt standards)
      character*1   u_Rmag      ! [;:] Uncertainty flag on Rmag (1)
      real*4        Imag        ! (mag) I magnitude
      character*1   u_Imag      ! [;:] Uncertainty flag on Imag
      real*4        Halpha      ! (mag) H-alpha magnitude
      character*1   u_Halpha    ! [;:] Uncertainty flag on Halpha
      real*4        M855        ! (mag) Magnitude in medium-band filter 855/20nm
      character*1   u_M855      ! [;:] Uncertainty flag on M855
      real*4        M915        ! (mag) Magnitude in medium-band filter 915/28nm
      character*1   u_M915      ! [;:] Uncertainty flag on M915
      character*13  SpType      ! Spectral class (2)
      character*11  Class       ! Object classification
      character*45  OtherNames  ! Other names, as a comma-separated list (3)
*Note (1): the estimated photometric errors are 0.05, and increase to
*    0.1 mag with a semi-colon (;)
*    0.2 mag with a colon (:)
*Note (2): estimated errors of spectral types are 1 subclass in the
*     range M6-M9 and 2 subclasses in the range M4-M6.
*     Spectral types from the literature are indicated in parenthesis.
*Note (3): Some dubious cross-identifications are indicated in parenthesis
*   (see the "History" section below). The acronyms are:
*      B = Lawson et al. (1996MNRAS.280.1071L);
*   Baud = Baud et al. (1984ApJ...278L..53B), BYB in Simbad
*      C = Prusti et al. (1991MNRAS.251..303P); [PCW91] Ced 110 IRS in Simbad
*    CHX = Feigelson & Kriss (1989ApJ...338..262F);
*   CHXR = Feigelson et al. (1993ApJ...416..623F);
*     GK = Gomez & Kenyon (2001AJ....121..974G); [GK2001] in Simbad
*     KG = Kenyon & Gomez (2001AJ....121.2673K); [KG2001] in Simbad
*     Hn = Hartigan (1992AAS...181.8705H);
*    ISO = Persi et al. (2000A&A...357..219P), P. Persi, priv. communication;
*    NIR = Oasa et al. (1999ApJ...526..336O); [OTS99] in Simbad
*     Sz = Schwartz (1977ApJS...35..161S);
*      T = Schwartz (in 1991ESOSR..11....1R, p.93);
*    DENIS = Cambresy et al. 1998A&A...338..977C Table 1; [CCE98] 1-# in Simbad
*  DENIS-P = Cambresy et al. 1998A&A...338..977C Table 2.

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

C  Declarations for 'table6.dat'	! Infrared photometry for candidate low-mass members

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

      integer*4     ChaI_1      ! [400,760] Source number
      character*1   n_ChaI_1    ! [b] Individual notes (G1)
      real*4        JDmag       ! (mag) ? DENIS J magnitude
      real*4        KDmag       ! (mag) ? DENIS K magnitude
      real*4        Jmag        ! (mag) ? J magnitude
      real*4        Hmag        ! (mag) ? H magnitude
      real*4        Kmag        ! (mag) ? K magnitude
      real*4        Lmag        ! (mag) ? L magnitude (3.5um)
      real*4        F6_7um      ! (mJy) ? ISOCAM infrared flux at F6.7um
      real*4        e_F6_7um    ! (mJy) ? Mean error on F6.7um
      real*4        F14_3um     ! (mJy) ? ISOCAM infrared flux at 14.3um
      real*4        e_F14_3um   ! (mJy) ? Mean error on F14.3um

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

C  Loading file 'table4.dat'	! Candidate low-mass members of ChaI

C  Format for file interpretation

    1 format(
     +  6X,I3,A1,1X,I2,1X,I2,1X,F4.1,2X,A1,I2,1X,I2,1X,F4.1,2X,F5.2,
     +  A1,1X,F5.2,A1,1X,F5.2,A1,1X,F5.2,A1,1X,F5.2,A1,1X,A13,2X,A11,
     +  2X,A45)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table4.dat')
      write(6,*) '....Loading file: table4.dat'
      do i__=1,72
        read(1,'(A144)')ar__
        read(ar__,1)
     +  ChaI,n_ChaI,RAh,RAm,RAs,DE_,DEd,DEm,DEs,Rmag,u_Rmag,Imag,
     +  u_Imag,Halpha,u_Halpha,M855,u_M855,M915,u_M915,SpType,Class,
     +  OtherNames
        RAdeg = rNULL__
        DEdeg = rNULL__
c  Derive coordinates RAdeg and DEdeg from input data
c  (RAdeg and DEdeg are set to rNULL__ when unknown)
        if(RAh .GT. -180) RAdeg=RAh*15.
        if(RAm .GT. -180) RAdeg=RAdeg+RAm/4.
        if(RAs .GT. -180) RAdeg=RAdeg+RAs/240.
        if(DEd .GE. 0) DEdeg=DEd
        if(DEm .GE. 0) DEdeg=DEdeg+DEm/60.
        if(DEs .GE. 0) DEdeg=DEdeg+DEs/3600.
        if(DE_.EQ.'-'.AND.DEdeg.GE.0) DEdeg=-DEdeg
c    ..............Just test output...........
        write(6,1)
     +  ChaI,n_ChaI,RAh,RAm,RAs,DE_,DEd,DEm,DEs,Rmag,u_Rmag,Imag,
     +  u_Imag,Halpha,u_Halpha,M855,u_M855,M915,u_M915,SpType,Class,
     +  OtherNames
        write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'table6.dat'	! Infrared photometry for candidate low-mass members

C  Format for file interpretation

    2 format(
     +  6X,I3,A1,3X,F5.2,2X,F5.2,2X,F5.2,2X,F5.2,2X,F5.2,2X,F5.2,3X,
     +  F5.1,2X,F3.1,2X,F5.1,1X,F4.1)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table6.dat')
      write(6,*) '....Loading file: table6.dat'
      do i__=1,47
        read(1,'(A78)')ar__1
        read(ar__1,2)
     +  ChaI_1,n_ChaI_1,JDmag,KDmag,Jmag,Hmag,Kmag,Lmag,F6_7um,
     +  e_F6_7um,F14_3um,e_F14_3um
        if(ar__1(14:18) .EQ. '') JDmag = rNULL__
        if(ar__1(21:25) .EQ. '') KDmag = rNULL__
        if(ar__1(28:32) .EQ. '') Jmag = rNULL__
        if(ar__1(35:39) .EQ. '') Hmag = rNULL__
        if(ar__1(42:46) .EQ. '') Kmag = rNULL__
        if(ar__1(49:53) .EQ. '') Lmag = rNULL__
        if(ar__1(57:61) .EQ. '') F6_7um = rNULL__
        if(ar__1(64:66) .EQ. '') e_F6_7um = rNULL__
        if(ar__1(69:73) .EQ. '') F14_3um = rNULL__
        if(ar__1(75:78) .EQ. '') e_F14_3um = rNULL__
c    ..............Just test output...........
        write(6,2)
     +  ChaI_1,n_ChaI_1,JDmag,KDmag,Jmag,Hmag,Kmag,Lmag,F6_7um,
     +  e_F6_7um,F14_3um,e_F14_3um
c    .......End.of.Just test output...........
      end do
      close(1)

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