Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/844/18 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-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/844/18 RAVE J203843.2-002333 high-resolution spectroscopy (Placco+, 2017) *================================================================================ *RAVE J203843.2-002333: the first highly R-process-enhanced star identified in *the RAVE survey. * Placco V.M., Holmbeck E.M., Frebel A., Beers T.C., Surman R.A., Ji A.P., * Ezzeddine R., Points S.D., Kaleida C.C., Hansen T.T., Sakari C.M., * Casey A.R. * <Astrophys. J., 844, 18 (2017)> * =2017ApJ...844...18P C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3.dat' ! Equivalent-width measurements for RAVE J2038-0023 integer*4 nr__ parameter (nr__=344) ! Number of records character*39 ar__ ! Full-size record character*5 Ion ! Ion or molecule identifier real*8 lambda ! (0.1nm) [3500.8/6979] Wavelength in Angstroms real*4 chi ! (eV) [0.0/4.5] Excitation potential real*4 log_gf ! ([-]) [-5.7/0.7] Log oscillator strength real*4 EW ! (0.1nm) [3/209] Equivalent Width in Angstroms real*4 logeps_x ! ([Sun]) [0/5.3] Log number abundance of Ion c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table4.dat' ! Individual abundance measurements of neutron-capture elements for RAVE J2038-0023 integer*4 nr__1 parameter (nr__1=115) ! Number of records character*34 ar__1 ! Full-size record character*5 Ion_1 ! Ion or molecule identifier real*8 lambda_1 ! (0.1nm) [3472.4/6645.1] Wavelength in Angstroms real*4 chi_1 ! (eV) [0/3] Excitation potential real*4 log_gf_1 ! ([-]) [-1.6/1.5] Log oscillator strength real*4 logeps_x_1 ! ([Sun]) [-2.2/0.6] Log number abundance of Ion c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table5.dat' ! Final abundance estimates for RAVE J2038-0023 integer*4 nr__2 parameter (nr__2=42) ! Number of records character*45 ar__2 ! Full-size record character*6 Ion_2 ! Ion or molecule identifier real*4 logepsSun ! ([Sun]) [-0.6/8.5] Log number abundance of Ion * (log{epsilon}_{sun}_(X)) real*4 logeps_x_1 ! ([Sun]) [-2.2/5.8] Log number abundance of Ion * (log{epsilon}(X)) real*4 v_X_H_ ! ([Sun]) [-3.5/-1.2] Average abundance real*4 v_X_Fe_ ! ([Sun]) Elemental abundance ratio character*1 f__X_Fe_ ! Flag on [C/Fe] (1) real*4 sigma ! ([Sun]) [0.01/0.2] Standard deviation real*4 overSig ! ([Sun]) [0.1/0.2] Standard error of the mean (2) integer*4 N ! [1/202] Number of line used *Note (1): * a: [C/Fe] = +0.23 using corrections of Placco+ (2014, J/ApJ/797/21). *Note (2): For elements where overline{sigma} is lower than 0.10, we adopt a * fixed value of 0.10 (see the discussion in Section 4.6 of * Placco+ 2013ApJ...770..104P). c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'figure1.dat' ! Selected regions of the spectrum of RAVE J2038-0023, compared with the r-II stars HE 1523-0901 and CS 22892-052 integer*4 nr__3 parameter (nr__3=13364) ! Number of records character*28 ar__3 ! Full-size record character*11 ID ! Stellar identifier (CS22892-052, HE1523-0901 * or "RAVEJ2038") character*1 Panel ! [A-E] Figure 1 panel spectrum shown in real*8 lambda_2 ! (0.1nm) [4065/5190] Wavelength in Angstroms real*4 NFlux ! [0.1/1.4] Normalized flux C============================================================================= C Loading file 'table3.dat' ! Equivalent-width measurements for RAVE J2038-0023 C Format for file interpretation 1 format(A5,1X,F8.3,1X,F4.2,1X,F6.3,1X,F6.2,1X,F5.3) C Effective file loading open(unit=1,status='old',file= +'table3.dat') write(6,*) '....Loading file: table3.dat' do i__=1,344 read(1,'(A39)')ar__ read(ar__,1)Ion,lambda,chi,log_gf,EW,logeps_x c ..............Just test output........... write(6,1)Ion,lambda,chi,log_gf,EW,logeps_x c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table4.dat' ! Individual abundance measurements of * neutron-capture elements for RAVE J2038-0023 C Format for file interpretation 2 format(A5,1X,F8.3,1X,F5.3,1X,F6.3,1X,F6.3) C Effective file loading open(unit=1,status='old',file= +'table4.dat') write(6,*) '....Loading file: table4.dat' do i__=1,115 read(1,'(A34)')ar__1 read(ar__1,2)Ion_1,lambda_1,chi_1,log_gf_1,logeps_x_1 c ..............Just test output........... write(6,2)Ion_1,lambda_1,chi_1,log_gf_1,logeps_x_1 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table5.dat' ! Final abundance estimates for RAVE J2038-0023 C Format for file interpretation 3 format( + A6,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,A1,1X,F4.2,1X,F4.2,1X,I3) C Effective file loading open(unit=1,status='old',file= +'table5.dat') write(6,*) '....Loading file: table5.dat' do i__=1,42 read(1,'(A45)')ar__2 read(ar__2,3) + Ion_2,logepsSun,logeps_x_1,v_X_H_,v_X_Fe_,f__X_Fe_,sigma, + overSig,N c ..............Just test output........... write(6,3) + Ion_2,logepsSun,logeps_x_1,v_X_H_,v_X_Fe_,f__X_Fe_,sigma, + overSig,N c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'figure1.dat' ! Selected regions of the spectrum of RAVE J2038-0023, * compared with the r-II stars HE 1523-0901 and * CS 22892-052 C Format for file interpretation 4 format(A11,1X,A1,1X,F8.3,1X,F5.3) C Effective file loading open(unit=1,status='old',file= +'figure1.dat') write(6,*) '....Loading file: figure1.dat' do i__=1,13364 read(1,'(A28)')ar__3 read(ar__3,4)ID,Panel,lambda_2,NFlux c ..............Just test output........... write(6,4)ID,Panel,lambda_2,NFlux c .......End.of.Just test output........... end do close(1) C============================================================================= stop end