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 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 2024-Mar-28
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         ! IAU J2000.0 name (HHMM+DDMM)
      character*15  Name        ! Name
      real*4        z           ! Redshift (spectroscopic)
      real*4        Vmag        ! (mag) Total apparent V magnitude
      real*4        AV          ! (mag) Galactic extinction (from NED)
      real*4        K_          ! Starlight contamination fraction
      real*4        logLB       ! ([10-7W]) Optical luminosity of the nucleus at 4400{AA}
      real*8        F5GHz       ! (Jy) Total radio 5GHz flux
      integer*4     Ref         ! References for logLB and F5GHz (1)
      real*4        logLR       ! ([10-7W]) Radio luminosity at 5GHz,
      real*4        logR        ! Radio loudness parameter (G1)
      integer*4     W_Ha        ! (km/s) FWHM of H{alpha} line
      real*4        logMBH      ! ([solMass]) Black hole mass
      real*4        logLBr      ! ([-]) B luminosity in L_Eddington_ units
      real*4        logLRr      ! ([-]) 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       ! IAU J2000.0 name (HHMM+DDMM)
      character*15  Name_1      ! Name
      real*4        z_1         ! Redshift (spectroscopic)
      real*4        Vmag_1      ! (mag) Total apparent V magnitude
      real*4        AV_1        ! (mag) Galactic extinction (from NED)
      real*4        K__1        ! Starlight contamination fraction
      real*4        logLB_1     ! ([10-7W]) Optical luminosity of the nucleus at 4400{AA}
      real*8        F5GHz_1     ! (Jy) Total radio 5GHz flux
      integer*4     Ref_1       ! References for logLB and F5GHz (1)
      real*4        logLR_1     ! ([10-7W]) Radio luminosity at 5GHz,
      real*4        logR_1      ! Radio loudness parameter (G1)
      integer*4     W_Ha_1      ! (km/s) FWHM of H{alpha} line
      real*4        logMBH_1    ! ([solMass]) Black hole mass
      real*4        logLBr_1    ! ([-]) B luminosity in L_Eddington_ units
      real*4        logLRr_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       ! IAU J2000.0 name (HHMM+DDMM)
      character*15  Name_2      ! Name
      real*4        Dist        ! (Mpc) Distance
      real*4        BMAG        ! (mag) Absolute B magnitude
      real*4        logLB_2     ! ([10-7W]) Optical luminosity of the nucleus at 4400{AA}
      real*4        logLR_2     ! ([10-7W]) Radio luminosity at 5 GHz
      real*4        logR_2      ! Radio loudness parameter (G1)
      real*4        logMBH_2    ! ([solMass]) Black hole mass
      character*3   r_logR      ! References for logR (1)
      real*4        logLBr_2    ! ([-]) B luminosity in L_Eddington_ units
      real*4        logLRr_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       ! IAU J2000.0 name (HHMM+DDMM)
      character*8   Name_3      ! Name
      real*4        z_2         ! Redshift (spectroscopic)
      character*1   l_logLB     ! Limit flag on logLB
      real*4        logLB_3     ! ([10-7W]) Optical luminosity of the nucleus at 4400{AA}
      real*4        F5GHz_2     ! (Jy) Total radio 5GHz flux
      integer*4     r_F5GHz     ! References for F5GHz (1)
      real*4        logLR_3     ! ([10-7W]) Radio luminosity at 5GHz,
      character*1   l_logR      ! Limit flag on logR
      real*4        logR_3      ! Radio loudness parameter (G1)
      real*4        logMBH_3    ! ([solMass]) Black hole mass
      integer*4     r_logMBH    ! Reference for logMBH (1)
      character*1   l_logLBr    ! Limit flag on logLBr
      real*4        logLBr_3    ! ([-]) B luminosity in L_Eddington_ units
      real*4        logLRr_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       ! IAU J2000.0 name (HHMM+DDMM)
      character*12  Name_4      ! Name
      character*1   n_Name      ! [*] * for objects classified as narrow-line
*                                         Seyfert 1 galaxies
      real*4        z_3         ! Redshift
      real*4        logLB_4     ! ([10-7W]) Optical luminosity of the nucleus at 4400{AA}
      real*4        F5GHz_3     ! (Jy) Total radio 5GHz flux
      real*4        logLR_4     ! ([10-7W]) Radio luminosity at 5GHz
      real*4        logR_4      ! Radio loudness parameter (G1)
      real*4        logMBH_4    ! ([solMass]) Black hole mass
      integer*4     r_logMBH_1  ! References for logMBH (1)
      real*4        logLBr_4    ! ([-]) B luminosity in L_Eddington_ units
      real*4        logLRr_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,Name,z,Vmag,AV,K_,logLB,F5GHz,Ref,logLR,logR,W_Ha,logMBH,
     +  logLBr,logLRr
c    ..............Just test output...........
        write(6,1)
     +  IAU,Name,z,Vmag,AV,K_,logLB,F5GHz,Ref,logLR,logR,W_Ha,logMBH,
     +  logLBr,logLRr
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,Name_1,z_1,Vmag_1,AV_1,K__1,logLB_1,F5GHz_1,Ref_1,
     +  logLR_1,logR_1,W_Ha_1,logMBH_1,logLBr_1,logLRr_1
c    ..............Just test output...........
        write(6,2)
     +  IAU_1,Name_1,z_1,Vmag_1,AV_1,K__1,logLB_1,F5GHz_1,Ref_1,
     +  logLR_1,logR_1,W_Ha_1,logMBH_1,logLBr_1,logLRr_1
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,Name_2,Dist,BMAG,logLB_2,logLR_2,logR_2,logMBH_2,r_logR,
     +  logLBr_2,logLRr_2
c    ..............Just test output...........
        write(6,3)
     +  IAU_2,Name_2,Dist,BMAG,logLB_2,logLR_2,logR_2,logMBH_2,r_logR,
     +  logLBr_2,logLRr_2
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,Name_3,z_2,l_logLB,logLB_3,F5GHz_2,r_F5GHz,logLR_3,
     +  l_logR,logR_3,logMBH_3,r_logMBH,l_logLBr,logLBr_3,logLRr_3
c    ..............Just test output...........
        write(6,4)
     +  IAU_3,Name_3,z_2,l_logLB,logLB_3,F5GHz_2,r_F5GHz,logLR_3,
     +  l_logR,logR_3,logMBH_3,r_logMBH,l_logLBr,logLBr_3,logLRr_3
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,Name_4,n_Name,z_3,logLB_4,F5GHz_3,logLR_4,logR_4,
     +  logMBH_4,r_logMBH_1,logLBr_4,logLRr_4
c    ..............Just test output...........
        write(6,5)
     +  IAU_4,Name_4,n_Name,z_3,logLB_4,F5GHz_3,logLR_4,logR_4,
     +  logMBH_4,r_logMBH_1,logLBr_4,logLRr_4
c    .......End.of.Just test output...........
      end do
      close(1)

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