Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/122/503 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-20
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/AJ/122/503 SDSS u*g*r*i*z* photometry and redshift of QSOs (Anderson+, 2001)
*================================================================================
*High-redshift quasars found in Sloan Digital Sky Survey commissioning data.
*VI. Sloan Digital Sky Survey spectrograph observations.
* Anderson S.F., Fan X., Richards G.T., Schneider D.P., Strauss M.A.,
* Vanden Berk D.E., Gunn J.E., Knapp G.R., Schlegel D., Voges W., Yanny B.,
* Bahcall N.A., Bernardi M., Brinkmann J., Brunner R., Csabai I., Doi M.,
* Fukugita M., Hennessy G.S., Ivezic Z., Kunszt P.Z., Lamb D.Q., Loveday J.,
* Lupton R.H., McKay T.A., Munn J.A., Nichol R.C., Szokoly G.P., York D.G.
* <Astron. J. 122, 503 (2001)>
* =2001AJ....122..503A
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Positions and photometry of SDSS high-redshift
quasars
integer*4 nr__
parameter (nr__=123) ! Number of records
character*88 ar__ ! Full-size record
character*19 SDSSp ! Quasar designation, based on J2000.0 positions
character*1 n_SDSSp ! [*] *: probable BAL quasar
character*1 f_SDSSp ! [r] detected in radio (see table2)
real*4 z ! Redshift
real*4 e_z ! rms uncertainty on z
real*4 u_mag ! (mag) u* magnitude (1)
real*4 e_u_mag ! (mag) rms uncertainty on u*mag
real*4 g_mag ! (mag) g* magnitude (1)
real*4 e_g_mag ! (mag) rms uncertainty on g*mag
real*4 r_mag ! (mag) r* magnitude (1)
real*4 e_r_mag ! (mag) rms uncertainty on r*mag
real*4 i_mag ! (mag) i* magnitude (1)
real*4 e_i_mag ! (mag) rms uncertainty on i*mag
real*4 z_mag ! (mag) z* magnitude (1)
real*4 e_z_mag ! (mag) rms uncertainty on z*mag
integer*4 Note ! ? Notes (2)
*Note (1): Photometry is reported in terms of asinh magnitudes (see Lupton
* et al. 1999AJ....118.1406L for details). In this system, zero flux
* corresponds to 24.6, 25.1, 24.8, 24.4, and 22.8 in u*, g*,r*, i*, and
* z*, respectively.
*Note (2): Notes:
* 1: SDSS quasar (Fan et al., 2001AJ....121...31F)
* 2: spectrum obtained with Hobby-Eberly Telescope
* 3: PSS quasar (Kennefick et al., 1995AJ....110...78K)
* 4: BRI quasar (finding chart in Smith et al., 1994AJ....108.1147S)
* 5: spectrum obtained with APO 3.5 m telescope
* 6: unpublished PSS quasar; see http://astro.caltech.edu/~george/z4.qsos
* 7: SDSS quasar (Fan et al., 1999AJ....118....1F)
* 8: BRI quasar (finding chart in Smith et al., 1994AJ....107...24S)
* 9: SDSS quasar (Schneider et al., 2001AJ....121.1232S)
* 10: SDSS quasar (Fan et al., 2000AJ....119....1F)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Radio-detected quasars in sample
integer*4 nr__1
parameter (nr__1=9) ! Number of records
character*38 ar__1 ! Full-size record
character*19 SDSSp_1 ! Quasar designation, based on J2000.0 positions
character*1 n_SDSSp_1 ! [b] b: previously known radio quasar
real*4 z_1 ! Redshift
real*4 F20cm ! (mJy) Radio flux at 20cm (1.5GHz)
character*5 Source ! FIRST or NVSS source
C=============================================================================
C Loading file 'table1.dat' ! Positions and photometry of SDSS high-redshift
* quasars
C Format for file interpretation
1 format(
+ A19,A1,A1,F4.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,
+ F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,I2)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,123
read(1,'(A88)')ar__
read(ar__,1)
+ SDSSp,n_SDSSp,f_SDSSp,z,e_z,u_mag,e_u_mag,g_mag,e_g_mag,r_mag,
+ e_r_mag,i_mag,e_i_mag,z_mag,e_z_mag,Note
if(ar__(87:88) .EQ. '') Note = iNULL__
c ..............Just test output...........
write(6,1)
+ SDSSp,n_SDSSp,f_SDSSp,z,e_z,u_mag,e_u_mag,g_mag,e_g_mag,r_mag,
+ e_r_mag,i_mag,e_i_mag,z_mag,e_z_mag,Note
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! Radio-detected quasars in sample
C Format for file interpretation
2 format(A19,A1,2X,F4.2,1X,F5.2,1X,A5)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,9
read(1,'(A38)')ar__1
read(ar__1,2)SDSSp_1,n_SDSSp_1,z_1,F20cm,Source
c ..............Just test output...........
write(6,2)SDSSp_1,n_SDSSp_1,z_1,F20cm,Source
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end