Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/605/A111 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/A+A/605/A111 Surface rotation of Kepler red giant stars (Ceillier+, 2017)
*================================================================================
*Surface rotation of Kepler red giant stars.
* Ceillier T., Tayar J., Mathur S., Salabert D., Garcia R.A., Stello D.,
* Pinsonneault M.H., van Saders J., Beck P.G., Bloemen S.
* <Astron. Astrophys. 605, A111 (2017)>
* =2017A&A...605A.111C (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Stars with validated rotation periods
integer*4 nr__
parameter (nr__=361) ! Number of records
character*101 ar__ ! Full-size record
integer*4 KIC ! Kepler ID
real*4 numax ! (uHz) Frequency of maximum power
real*4 e_numax ! (uHz) ?=-1 Error on numax
real*4 dnu ! (uHz) Large frequency separation
real*4 e_dnu ! (uHz) Error on dnu
integer*4 Teff ! (K) Effective Temperature
integer*4 e_Teff ! (K) ?=-1 Error on Teff
real*4 logg ! ([cm/s2]) Logarithm of the surface gravity
real*4 e_logg ! ([cm/s2]) ?=-1 Error on logg
real*4 M ! (Msun) Mass of the star
real*4 e_M ! (Msun) ?=-1 Error on M
real*4 Prot ! (d) Surface Rotation Period
real*4 e_Prot ! (d) Error on Prot
real*4 Crowding ! Crowding of the aperture (G1)
real*4 Tcrit ! (d) Critical Period
real*4 Vsini ! (km/s) Projected velocity
real*4 e_Vsini ! (km/s) Error on Vsini
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Stars showing rotational modulation in their
light curve, but probably due to pollution
from a nearby star
integer*4 nr__1
parameter (nr__1=170) ! Number of records
character*92 ar__1 ! Full-size record
integer*4 KIC_1 ! Kepler ID
real*4 numax_1 ! (muHz) Frequency of maximum power
real*4 e_numax_1 ! (muHz) Error on numax
real*4 dnu_1 ! (muHz) Large frequency separation
real*4 e_dnu_1 ! (muHz) Error on dnu
integer*4 Teff_1 ! (K) Effective Temperature
integer*4 e_Teff_1 ! (K) ?=-1 Error on Teff
real*4 logg_1 ! ([cm/s2]) Logarithm of the surface gravity
real*4 e_logg_1 ! ([cm/s2]) ?=-1 Error on logg
real*4 M_1 ! (Msun) Mass of the star
real*4 e_M_1 ! (Msun) ?=-1 Error on M
real*4 Prot_1 ! (d) Surface Rotation Period
real*4 e_Prot_1 ! (d) Error on Prot
real*4 Crowding_1 ! Crowding of the aperture (G1)
real*4 Tcrit_1 ! (d) Critical Period
integer*4 Flag ! [1/2] Value of the flag (2)
*Note (2): Flag as follows:
* 1 = star has been discarded because of a low crowding value
* 2 = star has been discarded because the ratio P_rot_/T_crit_ is too small
C=============================================================================
C Loading file 'table1.dat' ! Stars with validated rotation periods
C Format for file interpretation
1 format(
+ I8,1X,F6.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,I4,1X,I3,1X,F5.2,1X,
+ F5.2,1X,F5.2,1X,F5.2,1X,F6.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,F5.2,
+ 1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,361
read(1,'(A101)')ar__
read(ar__,1)
+ KIC,numax,e_numax,dnu,e_dnu,Teff,e_Teff,logg,e_logg,M,e_M,
+ Prot,e_Prot,Crowding,Tcrit,Vsini,e_Vsini
c ..............Just test output...........
write(6,1)
+ KIC,numax,e_numax,dnu,e_dnu,Teff,e_Teff,logg,e_logg,M,e_M,
+ Prot,e_Prot,Crowding,Tcrit,Vsini,e_Vsini
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! Stars showing rotational modulation in their
* light curve, but probably due to pollution
* from a nearby star
C Format for file interpretation
2 format(
+ I8,1X,F6.2,1X,F5.2,1X,F5.2,1X,F4.2,1X,I5,1X,I3,1X,F5.2,1X,
+ F5.2,1X,F5.2,1X,F5.2,1X,F6.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,I1)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,170
read(1,'(A92)')ar__1
read(ar__1,2)
+ KIC_1,numax_1,e_numax_1,dnu_1,e_dnu_1,Teff_1,e_Teff_1,logg_1,
+ e_logg_1,M_1,e_M_1,Prot_1,e_Prot_1,Crowding_1,Tcrit_1,Flag
c ..............Just test output...........
write(6,2)
+ KIC_1,numax_1,e_numax_1,dnu_1,e_dnu_1,Teff_1,e_Teff_1,logg_1,
+ e_logg_1,M_1,e_M_1,Prot_1,e_Prot_1,Crowding_1,Tcrit_1,Flag
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end