Conversion of standardized ReadMe file for
file /./ftp/cats/II/150A 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-Sep-12
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. II/150A Parameters of eclipsing binaries (Brancewicz+, 1980)
*================================================================================
*A Catalogue of Parameters for Eclipsing Binaries
* Brancewicz H.K., Dworak T.Z.
* <Acta Astronomica 30, 501 (1980)>
* =1980AcA....30..501B
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'catalog.dat' ! The catalogue
integer*4 nr__
parameter (nr__=1048) ! Number of records
character*130 ar__ ! Full-size record
character*10 Name (nr__) ! Name of star
character*1 Cester (nr__) ! [*] * if the star is present in Cester's
* (1979, 1980) catalogue & first supplement
real*8 Per (nr__) ! (d) Period in days
integer*4 Plx (nr__) ! (10-5arcsec) Parallax
real*8 Sep (nr__) ! (solRad) Separation between the components
* in Solar radii
real*8 R1 (nr__) ! (solRad) Radius of brighter component
real*8 R2 (nr__) ! (solRad) Radius of fainter component
integer*4 RL1 (nr__) ! (%) Percent of filling up of Roche-lobe
integer*4 RL2 (nr__) ! (%) Percent of filling up of Roche-lobe
real*8 L1 (nr__) ! (solLum) Absolute bolometric luminosity
real*8 L2 (nr__) ! (solLum) Absolute bolometric luminosity
integer*4 T1 (nr__) ! (K) Effective temperature
integer*4 T2 (nr__) ! (K) Effective temperature
real*4 M (nr__) ! (solMass) Sum of masses in solar units
real*4 q (nr__) ! Mass ratio q = M2/M1
real*4 M1 (nr__) ! (solMass) Mass of brighter component (solar masses)
character*1 Class (nr__) ! *[ABEW] Traditional Classification
* from GCVS (Kukarkin et al, cat. <II/139>)
character*1 Kopal (nr__) ! *[CDS] Kopal's geometrical classification
character*15 Sp (nr__) ! *Spectrum
*Note on Class: See GCVS (cat. <II/139>), principal classes are:
* A = Algol type E = Eclipsing binary
* B = beta Lyr type W = W UMa type
*Note on Kopal: this class depends on Roche-lobe radii, as:
* C = Contact system (ex. W UMa)
* D = Detached system (ex. beta Lyr)
* S = Semi-detached system (ex. Algol = beta Per)
*Note on Sp:
* The colon denotes uncertain information, round brackets denote that
* the adopted spectrum for a fainter component was taken from Koch et
* al. (1970), and square brackets that the adopted spectrum was taken
* from Svechnikov (1969)
C=============================================================================
C Loading file 'catalog.dat' ! The catalogue
C Format for file interpretation
1 format(
+ A10,1X,A1,1X,F11.6,1X,I4,1X,F7.2,1X,F7.2,1X,F7.2,1X,I3,1X,I3,
+ 1X,F9.2,1X,F9.2,1X,I5,1X,I5,1X,F5.2,1X,F4.2,1X,F5.2,1X,A1,1X,
+ A1,1X,A15)
C Effective file loading
open(unit=1,status='old',file=
+'catalog.dat')
write(6,*) '....Loading file: catalog.dat'
do i__=1,1048
read(1,'(A130)')ar__
read(ar__,1)
+ Name(i__),Cester(i__),Per(i__),Plx(i__),Sep(i__),R1(i__),
+ R2(i__),RL1(i__),RL2(i__),L1(i__),L2(i__),T1(i__),T2(i__),
+ M(i__),q(i__),M1(i__),Class(i__),Kopal(i__),Sp(i__)
c ..............Just test output...........
write(6,1)
+ Name(i__),Cester(i__),Per(i__),Plx(i__),Sep(i__),R1(i__),
+ R2(i__),RL1(i__),RL2(i__),L1(i__),L2(i__),T1(i__),T2(i__),
+ M(i__),q(i__),M1(i__),Class(i__),Kopal(i__),Sp(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end