Conversion of standardized ReadMe file for
catalog 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-Apr-24
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/ApJS/187/135 SEDs of weak AGNs associated with LINERs (Eracleous+, 2010)
*================================================================================
*Spectral energy distributions of weak active galactic nuclei associated with
*low-ionization nuclear emission regions.
* Eracleous M., Hwang J.A., Flohic H.M.L.G.
* <Astrophys. J. Suppl. Ser., 187, 135-148 (2010)>
* =2010ApJS..187..135E
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Sample of galaxies and their basic properties
integer*4 nr__
parameter (nr__=35) ! Number of records
character*54 ar__ ! Full-size record
integer*4 NGC ! NGC number
character*1 n_NGC ! [*] indicates a note in notes.dat file
character*13 OName ! Other name(s)
character*10 TType ! Hubble morphological type (1)
real*4 DistT ! (Mpc) Distance from Tully (1988, Cat. <VII/145>)
real*4 DistS ! (Mpc) ? SBF distance (2)
real*4 DistP ! (Mpc) ? PNLF distance (3)
real*4 DistO ! (Mpc) ? Distance from other source (4)
*Note (1): Host galaxy Hubble types were taken from the catalog of Tully,
* Cat. <VII/145>.
*Note (2): Distances obtained using the surface brightness fluctuation
* method; see Tonry et al. (2001ApJ...546..681T). Following Jensen et
* al. (2003ApJ...583..712J), we have corrected the distance modulus
* reported by Tonry et al. (2001ApJ...546..681T) by subtracting 0.16mag.
*Note (3): Distances obtained using the PNLF method; see Herrmann et al.
* (2008ApJ...683..630H) for NGC 4736 and compilation of Ciardullo et al.
* (2002, <J/ApJ/577/31>) and references therein for other galaxies.
*Note (4): Distances obtained using a variety of different methods:
* * NGC 404, NGC 3031, and NGC 4736 using the tip of the red giant branch
* (TRGB) method (Karachetsev et al., 2002A&A...389..812K) (the distance
* to NGC 3031 obtained by the Cepheid method by Freedman et al.,
* 1994ApJ...427..628F, agrees exactly with the TRGB distance);
* * NGC 4261, NGC 4552, and NGC 4636 using the fundamental plane relation
* (see Gavazzi et al., 1999MNRAS.304..595G);
* * NGC 4438, NGC 4457, and NGC 4579 using the Tully-Fisher method (see
* Gavazzi et al., 1999MNRAS.304..595G);
* * NGC 3031, NGC 4548, and NGC 7331 using the Cepheid variable method
* (Freedman et al., 2001ApJ...553...47F, 1994ApJ...427..628F).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Spectral Energy Distributions of individual LINERs
integer*4 nr__1
parameter (nr__1=350) ! Number of records
character*57 ar__1 ! Full-size record
integer*4 NGC_1 ! Galaxy name
real*4 nu ! (Hz) Frequency
character*1 l_Lobs ! Limit flag on Lobs
real*4 Lobs ! (10-7W) ? Observed monochromatic luminosity
character*1 l_L_C ! Limit flag on L(C)
real*4 L_C ! (10-7W) ? Calzetti corrected monochromatic luminosity (1)
character*1 l_L_S ! Limit flag on L(S)
real*4 L_S ! (10-7W) ? Seaton corrected monochromatic luminosity (1)
integer*4 Frac ! (%) ? Fractional dispersion (2)
character*4 Ref ! Reference(s) in refs.dat file
character*3 Note ! Note flag (3)
*Note (1): In erg/s from 0.1 to 1{mu}m after correction for extinction. The
* minimum correction employs the starburst extinction law of Calzetti et
* al. (1994ApJ...429..582C), while the maximum correction corresponds to
* the Milky Way law of Seaton (1979MNRAS.187p..73S). Details are given
* in Section 3.1 of the text. The "observed" X-ray luminosities already
* have this correction built in. The distances used are those of Tully
* (Cat. <VII/145>); see Table 1 and the discussion in Section 2.1.
*Note (2): In the monochromatic luminosity in cases where a number of
* measurements were averaged together. See Section 3.1 of the text for
* details.
*Note (3): Flags as follows:
* d = See detailed notes on this object in notes.dat file.
* e = Upper limit to {nu}L_{nu}_(2500{AA}) derived by assuming
* {alpha}_ox_=1.5. See Section 4.1 of the text for details.
* f = This limit is a result of a non-detection.
* g = This limit is a result of contamination of the source by other,
* neighboring sources; the observations were taken through a large
* aperture.
* h = The observed UV flux most likely originates in hot stars in the
* immediate vicinity of the nucleus, not in the AGN. See the discussion
* in Section 3.3 of the text. The values of {alpha}_ox_ implied by the UV
* flux is extremely high for such a low-luminosity AGN thus, the UV flux
* listed here can be taken as a generous upper limit to the UV flux
* of the AGN.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'refs.dat' ! References from table 3
integer*4 nr__2
parameter (nr__2=25) ! Number of records
character*69 ar__2 ! Full-size record
integer*4 Ref_1 ! Reference number
character*19 BibCode ! Bibcode
character*23 Aut ! First author name
character*23 Comm ! Comments
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'notes.dat' ! Notes on individual objects
integer*4 nr__3
parameter (nr__3=104) ! Number of records
character*80 ar__3 ! Full-size record
integer*4 NGC_2 ! NGC number
character*71 Note_1 ! Text of note from section 3.3
C=============================================================================
C Loading file 'table1.dat' ! Sample of galaxies and their basic properties
C Format for file interpretation
1 format(4X,I4,A1,1X,A13,1X,A10,1X,F4.1,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,35
read(1,'(A54)')ar__
read(ar__,1)NGC,n_NGC,OName,TType,DistT,DistS,DistP,DistO
if(ar__(41:44) .EQ. '') DistS = rNULL__
if(ar__(46:49) .EQ. '') DistP = rNULL__
if(ar__(51:54) .EQ. '') DistO = rNULL__
c ..............Just test output...........
write(6,1)NGC,n_NGC,OName,TType,DistT,DistS,DistP,DistO
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! Spectral Energy Distributions of individual LINERs
C Format for file interpretation
2 format(4X,I4,1X,E8.3,1X,A1,E8.3,A1,E8.3,A1,E8.3,I3,1X,A4,1X,A3)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,350
read(1,'(A57)')ar__1
read(ar__1,2)
+ NGC_1,nu,l_Lobs,Lobs,l_L_C,L_C,l_L_S,L_S,Frac,Ref,Note
if(ar__1(20:27) .EQ. '') Lobs = rNULL__
if(ar__1(29:36) .EQ. '') L_C = rNULL__
if(ar__1(38:45) .EQ. '') L_S = rNULL__
if(ar__1(46:48) .EQ. '') Frac = iNULL__
c ..............Just test output...........
write(6,2)
+ NGC_1,nu,l_Lobs,Lobs,l_L_C,L_C,l_L_S,L_S,Frac,Ref,Note
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'refs.dat' ! References from table 3
C Format for file interpretation
3 format(I2,1X,A19,1X,A23,A23)
C Effective file loading
open(unit=1,status='old',file=
+'refs.dat')
write(6,*) '....Loading file: refs.dat'
do i__=1,25
read(1,'(A69)')ar__2
read(ar__2,3)Ref_1,BibCode,Aut,Comm
c ..............Just test output...........
write(6,3)Ref_1,BibCode,Aut,Comm
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'notes.dat' ! Notes on individual objects
C Format for file interpretation
4 format(4X,I4,1X,A71)
C Effective file loading
open(unit=1,status='old',file=
+'notes.dat')
write(6,*) '....Loading file: notes.dat'
do i__=1,104
read(1,'(A80)')ar__3
read(ar__3,4)NGC_2,Note_1
c ..............Just test output...........
write(6,4)NGC_2,Note_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end