Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/796/7 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/796/7 NIR spectral analysis of star-forming galaxies (Genzel+, 2014)
*================================================================================
*Evidence for wide-spread active galactic nucleus-driven outflows in the most
*massive z ~ 1-2 star-forming galaxies.
* Genzel R., Forster Schreiber N.M., Rosario D., Lang P., Lutz D.,
* Wisnioski E., Wuyts E., Wuyts S., Bandara K., Bender R., Berta S., Kurk J.,
* Mendel J.T., Tacconi L.J., Wilman D., Beifiori A., Brammer G., Burkert A.,
* Buschkamp P., Chan J., Carollo C.M., Davies R., Eisenhauer F.,
* Fabricius M., Fossati M., Kriek M., Kulkarni S., Lilly S.J., Mancini C.,
* Momcheva I., Naab T., Nelson E.J., Renzini A., Saglia R., Sharples R.M.,
* Sternberg A., Tacchella S., Van Dokkum P.
* <Astrophys. J., 796, 7 (2014)>
* =2014ApJ...796....7G (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Star-forming galaxy (SFG) Sample
integer*4 nr__
parameter (nr__=110) ! Number of records
character*114 ar__ ! Full-size record
character*22 Source (nr__) ! Source
character*13 Survey (nr__) ! Survey
character*13 kin (nr__) ! Kinematic classification (1)
character*4 Mode (nr__) ! Observing mode (2)
real*4 Tint (nr__) ! (h) [1.7/23] Total on-source integration time
* of the observations
character*1 f_S_N (nr__) ! [w] Indicates a weak signal-to-noise ratio
real*4 S_N (nr__) ! [1/50]? Signal-to-noise ratio
real*4 Broad (nr__) ! [0.5/2]? Broad nuclear emission
* component (3)
real*4 z (nr__) ! [0.79/2.61] Spectroscopic redshift
real*4 logM_ (nr__) ! ([Msun]) [9.36/11.68] Log of the stellar mass
real*4 sSFR (nr__) ! [0.003/6.975] Normalized specific star
* formation rate, sSFR/sSFRms (4)
character*1 f__NII__Ha (nr__) ! [Obn] Flag on [NII]/Ha (5)
real*4 v_NII__Ha (nr__) ! [0.05/1.5]? [NII]/H{alpha} line ratio
real*4 R1_2 (nr__) ! (kpc) [0.2/32]? Radius
character*4 AGN (nr__) ! AGN ("cand": 14 occurrences, "det": 18
* occurrences)
character*1 l_logLAGN (nr__) ! [<] Limit flag on logLAGN
real*4 logLAGN (nr__) ! (10-7W) [44.4/46.3]? Bolometric AGN luminosity
* (erg/s) (6)
real*4 Lsfr_Lagn (nr__) ! [0.08/29]? L(SFR)/L(AGN)
*Note (1): Kinematic classification of galaxy from H{alpha} data,
* defined as follows:
* disk = rotation,
* disp = dispersion dominated kinematics,
* merger = perturbed motions in a major merger system,
* BLR = a compact AGN broad line region component.
*Note (2): Observing mode for the data used in this work, defined as follows:
* AO = adaptive-optics-assisted observations with FWHM resolution of
* 0.2"-0.3",
* s = seeing-limited observations with FWHM resolution of 0.5"-0.7",
* ss = seeing-limited observations with FWHM resolution of 0.5"-0.7",
* objects for which the kinematics are well resolved.
*Note (3): Identification of a broad nuclear emission component,
* defined as follows:
* 2.0 = a strong nuclear broad component,
* 1.0 = a clear nuclear broad component,
* 0.5 = a candidate nuclear broad component.
*Note (4): Specific SFR normalized to that of the main sequence of SFGs at the
* redshift and stellar mass of each object using the parameterization
* of Whitaker et al. (2012ApJ...754L..29W), applicable for
* log(M*/M_{sun}_)>10.
*Note (5): Flag on [NII]/Ha, defined as follows:
* n = no
* b = broad
* O = OH
*Note (6): The bolometric AGN luminosity is estimated either from the absorption
* corrected X-ray luminosity (as in Rosario et al. 2012A&A...545A..45R),
* or from the rest-frame 8{mu}m luminosity of power-law mid-IR SEDs
* extrapolated to the total blue bump luminosity with AGN SEDs (Richards
* et al. 2006, Cat. J/ApJS/166/470), or an average. If only a mid-IR
* estimate is available, we consider this luminosity an upper limit to
* the AGN luminosity.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! Outflow parameters
integer*4 nr__1
parameter (nr__1=20) ! Number of records
character*103 ar__1 ! Full-size record
character*22 Source_1 (nr__1) ! Source
real*4 z_1 (nr__1) ! [0.88/2.53] Spectroscopic redshift
real*4 logM__1 (nr__1) ! ([Msun]) [10.81/11.5] Log of the stellar mass
real*4 sSFR_1 (nr__1) ! [0.033/5.052] Normalized specific star
* formation rate, sSFR/sSFR(ms)
real*4 SFRnuc (nr__1) ! (Msun/yr) [2.1/200] Star formation rate (Nucleus)
real*4 Rad (nr__1) ! (kpc) [1.3] Half-width at half maximum radius
real*4 Fb_FnHa (nr__1) ! [0.2/10] Broad to narrow H{alpha} flux ratio,
* F(H{alpha}_broad_)/F(H{alpha}_narrow_)
real*4 LHa (nr__1) ! (10-7W) [1e+40/1e+44] Extinction-corrected, optically
* thin H{alpha} luminosity (in erg/s)
integer*4 Vout (nr__1) ! (km/s) [214/1300] Outflow velocity
integer*4 n_e (nr__1) ! (cm-3) [80] Electron density, n(e)_broad_
real*4 Mass (nr__1) ! (Msun) [1.5e+07/4.2e+09] Mass in HII and He,
* M_broad_(HII+He)
integer*4 dM_dt (nr__1) ! (Msun/yr) [8/1743] Mass loss rate, dM_out_/dt
real*4 eta (nr__1) ! [0.1/87.8] dM_out_/dt/SFR Ionized gas
integer*4 O_R (nr__1) ! [1/564] Momentum ratio Outflow/Radiation
real*4 dE_dt_L (nr__1) ! [0.00038/1.2] Energy ratio
C=============================================================================
C Loading file 'table1.dat' ! Star-forming galaxy (SFG) Sample
C Format for file interpretation
1 format(
+ A22,1X,A13,1X,A13,1X,A4,1X,F4.1,A1,F4.1,1X,F3.1,1X,F4.2,1X,
+ F5.2,1X,F5.3,A1,F4.2,1X,F4.1,2X,A4,1X,A1,F4.1,1X,F5.2)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,110
read(1,'(A114)')ar__
read(ar__,1)
+ Source(i__),Survey(i__),kin(i__),Mode(i__),Tint(i__),
+ f_S_N(i__),S_N(i__),Broad(i__),z(i__),logM_(i__),sSFR(i__),
+ f__NII__Ha(i__),v_NII__Ha(i__),R1_2(i__),AGN(i__),
+ l_logLAGN(i__),logLAGN(i__),Lsfr_Lagn(i__)
if(ar__(62:65) .EQ. '') S_N(i__) = rNULL__
if(ar__(67:69) .EQ. '') Broad(i__) = rNULL__
if(ar__(88:91) .EQ. '') v_NII__Ha(i__) = rNULL__
if(ar__(93:96) .EQ. '') R1_2(i__) = rNULL__
if(ar__(105:108) .EQ. '') logLAGN(i__) = rNULL__
if(ar__(110:114) .EQ. '') Lsfr_Lagn(i__) = rNULL__
c ..............Just test output...........
write(6,1)
+ Source(i__),Survey(i__),kin(i__),Mode(i__),Tint(i__),
+ f_S_N(i__),S_N(i__),Broad(i__),z(i__),logM_(i__),sSFR(i__),
+ f__NII__Ha(i__),v_NII__Ha(i__),R1_2(i__),AGN(i__),
+ l_logLAGN(i__),logLAGN(i__),Lsfr_Lagn(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4.dat' ! Outflow parameters
C Format for file interpretation
2 format(
+ A22,1X,F4.2,1X,F5.2,1X,F5.3,1X,F5.1,1X,F3.1,1X,F5.2,1X,E8.2,
+ 1X,I4,1X,I2,1X,E8.2,1X,I4,1X,F4.1,1X,I3,1X,E7.1)
C Effective file loading
open(unit=1,status='old',file=
+'table4.dat')
write(6,*) '....Loading file: table4.dat'
do i__=1,20
read(1,'(A103)')ar__1
read(ar__1,2)
+ Source_1(i__),z_1(i__),logM__1(i__),sSFR_1(i__),SFRnuc(i__),
+ Rad(i__),Fb_FnHa(i__),LHa(i__),Vout(i__),n_e(i__),Mass(i__),
+ dM_dt(i__),eta(i__),O_R(i__),dE_dt_L(i__)
c ..............Just test output...........
write(6,2)
+ Source_1(i__),z_1(i__),logM__1(i__),sSFR_1(i__),SFRnuc(i__),
+ Rad(i__),Fb_FnHa(i__),LHa(i__),Vout(i__),n_e(i__),Mass(i__),
+ dM_dt(i__),eta(i__),O_R(i__),dE_dt_L(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end