Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/666/757 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 2024-Mar-29 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/666/757 CIV 1549{AA} emission line in AGNs (Sulentic+, 2007) *================================================================================ *C IV {lambda}1549 as an Eigenvector 1 parameter for active galactic nuclei. * Sulentic J.W., Bachev R., Marziani P., Negrete C.A., Dultzin D. * <Astrophys. J., 666, 757-777 (2007)> * =2007ApJ...666..757S C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! Source identification and 4DE1 parameters integer*4 nr__ parameter (nr__=130) ! Number of records character*84 ar__ ! Full-size record character*11 IAU (nr__) ! The IAU Code name character*22 Name (nr__) ! Common name recognized by NED real*8 z (nr__) ! Redshift (1) character*4 r_z (nr__) ! Reference on z (2) character*3 PG_BO (nr__) ! Source flag (3) real*4 AB (nr__) ! (mag) Schlegel et al. (1998ApJ...500..525S) Galactic * B band absorption integer*4 Hbeta (nr__) ! (km/s) H{beta} broad component full-width * at half-maximum (4) character*1 u_Hbeta (nr__) ! Uncertainty flag on Hbeta character*4 f_RFeII (nr__) ! Limit flag on RFeII real*4 RFeII (nr__) ! Equivalent width ratio of optical FeII and * broad H{beta} (4) real*4 logRk (nr__) ! ([-]) ? Log of 4400 Angstroms to 6 cm flux ratio (5) real*4 Gamma (nr__) ! ? Soft X-ray photon index (6) character*1 u_Gamma (nr__) ! Uncertainty flag on Gamma *Note (1): Accuracy of z values can be in general assumed to be +/-0.0001 at * a 1{sigma} confidence level in case four decimal digits are provided; * +/-0.001 otherwise. *Note (2): Reference as follows: * M03 = Marziani et al. (2003, Cat. <J/ApJS/145/199>) * G99 = Grupe et al. (1999, Cat. <J/A+A/350/805>) * SDSS = Spectra retrieved from http://www.sdss.org/; z values were * measured as described in the text of the paper, and may differ * from those reported in NED. * L67 = Lynds (1967ApJ...147..837L) * SPM = Unpublished spectra obtained with the 2.2m telescope * at San Pedro Martir. * B96 = Brotherton (1996ApJS..102....1B) * ESO = Unpublished ESO spectra * KPNO = unpublished KPNO spectra * T93 = Tadhunter et al. (1993MNRAS.263..999T) * JB91 = Jackson & Browne (1991MNRAS.250..414J) * C91 = Corbin (1991ApJ...371L..51C) * C93 = Cristiani et al. (1993A&A...268...86C) * C97 = Corbin (1997ApJS..113..245C) * M96 = Marziani et al. (1996ApJS..104...37M) * W00 = Wisotzki et al. (2000, Cat. <J/A+A/358/77>) * A91 = Keel (1996, Cat. <J/ApJS/106/27>) * K96 = Keel (1996, Cat. <J/ApJS/106/27>) * EH04 = Eracleous & Halpern (2004, Cat. <J/ApJS/150/181>) * A91 = Allen et al. (1991MNRAS.248..528A) * HB89 = Hewitt & Burbidge (1989, A New Optical Catalog of QSO * (Chicago: Univ. Chicago Press)) * HB80 = Hewitt & Burbidge (1980ApJS...43...57H) * F89 = Foltz et al. (1989AJ.....98.1959F) * O03 = Onken et al., (2003ApJ...585..121O) * WL78 = Not explained in the paper *Note (3): Source flag as follows: * B = source is a "blue outlier" (Zamanov et al., 2002ApJ...576L...9Z). * * = source belongs to the Boroson & Green (1992ApJS...80..109B) PG sample. *Note (4): Taken from Marziani et al (2003MNRAS.345.1133M), measures of SDSS * spectra or, as a last resort, literature spectra. *Note (5): A source is assumed radio-loud if logRk>=1.8. *Note (6): A measure of the soft X-ray excess from Sulentic et al. * (2000ApJ...536L...5S, 2000ARA&A..38..521S) and from various * literature sources. c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! CIV emission line parameters integer*4 nr__1 parameter (nr__1=130) ! Number of records character*134 ar__1 ! Full-size record character*11 IAU_1 (nr__1) ! IAU Code name real*4 F1550 (nr__1) ! (aW/m2/nm) The 1550{AA} (150nm) continuum flux (1) real*4 FCIVNC (nr__1) ! (10-16W/m2) ? CIV (150nm) narrow component * integrated flux (2) character*1 n_FCIVNC (nr__1) ! Reason of missing CIV narrow component (3) integer*4 DelVR (nr__1) ! (km/s) ? Peak CIV (150nm) narrow component * radial velocity shift real*4 FCIVBC (nr__1) ! (10-16W/m2) CIV(150nm) broad component integrated flux (2) integer*4 c1_4 (nr__1) ! (km/s) Centroid profile shift at 1/4 maximum integer*4 e_c1_4b (nr__1) ! (km/s) Estimated uncertainty on blue c(1/4) wing integer*4 e_c1_4r (nr__1) ! (km/s) Estimated uncertainty on red c(1/4) wing integer*4 c1_2 (nr__1) ! (km/s) Centroid profile shift at 1/2 maximum integer*4 e_c1_2b (nr__1) ! (km/s) Estimated uncertainty on blue c(1/2) wing integer*4 e_c1_2r (nr__1) ! (km/s) Estimated uncertainty on red c(1/2) wing integer*4 c3_4 (nr__1) ! (km/s) Centroid profile shift at 3/4 maximum integer*4 e_c3_4s (nr__1) ! (km/s) Estimated symmetric uncertainty in c(3/4) integer*4 c0_9 (nr__1) ! (km/s) Centroid profile shift at 90% intensity * level of C IV broad line integer*4 e_c0_9s (nr__1) ! (km/s) Estimated symmetric uncertainty in c0.9 integer*4 CIV (nr__1) ! (km/s) CIV (150nm) broad component * full-width at half-maximum integer*4 e_CIV (nr__1) ! (km/s) Uncertainty in CIV real*4 AI (nr__1) ! CIV (150nm) broad component asymmetry index real*4 e_AIb (nr__1) ! Estimated uncertainty on blue AI wing real*4 e_AIr (nr__1) ! Estimated lower uncertainty on red AI wing real*4 E_AIr_1 (nr__1) ! Estimated upper uncertainty on red AI wing real*4 Kurt (nr__1) ! CIV (150nm) broad component kurtosis measure real*4 e_Kurt (nr__1) ! Uncertainty in Kurt (4) real*4 E_Kurt_1 (nr__1) ! ? Upper Uncertainty in Kurt *Note (1): In units of 1e-14 erg/s/cm^2^/Angstroms. *Note (2): In units of 1e-13 erg/s/cm^2^. *Note (3): Flag on FCIVNC as follows: * A = major absorptions (typically of mini-BALs) affecting the profile * of CIV (150nm) broad component * a = narrow absorptions that "eat away" CIV (150nm) narrow component * but that do not hamper CIV (150nm) broad component measurements *Note (4): If "E_Kurt" isn't blank then "e_Kurt" is the lower uncertainty. C============================================================================= C Loading file 'table1.dat' ! Source identification and 4DE1 parameters C Format for file interpretation 1 format( + A11,1X,A22,1X,F7.5,1X,A4,1X,A3,F4.2,1X,I5,A1,1X,A4,F5.3,1X, + F5.2,1X,F4.2,A1) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,130 read(1,'(A84)')ar__ read(ar__,1) + IAU(i__),Name(i__),z(i__),r_z(i__),PG_BO(i__),AB(i__), + Hbeta(i__),u_Hbeta(i__),f_RFeII(i__),RFeII(i__),logRk(i__), + Gamma(i__),u_Gamma(i__) if(ar__(74:78) .EQ. '') logRk(i__) = rNULL__ if(ar__(80:83) .EQ. '') Gamma(i__) = rNULL__ c ..............Just test output........... write(6,1) + IAU(i__),Name(i__),z(i__),r_z(i__),PG_BO(i__),AB(i__), + Hbeta(i__),u_Hbeta(i__),f_RFeII(i__),RFeII(i__),logRk(i__), + Gamma(i__),u_Gamma(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table2.dat' ! CIV emission line parameters C Format for file interpretation 2 format( + A11,1X,F5.2,1X,F5.2,1X,A1,1X,I4,1X,F5.1,1X,I5,1X,I4,1X,I4,1X, + I5,1X,I3,1X,I4,1X,I5,1X,I3,1X,I5,1X,I3,1X,I5,1X,I4,1X,F5.2,1X, + F4.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,F4.2) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,130 read(1,'(A134)')ar__1 read(ar__1,2) + IAU_1(i__),F1550(i__),FCIVNC(i__),n_FCIVNC(i__),DelVR(i__), + FCIVBC(i__),c1_4(i__),e_c1_4b(i__),e_c1_4r(i__),c1_2(i__), + e_c1_2b(i__),e_c1_2r(i__),c3_4(i__),e_c3_4s(i__),c0_9(i__), + e_c0_9s(i__),CIV(i__),e_CIV(i__),AI(i__),e_AIb(i__), + e_AIr(i__),E_AIr_1(i__),Kurt(i__),e_Kurt(i__),E_Kurt_1(i__) if(ar__1(19:23) .EQ. '') FCIVNC(i__) = rNULL__ if(ar__1(27:30) .EQ. '') DelVR(i__) = iNULL__ if(ar__1(131:134) .EQ. '') E_Kurt_1(i__) = rNULL__ c ..............Just test output........... write(6,2) + IAU_1(i__),F1550(i__),FCIVNC(i__),n_FCIVNC(i__),DelVR(i__), + FCIVBC(i__),c1_4(i__),e_c1_4b(i__),e_c1_4r(i__),c1_2(i__), + e_c1_2b(i__),e_c1_2r(i__),c3_4(i__),e_c3_4s(i__),c0_9(i__), + e_c0_9s(i__),CIV(i__),e_CIV(i__),AI(i__),e_AIb(i__), + e_AIr(i__),E_AIr_1(i__),Kurt(i__),e_Kurt(i__),E_Kurt_1(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end