Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/152/115 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-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/152/115 Pleiades members with K2 light curves. III. (Stauffer+, 2016)
*================================================================================
*Rotation in the Pleiades with K2. III. Speculations on origins and evolution.
* Stauffer J., Rebull L., Bouvier J., Hillenbrand L.A., Collier-Cameron A.,
* Pinsonneault M., Aigrain S., Barrado D., Bouy H., Ciardi D., Cody A.M.,
* David T., Micela G., Soderblom D., Somers G., Stassun K.G., Valenti J.,
* Vrba F.J.
* <Astron. J. 152, 115 (2016)>
* =2016AJ....152..115S (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Derived data for Pleiades members with K2 light
curves
integer*4 nr__
parameter (nr__=852) ! Number of records
character*79 ar__ ! Full-size record
integer*4 EPIC ! Ecliptic Plane Input Catalog number
character*23 Name ! Source identifier
real*4 Ksmag ! (mag) [3.77/15.53] Apparent Ks band Vega magnitude
real*4 v_V_K_0 ! (mag) [-9.11/9.21] Dereddened (V-Ks) color index
* (V-K_s_)_0_
real*4 Mass ! (Msun) [0.08/1.51]?=-9.99 Stellar mass
real*4 Mbol ! (mag) [1.08/11.3]?=-9 Bolometric magnitude (1)
real*4 Rad ! (Rsun) [0.19/2.37]?=-9 Stellar radius (1)
integer*4 Teff ! (K) [2823/8879]?=-9 Estimated effective temperature (2)
real*4 DVmag ! [-1.11/2.13]?=-9.99 Binary V band magnitude
* difference ({Delta}V)
real*4 E_B_V ! (mag) [0.22/0.53]? The (B-V) color excess (3)
*Note (1): We adopted the Pecaut & Mamajek 2013 (Cat. J/ApJS/208/9) bolometric
* corrections to estimate MBol, and then the Stefan-Boltzmann law to estimate
* radii.
*Note (2): The effective temperature estimates are based on the Pecaut & Mamajek
* 2013 (Cat. J/ApJS/208/9) Table5 data for main sequence stars, using B-V to
* estimate Teff for the bluest stars and (V-K_s_) to estimate Teff for the
* reddest stars, and a weighted average of the two estimates for G and K
* dwarfs.
*Note (3): Given for stars with significantly larger reddening that the rest
* which have to be treated separately.
C=============================================================================
C Loading file 'table3.dat' ! Derived data for Pleiades members with K2 light
* curves
C Format for file interpretation
1 format(
+ I9,1X,A23,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,I4,1X,
+ F5.2,1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,852
read(1,'(A79)')ar__
read(ar__,1)
+ EPIC,Name,Ksmag,v_V_K_0,Mass,Mbol,Rad,Teff,DVmag,E_B_V
if(ar__(76:79) .EQ. '') E_B_V = rNULL__
c ..............Just test output...........
write(6,1)
+ EPIC,Name,Ksmag,v_V_K_0,Mass,Mbol,Rad,Teff,DVmag,E_B_V
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end