FORTRAN Generation
(/./ftp/cats/J/ApJ/666/757)

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