Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/950/97 into FORTRAN code for loading all data files into arrays.
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-Oct-10
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/ApJ/950/97 A sample of Type 1 quasars with CIV & Hbeta data (Ha+, 2023)
*================================================================================
*Shedding new light on weak emission-line quasars in the CIV-H{beta} parameter
*space.
* Ha T., Dix C., Matthews B.M., Shemmer O., Brotherton M.S., Myers A.D.,
* Richards G.T., Maithil J., Anderson S.F., Brandt W.N.,
* Diamond-Stanic A.M., Fan X., Gallagher S.C., Green R., Lira P., Luo B.,
* Netzer H., Plotkin R.M., Runnoe J.C., Schneider D.P., Strauss M.A.,
* Trakhtenbrot B., Wu J.
* <Astrophys. J., 950, 97 (2023)>
* =2023ApJ...950...97H
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Basic properties of the weak emission-line quasar
(WLQ) sample
integer*4 nr__
parameter (nr__=18) ! Number of records
character*112 ar__ ! Full-size record
character*24 Name (nr__) ! Name of source
real*4 zsys (nr__) ! [0.019/3.55] Systemic redshift
real*4 logL5100 (nr__) ! ([10-7W]) [43.54/47.14] Log monochromatic luminosity
* at rest-frame 5100{AA};
* log{nu}L_{nu}_(5100{AA})
integer*4 FWHM_Hb (nr__) ! (km/s) [830/12197] Hbeta emission line FWHM
real*4 RFeII (nr__) ! [0/3.31] Equivalent width of FeII divided
* by equivalent width of Hbeta
character*1 f_RFeII (nr__) ! [c] Flag on RFeII (1)
real*4 logMBH (nr__) ! ([Msun]) [6.86/10.6] Log black hole mass using
* traditional estimation
real*4 logMBHc (nr__) ! ([Msun]) [6.5/10.32] Log black hole mass using
* R_FeII_ correction
real*4 LEdd (nr__) ! [0.01/2.8] Eddington luminosity ratio using
* traditional estimation
real*4 LEddc (nr__) ! [0.01/15.1] Eddington luminosity ratio
* using R_FeII_ correction
real*4 EWCIV (nr__) ! (0.1nm) [0.4/290] Rest-frame CIV emission line
* equivalent width
real*4 e_EWCIV (nr__) ! (0.1nm) [0/10.1]? Lower uncertainty in EWCIV (2)
real*4 E_EWCIV_1 (nr__) ! (0.1nm) [0/15]? Upper uncertainty in EWCIV (2)
integer*4 CIVb (nr__) ! (km/s) [-1388/9062] Blueshift of the CIV
* emission-line peak
integer*4 e_CIVb (nr__) ! (km/s) [0/1977] Lower uncertainty in CIVb (2)
integer*4 E_CIVb_1 (nr__) ! (km/s) [0/4178] Upper uncertainty in CIVb (2)
character*1 f_CIVb (nr__) ! [b] Flag on CIVb (1)
integer*4 Ref1 (nr__) ! [1/9] Source of rest-frame optical data (3)
character*3 Ref2 (nr__) ! Source(s) of rest-frame UV (CIV) data (3)
*Note (1): Flag as follows:
* b = Wu+ (2011ApJ...736...28W) also reported H{beta}-based
* Blueshift(CIV)=9400km/s. Here, we have opted to use a MgII-based
* value of Blueshift(CIV).
* c = Leighly+ (2007ApJS..173....1L) reported the RFeII value as being in the
* range 1.22-1.35. We have adopted a mean value of 1.29 for this work.
*Note (2): BL04 (PG quasars; Baskin & Loar 2004MNRAS.350L..31B) did not
* report the uncertainties in EW-CIV and Blueshift-CIV, so they are
* listed as zero.
*Note (3): References as follows:
* 1 = GNIRS-DQS; Matthews et al. (Paper I; 2023, J/ApJ/950/95)
* 2 = GNIRS-DQS; Dix et al. (Paper II; 2023, J/ApJ/950/96)
* 3 = Plotkin et al. (2015ApJ...805..123P)
* 4 = this work
* 5 = Shemmer et al. (2010ApJ...722L.152S)
* 6 = Shen et al. (2011, J/ApJS/194/45)
* 7 = Wu et al. (2011ApJ...736...28W)
* 8 = Leighly et al. (2007ApJS..173....1L)
* 9 = Boroson & Green (1992ApJS...80..109B)
* 10 = Baskin & Laor (2005MNRAS.356.1029B)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Basic properties of the ordinary quasar sample
integer*4 nr__1
parameter (nr__1=230) ! Number of records
character*112 ar__1 ! Full-size record
character*24 Name_1 (nr__1) ! Name of source
real*4 zsys_1 (nr__1) ! [0.019/3.55] Systemic redshift
real*4 logL5100_1 (nr__1) ! ([10-7W]) [43.54/47.14] Log monochromatic luminosity
* at rest-frame 5100{AA};
* log{nu}L_{nu}_(5100{AA})
integer*4 FWHM_Hb_1 (nr__1) ! (km/s) [830/12197] Hbeta emission line FWHM
real*4 RFeII_1 (nr__1) ! [0/3.31] Equivalent width of FeII divided
* by equivalent width of Hbeta
character*1 f_RFeII_1 (nr__1) ! [c] Flag on RFeII (1)
real*4 logMBH_1 (nr__1) ! ([Msun]) [6.86/10.6] Log black hole mass using
* traditional estimation
real*4 logMBHc_1 (nr__1) ! ([Msun]) [6.5/10.32] Log black hole mass using
* R_FeII_ correction
real*4 LEdd_1 (nr__1) ! [0.01/2.8] Eddington luminosity ratio using
* traditional estimation
real*4 LEddc_1 (nr__1) ! [0.01/15.1] Eddington luminosity ratio
* using R_FeII_ correction
real*4 EWCIV_1 (nr__1) ! (0.1nm) [0.4/290] Rest-frame CIV emission line
* equivalent width
real*4 e_EWCIV_2 (nr__1) ! (0.1nm) [0/10.1]? Lower uncertainty in EWCIV (2)
real*4 E_EWCIV_3 (nr__1) ! (0.1nm) [0/15]? Upper uncertainty in EWCIV (2)
integer*4 CIVb_1 (nr__1) ! (km/s) [-1388/9062] Blueshift of the CIV
* emission-line peak
integer*4 e_CIVb_2 (nr__1) ! (km/s) [0/1977] Lower uncertainty in CIVb (2)
integer*4 E_CIVb_3 (nr__1) ! (km/s) [0/4178] Upper uncertainty in CIVb (2)
character*1 f_CIVb_1 (nr__1) ! [b] Flag on CIVb (1)
integer*4 Ref1_1 (nr__1) ! [1/9] Source of rest-frame optical data (3)
character*3 Ref2_1 (nr__1) ! Source(s) of rest-frame UV (CIV) data (3)
*Note (1): Flag as follows:
* b = Wu+ (2011ApJ...736...28W) also reported H{beta}-based
* Blueshift(CIV)=9400km/s. Here, we have opted to use a MgII-based
* value of Blueshift(CIV).
* c = Leighly+ (2007ApJS..173....1L) reported the RFeII value as being in the
* range 1.22-1.35. We have adopted a mean value of 1.29 for this work.
*Note (2): BL04 (PG quasars; Baskin & Loar 2004MNRAS.350L..31B) did not
* report the uncertainties in EW-CIV and Blueshift-CIV, so they are
* listed as zero.
*Note (3): References as follows:
* 1 = GNIRS-DQS; Matthews et al. (Paper I; 2023, J/ApJ/950/95)
* 2 = GNIRS-DQS; Dix et al. (Paper II; 2023, J/ApJ/950/96)
* 3 = Plotkin et al. (2015ApJ...805..123P)
* 4 = this work
* 5 = Shemmer et al. (2010ApJ...722L.152S)
* 6 = Shen et al. (2011, J/ApJS/194/45)
* 7 = Wu et al. (2011ApJ...736...28W)
* 8 = Leighly et al. (2007ApJS..173....1L)
* 9 = Boroson & Green (1992ApJS...80..109B)
* 10 = Baskin & Laor (2005MNRAS.356.1029B)
C=============================================================================
C Loading file 'table1.dat' ! Basic properties of the weak emission-line quasar
* (WLQ) sample
C Format for file interpretation
1 format(
+ A24,1X,F5.3,1X,F5.2,1X,I5,1X,F4.2,1X,A1,1X,F5.2,1X,F5.2,1X,
+ F4.2,1X,F5.2,1X,F5.1,1X,F4.1,1X,F4.1,1X,I5,1X,I4,1X,I4,1X,A1,
+ 1X,I1,1X,A3)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,18
read(1,'(A112)')ar__
read(ar__,1)
+ Name(i__),zsys(i__),logL5100(i__),FWHM_Hb(i__),RFeII(i__),
+ f_RFeII(i__),logMBH(i__),logMBHc(i__),LEdd(i__),LEddc(i__),
+ EWCIV(i__),e_EWCIV(i__),E_EWCIV_1(i__),CIVb(i__),e_CIVb(i__),
+ E_CIVb_1(i__),f_CIVb(i__),Ref1(i__),Ref2(i__)
if(ar__(80:83) .EQ. '') e_EWCIV(i__) = rNULL__
if(ar__(85:88) .EQ. '') E_EWCIV_1(i__) = rNULL__
c ..............Just test output...........
write(6,1)
+ Name(i__),zsys(i__),logL5100(i__),FWHM_Hb(i__),RFeII(i__),
+ f_RFeII(i__),logMBH(i__),logMBHc(i__),LEdd(i__),LEddc(i__),
+ EWCIV(i__),e_EWCIV(i__),E_EWCIV_1(i__),CIVb(i__),e_CIVb(i__),
+ E_CIVb_1(i__),f_CIVb(i__),Ref1(i__),Ref2(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! Basic properties of the ordinary quasar sample
C Format for file interpretation
2 format(
+ A24,1X,F5.3,1X,F5.2,1X,I5,1X,F4.2,1X,A1,1X,F5.2,1X,F5.2,1X,
+ F4.2,1X,F5.2,1X,F5.1,1X,F4.1,1X,F4.1,1X,I5,1X,I4,1X,I4,1X,A1,
+ 1X,I1,1X,A3)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,230
read(1,'(A112)')ar__1
read(ar__1,2)
+ Name_1(i__),zsys_1(i__),logL5100_1(i__),FWHM_Hb_1(i__),
+ RFeII_1(i__),f_RFeII_1(i__),logMBH_1(i__),logMBHc_1(i__),
+ LEdd_1(i__),LEddc_1(i__),EWCIV_1(i__),e_EWCIV_2(i__),
+ E_EWCIV_3(i__),CIVb_1(i__),e_CIVb_2(i__),E_CIVb_3(i__),
+ f_CIVb_1(i__),Ref1_1(i__),Ref2_1(i__)
if(ar__1(80:83) .EQ. '') e_EWCIV_2(i__) = rNULL__
if(ar__1(85:88) .EQ. '') E_EWCIV_3(i__) = rNULL__
c ..............Just test output...........
write(6,2)
+ Name_1(i__),zsys_1(i__),logL5100_1(i__),FWHM_Hb_1(i__),
+ RFeII_1(i__),f_RFeII_1(i__),logMBH_1(i__),logMBHc_1(i__),
+ LEdd_1(i__),LEddc_1(i__),EWCIV_1(i__),e_EWCIV_2(i__),
+ E_EWCIV_3(i__),CIVb_1(i__),e_CIVb_2(i__),E_CIVb_3(i__),
+ f_CIVb_1(i__),Ref1_1(i__),Ref2_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end