FORTRAN Generation
(/./ftp/cats/J/ApJ/658/815)

Conversion of standardized ReadMe file for file /./ftp/cats/J/ApJ/658/815 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/658/815       Radio loudness of active galactic nuclei (Sikora+, 2007)
*================================================================================
*Radio loudness of active galactic nuclei: observational facts and theoretical
*implications.
*    Sikora M., Stawarz L., Lasota J.-P.
*   <Astrophys. J., 658, 815-828 (2007)>
*   =2007ApJ...658..815S
C=============================================================================

C  Internal variables

      integer*4 i__

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'table1.dat'	! Broad-line radio galaxies

      integer*4 nr__
      parameter (nr__=37)	! Number of records
      character*93 ar__   	! Full-size record

      character*9   IAU        (nr__) ! IAU J2000.0 name (HHMM+DDMM)
      character*15  Name       (nr__) ! Name
      real*4        z          (nr__) ! Redshift (spectroscopic)
      real*4        Vmag       (nr__) ! (mag) Total apparent V magnitude
      real*4        AV         (nr__) ! (mag) Galactic extinction (from NED)
      real*4        K_         (nr__) ! Starlight contamination fraction
      real*4        logLB      (nr__) ! ([10-7W]) Optical luminosity of the nucleus at 4400{AA}
      real*8        F5GHz      (nr__) ! (Jy) Total radio 5GHz flux
      integer*4     Ref        (nr__) ! References for logLB and F5GHz (1)
      real*4        logLR      (nr__) ! ([10-7W]) Radio luminosity at 5GHz,
      real*4        logR       (nr__) ! Radio loudness parameter (G1)
      integer*4     W_Ha       (nr__) ! (km/s) FWHM of H{alpha} line
      real*4        logMBH     (nr__) ! ([solMass]) Black hole mass
      real*4        logLBr     (nr__) ! ([-]) B luminosity in L_Eddington_ units
      real*4        logLRr     (nr__) ! ([-]) Radio luminosity in L_Eddington_ units
*Note (1): Referencs as follows:
*      1 = Wright & Otrupcek, 1990, Cat. <VIII/38>
*      2 = Gregory & Condon, 1991, Cat. <VIII/14>
*      3 = Condon et al., 1998, Cat. <VIII/65>
*      4 = Feigelson et al., 1982ApJ...255..392F
*      5 = Kuehr et al., 1981, Cat. <VIII/5>
*      6 = Becker et al., 1995ApJ...450..559B
*      7 = Wright et al., 1994, Cat. <VIII/38>
*      8 = Becker et al., 1991, Cat. <VIII/13>

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'table2.dat'	! Radio-loud quasars

      integer*4 nr__1
      parameter (nr__1=50)	! Number of records
      character*93 ar__1  	! Full-size record

      character*9   IAU_1      (nr__1) ! IAU J2000.0 name (HHMM+DDMM)
      character*15  Name_1     (nr__1) ! Name
      real*4        z_1        (nr__1) ! Redshift (spectroscopic)
      real*4        Vmag_1     (nr__1) ! (mag) Total apparent V magnitude
      real*4        AV_1       (nr__1) ! (mag) Galactic extinction (from NED)
      real*4        K__1       (nr__1) ! Starlight contamination fraction
      real*4        logLB_1    (nr__1) ! ([10-7W]) Optical luminosity of the nucleus at 4400{AA}
      real*8        F5GHz_1    (nr__1) ! (Jy) Total radio 5GHz flux
      integer*4     Ref_1      (nr__1) ! References for logLB and F5GHz (1)
      real*4        logLR_1    (nr__1) ! ([10-7W]) Radio luminosity at 5GHz,
      real*4        logR_1     (nr__1) ! Radio loudness parameter (G1)
      integer*4     W_Ha_1     (nr__1) ! (km/s) FWHM of H{alpha} line
      real*4        logMBH_1   (nr__1) ! ([solMass]) Black hole mass
      real*4        logLBr_1   (nr__1) ! ([-]) B luminosity in L_Eddington_ units
      real*4        logLRr_1   (nr__1) ! ([-]) Radio luminosity in L_Eddington_ units
*Note (1): Referencs as follows:
*      1 = Wright & Otrupcek, 1990, Cat. <VIII/38>
*      2 = Gregory & Condon, 1991, Cat. <VIII/14>
*      3 = Condon et al., 1998, Cat. <VIII/65>
*      4 = Feigelson et al., 1982ApJ...255..392F
*      5 = Kuehr et al., 1981, Cat. <VIII/5>
*      6 = Becker et al., 1995ApJ...450..559B
*      7 = Wright et al., 1994, Cat. <VIII/38>
*      8 = Becker et al., 1991, Cat. <VIII/13>

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'table3.dat'	! Seyfert galaxies and liners

      integer*4 nr__2
      parameter (nr__2=39)	! Number of records
      character*71 ar__2  	! Full-size record

      character*9   IAU_2      (nr__2) ! IAU J2000.0 name (HHMM+DDMM)
      character*15  Name_2     (nr__2) ! Name
      real*4        Dist       (nr__2) ! (Mpc) Distance
      real*4        BMAG       (nr__2) ! (mag) Absolute B magnitude
      real*4        logLB_2    (nr__2) ! ([10-7W]) Optical luminosity of the nucleus at 4400{AA}
      real*4        logLR_2    (nr__2) ! ([10-7W]) Radio luminosity at 5 GHz
      real*4        logR_2     (nr__2) ! Radio loudness parameter (G1)
      real*4        logMBH_2   (nr__2) ! ([solMass]) Black hole mass
      character*3   r_logR     (nr__2) ! References for logR (1)
      real*4        logLBr_2   (nr__2) ! ([-]) B luminosity in L_Eddington_ units
      real*4        logLRr_2   (nr__2) ! ([-]) Radio luminosity in L_Eddington_ units
*Note (1): References as follows:
*      1 = Ho, 2002ApJ...564..120H
*      2 = Woo & Urry, 2002ApJ...579..530W
*      3 = Chiaberge et al., 2005ApJ...625..716C
*      4 = Merloni et al., 2003MNRAS.345.1057M

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'table4.dat'	! FR I radio galaxies

      integer*4 nr__3
      parameter (nr__3=31)	! Number of records
      character*68 ar__3  	! Full-size record

      character*9   IAU_3      (nr__3) ! IAU J2000.0 name (HHMM+DDMM)
      character*8   Name_3     (nr__3) ! Name
      real*4        z_2        (nr__3) ! Redshift (spectroscopic)
      character*1   l_logLB    (nr__3) ! Limit flag on logLB
      real*4        logLB_3    (nr__3) ! ([10-7W]) Optical luminosity of the nucleus at 4400{AA}
      real*4        F5GHz_2    (nr__3) ! (Jy) Total radio 5GHz flux
      integer*4     r_F5GHz    (nr__3) ! References for F5GHz (1)
      real*4        logLR_3    (nr__3) ! ([10-7W]) Radio luminosity at 5GHz,
      character*1   l_logR     (nr__3) ! Limit flag on logR
      real*4        logR_3     (nr__3) ! Radio loudness parameter (G1)
      real*4        logMBH_3   (nr__3) ! ([solMass]) Black hole mass
      integer*4     r_logMBH   (nr__3) ! Reference for logMBH (1)
      character*1   l_logLBr   (nr__3) ! Limit flag on logLBr
      real*4        logLBr_3   (nr__3) ! ([-]) B luminosity in L_Eddington_ units
      real*4        logLRr_3   (nr__3) ! ([-]) Radio luminosity in L_Eddington_ units
*Note (1): References as follows:
*      1 = Wright & Otrupcek, 1990, Cat. <VIII/38>
*      2 = Cao & Rawlings, 2004MNRAS.349.1419C
*      3 = Gregory & Condon, 1991, Cat. <VIII/14>
*      4 = Woo & Urry, 2002ApJ...579..530W
*      5 = White & Becker, 1992, Cat. <VIII/17>
*      6 = Kuehr al., 1981, Cat. <VIII/5>

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'table5.dat'	! PG quasars

      integer*4 nr__4
      parameter (nr__4=43)	! Number of records
      character*69 ar__4  	! Full-size record

      character*9   IAU_4      (nr__4) ! IAU J2000.0 name (HHMM+DDMM)
      character*12  Name_4     (nr__4) ! Name
      character*1   n_Name     (nr__4) ! [*] * for objects classified as narrow-line
*                                         Seyfert 1 galaxies
      real*4        z_3        (nr__4) ! Redshift
      real*4        logLB_4    (nr__4) ! ([10-7W]) Optical luminosity of the nucleus at 4400{AA}
      real*4        F5GHz_3    (nr__4) ! (Jy) Total radio 5GHz flux
      real*4        logLR_4    (nr__4) ! ([10-7W]) Radio luminosity at 5GHz
      real*4        logR_4     (nr__4) ! Radio loudness parameter (G1)
      real*4        logMBH_4   (nr__4) ! ([solMass]) Black hole mass
      integer*4     r_logMBH_1 (nr__4) ! References for logMBH (1)
      real*4        logLBr_4   (nr__4) ! ([-]) B luminosity in L_Eddington_ units
      real*4        logLRr_4   (nr__4) ! ([-]) Radio luminosity in L_Eddington_ units
*Note (1): References as follows:
*      1 = Vestergaard, 2002ApJ...571..733V
*      2 = Woo & Urry, 2002ApJ...579..530W

C=============================================================================

C  Loading file 'table1.dat'	! Broad-line radio galaxies

C  Format for file interpretation

    1 format(
     +  A9,1X,A15,1X,F5.3,1X,F4.1,1X,F4.2,1X,F4.2,1X,F4.1,1X,F8.5,1X,
     +  I1,1X,F4.1,1X,F4.2,1X,I5,1X,F4.1,1X,F4.1,1X,F4.1)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table1.dat')
      write(6,*) '....Loading file: table1.dat'
      do i__=1,37
        read(1,'(A93)')ar__
        read(ar__,1)
     +  IAU(i__),Name(i__),z(i__),Vmag(i__),AV(i__),K_(i__),
     +  logLB(i__),F5GHz(i__),Ref(i__),logLR(i__),logR(i__),W_Ha(i__),
     +  logMBH(i__),logLBr(i__),logLRr(i__)
c    ..............Just test output...........
        write(6,1)
     +  IAU(i__),Name(i__),z(i__),Vmag(i__),AV(i__),K_(i__),
     +  logLB(i__),F5GHz(i__),Ref(i__),logLR(i__),logR(i__),W_Ha(i__),
     +  logMBH(i__),logLBr(i__),logLRr(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'table2.dat'	! Radio-loud quasars

C  Format for file interpretation

    2 format(
     +  A9,1X,A15,1X,F5.3,1X,F4.1,1X,F4.2,1X,F4.2,1X,F4.1,1X,F8.5,1X,
     +  I1,1X,F4.1,1X,F4.2,1X,I5,1X,F4.1,1X,F4.1,1X,F4.1)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table2.dat')
      write(6,*) '....Loading file: table2.dat'
      do i__=1,50
        read(1,'(A93)')ar__1
        read(ar__1,2)
     +  IAU_1(i__),Name_1(i__),z_1(i__),Vmag_1(i__),AV_1(i__),
     +  K__1(i__),logLB_1(i__),F5GHz_1(i__),Ref_1(i__),logLR_1(i__),
     +  logR_1(i__),W_Ha_1(i__),logMBH_1(i__),logLBr_1(i__),
     +  logLRr_1(i__)
c    ..............Just test output...........
        write(6,2)
     +  IAU_1(i__),Name_1(i__),z_1(i__),Vmag_1(i__),AV_1(i__),
     +  K__1(i__),logLB_1(i__),F5GHz_1(i__),Ref_1(i__),logLR_1(i__),
     +  logR_1(i__),W_Ha_1(i__),logMBH_1(i__),logLBr_1(i__),
     +  logLRr_1(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'table3.dat'	! Seyfert galaxies and liners

C  Format for file interpretation

    3 format(
     +  A9,1X,A15,1X,F5.1,1X,F5.2,1X,F4.1,1X,F4.1,1X,F5.2,1X,F3.1,1X,
     +  A3,1X,F4.1,1X,F4.1)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table3.dat')
      write(6,*) '....Loading file: table3.dat'
      do i__=1,39
        read(1,'(A71)')ar__2
        read(ar__2,3)
     +  IAU_2(i__),Name_2(i__),Dist(i__),BMAG(i__),logLB_2(i__),
     +  logLR_2(i__),logR_2(i__),logMBH_2(i__),r_logR(i__),
     +  logLBr_2(i__),logLRr_2(i__)
c    ..............Just test output...........
        write(6,3)
     +  IAU_2(i__),Name_2(i__),Dist(i__),BMAG(i__),logLB_2(i__),
     +  logLR_2(i__),logR_2(i__),logMBH_2(i__),r_logR(i__),
     +  logLBr_2(i__),logLRr_2(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'table4.dat'	! FR I radio galaxies

C  Format for file interpretation

    4 format(
     +  A9,1X,A8,1X,F6.4,1X,A1,F4.1,1X,F6.3,1X,I1,1X,F4.1,1X,A1,F4.2,
     +  1X,F3.1,1X,I1,1X,A1,F4.1,1X,F4.1)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table4.dat')
      write(6,*) '....Loading file: table4.dat'
      do i__=1,31
        read(1,'(A68)')ar__3
        read(ar__3,4)
     +  IAU_3(i__),Name_3(i__),z_2(i__),l_logLB(i__),logLB_3(i__),
     +  F5GHz_2(i__),r_F5GHz(i__),logLR_3(i__),l_logR(i__),
     +  logR_3(i__),logMBH_3(i__),r_logMBH(i__),l_logLBr(i__),
     +  logLBr_3(i__),logLRr_3(i__)
c    ..............Just test output...........
        write(6,4)
     +  IAU_3(i__),Name_3(i__),z_2(i__),l_logLB(i__),logLB_3(i__),
     +  F5GHz_2(i__),r_F5GHz(i__),logLR_3(i__),l_logR(i__),
     +  logR_3(i__),logMBH_3(i__),r_logMBH(i__),l_logLBr(i__),
     +  logLBr_3(i__),logLRr_3(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'table5.dat'	! PG quasars

C  Format for file interpretation

    5 format(
     +  A9,1X,A12,A1,1X,F5.3,1X,F4.1,1X,E7.4,1X,F4.1,1X,F5.2,F4.1,1X,
     +  I1,1X,F4.1,1X,F4.1)

C  Effective file loading

      open(unit=1,status='old',file=
     +'table5.dat')
      write(6,*) '....Loading file: table5.dat'
      do i__=1,43
        read(1,'(A69)')ar__4
        read(ar__4,5)
     +  IAU_4(i__),Name_4(i__),n_Name(i__),z_3(i__),logLB_4(i__),
     +  F5GHz_3(i__),logLR_4(i__),logR_4(i__),logMBH_4(i__),
     +  r_logMBH_1(i__),logLBr_4(i__),logLRr_4(i__)
c    ..............Just test output...........
        write(6,5)
     +  IAU_4(i__),Name_4(i__),n_Name(i__),z_3(i__),logLB_4(i__),
     +  F5GHz_3(i__),logLR_4(i__),logR_4(i__),logMBH_4(i__),
     +  r_logMBH_1(i__),logLBr_4(i__),logLRr_4(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================
      stop
      end