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