FORTRAN Generation
(/./ftp/cats/J/ApJ/842/133)

Conversion of standardized ReadMe file for file /./ftp/cats/J/ApJ/842/133 into FORTRAN code for loading all data files into arrays.

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/842/133     HI-bearing ultra-diffuse ALFALFA galaxies     (Leisman+, 2017)
*================================================================================
*(Almost) dark galaxies in the ALFALFA survey: isolated H I-bearing
*ultra-diffuse galaxies.
*    Leisman L., Haynes M.P., Janowiecki S., Hallenbeck G., Jozsa G.,
*    Giovanelli R., Adams E.A.K., Neira D.B., Cannon J.M., Janesh W.F.,
*    Rhode K.L., Salzer J.J.
*   <Astrophys. J., 842, 133 (2017)>
*   =2017ApJ...842..133L
C=============================================================================

C  Internal variables

      integer*4 i__

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

C  Declarations for 'table1.dat'	! Properties of HI-bearing ultra-diffuse ALFALFA
                                sources (HUDS)

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

C  J2000 position composed of: RAdeg DEdeg
      integer*4     AGC        (nr__) ! [102791/749488] Arecibo General Catalog ID
      real*8        RAdeg      (nr__) ! (deg) Right Ascension (J2000)
      real*8        DEdeg      (nr__) ! (deg) Declination (J2000)
      integer*4     cz         (nr__) ! (km/s) [1796/8416] Recessional velocity
      integer*4     W50        (nr__) ! (km/s) [19/215] Width of the HI line measured at
*                                      the 50% flux level, corrected for channel
*                                      broadening
      integer*4     e_W50      (nr__) ! (km/s) [2/59] W50 error
      real*4        SdV        (nr__) ! (Jy.km/s) [0.3/3.5] HI line flux density
      real*4        e_SdV      (nr__) ! (Jy.km/s) [0.02/0.1] Flux density error
      integer*4     Dist       (nr__) ! (Mpc) [28/120] Distance from ALFALFA
*                                      flow model (1)
      real*4        logMHI     (nr__) ! ([Msun]) [7.9/9.5] HI mass
      real*4        e_logMHI   (nr__) ! ([Msun]) [0.05/0.2] HI mass error (1)
      real*4        mug0       (nr__) ! (mag/arcsec2) [23/25.4] g-band central surface
*                                      brightness (2)
      real*4        e_mug0     (nr__) ! (mag/arcsec2) [0.1/0.4] g-band central SB error
      real*4        rh         (nr__) ! (kpc) [1.6/8] Half light radius
      real*4        e_rh       (nr__) ! (kpc) [0.2/3.3] Half light radius error (1)
      real*4        gMAG       (nr__) ! (mag) [-17.1/-13.9] g-band absolute magnitude (3)
      real*4        e_gMAG     (nr__) ! (mag) [0.3/1.1] gMAG error (1)
      real*4        g_r        (nr__) ! (mag) [-0.2/0.9] g minus r color index (2)
      real*4        e_g_r      (nr__) ! (mag) [0.1/2] g-r color error
      real*4        Ag         (nr__) ! (mag) [0.05/0.8] g band galactic extinction (4)
      real*4        Ar         (nr__) ! (mag) [0.03/0.6] r band galactic extinction (4)
      character*1   Set        (nr__) ! Broad (B) or Restrictive (R) Sample
*Note (1):  Distance dependent quantity errors include an assumed distance
*           error of 350km/s or 5Mpc.
*Note (2):  Not corrected for galactic dust extinction
*Note (3):  g-band absolute magnitudes are calculated from total integrated
*           magnitudes from the surface brightness profile using the ALFALFA flow
*           model distance. These total magnitudes are not truncated, and are
*           significantly brighter than aperture magnitudes.
*           USE WITH CAUTION.
*Note (4):  Galactic dust extinction corrections are derived from the
*           Schlafly & Finkbeiner (2011ApJ...737..103S) recalibration of the
*           Schlegel et al. (1998ApJ...500..525S)  COBE and IRAS dust maps, and
*           assume Rv=3.1. They are included simply as a convenience to the
*           reader.

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

C  Loading file 'table1.dat'	! Properties of HI-bearing ultra-diffuse ALFALFA
*                                sources (HUDS)

C  Format for file interpretation

    1 format(
     +  I6,1X,F8.4,1X,F7.4,1X,I4,1X,I3,1X,I2,1X,F4.2,1X,F4.2,1X,I3,1X,
     +  F4.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F3.1,1X,F3.1,1X,F5.1,1X,F3.1,
     +  1X,F5.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,A1)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table1.dat')
      write(6,*) '....Loading file: table1.dat'
      do i__=1,115
        read(1,'(A111)')ar__
        read(ar__,1)
     +  AGC(i__),RAdeg(i__),DEdeg(i__),cz(i__),W50(i__),e_W50(i__),
     +  SdV(i__),e_SdV(i__),Dist(i__),logMHI(i__),e_logMHI(i__),
     +  mug0(i__),e_mug0(i__),rh(i__),e_rh(i__),gMAG(i__),e_gMAG(i__),
     +  g_r(i__),e_g_r(i__),Ag(i__),Ar(i__),Set(i__)
c    ..............Just test output...........
        write(6,1)
     +  AGC(i__),RAdeg(i__),DEdeg(i__),cz(i__),W50(i__),e_W50(i__),
     +  SdV(i__),e_SdV(i__),Dist(i__),logMHI(i__),e_logMHI(i__),
     +  mug0(i__),e_mug0(i__),rh(i__),e_rh(i__),gMAG(i__),e_gMAG(i__),
     +  g_r(i__),e_g_r(i__),Ag(i__),Ar(i__),Set(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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