Conversion of standardized ReadMe file for
file /./home/cats/J/ApJ/959/48 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 2026-May-20
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/959/48 Metallicities for emission line galaxies from HALO7D (Pharo+, 2023)
*================================================================================
*Dwarf galaxies show little ISM evolution from z~1 to z~0: a spectroscopic study
*of metallicity, star formation, and electron density.
* Pharo J., Guo Y., Calvo G.B., Teppala T., Bian F., Carleton T., Faber S.,
* Guhathakurta P., Koo D.C.
* <Astrophys. J., 959, 48 (2023)>
* =2023ApJ...959...48P
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Metallicity catalog
integer*4 nr__
parameter (nr__=583) ! Number of records
character*162 ar__ ! Full-size record
C J2000 position composed of: RAdeg DEdeg
character*16 ID (nr__) ! HALO7D identifier
real*4 zH7 (nr__) ! [0/0.9] Redshift from HALO7D catalog
real*8 RAdeg (nr__) ! (deg) [53/215.5] Right Ascension (J2000)
real*8 DEdeg (nr__) ! (deg) [-28/62.4] Declination (J2000)
real*4 logMs (nr__) ! ([Msun]) [7.7/11.5] Log, Galaxy stellar mass
real*4 Z_O3Hb (nr__) ! ([Sun]) [7/9.3] Metallicity, O3Hb line ratio
real*4 Z_R23 (nr__) ! ([Sun]) [7/9.4] Metallicity, R23 line ratio
real*4 Z_O3O2 (nr__) ! ([Sun]) [7.3/9.1] Metallicity, O3O2 line ratio
real*4 Z_Ne3O2 (nr__) ! ([Sun]) [7/8.7]?=-99 Metallicity, Ne3O2 line
* ratio
real*4 Z_Te (nr__) ! ([Sun]) [7.3/8.5]?=-99 Metallicity, from
* Excitation Temperature
real*4 O3Hb (nr__) ! [0.09/13.3] Emission line ratio,
* [OIII]5007{AA}/H{beta}
real*4 e_O3Hb (nr__) ! [0.05/4.6] Uncertainty in O3Hb
real*4 R23 (nr__) ! [0.14/10.1] Emission line ratio,
* [OIII]4959,5007+[OII]3727,3729/H{beta}
real*4 e_R23 (nr__) ! [0.03/0.6] Uncertainty in R23
real*4 O3O2 (nr__) ! [0.49/26] Emission line ratio,
* [OIII]4959,5007{AA}/[OII]3727,3729{AA}
real*4 e_O3O2 (nr__) ! [0.04/2.8] Uncertainty in O3O2
real*4 Ne3O2 (nr__) ! [0.06/1.9]?=-99 Emission line ratio,
* [NeIII]3869{AA}/[OII]3727,3729{AA}
real*8 e_Ne3O2 (nr__) ! [0.003/0.2]?=-99 Uncertainty in Ne3O2
real*8 FNeIII (nr__) ! (10-19mW/m2) [10/6836]?=-99 Dust-corrected
* [NeIII]3869{AA} flux
real*4 e_FNeIII (nr__) ! (10-19mW/m2) [0.8/59]?=-99 Uncertainty in FNeIII
real*4 FOIII (nr__) ! (10-19mW/m2) [27/253]?=-99 Dust-corrected
* [OIII]4363{AA} flux
real*4 e_FOIII (nr__) ! (10-19mW/m2) [2.7/27]?=-99 Uncertainty in FOIII
integer*4 Ex (nr__) ! [0/1]? Excitation diagnostic flags (1)
*Note (1): Excitation diagnostic flags as follows:
* 0 = galaxy with ratios below the curve, so a purely star-forming galaxy;
* 1 = galaxy with ratios above the diagnostic curve, so a galaxy
* with potential AGN contribution on the MeX diagnostic.
C=============================================================================
C Loading file 'table1.dat' ! Metallicity catalog
C Format for file interpretation
1 format(
+ A16,1X,F6.4,1X,F11.7,1X,F11.7,1X,F6.3,1X,F4.2,1X,F4.2,1X,F4.2,
+ 1X,F6.2,1X,F6.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,
+ F4.2,1X,F6.2,1X,F7.3,1X,F7.2,1X,F6.2,1X,F6.2,1X,F6.2,1X,I1)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,583
read(1,'(A162)')ar__
read(ar__,1)
+ ID(i__),zH7(i__),RAdeg(i__),DEdeg(i__),logMs(i__),Z_O3Hb(i__),
+ Z_R23(i__),Z_O3O2(i__),Z_Ne3O2(i__),Z_Te(i__),O3Hb(i__),
+ e_O3Hb(i__),R23(i__),e_R23(i__),O3O2(i__),e_O3O2(i__),
+ Ne3O2(i__),e_Ne3O2(i__),FNeIII(i__),e_FNeIII(i__),FOIII(i__),
+ e_FOIII(i__),Ex(i__)
if(ar__(162:162) .EQ. '') Ex(i__) = iNULL__
c ..............Just test output...........
write(6,1)
+ ID(i__),zH7(i__),RAdeg(i__),DEdeg(i__),logMs(i__),Z_O3Hb(i__),
+ Z_R23(i__),Z_O3O2(i__),Z_Ne3O2(i__),Z_Te(i__),O3Hb(i__),
+ e_O3Hb(i__),R23(i__),e_R23(i__),O3O2(i__),e_O3O2(i__),
+ Ne3O2(i__),e_Ne3O2(i__),FNeIII(i__),e_FNeIII(i__),FOIII(i__),
+ e_FOIII(i__),Ex(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end