Conversion of standardized ReadMe file for
file /./ftp/cats/II/150A 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 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 ! Name of star
character*1 Cester ! [*] * if the star is present in Cester's
* (1979, 1980) catalogue & first supplement
real*8 Per ! (d) Period in days
integer*4 Plx ! (10-5arcsec) Parallax
real*8 Sep ! (solRad) Separation between the components
* in Solar radii
real*8 R1 ! (solRad) Radius of brighter component
real*8 R2 ! (solRad) Radius of fainter component
integer*4 RL1 ! (%) Percent of filling up of Roche-lobe
integer*4 RL2 ! (%) Percent of filling up of Roche-lobe
real*8 L1 ! (solLum) Absolute bolometric luminosity
real*8 L2 ! (solLum) Absolute bolometric luminosity
integer*4 T1 ! (K) Effective temperature
integer*4 T2 ! (K) Effective temperature
real*4 M ! (solMass) Sum of masses in solar units
real*4 q ! Mass ratio q = M2/M1
real*4 M1 ! (solMass) Mass of brighter component (solar masses)
character*1 Class ! *[ABEW] Traditional Classification
* from GCVS (Kukarkin et al, cat. <II/139>)
character*1 Kopal ! *[CDS] Kopal's geometrical classification
character*15 Sp ! *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,Cester,Per,Plx,Sep,R1,R2,RL1,RL2,L1,L2,T1,T2,M,q,M1,
+ Class,Kopal,Sp
c ..............Just test output...........
write(6,1)
+ Name,Cester,Per,Plx,Sep,R1,R2,RL1,RL2,L1,L2,T1,T2,M,q,M1,
+ Class,Kopal,Sp
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end