Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/601/A67 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/A+A/601/A67 Kepler solar-type stars modeling (Creevey+, 2017)
*================================================================================
*Characterizing solar-type stars from full-length Kepler data sets using the
*Asteroseismic Modeling Portal.
* Creevey O.L., Metcalfe T.S., Schultheis M., Salabert D., Bazot M.,
* Thevenin F., Mathur S., Xu H., Garcia R.A.
* <Astron. Astrophys. 601, A67 (2017)>
* =2017A&A...601A..67C (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'tablea.dat' ! Spectroscopic constraints and complementary data
of the Kepler targets and the Sun, reference
models and derived stellar properties using
VIRGO data (Tables A1-A3 of the paper)
integer*4 nr__
parameter (nr__=58) ! Number of records
character*265 ar__ ! Full-size record
character*12 Name (nr__) ! Kepler star name or Sun
integer*4 KIC (nr__) ! ? Kepler Input Catalogue identification
real*4 Rad (nr__) ! (Rsun) Radius
real*4 e_Rad (nr__) ! (Rsun) Radius error
real*4 Mass (nr__) ! (Msun) Mass
real*4 e_Mass (nr__) ! (Msun) Mass error
real*4 Age (nr__) ! (Gyr) Age
real*4 e_Age (nr__) ! (Gyr) Age error
real*4 Lum (nr__) ! (Lsun) Luminosity
real*4 e_Lum (nr__) ! (Lsun) Luminosity error
integer*4 Teff (nr__) ! (K) Model Effective temperature
integer*4 e_Teff (nr__) ! (K) Model Effective temperature error
real*4 logg (nr__) ! ([cm/s2]) Model surface gravity
real*4 e_logg (nr__) ! ([cm/s2]) Model surface gravity error
real*4 v_M_H_ (nr__) ! ([-]) Model metallicity
real*4 e__M_H_ (nr__) ! ([-]) Model metallicity error
real*4 Plx (nr__) ! (mas) ?=-9.99 Derived parallax
real*4 e_Plx (nr__) ! (mas) ?=-9.99 Derived parallax error
real*4 Vrot (nr__) ! (km/s) ?=-9.99 Derived rotational velocity
real*4 e_Vrot (nr__) ! (km/s) ?=-9.99 Derived rotational velocity error
real*4 AMPrad (nr__) ! (Rsun) Reference model mass
real*4 AMPmass (nr__) ! (Msun) Reference model radius
real*4 AMPage (nr__) ! (Gyr) Reference model age
real*4 AMPZini (nr__) ! Reference model initial heavy element
* mass fraction
real*4 AMPYini (nr__) ! Reference model initial helium mass fraction
real*4 AMPmlp (nr__) ! Reference model mixing-length parameter
real*4 AMPXc_Xi (nr__) ! Reference model ratio of central to
* initial hydrogen mass fraction
real*4 AMPa0 (nr__) ! (uHz) Reference model a0 for surface effect,
* see Eq. 7
real*4 Chi2Nr01 (nr__) ! Normalised chi-squared value for the
* r01 frequency ratios
real*4 Chi2Nr02 (nr__) ! Normalised chi-squared value for the
* r02 frequency ratios
real*4 Chi2Nsp (nr__) ! Normalised chi-squared value for the
* spectroscopic data
integer*4 Teffsp (nr__) ! (K) Input spectroscopic effective temperature (1)
integer*4 e_Teffsp (nr__) ! (K) Input spectroscopic effective temperature
* error (1)
real*4 v_M_H_sp (nr__) ! ([-]) ?=-9.99 Input spectroscopic metallicity (1)
real*4 e__M_H_sp (nr__) ! ([-]) ?=-9.99 Input spectroscopic metallicity
* error (1)
real*4 Ksmag (nr__) ! (mag) ?=-9.99 2MASS K band magnitude
real*4 e_Ksmag (nr__) ! (mag) ?=-9.99 2MASS K band magnitude error
real*4 AKs (nr__) ! (mag) ?=-9.99 Extinction in Ks band
real*4 e_AKs (nr__) ! (mag) ?=-9.99 Extinction error in Ks band
real*4 Prot (nr__) ! (d) ?=-9.99 Rotational period
real*4 e_Prot (nr__) ! (d) ?=-9.99 Rotational period error
integer*4 r_Teffsp (nr__) ! [1/7]? Reference to input spectroscopic
* data (2)
character*1 r_Prot (nr__) ! [AB-] Reference to rotational periods (2)
*Note (1): The asteroseismic data is from Lund et al. (2017ApJ...835..172L)
*Note (2): References as follows:
* Spectroscopic references:
* 1 = Buchhave & Latham (2015, Cat. J/ApJ/808/187)
* 2 = Ramirez et al. (2009, J/A+A/508/L17)
* 3 = Pincsonneault et al. (2012, Cat. J/ApJS/199/30)
* 4 = Huber et al. (2013, Cat. J/ApJ/767/127)
* 5 = Chaplin et al. (2014, Cat. J/ApJS/210/1)
* 6 = Pinsonneault et al. (2014, J/ApJS/215/19)
* 7 = Casagrande et al. (2014, Cat. J/ApJ/787/110)
* Rotation period references:
* A = Garcia et al. (2014, Cat. J/A+A/572/A34)
* B = Ceillier et al. (2016MNRAS.456..119C)
C=============================================================================
C Loading file 'tablea.dat' ! Spectroscopic constraints and complementary data
* of the Kepler targets and the Sun, reference
* models and derived stellar properties using
* VIRGO data (Tables A1-A3 of the paper)
C Format for file interpretation
1 format(
+ 1X,A12,I8,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.2,1X,F4.2,1X,
+ F4.2,1X,F4.2,1X,I4,2X,I3,3X,F5.3,1X,F5.3,1X,F5.2,1X,F4.2,2X,
+ F5.2,1X,F5.2,1X,F6.2,2X,F5.2,1X,F5.3,1X,F4.2,1X,F5.2,2X,F6.4,
+ 1X,F5.3,1X,F4.2,2X,F4.2,2X,F5.2,1X,F4.2,2X,F6.2,1X,F4.2,2X,I4,
+ 2X,I3,3X,F5.2,1X,F5.2,1X,F6.3,F6.3,F6.3,F6.3,1X,F5.2,1X,F5.2,
+ 1X,I1,5X,A1)
C Effective file loading
open(unit=1,status='old',file=
+'tablea.dat')
write(6,*) '....Loading file: tablea.dat'
do i__=1,58
read(1,'(A265)')ar__
read(ar__,1)
+ Name(i__),KIC(i__),Rad(i__),e_Rad(i__),Mass(i__),e_Mass(i__),
+ Age(i__),e_Age(i__),Lum(i__),e_Lum(i__),Teff(i__),e_Teff(i__),
+ logg(i__),e_logg(i__),v_M_H_(i__),e__M_H_(i__),Plx(i__),
+ e_Plx(i__),Vrot(i__),e_Vrot(i__),AMPrad(i__),AMPmass(i__),
+ AMPage(i__),AMPZini(i__),AMPYini(i__),AMPmlp(i__),
+ AMPXc_Xi(i__),AMPa0(i__),Chi2Nr01(i__),Chi2Nr02(i__),
+ Chi2Nsp(i__),Teffsp(i__),e_Teffsp(i__),v_M_H_sp(i__),
+ e__M_H_sp(i__),Ksmag(i__),e_Ksmag(i__),AKs(i__),e_AKs(i__),
+ Prot(i__),e_Prot(i__),r_Teffsp(i__),r_Prot(i__)
if(ar__(14:21) .EQ. '') KIC(i__) = iNULL__
if(ar__(259:259) .EQ. '') r_Teffsp(i__) = iNULL__
c ..............Just test output...........
write(6,1)
+ Name(i__),KIC(i__),Rad(i__),e_Rad(i__),Mass(i__),e_Mass(i__),
+ Age(i__),e_Age(i__),Lum(i__),e_Lum(i__),Teff(i__),e_Teff(i__),
+ logg(i__),e_logg(i__),v_M_H_(i__),e__M_H_(i__),Plx(i__),
+ e_Plx(i__),Vrot(i__),e_Vrot(i__),AMPrad(i__),AMPmass(i__),
+ AMPage(i__),AMPZini(i__),AMPYini(i__),AMPmlp(i__),
+ AMPXc_Xi(i__),AMPa0(i__),Chi2Nr01(i__),Chi2Nr02(i__),
+ Chi2Nsp(i__),Teffsp(i__),e_Teffsp(i__),v_M_H_sp(i__),
+ e__M_H_sp(i__),Ksmag(i__),e_Ksmag(i__),AKs(i__),e_AKs(i__),
+ Prot(i__),e_Prot(i__),r_Teffsp(i__),r_Prot(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end