FORTRAN Generation
(/./ftp/cats/J/ApJ/733/87)

Conversion of standardized ReadMe file for file /./ftp/cats/J/ApJ/733/87 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-Apr-20
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/733/87         Star formation efficiency in galaxies         (Shi+, 2011)
*================================================================================
*Extended Schmidt law: role of existing stars in current star formation.
*    Shi Y., Helou G., Yan L., Armus L., Wu Y., Papovich C., Stierwalt S.
*   <Astrophys. J., 733, 87 (2011)>
*   =2011ApJ...733...87S
C=============================================================================

C  Internal variables

      integer*4 i__

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

C  Declarations for 'table1.dat'	! Samples with CO and HI data

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

      character*15  Name        ! Galaxy name
      character*10  Type        ! Galaxy type in this paper (1)
      real*8        z           ! [-0.0011/3.41] Redshift
      real*8        Dist        ! (Mpc) [0.78/29645] Distance used in this work
      character*27  Ap          ! Aperture definition (2)
      real*8        Area        ! (kpc2) De-projected area used to derive
*                                         surface densities
      real*4        logSigSFR   ! ([Msun/yr/kpc2]) Log star formation rate surface density
      real*4        logSigG     ! ([Msun/pc2]) Log of gas surface density
      character*4   Ref         ! Reference(s) for SFR and gas
*                                        surface density data (3)
      real*4        logSig_     ! ([Msun/pc2]) Log of stellar mass surface density
      character*27  Band        ! Wavelength band used to measure
*                                        stellar mass
      character*2   Ref_        ! [2/18] Reference for stellar mass (3)
*Note (1): Type as follows:
*         LSB  = The subsample of low-surface-brightness (LSB) galaxies includes
*                all the 19 objects from Wyder et al. (2009ApJ...696.1834W) and
*                five gas-rich dwarf galaxies from Leroy et al. (2008,
*                Cat. J/AJ/136/2782).
*   early-type = We here included nine objects from Wei et al.
*                (2010ApJ...725L..62W) and 10 objects from Crocker et al.
*                (2011MNRAS.410.1197C).
*   high-z-SFG = High-redshift star-forming galaxies (21 optically/near-IR
*                selected star-forming galaxies (Extended Groth Strip (EGS), BzK,
*                and BXMD)
*   high-z-SMG = merging submillimeter galaxies (seven submillimeter objects from
*                Genzel et al. (2010MNRAS.407.2091G))
*    late-type = This sub-sample includes 61 and 18 objects from Kennicutt
*                (1998ApJ...498..541K) and Leroy et al. (2008,
*                Cat. J/AJ/136/2782), respectively.
*    z=0-LIRGS = Local LIRGs
*          See section 2.1 for further details.
*Note (2): Used to calculate the surface density of SFR, gas and stellar
*     mass. R_25_ means the isophotal radius at 25mag/arcsec^2^ (usually in
*     B band). R_max_ gives the maximum extent of the galaxy at a given
*     wavelength that is indicated in square  brackets. Its value relative
*     to R_25_ is listed in parentheses whenever possible. R_1/2_ is the
*     half light radius at a given wavelength that is indicated in square
*     brackets.
*Note (3): For those with two RefSg references, the first one is for H_2_ and
*          SFR data while the second is for HI data. Reference(s) as follows:
*    1 = Kennicutt (1998ApJ...498..541K);
*    2 = Leroy et al. (2008, Cat. J/AJ/136/2782);
*    3 = Wei et al. (2010ApJ...725L..62W);
*    4 = Crocker et al. (2011MNRAS.410.1197C);
*    5 = Wyder et al. (2009ApJ...696.1834W);
*    6 = Scoville et al. (1997ApJ...484..702S);
*    7 = Gracia-Carpio et al. (2007A&A...468L..67G);
*    8 = Yun & Scoville (1995ApJ...451L..45Y);
*    9 = Bryant & Scoville (1999AJ....117.2632B);
*   10 = Yun et al. (1994ApJ...430L.109Y);
*   11 = Genzel et al. (2010MNRAS.407.2091G);
*   12 = Oosterloo et al. (2010MNRAS.409..500O);
*   13 = Irwin et al. (1987ApJ...313L..91I);
*   14 = van Driel & van Woerden (1991A&A...243...71V);
*   15 = Sage & Welch (2006ApJ...644..850S);
*   16 = Knapp & Raimond (1984A&A...138...77K);
*   17 = Cox et al. (2001AJ....121..692C);
*   18 = this-work.

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

C  Loading file 'table1.dat'	! Samples with CO and HI data

C  Format for file interpretation

    1 format(
     +  A15,1X,A10,1X,F9.6,1X,F8.2,1X,A27,1X,F8.2,1X,F5.2,1X,F4.2,1X,
     +  A4,1X,F5.2,1X,A27,1X,A2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table1.dat')
      write(6,*) '....Loading file: table1.dat'
      do i__=1,143
        read(1,'(A135)')ar__
        read(ar__,1)
     +  Name,Type,z,Dist,Ap,Area,logSigSFR,logSigG,Ref,logSig_,Band,
     +  Ref_
c    ..............Just test output...........
        write(6,1)
     +  Name,Type,z,Dist,Ap,Area,logSigSFR,logSigG,Ref,logSig_,Band,
     +  Ref_
c    .......End.of.Just test output...........
      end do
      close(1)

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