Conversion of standardized ReadMe file for
file /./ftp/cats/J/MNRAS/450/2615 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-Jun-15
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/450/2615 Spectroscopy of galaxies in the SSA22 field (Saez+, 2015)
*================================================================================
*An extragalactic spectroscopic survey of the SSA22 field.
* Saez C., Lehmer B.D., Bauer F.E., Stern D., Gonzales A., Rreza I.,
* Alexander D.M., Matsuda Y., Geach J.E., Harrison F.A., Hayashino T.
* <Mon. Not. R. Astron. Soc., 450, 2615-2630 (2015)>
* =2015MNRAS.450.2615S (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Spectroscopically surveyed extragalactic sources
integer*4 nr__
parameter (nr__=258) ! Number of records
character*78 ar__ ! Full-size record
C J2000 position composed of: RAdeg DEdeg
character*5 Name ! Source ID
real*8 RAdeg ! (deg) Right ascension (J2000)
real*8 DEdeg ! (deg) Declination (J2000)
real*4 z ! Redshift
real*4 gmag ! (mag) ?=-99.9 SDSS g-band magnitude (AB) (G1)
real*4 Rmag ! (mag) ?=-99.9 Subaru R-band magnitude (AB) (G1)
real*4 Kmag ! (mag) ?=-99.9 UKIDSS K-band magnitude (AB) (G1)
character*4 MType ! Spectral classification
character*5 Masks ! Masks where source presents A or B quality
* spectra
character*1 Qual ! [AB] Spectral quality (G2)
character*11 Class ! ? Target selection criteria classes (G3)
character*4 Tel ! "VLT" for VIMOS and "Keck" for either DEIMOS
* or LRIS
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table5.dat' ! Spectral properties of extragalactic X-ray
sources with redshifts
integer*4 nr__1
parameter (nr__1=117) ! Number of records
character*129 ar__1 ! Full-size record
C J2000 position composed of: RAdeg DEdeg
integer*4 XID ! IDs from Table 2 of Lehmer et al. (2009,
* Cat. J/MNRAS/400/299, [LAC2009] NNN)
character*10 ID ! IDs in case the source belongs to our
* survey
character*5 Ref ! Referred surveys where a source has been
* spectroscopically observed (1)
real*8 RAdeg_1 ! (deg) Right ascension (J2000) (2)
real*8 DEdeg_1 ! (deg) Declination (J2000) (2)
real*4 Dtheta ! (arcsec) Angular distance between the X-ray source
* and the spectroscopic source
real*4 z_1 ! Redshift
real*4 Rmag_1 ! (mag) ?=-99.9 Subaru R-band magnitude (AB) (3)
real*4 AB2500 ! (mag) ?=-99.9 Monochromatic AB magnitude at
* rest-frame wavelength 2500{AA} (3)
real*4 logL36um ! ([10-7W/Hz]) ?=-99.9 logarithm of the monochromatic
* luminosity at rest-frame 3.6um
real*4 logL2500A ! ([10-7W/Hz]) ?=-99.9 logarithm of the monochromatic
* luminosity at rest-frame 2500{AA} (3)
real*4 logL2keV ! ([10-7W/Hz]) logarithm of the monochromatic luminosity
* at rest-frame 2keV
real*4 e_logL2keV ! ([10-7W/Hz]) 1-sigma error on logL[2keV]
real*4 DlogL2keV ! ?=-99.9 difference between logL[2keV] and
* the value from Steffen et al.
* (2006AJ....131.2826S)
real*4 logLX ! ([10-7W]) logarithm of the 2-10 keV band luminosity
real*4 e_logLX ! ([10-7W]) 1-sigma error on logLX
* band luminosity
real*4 alphaox ! ?=-99.9 optical-to-X-ray power-law
* slope (3)
real*4 e_alphaox ! ?=-99.9 1-sigma error on alphaox
character*1 l_logRL ! Upper limit flag on logRL
real*4 logRL ! ([-]) ?=-99.9 logarithm of the radio-loudness
* parameter (3)
integer*4 AGN ! [0/1] 1 if the source is an AGN candidate,
* 0 otherwise
*Note (1): Referred surveys code as follows:
* 1 = this work
* 2 = Steidel et al. (2003, Cat. J/ApJ/592/728)
* 3 = Yamada et al. (2012, Cat. J/ApJ/751/29)
* 4 = Matsuda et al. (2004AJ....128..569M)
* 5 = Le Fevre et al. (2005A&A...439..877L)
*Note (2): from Table 2 of Lehmer et al. 2009, Cat. J/MNRAS/400/299.
*Note (3): The optical magnitudes used to obtain AB2500, L2500, alphaox, and
* logRL come from the SDSS survey (e.g., Adelman-McCarthy et al.,
* 2008ApJS..175..297A, Cat. II/282), the SSA22 photometric survey of Hayashino
* et al. (2004AJ....128.2073H) (Subaru magnitudes) and the UKIDSS survey (e.g.,
* Lawrence et al., 2007MNRAS.379.1599L, Cat. II/314). The flux densities at
* rest-frame 2500{AA} and 4400{AA} (from which we obtain AB2500, L2500, alphaox,
* and logRL) were obtained by interpolating a power-law fit between two Galactic
* reddening corrected flux densities obtained from optical magnitudes.
* If the observed optical flux densities wavelengths do not cover the rest-frame
* 2500{AA}/4400{AA}, the flux densities at rest-frame 2500{AA}/4400{AA} were
* obtained from the closest wavelength observed assuming a power-law spectrum
* with alpha=-0.5 (e.g., Vanden Berk et al., 2001AJ....122..549V).
* Luminosities or magnitudes with values of -99.9 indicate cases where
* there is no spectral coverage in the given wavelength. Values of -99.9 on
* alphaox or logRL indicate cases where there is no spectral coverage in at
* least one of the bands needed to obtain these parameters.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'tablea1.dat' ! Spectroscopically surveyed Galactic stars
integer*4 nr__2
parameter (nr__2=121) ! Number of records
character*66 ar__2 ! Full-size record
C J2000 position composed of: RAdeg DEdeg
character*5 Name_1 ! Source ID
real*8 RAdeg_2 ! (deg) Right ascension (J2000)
real*8 DEdeg_2 ! (deg) Declination (J2000)
real*4 gmag_1 ! (mag) ?=-99.9 SDSS g-band magnitude (AB) (G1)
real*4 Rmag_2 ! (mag) ?=-99.9 Subaru R-band magnitude (AB) (G1)
real*4 Kmag_1 ! (mag) ?=-99.9 UKIDSS K-band magnitude (AB) (G1)
character*5 SpType ! Spectral classification
character*3 Masks_1 ! Masks where source presents A or B quality
* spectra
character*1 Qual_1 ! [AB] Spectral quality (G2)
character*7 Class_1 ! ? Target selection criteria classes (G3)
character*4 Tel_1 ! "VLT" for VIMOS and "Keck" for either
* DEIMOS or LRIS
C=============================================================================
C Loading file 'table2.dat' ! Spectroscopically surveyed extragalactic sources
C Format for file interpretation
1 format(
+ A5,1X,F9.5,1X,F7.5,1X,F6.4,1X,F5.1,1X,F5.1,1X,F5.1,1X,A4,1X,
+ A5,1X,A1,1X,A11,1X,A4)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,258
read(1,'(A78)')ar__
read(ar__,1)
+ Name,RAdeg,DEdeg,z,gmag,Rmag,Kmag,MType,Masks,Qual,Class,Tel
c ..............Just test output...........
write(6,1)
+ Name,RAdeg,DEdeg,z,gmag,Rmag,Kmag,MType,Masks,Qual,Class,Tel
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table5.dat' ! Spectral properties of extragalactic X-ray
* sources with redshifts
C Format for file interpretation
2 format(
+ I3,1X,A10,1X,A5,1X,F9.5,1X,F7.5,1X,F3.1,1X,F6.4,1X,F5.1,1X,
+ F6.2,1X,F6.2,1X,F6.2,1X,F5.2,1X,F4.2,1X,F6.2,1X,F5.2,1X,F4.2,
+ 1X,F6.2,1X,F6.2,1X,A1,F6.2,1X,I1)
C Effective file loading
open(unit=1,status='old',file=
+'table5.dat')
write(6,*) '....Loading file: table5.dat'
do i__=1,117
read(1,'(A129)')ar__1
read(ar__1,2)
+ XID,ID,Ref,RAdeg_1,DEdeg_1,Dtheta,z_1,Rmag_1,AB2500,logL36um,
+ logL2500A,logL2keV,e_logL2keV,DlogL2keV,logLX,e_logLX,alphaox,
+ e_alphaox,l_logRL,logRL,AGN
c ..............Just test output...........
write(6,2)
+ XID,ID,Ref,RAdeg_1,DEdeg_1,Dtheta,z_1,Rmag_1,AB2500,logL36um,
+ logL2500A,logL2keV,e_logL2keV,DlogL2keV,logLX,e_logLX,alphaox,
+ e_alphaox,l_logRL,logRL,AGN
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'tablea1.dat' ! Spectroscopically surveyed Galactic stars
C Format for file interpretation
3 format(
+ A5,1X,F9.5,1X,F7.5,1X,F5.1,1X,F5.1,1X,F5.1,1X,A5,1X,A3,1X,A1,
+ 1X,A7,1X,A4)
C Effective file loading
open(unit=1,status='old',file=
+'tablea1.dat')
write(6,*) '....Loading file: tablea1.dat'
do i__=1,121
read(1,'(A66)')ar__2
read(ar__2,3)
+ Name_1,RAdeg_2,DEdeg_2,gmag_1,Rmag_2,Kmag_1,SpType,Masks_1,
+ Qual_1,Class_1,Tel_1
c ..............Just test output...........
write(6,3)
+ Name_1,RAdeg_2,DEdeg_2,gmag_1,Rmag_2,Kmag_1,SpType,Masks_1,
+ Qual_1,Class_1,Tel_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end