Conversion of standardized ReadMe file for
file /./ftp/cats/J/other/RAA/17.41 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-16
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/other/RAA/17.41 LAMOST metal-poor galaxies sample (Gao+, 2017)
*================================================================================
*A sample of metal-poor galaxies identified from the LAMOST spectral survey.
* Gao Y.-L., Lian J.-H., Kong X., Lin Z.-S., Hu N., Liu H.-Y., Wang E.-C.,
* Cao Z.-H., Hou Y.-H., Wang Y.-F., Zhang Y.
* <Res. Astron. Astrophys. 17, 41 (2017)>
* =2017RAA....17...41G (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! The Sample of metal-poor galaxies in LAMOST survey
integer*4 nr__
parameter (nr__=48) ! Number of records
character*212 ar__ ! Full-size record
C J2000 position composed of: RAdeg DEdeg
integer*4 ID ! Sequential number (1)
real*8 RAdeg ! (deg) Right ascension (J2000) (2)
real*8 DEdeg ! (deg) Declinaiton (J2000) (2)
real*4 z ! Redshift (2)
real*4 I__OII_ ! Intensity of [OII]{lambda}3727 line
* relative to I(H{beta}) (3)
real*4 I__OIII_a ! Intensity of [OIII]{lambda}4363 line
* relative to I(H{beta}) (3)
real*4 I__OIII_b ! Intensity of [OIII]{lambda}4953 line
* relative to I(H{beta}) (3)
real*4 I__OIII_c ! Intensity of [OIII]{lambda}5007 line
* relative to I(H{beta}) (3)
real*4 I_Ha ! Intensity of H{alpha} line
* relative to I(H{beta}) (3)
real*4 I__SII_a ! Intensity of [SII]{lambda}6717 line
* relative to I(H{beta}) (3)
real*4 I__SII_b ! Intensity of [SII]{lambda}6731 line
* relative to I(H{beta}) (3)
real*8 I_Hb ! (10-20W/m2) Intensity of H{beta} line (4)
real*4 EW_Hb ! (0.1nm) H{beta} equivalent width (5)
real*4 E_B_V ! (mag) Nebular color excess (6)
real*4 Te ! (10+4K) Electron temperature for [OIII]
* line (7)
real*4 ne ! (cm-3) Electron density (8)
real*4 v12_log_O_H_Te ! Oxygen abundance, 12+log(O/H)Te
real*4 logM ! ([Msun]) Mass
real*4 logSFR ! ([Msun/yr]) Star formation rate
integer*4 SDSS ! [0/1] Detected by SDSS ? (9)
real*4 e_I__OII_ ! rms uncertainty on I([OII])
real*4 e_I__OIII_a ! rms uncertainty on I([OIII]a)
real*4 e_I__OIII_b ! rms uncertainty on I([OIII]b)
real*4 e_I__OIII_c ! rms uncertainty on I([OIII]c)
real*4 e_I_Ha ! rms uncertainty on I(Ha)
real*4 e_I__SII_a ! rms uncertainty on I([SII]a)
real*4 e_I__SII_b ! rms uncertainty on I([SII]b)
real*4 e_I_Hb ! (10-20W/m2) rms uncertainty on I(Hb)
real*4 e_EW_Hb ! (0.1nm) rms uncertainty on EW(Hb)
real*4 e_E_B_V ! (mag) rms uncertainty on E(B-V)
real*4 e_Te ! (10+4K) rms uncertainty on Te
real*4 e_ne ! (cm-3) rms uncertainty on ne
real*4 e_12_log_O_H_Te ! rms uncertainty on 12+log(O/H)Te
real*4 e_logM ! ([Msun]) Mass rms uncertainty on logM
real*4 e_logSFR ! ([Msun/yr]) rms uncertainty on logSFR
*Note (1): ID is the serial number for every object and it will be referred to
* throughout this paper.
*Note (2): The position and redshift are obtained from the header of the
* spectral FITS files.
*Note (3): Reddening corrected emission line fluxes for our sample galaxies
* measured from the LAMOST spectra are relative to H{beta}.
*Note (4): The H{beta} fluxes are reported in units of 10^-17^ erg/s/cm^2^.
*Note (5): The H{beta} equivalent widths are given in units of {AA}, assuming
* the mean values of observed flux intensities within 50{AA} wide component
* around the H{beta} as the continuum spectral flux intensities.
*Note (6): The nebular color excesses are derived from the observed flux ratios
* H{alpha}/H{beta}, and are assumed to be zero when the observed flux ratios
* H{alpha}/H{beta} are less than 2.86.
*Note (7): Electron temperatures are computed from the oxygen emission line
* ratios [OIII]{lambda}{lambda}4959,5007/[OIII]{lambda}4363.
*Note (8): Electron densities are calculated from an iterative process with
* [OIII]{lambda}{lambda}4959,5007/[OIII]{lambda}4363 and
* [SII]{lambda}6717/[SII]{lambda}6731 ratios.
*Note (9): The flag numbers indicate the spectral detected states for our
* objects with SDSS as follows:
* 1 = this object has been spectroscopically detected by SDSS
* 0 = this object has not been spectroscopically detected by SDSS
C=============================================================================
C Loading file 'table1.dat' ! The Sample of metal-poor galaxies in LAMOST survey
C Format for file interpretation
1 format(
+ I2,1X,F9.5,1X,F9.5,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,
+ F5.3,1X,F5.3,1X,F5.3,1X,F8.2,1X,F6.2,1X,F4.2,1X,F4.2,1X,F6.2,
+ 1X,F4.2,1X,F5.3,1X,F6.3,1X,I1,1X,F6.3,1X,F5.3,1X,F5.3,1X,F5.3,
+ 1X,F5.3,1X,F5.3,1X,F5.3,1X,F6.2,1X,F4.2,1X,F4.2,1X,F4.2,1X,
+ F6.2,1X,F4.2,1X,F5.3,1X,F5.3)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,48
read(1,'(A212)')ar__
read(ar__,1)
+ ID,RAdeg,DEdeg,z,I__OII_,I__OIII_a,I__OIII_b,I__OIII_c,I_Ha,
+ I__SII_a,I__SII_b,I_Hb,EW_Hb,E_B_V,Te,ne,v12_log_O_H_Te,logM,
+ logSFR,SDSS,e_I__OII_,e_I__OIII_a,e_I__OIII_b,e_I__OIII_c,
+ e_I_Ha,e_I__SII_a,e_I__SII_b,e_I_Hb,e_EW_Hb,e_E_B_V,e_Te,e_ne,
+ e_12_log_O_H_Te,e_logM,e_logSFR
c ..............Just test output...........
write(6,1)
+ ID,RAdeg,DEdeg,z,I__OII_,I__OIII_a,I__OIII_b,I__OIII_c,I_Ha,
+ I__SII_a,I__SII_b,I_Hb,EW_Hb,E_B_V,Te,ne,v12_log_O_H_Te,logM,
+ logSFR,SDSS,e_I__OII_,e_I__OIII_a,e_I__OIII_b,e_I__OIII_c,
+ e_I_Ha,e_I__SII_a,e_I__SII_b,e_I_Hb,e_EW_Hb,e_E_B_V,e_Te,e_ne,
+ e_12_log_O_H_Te,e_logM,e_logSFR
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end