Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/867/L8 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-May-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/ApJ/867/L8 Gaia kinematic data of runaway & field OB stars in SMC (Oey+, 2018)
*================================================================================
*Resolved kinematics of runaway and field OB stars in the Small Magellanic Cloud.
* Oey M.S., Jones J.D., Castro N., Zivick P., Besla G., Januszewski H.C.,
* Moe M., Kallivayalil N., Lennon D.J.
* <Astrophys. J., 867, L8 (2018)>
* =2018ApJ...867L...8O
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! *Kinematic data for RIOTS4 field OB stars
integer*4 nr__
parameter (nr__=315) ! Number of records
character*75 ar__ ! Full-size record
integer*4 ID (nr__) ! [107/84544] ID from Massey 2002, II/236 ;
* <[M2002] SMC NNNNNN> in Simbad
character*9 Group (nr__) ! Subgroup types (1)
real*4 trVel (nr__) ! (km/s) [2/287]? Transverse residual velocity (2)
real*4 ltrVel (nr__) ! (km/s) [2/295]? Transverse residual local velocity (2)
character*5 Qual (nr__) ! Flags for asymmetry and crowding (3)
real*4 RVel (nr__) ! (km/s) [-90/242]? Residual radial velocity (2)
integer*4 vRA (nr__) ! (km/s) [-41/523] RA velocity (4)
integer*4 e_vRA (nr__) ! (km/s) [9/40] Error in vRA (5)
integer*4 vDE (nr__) ! (km/s) [-493/-204] Dec velocity (4)
integer*4 e_vDE (nr__) ! (km/s) [7/29] Error vDec (5)
integer*4 lVelRA (nr__) ! (km/s) [166/415] RA local velocity (4)
integer*4 e_lVelRA (nr__) ! (km/s) [2/24] Error in vloc-RA (5)
integer*4 lVelDE (nr__) ! (km/s) [-425/-325] Dec local velocity (4)
integer*4 e_lVelDE (nr__) ! (km/s) [1/16] Error in vloc-Dec (5)
*Note (1): 'E', 'S', 'H' indicate EB (eclipsing binary), SB2 (double-lined
* spectroscopic binary), and HMXB (high-mass X-ray binaries),
* respectively; 'B', 'W', 'D' indicate Bar, Wing, and boundary stars,
* respectively; 'm' indicates object in multi-epoch spectroscopic sample.
*Note (2): Residual velocity relative to SMC and Wing systemic motion, including
* geometric correction. The vloc,trans values are computed relative to
* local velocity fields (see Section 3.2). RV errors are typically 10km/s.
*Note (3): 'a' indicates a difference in RA vs Dec fitted gaussian PSF >0.3pix,
* where typical PSF is 3pix. The second and third values give the number
* of stars within 1 arcsec and 1.5 arcsec, respectively.
*Note (4): RA and Dec velocities, and local RA and Dec velocities, computed from
* GAIA proper motions, without geometric or systematic velocity
* corrections.
*Note (5): GAIA measurement errors, not including systematic errors (see text).
C=============================================================================
C Loading file 'table1.dat' ! *Kinematic data for RIOTS4 field OB stars
C Format for file interpretation
1 format(
+ I5,1X,A9,1X,F6.2,1X,F6.2,1X,A5,1X,F6.2,1X,I3,1X,I2,1X,I4,1X,
+ I2,1X,I3,1X,I2,1X,I4,1X,I5)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,315
read(1,'(A75)')ar__
read(ar__,1)
+ ID(i__),Group(i__),trVel(i__),ltrVel(i__),Qual(i__),RVel(i__),
+ vRA(i__),e_vRA(i__),vDE(i__),e_vDE(i__),lVelRA(i__),
+ e_lVelRA(i__),lVelDE(i__),e_lVelDE(i__)
if(ar__(17:22) .EQ. '') trVel(i__) = rNULL__
if(ar__(24:29) .EQ. '') ltrVel(i__) = rNULL__
if(ar__(37:42) .EQ. '') RVel(i__) = rNULL__
c ..............Just test output...........
write(6,1)
+ ID(i__),Group(i__),trVel(i__),ltrVel(i__),Qual(i__),RVel(i__),
+ vRA(i__),e_vRA(i__),vDE(i__),e_vDE(i__),lVelRA(i__),
+ e_lVelRA(i__),lVelDE(i__),e_lVelDE(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end