Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_AS/118/545 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.5, on 2013-Jun-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__=-1.e37) ! NULL real number
parameter (iNULL__=-2147483647) ! NULL int number
C=============================================================================
Cat. J/A+AS/118/545 Rotational velocities of F dwarfs (Groot+, 1996)
*================================================================================
*Rotational velocities of F dwarfs; application of the Fourier-Bessel
*transformation method
* Groot P.J., Piters A.J.M., van Paradijs J.
* <Astron. Astrophys. Suppl. Ser. 118, 545 (1996)>
* =1996A&AS..118..545G (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4' ! Observed stars B-V colours, spectral type
and rotational velocities
integer*4 nr__
parameter (nr__=179) ! Number of records
character*63 ar__ ! Full-size record
integer*4 HR ! [24/9106] HR Bright Star number of the star
character*1 m_HR ! Multiplicity index for binary
character*1 n_HR ! [a] A 'a' indicates binary of which both lines
* were seen
real*4 B_V ! (mag) ? B-V colour
character*6 Sp ! Spectral type
character*1 l_vsini1 ! Limit flag on vsini1
real*4 vsini1 ! (km/s) Projected equatorial rotational velocity as
* determined with the Fourier-Bessel
* transformation (FBT) method
real*4 e_vsini1 ! (km/s) ? rms uncertainty on vsini1
integer*4 vsini2 ! (km/s) ? Projected equatorial rotational velocity as
* determined with the convolution method
integer*4 e_vsini2 ! (km/s) ? rms uncertainty on vsini2
character*1 l_vsini3 ! Limit flag on vsini3
real*4 vsini3 ! (km/s) ? Projected equatorial rotational velocity as
* listed in the Bright Star Catalogue
real*4 vsini4 ! (km/s) ? Projected equatorial rotational velocity as
* determined by Soderblom or Slettebak
character*2 n_vsini4 ! [sl] 'sl' indicates Slettebak data
character*2 l_vsini5 ! [<= ] Limit flag on vsini5
integer*4 vsini5 ! (km/s) ? Projected equatorial rotational velocity as
* listed in catalogue of Uesugi and Fukuda
character*1 u_vsini5 ! Uncertainty flag on vsini5
integer*4 N ! ? Number of lines used in determination of
* rotational velocity with the FBT method
C=============================================================================
C Loading file 'table4' ! Observed stars B-V colours, spectral type
* and rotational velocities
C Format for file interpretation
1 format(
+ I4,A1,1X,A1,2X,F4.2,1X,A6,1X,A1,F5.1,1X,F4.1,1X,I3,1X,I2,1X,
+ A1,F5.1,1X,F5.1,A2,A2,I3,A1,1X,I2)
C Effective file loading
open(unit=1,file='table4', status='old')
write(6,*) '....Loading file: table4'
do i__=1,179
read(1,'(A63)')ar__
read(ar__,1)
+ HR,m_HR,n_HR,B_V,Sp,l_vsini1,vsini1,e_vsini1,vsini2,e_vsini2,
+ l_vsini3,vsini3,vsini4,n_vsini4,l_vsini5,vsini5,u_vsini5,N
if(ar__(10:13) .EQ. '') B_V = rNULL__
if(ar__(29:32) .EQ. '') e_vsini1 = rNULL__
if(ar__(34:36) .EQ. '') vsini2 = iNULL__
if(ar__(38:39) .EQ. '') e_vsini2 = iNULL__
if(ar__(42:46) .EQ. '') vsini3 = rNULL__
if(ar__(48:52) .EQ. '') vsini4 = rNULL__
if(ar__(57:59) .EQ. '') vsini5 = iNULL__
if(ar__(62:63) .EQ. '') N = iNULL__
c ..............Just test output...........
write(6,1)
+ HR,m_HR,n_HR,B_V,Sp,l_vsini1,vsini1,e_vsini1,vsini2,e_vsini2,
+ l_vsini3,vsini3,vsini4,n_vsini4,l_vsini5,vsini5,u_vsini5,N
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end