Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/437/375 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/437/375 Approximate elements of eclipsing binaries (Dryomova+, 2005)
*================================================================================
*Catalog of orbital elements, masses and luminosities of short-periodic
*RS CVn-type eclipsing systems.
* Dryomova G.N., Perevozkina E.L., Svechnikov M.A.
* <Astron. Astrophys. 437, 375 (2005)>
* =2005A&A...437..375D
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'catalog.dat' ! Orbital elements, masses and luminosities of
systems of type RS CVn
integer*4 nr__
parameter (nr__=33) ! Number of records
character*169 ar__ ! Full-size record
integer*4 Seq (nr__) ! Sequential number of the star system
character*8 Name (nr__) ! Name of precontact system
character*1 n_Name (nr__) ! [*] *: variable period
real*8 Period (nr__) ! (d) Orbital period of system
character*18 Sp (nr__) ! Spectra SP1+SP2 of the components (1)
real*4 q (nr__) ! Mass ratio of components
character*1 u_q (nr__) ! Uncertainty in q
integer*4 n_q (nr__) ! [0-2] Remarks on q (2)
real*4 A (nr__) ! (solRad) Orbital major semiaxis
real*4 M1 (nr__) ! (Sun) Mass of first component
character*1 u_M1 (nr__) ! Uncertainty in M1
real*4 M2 (nr__) ! (Sun) Mass of second component
character*1 u_M2 (nr__) ! Uncertainty in M2
real*4 R1 (nr__) ! (Sun) Radius of first component
character*1 u_R1 (nr__) ! Uncertainty in R1
real*4 R2 (nr__) ! (Sun) Radius of second component
character*1 u_R2 (nr__) ! Uncertainty in R2
real*4 Mbol1 (nr__) ! (mag) Absolute bolometric magnitudes of first
* component (3)
real*4 Mbol2 (nr__) ! (mag) Absolute bolometric magnitudes of second
* component (3)
real*4 r1_1 (nr__) ! Relative radius of first component
* in units of Orbital major semiaxis A
real*4 r2_1 (nr__) ! Relative radius of second component
* in units of Orbital major semiaxis A
real*4 L1 (nr__) ! Relative luminosity of massive component
* in units of L1+L2=1
character*1 n_L1 (nr__) ! [V] Effective wave length in L1
real*4 J1_J2 (nr__) ! Surface brightness ratio of more massive
* component to one of less massive (J1/J2)
character*1 n_J1_J2 (nr__) ! [V] Effective wavelength in J1/J2
real*4 i (nr__) ! (deg) Orbital inclination
character*3 W (nr__) ! Weight (4)
character*1 u_W (nr__) ! Uncertainty in W
real*4 Age (nr__) ! (Gyr) Age of precontact system estimated by
* isochrone method (5)
real*4 e_Age (nr__) ! (Gyr) ? rms uncertainty on Age
character*12 r_Name (nr__) ! References on the key articles,
* in refs.dat file
*Note (1): In the square brackets SP2 computed from the known spectrum SP1
* and the ratio J1/J2.
*Note (2): Note on mass ratio of components is numbered as follows:
* 0 = if q is found from double-lined spectra;
* 1 = if q is found from photometrical light-curve;
* 2 = if q is found by the relation (M-L) with the using mass function
* from single-lined spectrum.
*Note (3): Absolute bolometric magnitudes are calculated by their
* geometrical parameters, spectral and luminosity classes. We used
* effective temperature scale of Popper, 1980ARA&A..18..115.
*Note (4): Weight characterizes the reliability of evaluation of
* photometric and absolute elements in 10-ball scale (highly unreliable
* elements have weight 0; elements, evaluated with reliability,
* approaching to reliability of the evaluation of elements by exact
* methods over their light curves and radial velocity curves have W=9.
* For systems with certain meaning of SP1 the elements are defined more
* certainly and they have weight essentially larger than systems with
* uncertain component spectrum.
*Note (5): We used evolution models of Maeder & Meynet, 1988A&AS...76..411M.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'refs.dat' ! References
integer*4 nr__1
parameter (nr__1=112) ! Number of records
character*222 ar__1 ! Full-size record
integer*4 Ref (nr__1) ! Reference number
character*19 BibCode (nr__1) ! BibCode
character*35 Aut (nr__1) ! Author's name
character*160 Com (nr__1) ! Comments
C=============================================================================
C Loading file 'catalog.dat' ! Orbital elements, masses and luminosities of
* systems of type RS CVn
C Format for file interpretation
1 format(
+ I2,2X,A8,A1,2X,F11.9,2X,A18,1X,F4.2,A1,I1,2X,F4.2,2X,F4.2,A1,
+ 2X,F4.2,A1,2X,F4.2,A1,2X,F4.2,A1,2X,F4.2,2X,F4.2,2X,F5.3,2X,
+ F5.3,2X,F5.3,A1,2X,F5.2,A1,2X,F5.2,2X,A3,A1,2X,F4.2,2X,F4.2,
+ 2X,A12)
C Effective file loading
open(unit=1,status='old',file=
+'catalog.dat')
write(6,*) '....Loading file: catalog.dat'
do i__=1,33
read(1,'(A169)')ar__
read(ar__,1)
+ Seq(i__),Name(i__),n_Name(i__),Period(i__),Sp(i__),q(i__),
+ u_q(i__),n_q(i__),A(i__),M1(i__),u_M1(i__),M2(i__),u_M2(i__),
+ R1(i__),u_R1(i__),R2(i__),u_R2(i__),Mbol1(i__),Mbol2(i__),
+ r1_1(i__),r2_1(i__),L1(i__),n_L1(i__),J1_J2(i__),n_J1_J2(i__),
+ i(i__),W(i__),u_W(i__),Age(i__),e_Age(i__),r_Name(i__)
if(ar__(151:154) .EQ. '') e_Age(i__) = rNULL__
c ..............Just test output...........
write(6,1)
+ Seq(i__),Name(i__),n_Name(i__),Period(i__),Sp(i__),q(i__),
+ u_q(i__),n_q(i__),A(i__),M1(i__),u_M1(i__),M2(i__),u_M2(i__),
+ R1(i__),u_R1(i__),R2(i__),u_R2(i__),Mbol1(i__),Mbol2(i__),
+ r1_1(i__),r2_1(i__),L1(i__),n_L1(i__),J1_J2(i__),n_J1_J2(i__),
+ i(i__),W(i__),u_W(i__),Age(i__),e_Age(i__),r_Name(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'refs.dat' ! References
C Format for file interpretation
2 format(I3,1X,A19,1X,A35,3X,A160)
C Effective file loading
open(unit=1,status='old',file=
+'refs.dat')
write(6,*) '....Loading file: refs.dat'
do i__=1,112
read(1,'(A222)')ar__1
read(ar__1,2)Ref(i__),BibCode(i__),Aut(i__),Com(i__)
c ..............Just test output...........
write(6,2)Ref(i__),BibCode(i__),Aut(i__),Com(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end