Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/837/40 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-18
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/837/40 The MASSIVE survey. VI. Warm ionized gas. (Pandya+, 2017)
*================================================================================
*The MASSIVE survey.
*VI. The spatial distribution and kinematics of warm ionized gas in the most
*massive local early-type galaxies.
* Pandya V., Greene J.E., Ma C.-P., Veale M., Ene I., Davis T.A.,
* Blakeslee J.P., Goulding A.D., McConnell N.J., Nyland K., Thomas J.
* <Astrophys. J., 837, 40-40 (2017)>
* =2017ApJ...837...40P (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Sample of MASSIVE galaxies with warm ionized gas
integer*4 nr__
parameter (nr__=28) ! Number of records
character*113 ar__ ! Full-size record
character*8 Name (nr__) ! Galaxy name
real*4 Dist (nr__) ! (Mpc) [34/108] Distance taken from Ma+, J/ApJ/795/158
real*4 Reff (nr__) ! (kpc) [2/19] Stellar effective radius
real*4 Rgas (nr__) ! (kpc) [0.6/18.3] Maximum gas radius
real*4 KMag (nr__) ! (mag) [-26.3/-25.4] Absolute K-band AB magnitude
real*4 logM_ (nr__) ! ([Msun]) [11.6/12.1] Logarithm of stellar mass
real*4 logMd (nr__) ! ([Msun]) [10/15]? Logarithm of the dark matter halo mass
real*4 logMg (nr__) ! ([Msun]) [3.5/6] Logarithm of the warm ionized
* gas mass (1)
real*4 logLHb (nr__) ! ([10-7W]) [37/39.4] Logarithm of H{beta} luminosity,
* in erg/s units
real*4 sigma (nr__) ! (km/s) [231/354] Central stellar velocity dispersion
character*1 l_OIII_Hb (nr__) ! Limit flag on OIII/Hb, if H{beta} is
* non-detected
real*4 OIII_Hb (nr__) ! [0.6/5.8] Flux ratio [OIII]/H{beta} in the
* central spectrum
real*4 PAgas (nr__) ! (deg) [148/357]? Kinematic position angle of
* rotating warm ionized gas (2)
real*4 e_PAgas (nr__) ! (deg) [1.6/16.5]? Uncertainty in PAgas
real*4 PAstars (nr__) ! (deg) [1.6/343] Kinematic position angle of
* the stars (2)
real*4 e_PAstars (nr__) ! (deg) [0.2/22] Uncertainty in PAstars
character*1 f_PAstars (nr__) ! Flag on PAstars (3)
real*4 PAdiff (nr__) ! (deg) [1/98]? Kinematic misalignment angle,
* warm ionized gas relative to stars
real*4 e_PAdiff (nr__) ! (deg) [3/18]? Uncertainty in PAdiff
character*2 F_S (nr__) ! Kinematic classification (4)
character*3 Ext (nr__) ! [Yes/No ] Is warm ionized gas extended beyond
* the central three dithered fibers
character*3 Rot (nr__) ! Does warm ionized gas show regular rotation
*Note (1): The warm ionized gas mass is derived using the H{beta} luminosity
* according to Equation 1:
* M_H{beta}_=28.2x10^8^L_H{beta},43_n_e,100_^-1^M_{sun}_
* where L_H{beta},43_ is the H{beta} luminosity in units of 10^43^erg/s
* and n_e,100_ is the electron number density in units of 100cm^-3^.
* See section 4.6.
*Note (2): PA is measured counterclockwise from north to the redshifted emission
* side.
*Note (3): A flag=1 identifies "non-rotators" for which kinemetry was unable
* to determine a kinematic stellar position angle; for these galaxies,
* their photometric stellar position angles are given instead with an
* assumed 10% fractional uncertainty (see subsection 4.4 for details).
*Note (4): Kinematic classification as fast or slow rotator from
* Veale+ (2017MNRAS.464..356V) based on angular momentum within Reff.
C=============================================================================
C Loading file 'table1.dat' ! Sample of MASSIVE galaxies with warm ionized gas
C Format for file interpretation
1 format(
+ A8,1X,F5.1,1X,F5.2,1X,F5.2,1X,F6.2,1X,F5.2,1X,F4.1,1X,F4.2,1X,
+ F4.1,1X,F6.2,1X,A1,1X,F4.2,1X,F5.1,1X,F4.1,1X,F5.1,1X,F4.1,1X,
+ A1,1X,F4.1,1X,F4.1,1X,A2,1X,A3,1X,A3)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,28
read(1,'(A113)')ar__
read(ar__,1)
+ Name(i__),Dist(i__),Reff(i__),Rgas(i__),KMag(i__),logM_(i__),
+ logMd(i__),logMg(i__),logLHb(i__),sigma(i__),l_OIII_Hb(i__),
+ OIII_Hb(i__),PAgas(i__),e_PAgas(i__),PAstars(i__),
+ e_PAstars(i__),f_PAstars(i__),PAdiff(i__),e_PAdiff(i__),
+ F_S(i__),Ext(i__),Rot(i__)
if(ar__(41:44) .EQ. '') logMd(i__) = rNULL__
if(ar__(70:74) .EQ. '') PAgas(i__) = rNULL__
if(ar__(76:79) .EQ. '') e_PAgas(i__) = rNULL__
if(ar__(94:97) .EQ. '') PAdiff(i__) = rNULL__
if(ar__(99:102) .EQ. '') e_PAdiff(i__) = rNULL__
c ..............Just test output...........
write(6,1)
+ Name(i__),Dist(i__),Reff(i__),Rgas(i__),KMag(i__),logM_(i__),
+ logMd(i__),logMg(i__),logLHb(i__),sigma(i__),l_OIII_Hb(i__),
+ OIII_Hb(i__),PAgas(i__),e_PAgas(i__),PAstars(i__),
+ e_PAstars(i__),f_PAstars(i__),PAdiff(i__),e_PAdiff(i__),
+ F_S(i__),Ext(i__),Rot(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end