Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/700/1173 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-Apr-19
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/700/1173 Analysis of broad-line regions in AGNs (Zhu+, 2009)
*================================================================================
*Evidence for an intermediate line region in active galactic nuclei's inner torus
*region and its evolution from narrow to broad line Seyfert I galaxies.
* Zhu L., Zhang S.N., Tang S.
* <Astrophys. J., 700, 1173-1189 (2009)>
* =2009ApJ...700.1173Z
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Source properties and decomposition parameters
integer*4 nr__
parameter (nr__=90) ! Number of records
character*123 ar__ ! Full-size record
integer*4 Seq (nr__) ! Running sequence number
character*10 Name (nr__) ! Object name (JHHMM+DDMM)
real*4 z (nr__) ! Redshift from La Mura G., private com. (1)
real*4 L5100 (nr__) ! (10+35W) ? Continuum luminosity at the rest frame
* wavelength of 5100{AA} in units of
* 10^42^erg/s (2)
real*8 BHMass (nr__) ! (10+5Msun) ? Black hole mass in 10^5^M_{sun}_ units (2)
real*4 Ha_b (nr__) ! ? H{alpha} lines: Hb (height of the VBGC (very
* broad Gaussian component))
real*4 Ha_i (nr__) ! ? H{alpha} lines: Hi (height of the IMGC
* (intermediate Gaussian component))
integer*4 W_Ha (nr__) ! (km/s) ? H{alpha} lines: FWHM
integer*4 Wb_Ha (nr__) ! (km/s) ? H{alpha} lines: FWHM of broad component
integer*4 Wi_Ha (nr__) ! (km/s) ? H{alpha} lines: FWHM of intermediate comp.
real*4 Hb_b (nr__) ! ? H{beta} lines: Hb (height of the VBGC)
real*4 Hb_i (nr__) ! ? H{beta} lines: Hi (height of the IMGC)
integer*4 W_Hb (nr__) ! (km/s) ? H{beta} lines: FWHM
integer*4 Wb_Hb (nr__) ! (km/s) ? H{beta} lines: FWHM of broad component
integer*4 Wi_Hb (nr__) ! (km/s) ? H{beta} lines: FWHM of intermediate comp.
real*4 Hg_b (nr__) ! ? H{gamma} lines: Hb (height of the VBGC)
real*4 Hg_i (nr__) ! ? H{gamma} lines: Hi (height of the IMGC)
integer*4 W_Hg (nr__) ! (km/s) ? H{gamma} lines: FWHM
integer*4 Wb_Hg (nr__) ! (km/s) ? H{gamma} lines: FWHM of broad component
integer*4 Wi_Hg (nr__) ! (km/s) ? H{gamma} lines: FWHM of intermediate comp.
*Note (1): Reshifts in this column are not associated with the good SDSS
* identifications. This mix-up parameter does not affect the other data.
*Note (2): From La Mura et al. 2007ApJ...671..104L
C=============================================================================
C Loading file 'table1.dat' ! Source properties and decomposition parameters
C Format for file interpretation
1 format(
+ I2,5X,A10,1X,F5.3,1X,F6.2,1X,F7.2,1X,F6.2,1X,F5.1,1X,I4,1X,I4,
+ 1X,I4,1X,F6.2,1X,F6.2,1X,I4,1X,I4,1X,I4,1X,F6.2,1X,F5.2,1X,I4,
+ 1X,I4,1X,I4)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,90
read(1,'(A123)')ar__
read(ar__,1)
+ Seq(i__),Name(i__),z(i__),L5100(i__),BHMass(i__),Ha_b(i__),
+ Ha_i(i__),W_Ha(i__),Wb_Ha(i__),Wi_Ha(i__),Hb_b(i__),Hb_i(i__),
+ W_Hb(i__),Wb_Hb(i__),Wi_Hb(i__),Hg_b(i__),Hg_i(i__),W_Hg(i__),
+ Wb_Hg(i__),Wi_Hg(i__)
if(ar__(25:30) .EQ. '') L5100(i__) = rNULL__
if(ar__(32:38) .EQ. '') BHMass(i__) = rNULL__
if(ar__(40:45) .EQ. '') Ha_b(i__) = rNULL__
if(ar__(47:51) .EQ. '') Ha_i(i__) = rNULL__
if(ar__(53:56) .EQ. '') W_Ha(i__) = iNULL__
if(ar__(58:61) .EQ. '') Wb_Ha(i__) = iNULL__
if(ar__(63:66) .EQ. '') Wi_Ha(i__) = iNULL__
if(ar__(68:73) .EQ. '') Hb_b(i__) = rNULL__
if(ar__(75:80) .EQ. '') Hb_i(i__) = rNULL__
if(ar__(82:85) .EQ. '') W_Hb(i__) = iNULL__
if(ar__(87:90) .EQ. '') Wb_Hb(i__) = iNULL__
if(ar__(92:95) .EQ. '') Wi_Hb(i__) = iNULL__
if(ar__(97:102) .EQ. '') Hg_b(i__) = rNULL__
if(ar__(104:108) .EQ. '') Hg_i(i__) = rNULL__
if(ar__(110:113) .EQ. '') W_Hg(i__) = iNULL__
if(ar__(115:118) .EQ. '') Wb_Hg(i__) = iNULL__
if(ar__(120:123) .EQ. '') Wi_Hg(i__) = iNULL__
c ..............Just test output...........
write(6,1)
+ Seq(i__),Name(i__),z(i__),L5100(i__),BHMass(i__),Ha_b(i__),
+ Ha_i(i__),W_Ha(i__),Wb_Ha(i__),Wi_Ha(i__),Hb_b(i__),Hb_i(i__),
+ W_Hb(i__),Wb_Hb(i__),Wi_Hb(i__),Hg_b(i__),Hg_i(i__),W_Hg(i__),
+ Wb_Hg(i__),Wi_Hg(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end