FORTRAN Generation
(/./ftp/cats/J/A_A/544/A18)

Conversion of standardized ReadMe file for file /./ftp/cats/J/A_A/544/A18 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 2017-Nov-23
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/544/A18       Radio galaxies of the local universe     (van Velzen+, 2012)
*================================================================================
*Radio galaxies of the local universe.
*All-sky catalog, luminosity functions, and clustering.
*    van Velzen S., Falcke H., Schellart P., Nierstenhoefer N., Kampert K.-H.
*   <Astron. Astrophys. 544, A18 (2012)>
*   =2012A&A...544A..18V
C=============================================================================

C  Internal variables

      integer*4 i__

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

C  Declarations for 'master.dat'	! The master catalog, one entry per galaxy

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

C  J2000 position composed of: RAdeg DEdeg
      character*16  v2MASX      ! Target name of galaxy from 2MRS, HHMMSSss+DDMMSSs
      character*23  NEDname     ! NED name of galaxy
      real*8        RAdeg       ! (deg) Right ascension of galaxy (J2000)
      real*8        DEdeg       ! (deg) Declination of galaxy (J2000)
      real*8        GLON        ! (deg) Galactic longitude
      real*8        GLAT        ! (deg) Galactic latitude
      real*4        Kmag        ! (mag) K-band isophotal flux in AB mag (1)
      real*4        e_Kmag      ! (mag) rms uncertainty on Kmag in AB mag(2)
      real*8        z           ! Heliocentric redshift
      real*8        zdist       ! Peculiar-velocity corrected redshift
      real*8        e_zdist     ! Uncertainty on zdist
      real*4        Dist        ! (Mpc) Mean of NED-D and Hubble dist (3)
      real*4        e_Dist      ! (Mpc) Uncertainty on Dist
      integer*4     TT          ! Galaxy morphological type code (4)
      integer*4     Ns          ! Number of SUMSS sources matched (5)
      integer*4     Nn          ! Number of NVSS sources matched (5)
      real*8        F1400       ! (mJy) ?=0 Sum integrated flux at 1.4GHz (6)
      real*8        e_F1400     ! (mJy) rms uncertainty on F1400
      real*8        F843        ! (mJy) ?=0 Integrated flux at 843MHz (6)
      real*8        e_F843      ! (mJy) rms uncertainty on F843
      real*8        Fsyn        ! (mJy) Synthetic flux at 1.1GHz (8)(7)
      real*4        Lsyn        ! (10-7W) Synthetic luminosity, {nu}L_{nu}_, at 1.1GHz (8)
      real*8        Samaj       ! (deg) Sum major axis FWHM of matches (8)
      real*8        Mamaj       ! (deg) Max major axis FWHM of matched (8)
      integer*4     l_Mamaj     ! [0/1] Limit flag on major axis (9)
      real*8        dMax        ! (deg) Maximum distance of matches to galaxy
      real*8        dMin        ! (deg) Minimum distance of matches to galaxy
      real*8        dcont       ! (deg) Distance of the galaxy to the second-highest
*                                radio contour (10)
      real*8        RAgdeg      ! (deg) Right ascension of geometrical
*                                center (J2000) (11)
      real*8        DEgdeg      ! (deg) Declination of geometrical center (J2000) (11)
      real*8        RAfdeg      ! (deg) Right ascension of flux-weighted
*                                center (J2000) (11)
      real*8        DEfdeg      ! (deg) Declination of flux-weighted center (J2000) (11)
      character*1   cl          ! [pgju] Classification on morphology (12)
*Note (1): Corrected for galactic extinction.
*Note (2): Uncertainties are 1-sigma (68% symmetric confidence interval).
*Note (3): Inverse-variance weighted mean of distance from NED-D and
*     peculiar velocity corrected Hubble-distance (h=0.72).
*Note (4): Galaxy type runs from -9 to 9, encoding the Hubble sequence, or
*     98 if galaxy has never been examined (see Huchra et al., 2012, Cat.
*     J/ApJS/199/26, Table A8).
*Note (5): We count the number of matched Gaussian after manual rejection.
*Note (6): Zero if no matches at this frequency.
*Note (7): Obtained using a fixed spectral index of alpha=-0.6.
*Note (8): When both NVSS and SUMSS matches are available, we the pick the
*     largest value.
*Note (9): Limit flag on major axis is 1 if source is not resolved in both
*     NVSS and SUMSS.
*Note (10): The distance of the galaxy to the second-highest radio contour,
*     zero if within contour.
*Note (11): When both NVSS and SUMSS matches are available, we use the mean.
*Note (12): Classification on morphology as follows:
*   p = Point sources
*   g = Starforming galaxies
*   j = Jets & lobes
*   u = Unknown

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

C  Declarations for 'matches.dat'	! The catalog listing each radio match per galaxy

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

C  J2000 position composed of: RAdeg DEdeg
      character*16  v2MASX_1    ! Target name of galaxy from 2MRS, HHMMSSss+DDMMSSs
      character*1   Cat         ! [NS] Radio catalog (N=NVSS, S=SUMSS)
      real*8        RAdeg_1     ! (deg) Right Ascension of radio Gaussian (J2000)
      real*8        DEdeg_1     ! (deg) Declination of radio Gaussian (J2000)
      real*8        amaj        ! (deg) FWHM of major axis (deconvolved)
      integer*4     f_amaj      ! [0/1] Limit flag on major axis (1)
      real*8        F1400_1     ! (mJy) ?=0 Integrated flux at 1.4GHz (2)
      real*8        F843_1      ! (mJy) ?=0 Integrated flux at 843MHz (3)
*Note (1): flag is zero if source is resolved
*Note (2): zero if Cat = 'S'
*Note (3): zero if Cat = 'N'

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

C  Loading file 'master.dat'	! The master catalog, one entry per galaxy

C  Format for file interpretation

    1 format(
     +  A16,1X,A23,1X,F9.5,1X,F9.5,1X,F9.5,1X,F9.5,1X,F6.3,1X,F6.3,1X,
     +  F11.9,1X,F11.9,1X,F11.9,1X,F6.2,1X,F6.2,1X,I2,1X,I2,1X,I2,1X,
     +  F10.2,1X,F10.2,1X,F10.2,1X,F10.2,1X,F10.2,1X,E10.3,1X,F8.6,1X,
     +  F8.6,1X,I1,1X,F8.6,1X,F8.6,1X,F8.6,1X,F9.5,1X,F9.5,1X,F9.5,1X,
     +  F9.5,1X,A1)

C  Effective file loading

      open(unit=1,status='old',file=
     +'master.dat')
      write(6,*) '....Loading file: master.dat'
      do i__=1,575
        read(1,'(A308)')ar__
        read(ar__,1)
     +  v2MASX,NEDname,RAdeg,DEdeg,GLON,GLAT,Kmag,e_Kmag,z,zdist,
     +  e_zdist,Dist,e_Dist,TT,Ns,Nn,F1400,e_F1400,F843,e_F843,Fsyn,
     +  Lsyn,Samaj,Mamaj,l_Mamaj,dMax,dMin,dcont,RAgdeg,DEgdeg,RAfdeg,
     +  DEfdeg,cl
c    ..............Just test output...........
        write(6,1)
     +  v2MASX,NEDname,RAdeg,DEdeg,GLON,GLAT,Kmag,e_Kmag,z,zdist,
     +  e_zdist,Dist,e_Dist,TT,Ns,Nn,F1400,e_F1400,F843,e_F843,Fsyn,
     +  Lsyn,Samaj,Mamaj,l_Mamaj,dMax,dMin,dcont,RAgdeg,DEgdeg,RAfdeg,
     +  DEfdeg,cl
c    .......End.of.Just test output...........
      end do
      close(1)

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

C  Loading file 'matches.dat'	! The catalog listing each radio match per galaxy

C  Format for file interpretation

    2 format(
     +  A16,1X,A1,1X,F9.5,1X,F9.5,1X,F8.6,1X,I1,1X,F10.2,1X,F10.2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'matches.dat')
      write(6,*) '....Loading file: matches.dat'
      do i__=1,2009
        read(1,'(A71)')ar__1
        read(ar__1,2)
     +  v2MASX_1,Cat,RAdeg_1,DEdeg_1,amaj,f_amaj,F1400_1,F843_1
c    ..............Just test output...........
        write(6,2)
     +  v2MASX_1,Cat,RAdeg_1,DEdeg_1,amaj,f_amaj,F1400_1,F843_1
c    .......End.of.Just test output...........
      end do
      close(1)

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