FORTRAN Generation
(/./ftp/cats/J/ApJ/835/254)

Conversion of standardized ReadMe file for file /./ftp/cats/J/ApJ/835/254 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/835/254  GLASS. IX. Structural param. from HFF & GLASS  (Morishita+, 2017)
*================================================================================
*The Grism Lens-Amplified Survey from Space (GLASS).
*IX. The dual origin of low-mass cluster galaxies as revealed by new structural
*analyses.
*    Morishita T., Abramson L.E., Treu T., Vulcani B., Schmidt K.B.,
*    Dressler A., Poggianti B.M., Malkan M.A., Wang X., Huang K.-H., Trenti M.,
*    Bradac M., Hoag A.
*   <Astrophys. J., 835, 254-254 (2017)>
*   =2017ApJ...835..254M    (SIMBAD/NED BibCode)
C=============================================================================

C  Internal variables

      integer*4 i__

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

C  Declarations for 'table1.dat'	! Source and structural catalog

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

C  J2000 position composed of: RAdeg DEdeg
      integer*4     Seq         ! [1/99] Galaxy cluster number (1)
      integer*4     Gal         ! [21/5546] Galaxy ID
      real*8        RAdeg       ! (deg) Right ascension (J2000)
      real*8        DEdeg       ! (deg) Declination (J2000)
      real*4        z           ! [0.2/0.7] The best redshift (2)
      real*4        mag         ! (mag) [16.7/27] HST/WFC3 F160W total AB magnitude (3)
      real*4        e_mag       ! (mag) [0.0001/2] Error in total magnitude
      real*4        logM_       ! (Msun) [6/12] Stellar mass derived by FAST
      real*4        e_logM_     ! (Msun) [0.01/0.6] Error in stellar mass
      real*8        logae       ! (kpc) [-1/2]?=-99 Effective radius along major axis
*                                  in log
      real*8        e_logae     ! (kpc) [0.0001/92]?=99 Error in logae
      real*8        logn        ! [-1/1] Sersic index in log
      real*8        e_logn      ! [0.0005/99] Error in logn
      real*8        logq        ! [-1/0]?=-99 Axis ratio in log
      real*8        e_logq      ! [0.004/7563]?=99 Error in logq
      integer*4     F           ! [0/3] Flag for GALFIT visual inspection
*                                  (0=Fine, 1=Poor/contaminated,
*                                   2=Point source) (4)
      real*4        U_V         ! (mag) [0.2/2.3] Rest-frame U-V color index
      real*4        V_J         ! (mag) [-0.1/2.3] Rest-frame V-J color index
      real*8        Sig5        ! (Mpc-2) [0.4/1720] Fifth-closest local galaxy
*                                  number density ({Sigma}_5th_)
*Note (1): ID as follows:
*  1 = Abell2744CLS (z=0.308),
*  2 = MACS0416CLS (MCS J0416.1-2403 in Simbad; z=0.396)
*  3 = MACS0717CLS (MCS J0717.5+3745 in Simbad; z=0.548)
*  4 = MACS1149CLS (MCS J1149.5+2223 in Simbad; z=0.544)
*  5 = Abell2744PR1,
*  6 = MACS0416PR1,
*  7 = MACS0717PR1,
*  8 = MACS1149PR1,
* 99 = the eXtreme Deep Field (XDF; Illingworth+ 2013ApJS..209....6I).
*          Both Hubble Frontier Fields (HFF) and Grism Survey from Space (GLASS)
*          programs use a parallel strategy where HST WFC3IR and ACS are exposed
*          simultaneously so that the former falls on the cluster core ("CLS")
*          and the latter on a low-density infall/field region ("PR1").
*Note (2): z_best_ is ground-based spectroscopic redshift (from
*          Owers+, 2011, J/ApJ/728/27; Ebeling+, 2014ApJ...781L..40E;
*          Balestra+, 2015, J/ApJS/224/33) if available,
*          implemented with GLASS grism redshift, and
*          seven-band photometric-redshift derived by EAZY for else.
*          All PR1 redshifts are photometric (see Section 2.3).
*Note (3): F160W-band Auto magnitude derived by SExtractor.
*Note (4): Visual inspection flag for sources 2{sigma} above/below the size-mass
*          relation for each population.

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

C  Loading file 'table1.dat'	! Source and structural catalog

C  Format for file interpretation

    1 format(
     +  I2,1X,I4,1X,F11.7,1X,F11.7,1X,F4.2,1X,F6.3,1X,F6.4,1X,F5.2,2X,
     +  F5.3,1X,F8.4,1X,F7.4,1X,F7.4,1X,F7.4,1X,F8.4,1X,F9.4,1X,I1,2X,
     +  F5.3,1X,F6.3,1X,F8.3)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table1.dat')
      write(6,*) '....Loading file: table1.dat'
      do i__=1,4309
        read(1,'(A140)')ar__
        read(ar__,1)
     +  Seq,Gal,RAdeg,DEdeg,z,mag,e_mag,logM_,e_logM_,logae,e_logae,
     +  logn,e_logn,logq,e_logq,F,U_V,V_J,Sig5
c    ..............Just test output...........
        write(6,1)
     +  Seq,Gal,RAdeg,DEdeg,z,mag,e_mag,logM_,e_logM_,logae,e_logae,
     +  logn,e_logn,logq,e_logq,F,U_V,V_J,Sig5
c    .......End.of.Just test output...........
      end do
      close(1)

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