Conversion of standardized ReadMe file for
file /./ftp/cats/V/42 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-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__=--2147483648.) ! NULL real number
parameter (iNULL__=(-2147483647-1)) ! NULL int number
integer idig ! testing NULL number
C=============================================================================
Cat. V/42 Close double stars (Svechnikov+, 1984)
*================================================================================
*Catalog of Orbital elements, Masses and Luminosities of close double stars
* Svechnikov M.A., Bessonova L.A.
* <Bull. Inform. CDS 26, 99 (1984)>
* =1984BICDS..26...99S SIMBAD/NED Reference
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Summary of close binaries
integer*4 nr__
parameter (nr__=246) ! Number of records
character*68 ar__ ! Full-size record
character*19 Name ! Designation of the Eclipsing Binary
character*8 HD ! Designation in Henry Draper Catalogue
character*7 Type ! Eclipsing binary type
character*9 Group ! of classification (see file "original.txt")
integer*4 Seq ! [1/246] Number of the system used in
* table2 and table3
character*4 Note ! e.g. other possible class (see "original.txt")
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Photometric elements
integer*4 nr__1
parameter (nr__1=483) ! Number of records
character*124 ar__1 ! Full-size record
integer*4 Seq_1 ! [1/246]+= Number of the system
character*12 Name_1 ! Designation of the System
real*8 Period ! (d) [0.2/40]? Period
character*2 n_Period ! [*?] '*' indicates a variability of Period
character*6 Type_1 ! of eclipse (see file "original.txt")
real*4 R1 ! ]0/1[? Mean fractional radius (2)
character*2 n_R1 ! [*:) ] Notes on R1 (1)
real*4 R2 ! ]0/1[? Mean fractional radius (2)
character*2 n_R2 ! [*:) ] Notes on R2 (1)
real*4 b_a ! [0/1]? Ratio of minor to major axis
character*2 n_b_a ! [*:) ] Notes on B/A (1)
real*4 i ! (deg) ]0/90]? Orbital inclination angle
character*2 n_i ! [*:) ] Notes on i (1)
real*4 LimbCoef ! [0/1]? Used limb-darkening coefficient (3)
character*2 n_LimbCoef ! [*:) ] Notes on LimbCoef (1)
real*4 L1 ! [0/1]? Fractional light (relative to L1+L2)
character*2 n_L1 ! [*:) ] Notes on L1 (1)
real*4 L2 ! [0/1]? Fractional light (relative to L1+L2)
character*2 n_L2 ! [*:) ] Notes on L2 (1)
real*8 J1_J2 ! ]0/]? Ratio of surface brightness (4)
character*2 n_J1_J2 ! [*:) ] Notes on J1/J2 (1)
character*6 Passband ! (0.1nm) Wavelength domain
character*1 l_Weight ! Limit flag (<) on Weight
integer*4 Weight ! [0/9]? on the reliability of photometric
* elements (See Svechnikov, ref 142)
character*3 Com ! Comments (5)
*Note (1): The '*' indicates a note (see file notes)
* the colon ':' a questionable value;
* bracket ')' very questionable values (the original left bracket
* has been removed)
*Note (2): The mean fractional radius (or the small equatorial semi-axes
* of ellipsoidal stars which are, within the limits of errors of
* evaluation of photometric elements, practically equal to the mean
* radii) relative to the orbital major semi-axis
*Note (3): if the values of the limb-darkening coefficient of the
* components are not equal, these are given in the notes (file notes)
*Note (4): ratio of surface brightness found from the photometric solution;
* if the geometric elements of the system obtained from several
* different (but very similar) photometric solutions are averaged,
* J1/J2 are calculated with the averaged values of the radii of
* the components.
*Note (5): Figures '1' and '2' designate the cases, when 2 essentially
* different variants of the photometric solutions for the same
* eclipsing system exist, and when we are not able to prefer one
* of these cases (as a rule, however, only those photometric
* solutions are given) which seem to be (in opinion of the authors
* of this catalogue) the most realistic.
* The data concerning the other photometric solutions (or corresponding
* bibliographic references) are mentioned in the notes.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Absolute elements
integer*4 nr__2
parameter (nr__2=352) ! Number of records
character*92 ar__2 ! Full-size record
integer*4 Seq_2 ! [1/246]+= Number of the system
character*18 Sp ! Spectral classes
real*4 q ! ]0/1]? Mass ratio M2/M1 (2)
character*2 n_q ! [*:) ] Note on q (1)
real*4 M1 ! (solMass) [0.1/60]? Mass of first component
character*1 q_M1 ! Uncertainty flag (:) on M1
real*4 M2 ! (solMass) [0.1/60]? Mass of second component
character*1 q_M2 ! Uncertainty flag (:) on M2
real*4 a ! (solRad) ? Orbital semi-major axis
real*4 Rad1 ! (solRad) ? Radius of first star
character*2 n_Rad1 ! [*:) ] Note on Rad1 (1)
real*4 Rad2 ! (solRad) ? Radius of second component
character*1 q_Rad2 ! Uncertainty flag (:) on Rad2
real*4 Mbol1 ! (mag) ? Absolute Bolometric magnitude
* of component 1 (3)
character*1 n_Mbol1 ! [!)] Note on Mbol1 (1)
real*4 Mbol2 ! (mag) ? Absolute Bolometric magnitude
* of component 2 (3)
character*2 n_Mbol2 ! [!:*) ] Note on Mbol2 (1)
character*1 l_W2 ! Lower limit (<) on W2
integer*4 W2 ! ? Weight on the accuracy of determination
* of the absolute elements. (4)
character*6 Comment ! Comments (5)
*Note (1): The '*' indicates a note (see file notes)
* the colon ':' a questionable value;
* the bracket ')' very questionable values (the original left bracket
* has been removed)
* exclamation '!' is not explained in the "original.txt" file
*Note (2): Mass-ratios found spectroscopically, from double-lined
* spectroscopic orbit, are not accompanied by additional marks.
* The values of q estimated by means of the so-called 'M-L method',
* using the mass-function obtained from single-lined spectral orbit,
* and assuming,that primary component satisfies the mass-luminosity
* relation for the main-sequence-stars (see Kopal, ref 371;823;
* Svechnikov, ref 142), are enclosed in brackets. The values of q
* estimated by some other method, as well as averaged values oF
* q, are accompanied by the asterisks.
*Note (3):
* The absolute bolometric magnitudes are computed using the
* geometric and spectroscopic characteristics of the components
* yielded in the previous columns; the stellar effective
* temperatures given in Popper's (ref 1615) survey (and based mainly
* on the scale of effective temperatures and bolometric corrections
* of Hayes, ref 1623) are used.
*Note (4): see Svechnikov, ref 142
*Note (5):
* Figures '1' and '2' indicate the cases, when 2 different variants
* of the absolute elements are obtained (corresponding to 'case 1'
* and 'case 2' of the evaluation of photometric elements or to 2
* considerably different estimates of q). Also,in this column, the
* number of the group for US-systems is indicated as well as some
* other important remarks.
C=============================================================================
C Loading file 'table1.dat' ! Summary of close binaries
C Format for file interpretation
1 format(1X,A19,5X,A8,A7,6X,A9,3X,I3,3X,A4)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,246
read(1,'(A68)')ar__
read(ar__,1)Name,HD,Type,Group,Seq,Note
c ..............Just test output...........
write(6,1)Name,HD,Type,Group,Seq,Note
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! Photometric elements
C Format for file interpretation
2 format(
+ I3,1X,A12,1X,F12.9,A2,1X,A6,2X,F6.4,A2,2X,F6.4,A2,1X,F5.3,A2,
+ 1X,F5.2,A2,1X,F4.2,A2,2X,F6.4,A2,1X,F6.4,A2,F7.3,A2,2X,A6,1X,
+ A1,I1,1X,A3)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,483
read(1,'(A124)')ar__1
read(ar__1,2)
+ Seq_1,Name_1,Period,n_Period,Type_1,R1,n_R1,R2,n_R2,b_a,n_b_a,
+ i,n_i,LimbCoef,n_LimbCoef,L1,n_L1,L2,n_L2,J1_J2,n_J1_J2,
+ Passband,l_Weight,Weight,Com
if(ar__1(18:29) .EQ. '') Period = rNULL__
if(ar__1(41:46) .EQ. '') R1 = rNULL__
if(ar__1(51:56) .EQ. '') R2 = rNULL__
if(ar__1(60:64) .EQ. '') b_a = rNULL__
if(ar__1(68:72) .EQ. '') i = rNULL__
if(ar__1(76:79) .EQ. '') LimbCoef = rNULL__
if(ar__1(84:89) .EQ. '') L1 = rNULL__
if(ar__1(93:98) .EQ. '') L2 = rNULL__
if(ar__1(101:107) .EQ. '') J1_J2 = rNULL__
if(ar__1(120:120) .EQ. '') Weight = iNULL__
c ..............Just test output...........
write(6,2)
+ Seq_1,Name_1,Period,n_Period,Type_1,R1,n_R1,R2,n_R2,b_a,n_b_a,
+ i,n_i,LimbCoef,n_LimbCoef,L1,n_L1,L2,n_L2,J1_J2,n_J1_J2,
+ Passband,l_Weight,Weight,Com
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! Absolute elements
C Format for file interpretation
3 format(
+ I3,1X,A18,1X,F5.3,A2,1X,F5.2,A1,1X,F5.2,A1,1X,F5.2,1X,F5.2,A2,
+ 1X,F6.3,A1,1X,F6.2,A1,1X,F6.2,A2,1X,A1,I1,A6)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,352
read(1,'(A92)')ar__2
read(ar__2,3)
+ Seq_2,Sp,q,n_q,M1,q_M1,M2,q_M2,a,Rad1,n_Rad1,Rad2,q_Rad2,
+ Mbol1,n_Mbol1,Mbol2,n_Mbol2,l_W2,W2,Comment
if(ar__2(24:28) .EQ. '') q = rNULL__
if(ar__2(32:36) .EQ. '') M1 = rNULL__
if(ar__2(39:43) .EQ. '') M2 = rNULL__
if(ar__2(46:50) .EQ. '') a = rNULL__
if(ar__2(52:56) .EQ. '') Rad1 = rNULL__
if(ar__2(60:65) .EQ. '') Rad2 = rNULL__
if(ar__2(68:73) .EQ. '') Mbol1 = rNULL__
if(ar__2(76:81) .EQ. '') Mbol2 = rNULL__
if(ar__2(86:86) .EQ. '') W2 = iNULL__
c ..............Just test output...........
write(6,3)
+ Seq_2,Sp,q,n_q,M1,q_M1,M2,q_M2,a,Rad1,n_Rad1,Rad2,q_Rad2,
+ Mbol1,n_Mbol1,Mbol2,n_Mbol2,l_W2,W2,Comment
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end