Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/854/24 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 2026-Oct-09
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/854/24 Environmental dependence of SN Ia luminosities (Kim+, 2018)
*================================================================================
*Environmental dependence of type Ia supernova luminosities from a sample without
*a local-global difference in host star formation.
* Kim Y.-L., Smith M., Sullivan M., Lee Y.-W.
* <Astrophys. J., 854, 24 (2018)>
* =2018ApJ...854...24K
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! YOnsei Nearby Supernova Evolution Investigation
(YONSEI) Supernova Catalog (Kim+ 2015PKAS...30..485K ;
Kang+ 2016ApJS..223....7K) and host "global" properties
integer*4 nr__
parameter (nr__=657) ! Number of records
character*63 ar__ ! Full-size record
character*6 Name ! Supernova name
character*4 Survey ! Survey name (1)
real*4 z ! [0.01/0.9] Redshift in the CMB frame
real*4 SALT2HR ! (mag) [-1/0.8] SALT2 Hubble residual
real*4 e_SALT2HR ! (mag) [0.04/1.1] Uncertainty in SALT2HR
real*4 logM_ ! ([Msun]) [7.6/12.2] Log global host galaxy
* stellar mass
real*4 e_logM_ ! ([Msun]) [0/1.5] Lower uncertainty in logM*
real*4 E_logM__1 ! ([Msun]) [0/1.1] Upper uncertainty in logM*
real*4 logsSFR ! ([yr-1]) [-21.2/-8] Log global specific star
* formation rate
real*4 e_logsSFR ! ([yr-1]) [0/4] Lower uncertainty in logsSFR
real*4 E_logsSFR_1 ! ([yr-1]) [0/4] Upper uncertainty in logsSFR
*Note (1): Survey as follows:
* LOWZ = low-redshift SN surveys: Hamuy+ 1996, J/AJ/112/2408 ;
* Riess+ 1999AJ....117..707R ; Jha+ 2006, J/AJ/131/527 ;
* Hicken+ 2009, J/ApJ/700/331 ; 2012, J/ApJS/200/12 ;
* Contreras+ 2010, J/AJ/139/519 ; Stritzinger+ 2011, J/AJ/142/156
* (89 occurrences)
* SDSS = the SDSS-II SN survey: Sako+ 2018PASP..130f4002S (355 occurrences)
* SNLS = the first three years of the Canada-France-Hawaii Telescope
* Supernova Legacy Survey: Guy+ 2010, J/A+A/523/A7 (213 occurrences)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Host stellar mass and "local" properties for
the low-z sample
integer*4 nr__1
parameter (nr__1=110) ! Number of records
character*73 ar__1 ! Full-size record
character*6 Name_1 ! Supernova name
real*4 z_1 ! [0.01/0.08] Redshift in the CMB frame
real*4 logM__1 ! ([Msun]) [7.5/12.3] Log global host galaxy
* stellar mass
real*4 e_logM__2 ! ([Msun]) [0.02/1.5] Lower uncertainty in logM*
real*4 E_logM__3 ! ([Msun]) [0.02/1.6] Upper uncertainty in logM*
character*2 Class ! Global Host Class (Pa=passive,
* 43 occurrences or
* SF=Star-Forming, 67 occurrences)
real*4 logSFR_R15 ! ([Msun/kpc2/yr]) [-5.8/0]? Log local star formation
* rate surface density(1)
real*4 e_logSFR_R15 ! ([Msun/kpc2/yr]) [0.1/99]? Lower uncertainty in
* logSFR-R15
real*4 E_logSFR_R15_1 ! ([Msun/kpc2/yr]) [0/0.6]? Upper uncertainty in
* logSFR-R15
integer*4 P_R15 ! (%) [0/100]? Probability that SN has a
* locally passive environment (1)
real*4 logSFR_J15 ! ([Msun/kpc2/yr]) [-4.6/-1]? Log local star formation
* rate surface density (2)
real*4 e_logSFR_J15 ! ([Msun/kpc2/yr]) [0.03/99]? Lower uncertainty in
* logSFR-J15
real*4 E_logSFR_J15_1 ! ([Msun/kpc2/yr]) [0/0.4]? Lower uncertainty in
* logSFR-J15
integer*4 P_J15 ! (%) [0/100]? Probability that SN has a
* locally passive environment (2)
*Note (1): As determined by Ringault et al. (2015ApJ...802...20R).
*Note (2): As determined by Jones et al. (2015, J/ApJ/812/31).
C=============================================================================
C Loading file 'table2.dat' ! YOnsei Nearby Supernova Evolution Investigation
* (YONSEI) Supernova Catalog (Kim+ 2015PKAS...30..485K ;
* Kang+ 2016ApJS..223....7K) and host "global" properties
C Format for file interpretation
1 format(
+ A6,1X,A4,1X,F5.3,1X,F6.3,1X,F5.3,1X,F5.2,1X,F4.2,1X,F4.2,1X,
+ F6.2,1X,F4.2,1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,657
read(1,'(A63)')ar__
read(ar__,1)
+ Name,Survey,z,SALT2HR,e_SALT2HR,logM_,e_logM_,E_logM__1,
+ logsSFR,e_logsSFR,E_logsSFR_1
c ..............Just test output...........
write(6,1)
+ Name,Survey,z,SALT2HR,e_SALT2HR,logM_,e_logM_,E_logM__1,
+ logsSFR,e_logsSFR,E_logsSFR_1
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! Host stellar mass and "local" properties for
* the low-z sample
C Format for file interpretation
2 format(
+ A6,1X,F5.3,1X,F5.2,1X,F4.2,1X,F4.2,1X,A2,1X,F5.2,1X,F5.2,1X,
+ F4.2,1X,I3,1X,F5.2,1X,F5.2,1X,F4.2,1X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,110
read(1,'(A73)')ar__1
read(ar__1,2)
+ Name_1,z_1,logM__1,e_logM__2,E_logM__3,Class,logSFR_R15,
+ e_logSFR_R15,E_logSFR_R15_1,P_R15,logSFR_J15,e_logSFR_J15,
+ E_logSFR_J15_1,P_J15
if(ar__1(33:37) .EQ. '') logSFR_R15 = rNULL__
if(ar__1(39:43) .EQ. '') e_logSFR_R15 = rNULL__
if(ar__1(45:48) .EQ. '') E_logSFR_R15_1 = rNULL__
if(ar__1(50:52) .EQ. '') P_R15 = iNULL__
if(ar__1(54:58) .EQ. '') logSFR_J15 = rNULL__
if(ar__1(60:64) .EQ. '') e_logSFR_J15 = rNULL__
if(ar__1(66:69) .EQ. '') E_logSFR_J15_1 = rNULL__
if(ar__1(71:73) .EQ. '') P_J15 = iNULL__
c ..............Just test output...........
write(6,2)
+ Name_1,z_1,logM__1,e_logM__2,E_logM__3,Class,logSFR_R15,
+ e_logSFR_R15,E_logSFR_R15_1,P_R15,logSFR_J15,e_logSFR_J15,
+ E_logSFR_J15_1,P_J15
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end