Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/153/128 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-18
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/153/128 WOCS. LXXV. Hyades&Praesepe stellar lithium data (Cummings+, 2017)
*================================================================================
*WIYN open cluster study.
*LXXV. Testing the metallicity dependence of stellar lithium depletion using
*Hyades-aged clusters.
*I. Hyades and Praesepe.
* Cummings J.D., Deliyannis C.P., Maderak R.M., Steinhauer A.
* <Astron. J., 153, 128-128 (2017)>
* =2017AJ....153..128C (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table6.dat' ! Stellar Lithium Data for The Hyades
integer*4 nr__
parameter (nr__=90) ! Number of records
character*105 ar__ ! Full-size record
character*1 Group (nr__) ! [ABCD] Data group (1)
character*9 ID (nr__) ! Star identifier (vB NNN, for most stars
* in table 6; KW NNN in table 7)
character*1 n_ID (nr__) ! [ab] Note on ID (2)
real*4 v_B_V_mean (nr__) ! (mag) [0.194/1.225] Mean (B-V) color index
real*4 Teff (nr__) ! (K) [4301.9/7623] Effective temperature
real*4 e_Teff (nr__) ! (K) [6.3/373.9]? Uncertainty in Teff
character*1 n_Teff (nr__) ! [*] Note on Teff (only in table 6) (3)
real*4 EW_Li (nr__) ! (0.1pm) [3/121.06]? Lithium equivalent width (m{AA})
real*4 e_EW_Li (nr__) ! (0.1pm) [0.59/5.93]? Uncertainty in EW(Li)
real*4 A_Li (nr__) ! ([-]) [0/3.41] Lithum abundance
real*4 e_A_Li_S_N (nr__) ! ([-]) [0.005/0.097]? S/N-based uncertainty for
* A(Li)
real*4 e_A_Li_Teff(nr__) ! ([-]) [0.01/0.269]? T_eff_-based uncertainty for
* A(Li)
integer*4 S_N (nr__) ! [120/1500]? Signal-to-noise ratio per pixel
integer*4 Exp1 (nr__) ! (s) [150/10945]? Total exposure time (only
* in table 6)
character*5 Exp2 (nr__) ! ("h:m:s") ? Total exposure time (only in table 7)
character*1 l_vsini (nr__) ! [<] Limit flag on vsini
real*4 vsini (nr__) ! (km/s) [1.5/210]? Rotational broadening (4)
real*4 RV (nr__) ! (km/s) [17.8/64.53]? Radial velocity (5)
real*4 e_RV (nr__) ! (km/s) [0.06/24.43]? 1{sigma} uncertainty in RV
integer*4 Ref (nr__) ! [1/9] Reference (6)
character*3 Prime (nr__) ! [yes-] Prime sample member? (7)
*Note (1): Group as follows:
* A = Single-star detection;
* B = Spectroscopic binary based on Perryman et al. (1998, J/A+A/331/81; and
* references therein);
* C = Single-star 3{sigma} upper limit;
* D = Spectroscopic binary 3{sigma} upper limit.
*Note (2): Note as follows:
* a = Short Period Tidally Locked Binary (SPTLB);
* b = Star that deviate from the single-star fiducial (see Figure 3).
*Note (3): Note as follows:
* * = 13 of the stars we analyzed from Thorburn et al. (1993ApJ...415..150T),
* Boesgaard & Tripicco (1986ApJ...302L..49B) and Boesgaard & Budge
* (1988ApJ...332..410B) have clearly discrepant photometry in comparison to
* the Hyades MS fiducial in MV space. Therefore, their T_eff_ was not
* determined using our derived color relations because they would not be
* appropriate. Their final T_eff_ are thus based only on their
* Johnson & Knuckles (1955ApJ...122..209J) B-V and they have increased
* uncertainty.
*Note (4): In table 6, the source for vsini of the Boesgaard & Tripicco
* (1986ApJ...302L..49B) and Boesgaard & Budge (1988ApJ...332..410B) stars (3)
* are Kraft (1965ApJ...142..681K) but scaled to our measurements. The source
* for vsini of the Burkhart & Coupry (1989A&A...220..197B) stars (5) are
* Debernardi et al. (2000, J/A+A/354/881).
* In table 7, the source for v sin i of stars we did not observe is
* Mermilliod et al. (2009, J/A+A/498/949).
*Note (5): In table 6, the source for radial velocities of stars we did not
* observe is Perryman et al. (1998, J/A+A/331/81) (and references therein) and
* for vB 99 and vB 182 it is Griffin et al. (1988AJ.....96..172G).
* In table 7, the source for radial velocities of stars we did not
* observe is Mermilliod et al. (2009, J/A+A/498/949).
*Note (6): Reference as follows:
* 1 = Our WIYN/Hydra sample;
* 2 = Thorburn et al. (1993ApJ...415..150T);
* 3 = Boesgaard & Budge (1988ApJ...332..410B) and Boesgaard & Tripicco
* (1986ApJ...302L..49B);
* 4 = Soderblom et al. (1990AJ.....99..595S);
* 5 = Burkhart & Coupry (1989A&A...220..197B);
* 6 = Takeda et al. (2013PASJ...65...65T);
* 7 = Boesgaard et al. (2013ApJ...775...58B);
* 8 = Soderblom et al. (1993, J/AJ/106/1080);
* 9 = Burkhart & Coupry (1998A&A...338.1073B).
*Note (7): For each cluster, we define a "prime" subsample consisting of probable
* members with low e_Teff and no measurable spectroscopic evidence of
* contamination from a secondary (from fxcor), even if they are known binaries
* from other studies.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table7.dat' ! Stellar Lithium Data for Praesepe
integer*4 nr__1
parameter (nr__1=110) ! Number of records
character*105 ar__1 ! Full-size record
character*1 Group_1 (nr__1) ! [ABCD] Data group (1)
character*9 ID_1 (nr__1) ! Star identifier (vB NNN, for most stars
* in table 6; KW NNN in table 7)
character*1 n_ID_1 (nr__1) ! [ab] Note on ID (2)
real*4 v_B_V_mean_1(nr__1) ! (mag) [0.194/1.225] Mean (B-V) color index
real*4 Teff_1 (nr__1) ! (K) [4301.9/7623] Effective temperature
real*4 e_Teff_1 (nr__1) ! (K) [6.3/373.9]? Uncertainty in Teff
character*1 n_Teff_1 (nr__1) ! [*] Note on Teff (only in table 6) (3)
real*4 EW_Li_1 (nr__1) ! (0.1pm) [3/121.06]? Lithium equivalent width (m{AA})
real*4 e_EW_Li_1 (nr__1) ! (0.1pm) [0.59/5.93]? Uncertainty in EW(Li)
real*4 A_Li_1 (nr__1) ! ([-]) [0/3.41] Lithum abundance
real*4 e_A_Li_S_N_1(nr__1) ! ([-]) [0.005/0.097]? S/N-based uncertainty for
* A(Li)
real*4 e_A_Li_Teff_1(nr__1) ! ([-]) [0.01/0.269]? T_eff_-based uncertainty for
* A(Li)
integer*4 S_N_1 (nr__1) ! [120/1500]? Signal-to-noise ratio per pixel
integer*4 Exp1_1 (nr__1) ! (s) [150/10945]? Total exposure time (only
* in table 6)
character*5 Exp2_1 (nr__1) ! ("h:m:s") ? Total exposure time (only in table 7)
character*1 l_vsini_1 (nr__1) ! [<] Limit flag on vsini
real*4 vsini_1 (nr__1) ! (km/s) [1.5/210]? Rotational broadening (4)
real*4 RV_1 (nr__1) ! (km/s) [17.8/64.53]? Radial velocity (5)
real*4 e_RV_1 (nr__1) ! (km/s) [0.06/24.43]? 1{sigma} uncertainty in RV
integer*4 Ref_1 (nr__1) ! [1/9] Reference (6)
character*3 Prime_1 (nr__1) ! [yes-] Prime sample member? (7)
*Note (1): Group as follows:
* A = Single-star detection;
* B = Spectroscopic binary based on Perryman et al. (1998, J/A+A/331/81; and
* references therein);
* C = Single-star 3{sigma} upper limit;
* D = Spectroscopic binary 3{sigma} upper limit.
*Note (2): Note as follows:
* a = Short Period Tidally Locked Binary (SPTLB);
* b = Star that deviate from the single-star fiducial (see Figure 3).
*Note (3): Note as follows:
* * = 13 of the stars we analyzed from Thorburn et al. (1993ApJ...415..150T),
* Boesgaard & Tripicco (1986ApJ...302L..49B) and Boesgaard & Budge
* (1988ApJ...332..410B) have clearly discrepant photometry in comparison to
* the Hyades MS fiducial in MV space. Therefore, their T_eff_ was not
* determined using our derived color relations because they would not be
* appropriate. Their final T_eff_ are thus based only on their
* Johnson & Knuckles (1955ApJ...122..209J) B-V and they have increased
* uncertainty.
*Note (4): In table 6, the source for vsini of the Boesgaard & Tripicco
* (1986ApJ...302L..49B) and Boesgaard & Budge (1988ApJ...332..410B) stars (3)
* are Kraft (1965ApJ...142..681K) but scaled to our measurements. The source
* for vsini of the Burkhart & Coupry (1989A&A...220..197B) stars (5) are
* Debernardi et al. (2000, J/A+A/354/881).
* In table 7, the source for v sin i of stars we did not observe is
* Mermilliod et al. (2009, J/A+A/498/949).
*Note (5): In table 6, the source for radial velocities of stars we did not
* observe is Perryman et al. (1998, J/A+A/331/81) (and references therein) and
* for vB 99 and vB 182 it is Griffin et al. (1988AJ.....96..172G).
* In table 7, the source for radial velocities of stars we did not
* observe is Mermilliod et al. (2009, J/A+A/498/949).
*Note (6): Reference as follows:
* 1 = Our WIYN/Hydra sample;
* 2 = Thorburn et al. (1993ApJ...415..150T);
* 3 = Boesgaard & Budge (1988ApJ...332..410B) and Boesgaard & Tripicco
* (1986ApJ...302L..49B);
* 4 = Soderblom et al. (1990AJ.....99..595S);
* 5 = Burkhart & Coupry (1989A&A...220..197B);
* 6 = Takeda et al. (2013PASJ...65...65T);
* 7 = Boesgaard et al. (2013ApJ...775...58B);
* 8 = Soderblom et al. (1993, J/AJ/106/1080);
* 9 = Burkhart & Coupry (1998A&A...338.1073B).
*Note (7): For each cluster, we define a "prime" subsample consisting of probable
* members with low e_Teff and no measurable spectroscopic evidence of
* contamination from a secondary (from fxcor), even if they are known binaries
* from other studies.
C=============================================================================
C Loading file 'table6.dat' ! Stellar Lithium Data for The Hyades
C Format for file interpretation
1 format(
+ A1,1X,A9,1X,A1,1X,F5.3,1X,F6.1,1X,F5.1,A1,1X,F6.2,1X,F4.2,1X,
+ F5.3,1X,F5.3,1X,F5.3,1X,I4,1X,I5,1X,A5,1X,A1,F5.1,1X,F5.2,1X,
+ F5.2,1X,I1,1X,A3)
C Effective file loading
open(unit=1,status='old',file=
+'table6.dat')
write(6,*) '....Loading file: table6.dat'
do i__=1,90
read(1,'(A105)')ar__
read(ar__,1)
+ Group(i__),ID(i__),n_ID(i__),v_B_V_mean(i__),Teff(i__),
+ e_Teff(i__),n_Teff(i__),EW_Li(i__),e_EW_Li(i__),A_Li(i__),
+ e_A_Li_S_N(i__),e_A_Li_Teff(i__),S_N(i__),Exp1(i__),Exp2(i__),
+ l_vsini(i__),vsini(i__),RV(i__),e_RV(i__),Ref(i__),Prime(i__)
if(ar__(28:32) .EQ. '') e_Teff(i__) = rNULL__
if(ar__(35:40) .EQ. '') EW_Li(i__) = rNULL__
if(ar__(42:45) .EQ. '') e_EW_Li(i__) = rNULL__
if(ar__(53:57) .EQ. '') e_A_Li_S_N(i__) = rNULL__
if(ar__(59:63) .EQ. '') e_A_Li_Teff(i__) = rNULL__
if(ar__(65:68) .EQ. '') S_N(i__) = iNULL__
if(ar__(70:74) .EQ. '') Exp1(i__) = iNULL__
if(ar__(83:87) .EQ. '') vsini(i__) = rNULL__
if(ar__(89:93) .EQ. '') RV(i__) = rNULL__
if(ar__(95:99) .EQ. '') e_RV(i__) = rNULL__
c ..............Just test output...........
write(6,1)
+ Group(i__),ID(i__),n_ID(i__),v_B_V_mean(i__),Teff(i__),
+ e_Teff(i__),n_Teff(i__),EW_Li(i__),e_EW_Li(i__),A_Li(i__),
+ e_A_Li_S_N(i__),e_A_Li_Teff(i__),S_N(i__),Exp1(i__),Exp2(i__),
+ l_vsini(i__),vsini(i__),RV(i__),e_RV(i__),Ref(i__),Prime(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table7.dat' ! Stellar Lithium Data for Praesepe
C Format for file interpretation
2 format(
+ A1,1X,A9,1X,A1,1X,F5.3,1X,F6.1,1X,F5.1,A1,1X,F6.2,1X,F4.2,1X,
+ F5.3,1X,F5.3,1X,F5.3,1X,I4,1X,I5,1X,A5,1X,A1,F5.1,1X,F5.2,1X,
+ F5.2,1X,I1,1X,A3)
C Effective file loading
open(unit=1,status='old',file=
+'table7.dat')
write(6,*) '....Loading file: table7.dat'
do i__=1,110
read(1,'(A105)')ar__1
read(ar__1,2)
+ Group_1(i__),ID_1(i__),n_ID_1(i__),v_B_V_mean_1(i__),
+ Teff_1(i__),e_Teff_1(i__),n_Teff_1(i__),EW_Li_1(i__),
+ e_EW_Li_1(i__),A_Li_1(i__),e_A_Li_S_N_1(i__),
+ e_A_Li_Teff_1(i__),S_N_1(i__),Exp1_1(i__),Exp2_1(i__),
+ l_vsini_1(i__),vsini_1(i__),RV_1(i__),e_RV_1(i__),Ref_1(i__),
+ Prime_1(i__)
if(ar__1(28:32) .EQ. '') e_Teff_1(i__) = rNULL__
if(ar__1(35:40) .EQ. '') EW_Li_1(i__) = rNULL__
if(ar__1(42:45) .EQ. '') e_EW_Li_1(i__) = rNULL__
if(ar__1(53:57) .EQ. '') e_A_Li_S_N_1(i__) = rNULL__
if(ar__1(59:63) .EQ. '') e_A_Li_Teff_1(i__) = rNULL__
if(ar__1(65:68) .EQ. '') S_N_1(i__) = iNULL__
if(ar__1(70:74) .EQ. '') Exp1_1(i__) = iNULL__
if(ar__1(83:87) .EQ. '') vsini_1(i__) = rNULL__
if(ar__1(89:93) .EQ. '') RV_1(i__) = rNULL__
if(ar__1(95:99) .EQ. '') e_RV_1(i__) = rNULL__
c ..............Just test output...........
write(6,2)
+ Group_1(i__),ID_1(i__),n_ID_1(i__),v_B_V_mean_1(i__),
+ Teff_1(i__),e_Teff_1(i__),n_Teff_1(i__),EW_Li_1(i__),
+ e_EW_Li_1(i__),A_Li_1(i__),e_A_Li_S_N_1(i__),
+ e_A_Li_Teff_1(i__),S_N_1(i__),Exp1_1(i__),Exp2_1(i__),
+ l_vsini_1(i__),vsini_1(i__),RV_1(i__),e_RV_1(i__),Ref_1(i__),
+ Prime_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end