Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/714/25 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-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/714/25 AMUSE-Virgo survey. II. (Gallo+, 2010)
*================================================================================
*AMUSE-virgo.
*II. Down-sizing in black hole accretion.
* Gallo E., Treu T., Marshall P.J., Woo J.-H., Leipski C., Antonucci R.
* <Astrophys. J., 714, 25-36 (2010)>
* =2010ApJ...714...25G
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! AMUSE-Virgo. II. Nuclear properties
integer*4 nr__
parameter (nr__=100) ! Number of records
character*59 ar__ ! Full-size record
integer*4 ACSVCS ! ACS Virgo Cluster Survey target number
integer*4 VCC ! VCC source name (Cat. J/AJ/90/1681)
character*9 OName ! Other designation(s) (N=NGC, I=IC)
real*4 Dist ! (Mpc) Distance (1)
real*4 Bmag ! (mag) Extinction corrected B-band magnitude (2)
integer*4 sigma ! (km/s) ? Velocity dispersion
integer*4 e_sigma ! (km/s) ? Sigma uncertainty
integer*4 r_sigma ! [1/2]? Sigma reference when not from ENEARc (3)
real*4 logMBH ! ([Msun]) Log of black hole mass (4)
character*1 l_logLx ! Limit flag on logLx
real*4 logLx ! ([10-7W]) Nuclear luminosity between 0.3 and 10keV,
* corrected for absorption
character*3 r_logLx ! Reference(s) (from Paper I) for logLx (5)
real*4 logM_ ! ([Msun]) Log of stellar mass of the host galaxy (6)
*Note (1): Distance (from the surface brightness fluctuations method; Mei et al.
* 2007ApJ...655..144M; see also Blakeslee et al. 2009ApJ...694..556B).
* The average distance to the Virgo Cluster (of 16.5Mpc) is employed in
* the case of no available distance modulus.
*Note (2): Extinction-corrected B magnitude, estimated as described in Paper I
* (Gallo et al. 2008ApJ...680..154G); E(B-V) values are from Ferrarese
* et al. (2006, Cat. J/ApJS/164/334).
*Note (3): Stellar velocity dispersion, from ENEARc (Bernardi et al.
* 2002AJ....123.2990B), unless otherwise indicated as follows:
* 1 = Gavazzi et al. (2000, Cat. J/A+AS/142/65)
* 2 = Davies et al. (1987ApJS...64..581D)
*Note (4): BH mass, estimated according to the "fiducial distribution" described
* in Section 4 of Paper I (Gallo et al. 2008ApJ...680..154G).
*Note (5): Reference (from Paper I; Gallo et al. 2008ApJ...680..154G) as
* follows:
* 3 = Biller et al. 2004ApJ...613..238B
* 4 = Soldatenkov et al. 2003AstL...29..298S
* 5 = Di Matteo et al. 2003ApJ...582..133D
* 6 = Wilson & Yang 2002ApJ...568..133W
* 7 = Randall et al. 2004, Cat. J/ApJ/600/729, report on a point-like X-ray
* source at 1.6" from the nucleus. After cross-matching the Chandra
* astrometry to SDSS, the position of the nuclear X-ray source is found to
* be consistent with the galaxy nucleus.
* 8 = Sivakoff et al. 2003, Cat. J/ApJ/599/218
* 9 = Finoguenov & Jones 2001ApJ...547L.107F
* 10 = Xu et al. 2005ApJ...631..809X
* 11 = Satyapal et al. 2005ApJ...633...86S
* 12 = Dudik et al. 2005ApJ...620..113D
* 13 = Soria et al. 2006ApJ...640..143S, 2006ApJ...640..126S; the nuclear X-ray
* source in VCC 1297 has a soft spectrum. However, a thermal model provides
* a statistically worse fit that a power law model (employing Cash
* statistics), implying that most of the X-ray emission is likely
* accretion-powered.
* 14 = The X-ray source appears slightly elongated; L_X,nucl_ is estimated
* within the Chandra PSF at 1.5keV.
*Note (6): Stellar mass of the host galaxy derived from g_0_ and z_0_ band AB
* model magnitudes following Bell et al. (2003ApJS..149..289B), as
* described in Paper I (Gallo et al. 2008ApJ...680..154G; eq. (3)):
* log(M*/L_g_0__)=0.698(g_0_-z_0_)-0.367
C=============================================================================
C Loading file 'table1.dat' ! AMUSE-Virgo. II. Nuclear properties
C Format for file interpretation
1 format(
+ I3,1X,I4,1X,A9,1X,F5.2,1X,F5.2,1X,I3,1X,I2,1X,I1,1X,F3.1,1X,
+ A1,F5.2,1X,A3,1X,F4.1)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,100
read(1,'(A59)')ar__
read(ar__,1)
+ ACSVCS,VCC,OName,Dist,Bmag,sigma,e_sigma,r_sigma,logMBH,
+ l_logLx,logLx,r_logLx,logM_
if(ar__(32:34) .EQ. '') sigma = iNULL__
if(ar__(36:37) .EQ. '') e_sigma = iNULL__
if(ar__(39:39) .EQ. '') r_sigma = iNULL__
c ..............Just test output...........
write(6,1)
+ ACSVCS,VCC,OName,Dist,Bmag,sigma,e_sigma,r_sigma,logMBH,
+ l_logLx,logLx,r_logLx,logM_
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end