Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/618/A132 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 2026-Sep-06
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/618/A132 Pre-main sequence stars evolutionary models. II (Kunitomo+, 2018)
*================================================================================
*Revisiting the pre-main-sequence evolution of stars.
*II. Consequences of planet formation on stellar surface composition.
* Kunitomo M., Guillot T., Ida S., Takeuchi T.
* <Astron. Astrophys. 618, A132 (2018)>
* =2018A&A...618A.132K (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'tablec1.dat' ! *Stellar evolutionary models for 77 models
integer*4 nr__
parameter (nr__=4200) ! Number of records
character*119 ar__ ! Full-size record
real*4 xi (nr__) ! Efficiency of accretion heat (See Eq. 2) (1)
integer*4 XD (nr__) ! (10-6) Deuterium content in parts per million (1)
real*4 mke (nr__) ! Distribution of acc. heat (See Sect. 3.1) (1)
real*4 Mfinal (nr__) ! (Msun) Final mass (1)
real*4 Age (nr__) ! (yr) Stellar age
real*4 Mstar (nr__) ! (Msun) Stellar mass
real*4 MCZ (nr__) ! (Msun) Mass of stellar surface convective zone
real*4 MCZeff (nr__) ! (Msun) ?=-1 Effective convective zone mass (See Eq. 6)
real*4 Rstar (nr__) ! (Msun) Stellar radius
real*4 Lstar (nr__) ! (Msun) Stellar luminosity
real*4 Teff (nr__) ! (K) Stellar effective temperature
*Note (1): Models presented:
* xi = 0.5, XD = 28, mke = -1, Mfinal = 0.5-1.5
* xi = 0.1, XD = 28, mke = -1, Mfinal = 0.5-1.5
* xi = 0, XD = 28, mke = -1, Mfinal = 0.5-1.5
* xi = 0.1, XD = 28, mke = 0.1, Mfinal = 0.5-1.5
* xi = 0.5, XD = 20, mke = -1, Mfinal = 0.5-1.5
* xi = 0.1, XD = 20, mke = -1, Mfinal = 0.5-1.5
* xi = 0, XD = 20, mke = -1, Mfinal = 0.5-1.5
C=============================================================================
C Loading file 'tablec1.dat' ! *Stellar evolutionary models for 77 models
C Format for file interpretation
1 format(
+ 1X,F3.1,2X,I2,2X,F4.1,2X,F3.1,3X,E7.2,4X,E11.6,4X,E11.6,3X,
+ E12.6,4X,E11.6,4X,E11.6,4X,E11.6)
C Effective file loading
open(unit=1,status='old',file=
+'tablec1.dat')
write(6,*) '....Loading file: tablec1.dat'
do i__=1,4200
read(1,'(A119)')ar__
read(ar__,1)
+ xi(i__),XD(i__),mke(i__),Mfinal(i__),Age(i__),Mstar(i__),
+ MCZ(i__),MCZeff(i__),Rstar(i__),Lstar(i__),Teff(i__)
c ..............Just test output...........
write(6,1)
+ xi(i__),XD(i__),mke(i__),Mfinal(i__),Age(i__),Mstar(i__),
+ MCZ(i__),MCZeff(i__),Rstar(i__),Lstar(i__),Teff(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end