Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/697/A127 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-May-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/A+A/697/A127 Atomic line list for 2MASS J05383296-5904280 (Hansen+, 2025)
*================================================================================
*The R-Process Alliance:
*Hunting for gold in the near-UV spectrum of 2MASS J05383296-5904280.
* Hansen T.T., Roederer I.U., Shah S.P., Ezzeddine R., Beers T.C., Frebel A.,
* Holmbeck E.M., Placco V.M., Sakari C.M., Ji A., Marshall J.L., Mardini M.K.,
* Chiti A.
* <Astron. Astrophys. 697, A127 (2025)>
* =2025A&A...697A.127H (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'tablea1.dat' ! Atomic data and abundances for individual lines
analysed
integer*4 nr__
parameter (nr__=545) ! Number of records
character*46 ar__ ! Full-size record
real*8 Wave ! (0.1nm) Wavelength in Angstroms
character*4 ID ! Species
real*4 ExPot ! (eV) Excitation Potential
real*4 log_gf ! ([-]) Log of oscillator strength
character*1 n_EW ! [s] s for synth
real*4 EW ! (0.1pm) ? Equivalenth width in mili angstroms
real*4 loge_X ! ([-]) Log epsilon abundance of element X
integer*4 Ref ! Reference (1)
*Note (1): References as follows:
* 1 = NIST (Kramida et al., 2020, National Institute of Standards and
* Technology, Gaithersburg, MD)
* 2 = Pehlivan Rhodin et al. (2017A&A...598A.102P)
* 3 = NIST (Kramida et al. 2020, National Institute of Standards and Technology,
* Gaithersburg, MDfor log(gf) value and VALD (Piskunov et al.,
* 1995A&AS..112..525P; Pakhomov et al., 2019ARep...63.1010P) for HFS
* 4 = Trabert et al. (1999..32..537T) for log(gf) value and Roederer & Lawler
* (2021ApJ...912..119R) for HFS
* 5 = Den Hartog et al. (2023ApJS..265...42D)
* 6 = Den Hartog et al. (2021ApJS..255...27D)
* 7 = Lawler & Dakin 1989 for logg and Kurucz (2011CaJPh..89..417K) for HFS;
* NOT SURE ABOUT ALL LOGG VALUES don't have access to Lawler & Dakin.
* 8 = Lawler et al. (2019ApJS..241...21L)
* 9 = Lawler et al. (2013ApJS..205...11L)
* 10 = Wood et al. (2013ApJS..208...27W)
* 11 = Pickering et al. (2001ApJS..132..403P), with corrections given in
* Pickering et al. (2002ApJS..138..247P)
* 12 = Wood et al. (2014ApJS..214...18W) for log(gf) value and HFS
* 13 = Sobeck et al. (2007ApJ...667.1267S)
* 14 = Lawler et al. (2017ApJS..228...10L)
* 15 = Gurell et al. (2010A&A...511A..68G)
* 16 = Nilsson et al. (2006A&A...445.1165N)
* 17 = Den Hartog et al. (2011ApJS..194...35D) for both log(gf) value and hfs
* 18 = O'Brian et al. (1991JOSAB...8.1185O)
* 19 = Belmonte et al. (2017ApJ...848..125B)
* 20 = Den Hartog et al. (2014ApJS..215...23D)
* 21 = Ruffini et al. (2014MNRAS.441.3127R)
* 22 = Den Hartog et al. (2019ApJS..243...33D)
* 23 = Melendez & Barbuy (2009A&A...497..611M)
* 24 = Lawler et al. (2015ApJS..220...13L) for log(gf) values and HFS
* 25 = Lawler et al. (2018ApJS..238....7L) for log(gf) value and Roederer
* (2022ApJ...936...84R) for HFS
* 26 = Wood et al. (2014ApJS..211...20W)
* 27 = Fedchak & Lawler (1999ApJ...523..734F)
* 28 = Roederer & Lawler (2012ApJ...750...76R )
* 29 = Biemont et al. (2011MNRAS.414.3350B)
* 30 = Ljung et al. (2006A&A...456.1181L)
* 31 = Malcheva et al. (2006MNRAS.367..754M)
* 32 = Nilsson et al. (2010A&A...511A..16N) including HFS
* 33 = Sikstrom et al. (2001JPhB...34..477S)
* 34 = Xu et al. (2004PhRvA..70d2508X)
* 35 = Kramida et al. (2018, in APS Meeting Abstracts, Vol. 2018, APS Division of
* Atomic, Molecular and Optical Physics Meeting Abstracts, M01.004)
* NIST Atomic Spectra Database (ver. 5.5.6), using HFS/IS using when
* available
* (NOTE: I don't know where the HFS/IS for the 6496 line comes from!)
* 36 = Lawler et al. (2001ApJ...556..452L), using HFS from Ivans et al.
* (2006ApJ...645..613I) when available
* 37 = Lawler et al. (2009ApJS..182...51L)
* 38 = Li et al. (2007PhyS...76..577L), using HFS from Sneden et al.
* (2009ApJS..182...80S)
* 39 = Den Hartog et al. (2003ApJS..148..543D), using HFS/IS from
* Roederer et al. (2008ApJ...675..723R) when available
* 40 = Lawler et al. (2006ApJS..162..227L), using HFS/IS from
* Roederer et al. (2008ApJ...675..723R) when available
* 41 = Lawler et al. (2001ApJ...563.1075L), using HFS/IS from
* Ivans et al. (2006ApJ...645..613I)
* 42 = Den Hartog et al. (2006ApJS..167..292D)
* 43 = Lawler et al. (2001ApJS..137..341L), using HFS from
* Lawler et al. (2001ApJS..137..351L)
* 44 = Wickliffe et al. (2000JQSRT..66..363W)
* 45 = Lawler et al. (2004ApJ...604..850L), using HFS from
* Lawler et al. (2009ApJS..182...51L)
* 46 = Lawler et al. (2008ApJS..178...71L)
* 47 = Wickliffe & Lawler (1997JOSAB..14..737W)
* 48 = Sneden et al. (2009ApJS..182...80S) for log(gf) value and HFS/IS
* 49 = Roederer et al. (2010ApJ...714L.123R) for log(gf) value and
* Den Hartog et al. (2020ApJS..248...10D) for HFS
* 50 = Den Hartog et al. (2021ApJS..254....5D)
* 51 = Lawler et al. (2007ApJS..169..120L)
* 52 = Ivarsson et al. (2004A&A...425..353I)
* 53 = Den Hartog et al. (2005ApJ...619..639D) for log(gf) value and HFS/IS
* 54 = Den Hartog et al. (2005ApJ...619..639D) for log(gf) value only
* 55 = Hannaford et al. (1981JPhB...14.2321H) for log(gf) value and
* Demidov et al. (2021PhRvA.103c2824D) for HFS
* 56 = Nilsson et al. (2002A&A...382..368N)
C=============================================================================
C Loading file 'tablea1.dat' ! Atomic data and abundances for individual lines
* analysed
C Format for file interpretation
1 format(1X,F7.2,2X,A4,2X,F4.2,3X,F5.2,1X,A1,F6.2,1X,F5.2,2X,I2)
C Effective file loading
open(unit=1,status='old',file=
+'tablea1.dat')
write(6,*) '....Loading file: tablea1.dat'
do i__=1,545
read(1,'(A46)')ar__
read(ar__,1)Wave,ID,ExPot,log_gf,n_EW,EW,loge_X,Ref
if(ar__(31:36) .EQ. '') EW = rNULL__
c ..............Just test output...........
write(6,1)Wave,ID,ExPot,log_gf,n_EW,EW,loge_X,Ref
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end