Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/151/82 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/AJ/151/82 The 4 brightest red giants in the UFD galaxy Ret 2 (Roederer+, 2016)
*================================================================================
*Detailed chemical abundances in the r-process-rich ultra-faint dwarf galaxy
*Reticulum 2.
* Roederer I.U., Mateo M., Bailey III J.I., Song Y., Bell E.F., Crane J.D.,
* Loebman S., Nidever D.L., Olszewski E.W., Shectman S.A., Thompson I.B.,
* Valluri M., Walker M.G.
* <Astron. J., 151, 82 (2016)>
* =2016AJ....151...82R (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Basic Stellar Data
integer*4 nr__
parameter (nr__=4) ! Number of records
character*64 ar__ ! Full-size record
integer*4 Star (nr__) ! [1/4] Star name from this work (Star N)
character*19 DES (nr__) ! Dark Energy Survey (DES, Diehl et al.
* 2014SPIE.9149E..0VD) star name from Simon et al.
* (2015, J/ApJ/808/95) (DES JHHMMSS.ss+DDMMSS.s)
integer*4 Ret2_ (nr__) ! [80/178]? Star name from Walker et al.
* (2015, J/ApJ/808/108) (Ret2-NNN)
real*4 gmag (nr__) ! (mag) [16.47/17.57] Star g-band magnitude, adopted from
* Koposov et al. (2015ApJ...805..130K)
real*4 g_r (nr__) ! (mag) [0.56/0.80] Star g-r color, adopted from
* Koposov et al. (2015ApJ...805..130K)
real*4 v_HRV_ (nr__) ! (km/s) [59.7/65.5] Mean calculated heliocentric radial
* velocity
integer*4 S_N4300 (nr__) ! [15/26] Spectral signal-to-noise ratio at 4300{AA}
integer*4 S_N4800 (nr__) ! [26/45] Spectral signal-to-noise ratio at 4800{AA}
integer*4 S_N5200 (nr__) ! [33/59] Spectral signal-to-noise ratio at 5200{AA}
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Equivalent Widths and Atomic Data
integer*4 nr__1
parameter (nr__1=207) ! Number of records
character*59 ar__1 ! Full-size record
character*5 Ion (nr__1) ! Species
real*8 Wave (nr__1) ! (0.1nm) [4149.20/5429.70] Wavelength {lambda} ({AA})
real*4 ExPot (nr__1) ! (eV) [0.00/4.47] Excitation potential
real*4 log_gf (nr__1) ! ([-]) [-5.62/0.65] Log of degeneracy times oscillator
* strength
integer*4 r_log_gf (nr__1) ! [1/29] Literature reference for log(gf) value
* (1)
character*1 f_EW_1 (nr__1) ! [ls] Flag on EW-1 (2)
real*4 EW_1 (nr__1) ! (0.1pm) [17.7/144.7]? Equivalent width for Star 1
* (m{AA})
character*1 f_EW_2 (nr__1) ! [ls] Flag on EW-2 (2)
real*4 EW_2 (nr__1) ! (0.1pm) [21.3/238.1]? Equivalent width for Star 2
* (m{AA})
character*1 f_EW_3 (nr__1) ! [ls] Flag on EW-3 (2)
real*4 EW_3 (nr__1) ! (0.1pm) [6.4/190.3]? Equivalent width for Star 3
* (m{AA})
character*1 f_EW_4 (nr__1) ! [ls] Flag on EW-4 (2)
real*4 EW_4 (nr__1) ! (0.1pm) [8.4/220.3]? Equivalent width for Star 4
* (m{AA})
*Note (1): Reference as follows:
* 1 = NIST, Kramida et al. (2015, NIST Atomic Spectra Database (v. 5.3) online:
* http://physics.nist.gov/asd);
* 2 = Aldenius et al. (2007A&A...461..767A);
* 3 = Lawler & Dakin (1989JOSAB...6.1457L), using hyperfine splitting (HFS)
* from Kurucz & Bell (1995KurCD..23.....K);
* 4 = Lawler et al. (2013ApJS..205...11L);
* 5 = Wood et al. (2013, J/ApJS/208/27);
* 6 = Lawler et al. (2014, J/ApJS/215/20);
* 7 = Sobeck et al. (2007, J/ApJ/667/1267);
* 8 = Nilsson et al. (2006A&A...445.1165N);
* 9 = Booth et al. (1984MNRAS.208..147B);
* 10 = Den Hartog et al. (2011, J/ApJS/194/35) for both log(gf) value and HFS;
* 11 = Ruffoni et al. (2014, J/MNRAS/441/3127);
* 12 = Wood et al. (2014, J/ApJS/211/20);
* 13 = NIST, Kramida et al. (2015, NIST Atomic Spectra Database (v. 5.3) online:
* http://physics.nist.gov/asd), using HFS from Kurucz & Bell
* (1995KurCD..23.....K);
* 14 = Roederer & Lawler (2012, J/ApJ/750/76);
* 15 = Biemont et al. (2011MNRAS.414.3350B);
* 16 = Ljung et al. (2006A&A...456.1181L);
* 17 = Palmeri et al. (2005MNRAS.363..452P);
* 18 = Wickliffe et al. (1994JQSRT..51..545W);
* 19 = NIST, Kramida et al. (2015, NIST Atomic Spectra Database (v. 5.3) online:
* http://physics.nist.gov/asd), using HFS/isotope shifts (IS) from
* McWilliam (1998AJ....115.1640M) when available;
* 20 = Lawler et al. (2001ApJ...556..452L), using HFS from Ivans et al.
* (2006, J/ApJ/645/613);
* 21 = Lawler et al. (2009, J/ApJS/182/51);
* 22 = Li et al. (2007PhyS...76..577L), using HFS from Sneden et al.
* (2009, J/ApJS/182/80);
* 23 = Ivarsson et al. (2001PhyS...64..455I), using HFS from Sneden et al.
* (2009, J/ApJS/182/80);
* 24 = Den Hartog et al. (2003ApJS..148..543D), using HFS/IS from
* Roederer et al. (2008ApJ...675..723R) when available;
* 25 = Lawler et al. (2006, J/ApJS/162/227), using HFS/IS from Roederer et al.
* (2008ApJ...675..723R) when available;
* 26 = Lawler et al. (2001ApJ...563.1075L), using HFS/IS from Ivans et al.
* (2006, J/ApJ/645/613);
* 27 = Den Hartog et al. (2006, J/ApJS/167/292);
* 28 = Lawler et al. (2001ApJS..137..341L), using HFS from Lawler et al.
* (2001ApJS..137..351L) when available;
* 29 = Wickliffe et al. (2000JQSRT..66..363W).
*Note (2): Flag as follows:
* s = Indicates that abundances were derived by spectral synthesis matching;
* l = Indicates that an upper limit was derived from a non-detection.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! Stellar Parameters
integer*4 nr__2
parameter (nr__2=4) ! Number of records
character*43 ar__2 ! Full-size record
integer*4 Star_1 (nr__2) ! [1/4] Star name from this work (Star N)
integer*4 Teff (nr__2) ! (K) [4710/5020] Derived stellar effective
* temperature
integer*4 e_Teff (nr__2) ! (K) [140] Uncertainty in Teff
real*4 logg (nr__2) ! ([cm/s2]) [1.22/2.09] Derived log of surface gravity
real*4 e_logg (nr__2) ! ([cm/s2]) [0.38/0.40] Uncertainty in logg
real*4 Vt (nr__2) ! (km/s) [2.00/2.85] Derived microturbulence velocity
real*4 e_Vt (nr__2) ! (km/s) [0.2/0.3] Uncertainty in Vt
real*4 v_M_H_ (nr__2) ! ([Sun]) [-3.3/-2.7] Model derived metallicity
real*4 e__M_H_ (nr__2) ! ([Sun]) [0.2] Uncertainty in [M/H]
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table5.dat' ! Abundances Derived from Individual Lines
integer*4 nr__3
parameter (nr__3=428) ! Number of records
character*32 ar__3 ! Full-size record
integer*4 Star_2 (nr__3) ! [1/4] Star name from this work (Star N)
character*5 Ion_1 (nr__3) ! Species
real*8 Wave_1 (nr__3) ! (0.1nm) [4149.20/5429.70] Wavelength {lambda} ({AA})
character*1 l_logeps (nr__3) ! [<] Limit flag on logeps
real*4 logeps (nr__3) ! ([-]) [-2.59/5.35] Log {epsilon} abundance
real*4 e_logeps (nr__3) ! ([-]) [0.15/0.57]? Error on logeps
C=============================================================================
C Loading file 'table1.dat' ! Basic Stellar Data
C Format for file interpretation
1 format(
+ 5X,I1,5X,A19,6X,I3,1X,F5.2,1X,F4.2,1X,F4.1,1X,I2,1X,I2,1X,I2)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,4
read(1,'(A64)')ar__
read(ar__,1)
+ Star(i__),DES(i__),Ret2_(i__),gmag(i__),g_r(i__),v_HRV_(i__),
+ S_N4300(i__),S_N4800(i__),S_N5200(i__)
if(ar__(37:39) .EQ. '') Ret2_(i__) = iNULL__
c ..............Just test output...........
write(6,1)
+ Star(i__),DES(i__),Ret2_(i__),gmag(i__),g_r(i__),v_HRV_(i__),
+ S_N4300(i__),S_N4800(i__),S_N5200(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! Equivalent Widths and Atomic Data
C Format for file interpretation
2 format(
+ A5,1X,F7.2,1X,F4.2,1X,F5.2,1X,I2,1X,A1,1X,F5.1,1X,A1,1X,F5.1,
+ 1X,A1,1X,F5.1,1X,A1,1X,F5.1)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,207
read(1,'(A59)')ar__1
read(ar__1,2)
+ Ion(i__),Wave(i__),ExPot(i__),log_gf(i__),r_log_gf(i__),
+ f_EW_1(i__),EW_1(i__),f_EW_2(i__),EW_2(i__),f_EW_3(i__),
+ EW_3(i__),f_EW_4(i__),EW_4(i__)
if(ar__1(31:35) .EQ. '') EW_1(i__) = rNULL__
if(ar__1(39:43) .EQ. '') EW_2(i__) = rNULL__
if(ar__1(47:51) .EQ. '') EW_3(i__) = rNULL__
if(ar__1(55:59) .EQ. '') EW_4(i__) = rNULL__
c ..............Just test output...........
write(6,2)
+ Ion(i__),Wave(i__),ExPot(i__),log_gf(i__),r_log_gf(i__),
+ f_EW_1(i__),EW_1(i__),f_EW_2(i__),EW_2(i__),f_EW_3(i__),
+ EW_3(i__),f_EW_4(i__),EW_4(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4.dat' ! Stellar Parameters
C Format for file interpretation
3 format(
+ 5X,I1,1X,I4,1X,I3,1X,F4.2,1X,F4.2,1X,F4.2,1X,F3.1,1X,F4.1,1X,
+ F3.1)
C Effective file loading
open(unit=1,status='old',file=
+'table4.dat')
write(6,*) '....Loading file: table4.dat'
do i__=1,4
read(1,'(A43)')ar__2
read(ar__2,3)
+ Star_1(i__),Teff(i__),e_Teff(i__),logg(i__),e_logg(i__),
+ Vt(i__),e_Vt(i__),v_M_H_(i__),e__M_H_(i__)
c ..............Just test output...........
write(6,3)
+ Star_1(i__),Teff(i__),e_Teff(i__),logg(i__),e_logg(i__),
+ Vt(i__),e_Vt(i__),v_M_H_(i__),e__M_H_(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table5.dat' ! Abundances Derived from Individual Lines
C Format for file interpretation
4 format(5X,I1,1X,A5,1X,F7.2,1X,A1,F5.2,1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table5.dat')
write(6,*) '....Loading file: table5.dat'
do i__=1,428
read(1,'(A32)')ar__3
read(ar__3,4)
+ Star_2(i__),Ion_1(i__),Wave_1(i__),l_logeps(i__),logeps(i__),
+ e_logeps(i__)
if(ar__3(29:32) .EQ. '') e_logeps(i__) = rNULL__
c ..............Just test output...........
write(6,4)
+ Star_2(i__),Ion_1(i__),Wave_1(i__),l_logeps(i__),logeps(i__),
+ e_logeps(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end