Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/412/447 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/412/447 Velocities of {lambda} Bootis stars (Gerbaldi+, 2003)
*================================================================================
*The heterogeneous class of {lambda} Bootis stars.
* Gerbaldi M., Faraggiana R., Lai O.
* <Astron. Astrophys., 412, 447-464 (2003)>
* =2003A&A...412..447G
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4.dat' ! Radial velocity and notes given in the BSC
(Cat. <V/50>) and projected rotational
velocities (vsini) from various sources.
integer*4 nr__
parameter (nr__=136) ! Number of records
character*49 ar__ ! Full-size record
integer*4 HR ! ? HR (Cat. <V/50>) number
character*1 n_HR ! [*] Note (1)
integer*4 HD ! HD (Cat. <III/135>) number
integer*4 RV ! (km/s) ? Radial velocity
character*4 Note ! Notes from BSC (Cat. <V/50>) (2)
integer*4 Vrot ! (km/s) ? vsini form Royer et al., (2002,
* Cat. <J/A+A/381/105> and <J/A+A/393/897>
character*1 u_Vrot ! Uncertainty flag on VR
integer*4 VAM ! (km/s) ? vsini from Abt & Morrell, 1995,
* Cat. <J/ApJS/99/135>
character*1 u_VAM ! Uncertainty flag on VAM
character*2 l_VUF ! [<= ] Limit flag on VUF
integer*4 VUF ! (km/s) ? vsini from Uesugi & Fukuda, 1982, Revised
* Catalogue of Stellar Rotational Velocities
character*1 u_VUF ! [:] Uncertainty flag on VUF
character*1 n_VUF ! [*] *: UF gives this value for HD 11502.
character*2 l_VHR ! [<= ] Limit flag on VHR
integer*4 VHR ! ? vsini from BSC/CDS (<V/50>)
character*1 u_VHR ! Uncertainty flag on VHR
*Note (1): Notes:
* HD 11503 has a wrong HR number in BSC:
* HR 545 = HD 11502 and HR 546 = HD 11503.
* HD 193256: vsini=240km/s, according to Holweger & Rentzsch-Holm
* (1995A&A...303..819H).
*Note (2): BSC notes:
* V: radial velocity variability
* V?: suspected variability
* SB: spectroscopic binary
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table5.dat' ! *Reddening, atmospheric parameters and distance
in parsec computed from the Hipparcos parallaxes
integer*4 nr__1
parameter (nr__1=147) ! Number of records
character*61 ar__1 ! Full-size record
integer*4 HD_1 ! HD number
character*3 Rem1 ! Remark from the Hauck & Mermilliod Catalogue
* (1998, Cat. <II/215>) (1)
real*4 E_b_y ! (mag) ? Reddening
integer*4 Teff ! (K) ? Effective temperature computed with the Moon &
* Dworessky (1985MNRAS.217..305M, MD)
* programme according to the value of the group
real*4 logg ! ([cm/s2]) ? Surface gravity computed with the MD
* programme according to the value of the group
integer*4 Gr ! ? Group value (MD, 1985MNRAS.217..305M)
integer*4 TeffG ! (K) ? Effective temperature computed with the
* Kunzli et al. (1997, Cat. <J/A+AS/122/51>)
* programme
real*4 loggG ! ([cm/s2]) ? Surface gravity computed with the
* Kunzli et al. (1997, Cat. <J/A+AS/122/51>)
* programme
real*4 v_M_H_ ! ([Sun]) ? Metallicity
character*3 Rem2 ! Remarks from Geneva photometry (1)
integer*4 Dist ! (pc) ? Distance
character*2 UVCat ! UV flux category (3)
*Note (1): Variability (V) and indication of the component(s) observed
* for binaries (A or AB).
*Note (3): TD1 groups described in Sect. 10:
* 1 stars for which the observed flux is lower than the one predicted
* for solar abundances,
* 2 stars for which the observed flux is fitted by that computed with
* the solar abundance or close to it
* 3a stars for which the observed flux cannot be fitted by any model
* either because the UV flux is too high
* 3b stars for which the observed flux is distorted compared to the
* theoretical one
* 4 stars with an observed flux fitted by the computed one with metal
* underabundance
* 5 the spectra of these stars are fitted by spectra based on
* [M/H]=-1.0 except for the observed magnitude at 1565{AA} which
* is too low
* * indicates that the star has not been observed by this satellite
* - is given when no visual photometry is available and
* : when the TD1 values have a too large error to be used.
C=============================================================================
C Loading file 'table4.dat' ! Radial velocity and notes given in the BSC
* (Cat. <V/50>) and projected rotational
* velocities (vsini) from various sources.
C Format for file interpretation
1 format(
+ I4,A1,1X,I6,2X,I3,1X,A4,2X,I3,A1,1X,I3,A1,2X,A2,I3,A1,A1,1X,
+ A2,I3,A1)
C Effective file loading
open(unit=1,status='old',file=
+'table4.dat')
write(6,*) '....Loading file: table4.dat'
do i__=1,136
read(1,'(A49)')ar__
read(ar__,1)
+ HR,n_HR,HD,RV,Note,Vrot,u_Vrot,VAM,u_VAM,l_VUF,VUF,u_VUF,
+ n_VUF,l_VHR,VHR,u_VHR
if(ar__(1:4) .EQ. '') HR = iNULL__
if(ar__(15:17) .EQ. '') RV = iNULL__
if(ar__(25:27) .EQ. '') Vrot = iNULL__
if(ar__(30:32) .EQ. '') VAM = iNULL__
if(ar__(38:40) .EQ. '') VUF = iNULL__
if(ar__(46:48) .EQ. '') VHR = iNULL__
c ..............Just test output...........
write(6,1)
+ HR,n_HR,HD,RV,Note,Vrot,u_Vrot,VAM,u_VAM,l_VUF,VUF,u_VUF,
+ n_VUF,l_VHR,VHR,u_VHR
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table5.dat' ! *Reddening, atmospheric parameters and distance
* in parsec computed from the Hipparcos parallaxes
C Format for file interpretation
2 format(
+ I6,1X,A3,1X,F6.3,1X,I5,1X,F4.2,2X,I1,1X,I5,1X,F4.2,1X,F5.2,2X,
+ A3,2X,I3,1X,A2)
C Effective file loading
open(unit=1,status='old',file=
+'table5.dat')
write(6,*) '....Loading file: table5.dat'
do i__=1,147
read(1,'(A61)')ar__1
read(ar__1,2)
+ HD_1,Rem1,E_b_y,Teff,logg,Gr,TeffG,loggG,v_M_H_,Rem2,Dist,
+ UVCat
if(ar__1(12:17) .EQ. '') E_b_y = rNULL__
if(ar__1(19:23) .EQ. '') Teff = iNULL__
if(ar__1(25:28) .EQ. '') logg = rNULL__
if(ar__1(31:31) .EQ. '') Gr = iNULL__
if(ar__1(33:37) .EQ. '') TeffG = iNULL__
if(ar__1(39:42) .EQ. '') loggG = rNULL__
if(ar__1(44:48) .EQ. '') v_M_H_ = rNULL__
if(ar__1(56:58) .EQ. '') Dist = iNULL__
c ..............Just test output...........
write(6,2)
+ HD_1,Rem1,E_b_y,Teff,logg,Gr,TeffG,loggG,v_M_H_,Rem2,Dist,
+ UVCat
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end