Conversion of standardized ReadMe file for
file /./ftp/cats/J/MNRAS/383/1513 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 2026-Aug-11
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/MNRAS/383/1513 2MASS, SDSS and FIRST fluxes of QSOs (Labita+, 2008)
*================================================================================
*The near-infrared to ultraviolet continuum of radio-loud versus radio-quiet
*quasars.
* Labita M., Treves A., Falomo R.
* <Mon. Not. R. Astron. Soc., 383, 1513-1518 (2008)>
* =2008MNRAS.383.1513L
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Monochromatic fluxes are derived from SDSS, 2MASS
and FIRST and corrected for Galactic extinction
integer*4 nr__
parameter (nr__=887) ! Number of records
character*103 ar__ ! Full-size record
C J2000 position composed of: RAdeg DEdeg
real*8 RAdeg ! (deg) Right ascension in decimal degrees (J2000)
real*8 DEdeg ! (deg) Declination in decimal degrees (J2000)
real*4 z ! Redshift
real*4 Fu ! (Jy) SDSS u band flux
real*4 Fg ! (Jy) SDSS g band flux
real*4 Fr ! (Jy) SDSS r band flux
real*4 Fi ! (Jy) SDSS i band flux
real*4 Fz ! (Jy) SDSS z band flux
real*4 FJ ! (Jy) 2MASS J band flux
real*4 FH ! (Jy) 2MASS H band flux
real*4 FK ! (Jy) 2MASS K band flux
character*1 l_F20cm ! Limit flag on F20cm
real*4 F20cm ! (Jy) FIRST 20cm flux
character*1 l_R_r_o ! Limit flag on R(r-o)
real*8 R_r_o ! Ratio between radio and optical fluxes (1)
*Note (1): The distinction between RLQ and RQQ objects is usually made
* referring to the ratio between the radio and optical flux. Here,
* we assume that a quasi-stellar object (QSO) is radio loud if
* R(r-o)=[F_nu_(1.5x10^9^Hz)]/[F_nu_(6x10^14^Hz]>10 (20cm/0.5{mu}m)
* and radio quiet otherwise.
C=============================================================================
C Loading file 'table1.dat' ! Monochromatic fluxes are derived from SDSS, 2MASS
* and FIRST and corrected for Galactic extinction
C Format for file interpretation
1 format(
+ F7.3,1X,F7.3,1X,F5.3,1X,E7.3,1X,E7.3,1X,E7.3,1X,E7.3,1X,E7.3,
+ 1X,E7.3,1X,E7.3,1X,E7.3,1X,A1,E7.3,1X,A1,F7.2)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,887
read(1,'(A103)')ar__
read(ar__,1)
+ RAdeg,DEdeg,z,Fu,Fg,Fr,Fi,Fz,FJ,FH,FK,l_F20cm,F20cm,l_R_r_o,
+ R_r_o
c ..............Just test output...........
write(6,1)
+ RAdeg,DEdeg,z,Fu,Fg,Fr,Fi,Fz,FJ,FH,FK,l_F20cm,F20cm,l_R_r_o,
+ R_r_o
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end