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 2024-Apr-19
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