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