FORTRAN Generation
(/./ftp/cats/J/ApJ/827/74)

Conversion of standardized ReadMe file for file /./ftp/cats/J/ApJ/827/74 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/ApJ/827/74    [NII]/H{alpha} ratio in galaxies with KMOS^3D^    (Wuyts+, 2016)
*================================================================================
*The evolution of metallicity and metallicity gradients from z=2.7 to 0.6
*with KMOS-3D.
*    Wuyts E., Wisnioski E., Fossati M., Forster Schreiber N.M., Genzel R.,
*    Davies R., Mendel J.T., Naab T., Rottgers B., Wilman D.J., Wuyts S.,
*    Bandara K., Beifiori A., Belli S., Bender R., Brammer G.B., Burkert A.,
*    Chan J., Galametz A., Kulkarni S.K., Lang P., Lutz D., Momcheva I.G.,
*    Nelson E.J., Rosario D., Saglia R.P., Seitz S., Tacconi L.J., Tadaki K.-I.,
*    Ubler H., van Dokkum P.
*   <Astrophys. J., 827, 74-74 (2016)>
*   =2016ApJ...827...74W    (SIMBAD/NED BibCode)
C=============================================================================

C  Internal variables

      integer*4 i__

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

C  Declarations for 'table3.dat'	! Target properties for all galaxies where
                                 the [NII]/H{alpha} ratio could be measured

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

      integer*4     Seq         ! [1/259] Running sequence number
      real*4        z           ! [0.7/2.6] Redshift
      real*4        logM_       ! ([Msun]) [8.5/11.4] Stellar mass
      real*4        re          ! (kpc) [0.5/16]? Effective radius r_e_
      real*4        SFR         ! (Msun/yr) [0.2/397.8] H{alpha} star formation rate (1)
      character*1   l__NII__Ha  ! Limit flag on [NII]/Ha
      real*4        v_NII__Ha   ! [0.08/1.4] Integrated [NII]/H{alpha} ratio
      real*4        e__NII__Ha  ! [0/0.3]? [NII]/Ha uncertainty
      real*4        dN2_dr      ! [-0.2/0.2]? {Delta}N2/{Delta}r value,
*                                   in units of dex/kpc (2)
      real*4        e_dN2_dr    ! [0.002/0.08]? dN2/dr uncertainty
      real*4        BCF         ! [1.3/6.2]? Multiplicative beam-smearing
*                                   correction factor for the N2 gradient (3)
*Note (1): H{alpha}-based SFR corrected for dust extinction using the SED-derived
*          reddening and accounting for additional extinction of the nebular
*          lines following Wuyts et al. (2013ApJ...779..135W).
*Note (2): Observed gradient in [NII]/H{alpha}, excluding the nuclear region for
*          AGN-flagged targets. Reported only when measurable.
*Note (3): Multiplicative beam-smearing correction factor for the N2 gradient,
*          derived from simple analytical models assuming a smooth linear
*          intrinsic radial gradient.

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

C  Loading file 'table3.dat'	! Target properties for all galaxies where
*                                 the [NII]/H{alpha} ratio could be measured

C  Format for file interpretation

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

C  Effective file loading

      open(unit=1,status='old',file=
     +'table3.dat')
      write(6,*) '....Loading file: table3.dat'
      do i__=1,259
        read(1,'(A55)')ar__
        read(ar__,1)
     +  Seq,z,logM_,re,SFR,l__NII__Ha,v_NII__Ha,e__NII__Ha,dN2_dr,
     +  e_dN2_dr,BCF
        if(ar__(17:20) .EQ. '') re = rNULL__
        if(ar__(35:38) .EQ. '') e__NII__Ha = rNULL__
        if(ar__(40:45) .EQ. '') dN2_dr = rNULL__
        if(ar__(47:51) .EQ. '') e_dN2_dr = rNULL__
        if(ar__(53:55) .EQ. '') BCF = rNULL__
c    ..............Just test output...........
        write(6,1)
     +  Seq,z,logM_,re,SFR,l__NII__Ha,v_NII__Ha,e__NII__Ha,dN2_dr,
     +  e_dN2_dr,BCF
c    .......End.of.Just test output...........
      end do
      close(1)

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