Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/837/40 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/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 ! Galaxy name real*4 Dist ! (Mpc) [34/108] Distance taken from Ma+, J/ApJ/795/158 real*4 Reff ! (kpc) [2/19] Stellar effective radius real*4 Rgas ! (kpc) [0.6/18.3] Maximum gas radius real*4 KMag ! (mag) [-26.3/-25.4] Absolute K-band AB magnitude real*4 logM_ ! ([Msun]) [11.6/12.1] Logarithm of stellar mass real*4 logMd ! ([Msun]) [10/15]? Logarithm of the dark matter halo mass real*4 logMg ! ([Msun]) [3.5/6] Logarithm of the warm ionized * gas mass (1) real*4 logLHb ! ([10-7W]) [37/39.4] Logarithm of H{beta} luminosity, * in erg/s units real*4 sigma ! (km/s) [231/354] Central stellar velocity dispersion character*1 l_OIII_Hb ! Limit flag on OIII/Hb, if H{beta} is * non-detected real*4 OIII_Hb ! [0.6/5.8] Flux ratio [OIII]/H{beta} in the * central spectrum real*4 PAgas ! (deg) [148/357]? Kinematic position angle of * rotating warm ionized gas (2) real*4 e_PAgas ! (deg) [1.6/16.5]? Uncertainty in PAgas real*4 PAstars ! (deg) [1.6/343] Kinematic position angle of * the stars (2) real*4 e_PAstars ! (deg) [0.2/22] Uncertainty in PAstars character*1 f_PAstars ! Flag on PAstars (3) real*4 PAdiff ! (deg) [1/98]? Kinematic misalignment angle, * warm ionized gas relative to stars real*4 e_PAdiff ! (deg) [3/18]? Uncertainty in PAdiff character*2 F_S ! Kinematic classification (4) character*3 Ext ! [Yes/No ] Is warm ionized gas extended beyond * the central three dithered fibers character*3 Rot ! 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,Dist,Reff,Rgas,KMag,logM_,logMd,logMg,logLHb,sigma, + l_OIII_Hb,OIII_Hb,PAgas,e_PAgas,PAstars,e_PAstars,f_PAstars, + PAdiff,e_PAdiff,F_S,Ext,Rot if(ar__(41:44) .EQ. '') logMd = rNULL__ if(ar__(70:74) .EQ. '') PAgas = rNULL__ if(ar__(76:79) .EQ. '') e_PAgas = rNULL__ if(ar__(94:97) .EQ. '') PAdiff = rNULL__ if(ar__(99:102) .EQ. '') e_PAdiff = rNULL__ c ..............Just test output........... write(6,1) + Name,Dist,Reff,Rgas,KMag,logM_,logMd,logMg,logLHb,sigma, + l_OIII_Hb,OIII_Hb,PAgas,e_PAgas,PAstars,e_PAstars,f_PAstars, + PAdiff,e_PAdiff,F_S,Ext,Rot c .......End.of.Just test output........... end do close(1) C============================================================================= stop end