Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/384/491 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-Aug-12
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/384/491 Fast-rotating nearby solar-type stars. I. (Cutispoto+, 2002-03)
*================================================================================
*Fast-rotating nearby solar-type stars.
*I. Spectral classification, vsini, Li abundances and X-ray luminosities
* Cutispoto G., Pastori L., Pasquini L., de Medeiros J.R., Tagliaferri G.,
* Andersen J.
* <Astron. Astrophys. 384, 491 (2002)>
* =2002A&A...384..491C
*II. Li abundances, vsini and X-ray luminosities relationships.
* Cutispoto G., Tagliaferri G., de Medeiros J.R., Pastori L., Pasquini L.,
* Andersen J.
* <Astron. Astrophys. 397, 987 (2003)>
* =2003A&A...397..987C
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Summary of stellar data (Paper I)
integer*4 nr__
parameter (nr__=173) ! Number of records
character*102 ar__ ! Full-size record
integer*4 HD (nr__) ! Program star HD number
character*2 m_HD (nr__) ! Multiplicty index on HD
real*4 Vmag (nr__) ! (mag) ? V magnitude
character*3 Bin (nr__) ! Binarity flag (VB or SB)
character*15 SpType (nr__) ! Inferred spectral type (1)
real*4 Dist (nr__) ! (pc) ? Trigonometric or photometric distance
character*1 u_Dist (nr__) ! Uncertainty flag on Dist
real*4 VMAG_1 (nr__) ! (mag) ? Absolute V magnitude
character*1 u_VMAG (nr__) ! Uncertainty flag on VMAG (1)
integer*4 vsini (nr__) ! (km/s) ? vsini from our spectra
character*1 u_vsini (nr__) ! Uncertainty flag on vsini (1)
character*1 n_vsini (nr__) ! [b] b: blended (2)
integer*4 vsini2 (nr__) ! (km/s) ? Second vsini value from our spectra
* for binaries
character*1 u_vsini2 (nr__) ! [:?] Uncertainty flag on vsini2, or
* ? for unknown (1)
integer*4 vsiniCO (nr__) ! (km/s) ? vsini from the CORAVEL database
character*1 u_vsiniCO (nr__) ! Uncertainty flag on vsiniCO (1)
character*1 n_vsiniCO (nr__) ! [b] b: blended (2)
integer*4 vsini2CO (nr__) ! (km/s) ? Second vsini value from the CORAVEL database
character*1 u_vsini2CO (nr__) ! [:?] Uncertainty flag on vsini2CO, or
* ? for unknown (1)
character*1 l_EWLi (nr__) ! Limit flag on EWLi
integer*4 EWLi (nr__) ! (0.1pm) ? Li line equivalent width in milli-Angstrom
character*1 l_EWLi2 (nr__) ! Limit flag on EWLi2
integer*4 EWLi2 (nr__) ! (0.1pm) ? Second Li line equivalent width for binaries
character*1 l_ALi (nr__) ! Limit flag on ALi
real*4 ALi (nr__) ! ? Li abundance (H abundance = 12)
character*1 n_ALi (nr__) ! [*] *: Abundance computed in LTE
character*1 l_ALi2 (nr__) ! Limit flag on ALi2
real*4 ALi2 (nr__) ! ? Second Li abundance for binaries
* (H abundance = 12)
character*1 n_ALi2 (nr__) ! [*] *: Abundance computed in LTE
real*4 LX (nr__) ! ([10-7W]) ? log of the X-ray luminosity in the
* 0.2-2.6keV band
character*1 Note (nr__) ! [*] *: Note explained in notes.dat file
*Note (1): Errors uncertainties:
* SpType : ":" denotes errors up to several spectral subclasses
* VMAG: ":" denotes values computed from the photometric parallax
* vsini: errors are of the order of +/-1km/s,
* the symbol ":" denotes errors up to +/-3km/s;
*Note (2): The symbol "b" denotes blended values for those VB or SB2 or SB3
* systems for which it was not possible to separate the contribution
* of the individual components
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Summary of stellar data for stars excluded from
the analysis (Paper I)
integer*4 nr__1
parameter (nr__1=25) ! Number of records
character*102 ar__1 ! Full-size record
integer*4 HD_1 (nr__1) ! Program star HD number
character*2 m_HD_1 (nr__1) ! Multiplicty index on HD
real*4 Vmag_2 (nr__1) ! (mag) ? V magnitude
character*3 Bin_1 (nr__1) ! Binarity flag (VB or SB)
character*15 SpType_1 (nr__1) ! Inferred spectral type (1)
real*4 Dist_1 (nr__1) ! (pc) ? Trigonometric or photometric distance
character*1 u_Dist_1 (nr__1) ! Uncertainty flag on Dist
real*4 VMAG_3 (nr__1) ! (mag) ? Absolute V magnitude
character*1 u_VMAG_1 (nr__1) ! Uncertainty flag on VMAG (1)
integer*4 vsini_1 (nr__1) ! (km/s) ? vsini from our spectra
character*1 u_vsini_1 (nr__1) ! Uncertainty flag on vsini (1)
character*1 n_vsini_1 (nr__1) ! [b] b: blended (2)
integer*4 vsini2_1 (nr__1) ! (km/s) ? Second vsini value from our spectra
* for binaries
character*1 u_vsini2_1 (nr__1) ! [:?] Uncertainty flag on vsini2, or
* ? for unknown (1)
integer*4 vsiniCO_1 (nr__1) ! (km/s) ? vsini from the CORAVEL database
character*1 u_vsiniCO_1(nr__1) ! Uncertainty flag on vsiniCO (1)
character*1 n_vsiniCO_1(nr__1) ! [b] b: blended (2)
integer*4 vsini2CO_1 (nr__1) ! (km/s) ? Second vsini value from the CORAVEL database
character*1 u_vsini2CO_1(nr__1) ! [:?] Uncertainty flag on vsini2CO, or
* ? for unknown (1)
character*1 l_EWLi_1 (nr__1) ! Limit flag on EWLi
integer*4 EWLi_1 (nr__1) ! (0.1pm) ? Li line equivalent width in milli-Angstrom
character*1 l_EWLi2_1 (nr__1) ! Limit flag on EWLi2
integer*4 EWLi2_1 (nr__1) ! (0.1pm) ? Second Li line equivalent width for binaries
character*1 l_ALi_1 (nr__1) ! Limit flag on ALi
real*4 ALi_1 (nr__1) ! ? Li abundance (H abundance = 12)
character*1 n_ALi_1 (nr__1) ! [*] *: Abundance computed in LTE
character*1 l_ALi2_1 (nr__1) ! Limit flag on ALi2
real*4 ALi2_1 (nr__1) ! ? Second Li abundance for binaries
* (H abundance = 12)
character*1 n_ALi2_1 (nr__1) ! [*] *: Abundance computed in LTE
real*4 LX_1 (nr__1) ! ([10-7W]) ? log of the X-ray luminosity in the
* 0.2-2.6keV band
character*1 Note_1 (nr__1) ! [*] *: Note explained in notes.dat file
*Note (1): Errors uncertainties:
* SpType : ":" denotes errors up to several spectral subclasses
* VMAG: ":" denotes values computed from the photometric parallax
* vsini: errors are of the order of +/-1km/s,
* the symbol ":" denotes errors up to +/-3km/s;
*Note (2): The symbol "b" denotes blended values for those VB or SB2 or SB3
* systems for which it was not possible to separate the contribution
* of the individual components
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! UBV(RI)c photometry from La Silla (Paper I)
integer*4 nr__2
parameter (nr__2=90) ! Number of records
character*37 ar__2 ! Full-size record
integer*4 HD_2 (nr__2) ! Program star HD number
character*2 m_HD_2 (nr__2) ! Multiplicty index on HD
real*4 Vmag_4 (nr__2) ! (mag) V magnitude
real*4 U_B (nr__2) ! (mag) U-B colour index
character*1 n_U_B (nr__2) ! Uncertainty flag on U-B
real*4 B_V (nr__2) ! (mag) B-V colour index
real*4 V_R (nr__2) ! (mag) V-R Cousins colour index
real*4 V_I (nr__2) ! (mag) V-I Cousins colour index
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table5.dat' ! Radial velocity determinations (Paper I)
integer*4 nr__3
parameter (nr__3=304) ! Number of records
character*36 ar__3 ! Full-size record
integer*4 HD_3 (nr__3) ! HD number
character*2 m_HD_3 (nr__3) ! Multiplicity index on HD (1)
character*10 Date (nr__3) ! ("DD/MM/YYYY") Observation date
real*4 RV (nr__3) ! (km/s) Radial velocity
real*4 e_RV (nr__3) ! (km/s) rms uncertainty on RV
character*2 Line (nr__3) ! [Ca Li] Spectral region from which the RV
* was computed (2)
*Note (1): The components of VBs and the components of SBs are indicated with
* capitals and lower case letters, respectively.
*Note (2): Spectral regions:
* Ca: Ca IIK, centered at 3938.5{AA}
* Li: Li I, centered at 6705.5{AA}
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'notes.dat' ! Individual notes (Paper I)
integer*4 nr__4
parameter (nr__4=403) ! Number of records
character*80 ar__4 ! Full-size record
integer*4 HD_4 (nr__4) ! HD number
character*73 Note_2 (nr__4) ! Text of the note
C=============================================================================
C Loading file 'table1.dat' ! Summary of stellar data (Paper I)
C Format for file interpretation
1 format(
+ 3X,I6,A2,1X,F5.2,1X,A3,1X,A15,1X,F6.1,A1,1X,F5.2,A1,1X,I3,A1,
+ A1,1X,I2,A1,1X,I3,A1,A1,1X,I2,A1,1X,A1,I3,1X,A1,I3,1X,A1,F4.1,
+ A1,1X,A1,F3.1,A1,1X,F4.1,1X,A1)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,173
read(1,'(A102)')ar__
read(ar__,1)
+ HD(i__),m_HD(i__),Vmag(i__),Bin(i__),SpType(i__),Dist(i__),
+ u_Dist(i__),VMAG_1(i__),u_VMAG(i__),vsini(i__),u_vsini(i__),
+ n_vsini(i__),vsini2(i__),u_vsini2(i__),vsiniCO(i__),
+ u_vsiniCO(i__),n_vsiniCO(i__),vsini2CO(i__),u_vsini2CO(i__),
+ l_EWLi(i__),EWLi(i__),l_EWLi2(i__),EWLi2(i__),l_ALi(i__),
+ ALi(i__),n_ALi(i__),l_ALi2(i__),ALi2(i__),n_ALi2(i__),LX(i__),
+ Note(i__)
if(ar__(13:17) .EQ. '') Vmag(i__) = rNULL__
if(ar__(39:44) .EQ. '') Dist(i__) = rNULL__
if(ar__(47:51) .EQ. '') VMAG_1(i__) = rNULL__
if(ar__(54:56) .EQ. '') vsini(i__) = iNULL__
if(ar__(60:61) .EQ. '') vsini2(i__) = iNULL__
if(ar__(64:66) .EQ. '') vsiniCO(i__) = iNULL__
if(ar__(70:71) .EQ. '') vsini2CO(i__) = iNULL__
if(ar__(75:77) .EQ. '') EWLi(i__) = iNULL__
if(ar__(80:82) .EQ. '') EWLi2(i__) = iNULL__
if(ar__(85:88) .EQ. '') ALi(i__) = rNULL__
if(ar__(92:94) .EQ. '') ALi2(i__) = rNULL__
if(ar__(97:100) .EQ. '') LX(i__) = rNULL__
c ..............Just test output...........
write(6,1)
+ HD(i__),m_HD(i__),Vmag(i__),Bin(i__),SpType(i__),Dist(i__),
+ u_Dist(i__),VMAG_1(i__),u_VMAG(i__),vsini(i__),u_vsini(i__),
+ n_vsini(i__),vsini2(i__),u_vsini2(i__),vsiniCO(i__),
+ u_vsiniCO(i__),n_vsiniCO(i__),vsini2CO(i__),u_vsini2CO(i__),
+ l_EWLi(i__),EWLi(i__),l_EWLi2(i__),EWLi2(i__),l_ALi(i__),
+ ALi(i__),n_ALi(i__),l_ALi2(i__),ALi2(i__),n_ALi2(i__),LX(i__),
+ Note(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! Summary of stellar data for stars excluded from
* the analysis (Paper I)
C Format for file interpretation
2 format(
+ 3X,I6,A2,1X,F5.2,1X,A3,1X,A15,1X,F6.1,A1,1X,F5.2,A1,1X,I3,A1,
+ A1,1X,I2,A1,1X,I3,A1,A1,1X,I2,A1,1X,A1,I3,1X,A1,I3,1X,A1,F4.1,
+ A1,1X,A1,F3.1,A1,1X,F4.1,1X,A1)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,25
read(1,'(A102)')ar__1
read(ar__1,2)
+ HD_1(i__),m_HD_1(i__),Vmag_2(i__),Bin_1(i__),SpType_1(i__),
+ Dist_1(i__),u_Dist_1(i__),VMAG_3(i__),u_VMAG_1(i__),
+ vsini_1(i__),u_vsini_1(i__),n_vsini_1(i__),vsini2_1(i__),
+ u_vsini2_1(i__),vsiniCO_1(i__),u_vsiniCO_1(i__),
+ n_vsiniCO_1(i__),vsini2CO_1(i__),u_vsini2CO_1(i__),
+ l_EWLi_1(i__),EWLi_1(i__),l_EWLi2_1(i__),EWLi2_1(i__),
+ l_ALi_1(i__),ALi_1(i__),n_ALi_1(i__),l_ALi2_1(i__),
+ ALi2_1(i__),n_ALi2_1(i__),LX_1(i__),Note_1(i__)
if(ar__1(13:17) .EQ. '') Vmag_2(i__) = rNULL__
if(ar__1(39:44) .EQ. '') Dist_1(i__) = rNULL__
if(ar__1(47:51) .EQ. '') VMAG_3(i__) = rNULL__
if(ar__1(54:56) .EQ. '') vsini_1(i__) = iNULL__
if(ar__1(60:61) .EQ. '') vsini2_1(i__) = iNULL__
if(ar__1(64:66) .EQ. '') vsiniCO_1(i__) = iNULL__
if(ar__1(70:71) .EQ. '') vsini2CO_1(i__) = iNULL__
if(ar__1(75:77) .EQ. '') EWLi_1(i__) = iNULL__
if(ar__1(80:82) .EQ. '') EWLi2_1(i__) = iNULL__
if(ar__1(85:88) .EQ. '') ALi_1(i__) = rNULL__
if(ar__1(92:94) .EQ. '') ALi2_1(i__) = rNULL__
if(ar__1(97:100) .EQ. '') LX_1(i__) = rNULL__
c ..............Just test output...........
write(6,2)
+ HD_1(i__),m_HD_1(i__),Vmag_2(i__),Bin_1(i__),SpType_1(i__),
+ Dist_1(i__),u_Dist_1(i__),VMAG_3(i__),u_VMAG_1(i__),
+ vsini_1(i__),u_vsini_1(i__),n_vsini_1(i__),vsini2_1(i__),
+ u_vsini2_1(i__),vsiniCO_1(i__),u_vsiniCO_1(i__),
+ n_vsiniCO_1(i__),vsini2CO_1(i__),u_vsini2CO_1(i__),
+ l_EWLi_1(i__),EWLi_1(i__),l_EWLi2_1(i__),EWLi2_1(i__),
+ l_ALi_1(i__),ALi_1(i__),n_ALi_1(i__),l_ALi2_1(i__),
+ ALi2_1(i__),n_ALi2_1(i__),LX_1(i__),Note_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4.dat' ! UBV(RI)c photometry from La Silla (Paper I)
C Format for file interpretation
3 format(3X,I6,A2,1X,F4.2,1X,F4.2,A1,1X,F4.2,1X,F4.2,1X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table4.dat')
write(6,*) '....Loading file: table4.dat'
do i__=1,90
read(1,'(A37)')ar__2
read(ar__2,3)
+ HD_2(i__),m_HD_2(i__),Vmag_4(i__),U_B(i__),n_U_B(i__),
+ B_V(i__),V_R(i__),V_I(i__)
c ..............Just test output...........
write(6,3)
+ HD_2(i__),m_HD_2(i__),Vmag_4(i__),U_B(i__),n_U_B(i__),
+ B_V(i__),V_R(i__),V_I(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table5.dat' ! Radial velocity determinations (Paper I)
C Format for file interpretation
4 format(3X,I6,A2,1X,A10,1X,F5.1,1X,F4.1,1X,A2)
C Effective file loading
open(unit=1,status='old',file=
+'table5.dat')
write(6,*) '....Loading file: table5.dat'
do i__=1,304
read(1,'(A36)')ar__3
read(ar__3,4)
+ HD_3(i__),m_HD_3(i__),Date(i__),RV(i__),e_RV(i__),Line(i__)
c ..............Just test output...........
write(6,4)
+ HD_3(i__),m_HD_3(i__),Date(i__),RV(i__),e_RV(i__),Line(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'notes.dat' ! Individual notes (Paper I)
C Format for file interpretation
5 format(I6,1X,A73)
C Effective file loading
open(unit=1,status='old',file=
+'notes.dat')
write(6,*) '....Loading file: notes.dat'
do i__=1,403
read(1,'(A80)')ar__4
read(ar__4,5)HD_4(i__),Note_2(i__)
c ..............Just test output...........
write(6,5)HD_4(i__),Note_2(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end