Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/315/384 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 2024-Apr-19 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/315/384 Binarity among B-stars in NGC 6231 (Raboud, 1996) *================================================================================ *Binarity among B-stars in NGC 6231 * Raboud D. * <Astron. Astrophys. 315, 384 (1996)> * =1996A&A...315..384R (SIMBAD/NED BibCode) C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3' ! Results for all programme stars integer*4 nr__ parameter (nr__=97) ! Number of records character*144 ar__ ! Full-size record integer*4 Number (nr__) ! []? Star number from Seggewiss * (1968VeBon..79....1S) real*4 Vmag (nr__) ! (mag) []? V magnitude real*4 v_B_V_ (nr__) ! (mag) []? Color index integer*4 Teff (nr__) ! (K) []? Effective temperature calculated (1) character*3 n_Teff (nr__) ! Remark on Teff determination (2) integer*4 Vsini (nr__) ! (km/s) []? Rough determination of Vsini (3) character*3 r_Teff (nr__) ! Source of the photometry and Teff (4) real*8 JD (nr__) ! Julian Date of the observation real*4 RV (nr__) ! (km/s) []? Radial velocities character*4 n_RV (nr__) ! SBII characteristic of the star (5) real*4 e_RV (nr__) ! (km/s) []? Radial velocity uncertainties (6) real*4 RVdiff1 (nr__) ! (km/s) []? Radial velocity differences (7) real*4 RVdiff2 (nr__) ! (km/s) []? Radial velocity differences (7) real*4 RVdiff3 (nr__) ! (km/s) []? Radial velocity differences (8) real*4 RVdiff4 (nr__) ! (km/s) []? Radial velocity differences (8) *Note (1): See Sect. 3.2.1 of the paper. *Note (2): The question mark in brackets indicates that the determination is * possibly outside the validity range of the Q parameter (see Sect. 3.2.1). *Note (3): See Sect. 3.2.2. *Note (4): GE is for the Geneva photometry, pe for UBV photoelectric and pg for * UBV photographic photometry. The digits have the following significations: * 1 = Teff from Spectral Type estimated from equivalent widths * (Didelon 1982A&AS...50..199D) * 2 = V and [B-V] from Garrison & Schild (1979AJ.....84.1020G), * Teff from Van Genderen et al. (1984A&AS...58..537V) * 3 = Seggewiss (1968VeBon..79....1S) * 4 = V and [B-V] from Seggewiss (1968VeBon..79....1S), Teff calculated from * uvby photometry (Shobbrook 1983MNRAS.205.1229S) * 5 = Garrison & Schild (1979AJ.....84.1020G) * 6 = V and [B-V] from Garrison & Schild (1979AJ.....84.1020G), * Teff calculated from uvby photometry (Shobbrook 1983MNRAS.205.1229S) * 7 = V and [B-V] from Geneva photometry, * Teff from Spectral Type (Kilian et al. 1994A&A...284..437K) and * Vsini from Kilian et al. (1994A&A...284..437K) * 8 = V and [B-V] from Garrison & Schild (1979AJ.....84.1020G), * Teff from Spectral Type (Garrison & Schild 1979AJ.....84.1020G) * 9 = Heske & Wendker (1984A&AS...57..205H) *Note (5): See Sect. 6.1.4. *Note (6): Radial velocity uncertainties, obtained from the simulations * described in Sect. 4, using a fixed B1 synthetic spectrum for all cases, * and adapted in order to reproduce exactly the conditions of the radial * velocity determinations for the two runs (i.e. without the region between * 430 nm and 440 nm, see Sect. 3.3). *Note (7): Differences between radial velocities of column RV. *Note (8): Differential radial velocities obtained without any template * (see text). C============================================================================= C Loading file 'table3' ! Results for all programme stars C Format for file interpretation 1 format( + I4,8X,F6.3,5X,F5.3,5X,I5,1X,A3,4X,I3,6X,A3,12X,F11.3,8X,F5.1, + 2X,A4,2X,F3.1,7X,F5.1,2X,F4.1,5X,F5.1,2X,F4.1) C Effective file loading open(unit=1,status='old',file= +'table3') write(6,*) '....Loading file: table3' do i__=1,97 read(1,'(A144)')ar__ read(ar__,1) + Number(i__),Vmag(i__),v_B_V_(i__),Teff(i__),n_Teff(i__), + Vsini(i__),r_Teff(i__),JD(i__),RV(i__),n_RV(i__),e_RV(i__), + RVdiff1(i__),RVdiff2(i__),RVdiff3(i__),RVdiff4(i__) if(ar__(1:4) .EQ. '') Number(i__) = iNULL__ if(ar__(13:18) .EQ. '') Vmag(i__) = rNULL__ if(ar__(24:28) .EQ. '') v_B_V_(i__) = rNULL__ if(ar__(34:38) .EQ. '') Teff(i__) = iNULL__ if(ar__(47:49) .EQ. '') Vsini(i__) = iNULL__ if(ar__(90:94) .EQ. '') RV(i__) = rNULL__ if(ar__(103:105) .EQ. '') e_RV(i__) = rNULL__ if(ar__(113:117) .EQ. '') RVdiff1(i__) = rNULL__ if(ar__(120:123) .EQ. '') RVdiff2(i__) = rNULL__ if(ar__(129:133) .EQ. '') RVdiff3(i__) = rNULL__ if(ar__(136:139) .EQ. '') RVdiff4(i__) = rNULL__ c ..............Just test output........... write(6,1) + Number(i__),Vmag(i__),v_B_V_(i__),Teff(i__),n_Teff(i__), + Vsini(i__),r_Teff(i__),JD(i__),RV(i__),n_RV(i__),e_RV(i__), + RVdiff1(i__),RVdiff2(i__),RVdiff3(i__),RVdiff4(i__) c .......End.of.Just test output........... end do close(1) C============================================================================= stop end