Conversion of standardized ReadMe file for
file /./ftp/cats/V/152 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-20
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/152 The DEBCat detached eclipsing binary catalogue (Southworth, 2015)
*================================================================================
*DEBCat: A Catalog of Detached Eclipsing Binary Stars.
* Southworth, J.
* <ASP Conference Series, Vol. 496, 164-165 (2015)>
* =2015ASPC..496..164S
* =2017yCat.5152....0S
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'debcat.dat' ! The DEBCat (2017/10/10 version)
integer*4 nr__
parameter (nr__=195) ! Number of records
character*241 ar__ ! Full-size record
character*26 Name (nr__) ! Name of the system
character*8 SpT1 (nr__) ! MK spectral type of the primary
character*8 SpT2 (nr__) ! MK spectral type of the secondary
real*8 Per (nr__) ! (d) [0.4/1551] Period
real*4 Vmag (nr__) ! (mag) [1.8/18.8] V-band magnitude
real*4 B_V (nr__) ! (mag) [-0.4/1.8] B-V color index
real*8 logM1 (nr__) ! ([Msun]) [-1/1.5] Log of mass of the primary
real*8 e_logM1 (nr__) ! ([Msun]) [0.0002/0.02] logM1 uncertainty
real*8 logM2 (nr__) ! ([Msun]) [-1/1.4] Log of mass of the secondary
real*8 e_logM2 (nr__) ! ([Msun]) [0.0002/0.02] logM2 uncertainty
real*8 logR1 (nr__) ! ([Rsun]) [-0.6/1.8] Log of radius of the primary
real*8 e_logR1 (nr__) ! ([Rsun]) [0.0007/0.03] logR1 uncertainty
real*8 logR2 (nr__) ! ([Rsun]) [-0.7/1.9] Log of radius of the secondary
real*8 e_logR2 (nr__) ! ([Rsun]) [0.0008/0.03] logR2 uncertainty
real*8 logg1 (nr__) ! ([cm/s2]) [1.3/5] Log of surface gravity of the primary
real*8 e_logg1 (nr__) ! ([cm/s2]) [0.001/0.2] logg1 uncertainty
real*8 logg2 (nr__) ! ([cm/s2]) [1.3/5.1] Log of surface gravity of the secondary
real*8 e_logg2 (nr__) ! ([cm/s2]) [0.001/0.2] logg2 uncertainty
real*8 logT1 (nr__) ! ([K]) [3.4/4.6] Log of effective temperature
* of the primary
real*8 e_logT1 (nr__) ! ([K]) [0.003/0.04] logt1 uncertainty
real*8 logT2 (nr__) ! ([K]) [3.4/4.6] Log of effective temperature
* of the secondary
real*8 e_logT2 (nr__) ! ([K]) [0.003/0.05] logT2 uncertainty
real*8 logL1 (nr__) ! ([Lsun]) [-2.3/5.2]?=-9.99 Log of luminosity of primary
real*8 e_logL1 (nr__) ! ([Lsun]) [0.002/0.2]?=-9.99 logL1 uncertainty
real*8 logL2 (nr__) ! ([Lsun]) [-2.4/5]?=-9.99 Log of luminosity of secondary
real*8 e_logL2 (nr__) ! ([Lsun]) [0.002/0.2]?=-9.99 logL2 uncertainty
real*8 v_M_H_ (nr__) ! ([-]) [-1.9/0.6]?=-9.99 Metallicity
real*8 e__M_H_ (nr__) ! ([-]) [0/0.3]?=-9.99 [M/H] uncertainty
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'refs.dat' ! References and notes
integer*4 nr__1
parameter (nr__1=195) ! Number of records
character*212 ar__1 ! Full-size record
character*26 Name_1 (nr__1) ! Name of the system
character*23 Auth (nr__1) ! First author's name(s) of the reference
character*19 BibCode (nr__1) ! Bibcode of the reference
character*19 Cat (nr__1) ! Catalog reference in VizieR
character*25 Auth2 (nr__1) ! First author's name(s) of Ref2 if any
character*19 BibCode2 (nr__1) ! Bibcode of reference 2
character*19 Cat2 (nr__1) ! Catalog reference in VizieR for Ref2
character*53 n_Name (nr__1) ! Note on the system
C=============================================================================
C Loading file 'debcat.dat' ! The DEBCat (2017/10/10 version)
C Format for file interpretation
1 format(
+ A26,1X,A8,1X,A8,1X,F8.3,1X,F5.2,1X,F5.2,1X,F7.4,1X,F7.4,1X,
+ F7.4,1X,F7.4,1X,F7.4,1X,F7.4,1X,F7.4,1X,F7.4,1X,F7.4,1X,F7.4,
+ 1X,F7.4,1X,F7.4,1X,F7.4,1X,F7.4,1X,F7.4,1X,F7.4,1X,F7.4,1X,
+ F7.4,1X,F7.4,1X,F7.4,1X,F7.4,1X,F7.4)
C Effective file loading
open(unit=1,status='old',file=
+'debcat.dat')
write(6,*) '....Loading file: debcat.dat'
do i__=1,195
read(1,'(A241)')ar__
read(ar__,1)
+ Name(i__),SpT1(i__),SpT2(i__),Per(i__),Vmag(i__),B_V(i__),
+ logM1(i__),e_logM1(i__),logM2(i__),e_logM2(i__),logR1(i__),
+ e_logR1(i__),logR2(i__),e_logR2(i__),logg1(i__),e_logg1(i__),
+ logg2(i__),e_logg2(i__),logT1(i__),e_logT1(i__),logT2(i__),
+ e_logT2(i__),logL1(i__),e_logL1(i__),logL2(i__),e_logL2(i__),
+ v_M_H_(i__),e__M_H_(i__)
c ..............Just test output...........
write(6,1)
+ Name(i__),SpT1(i__),SpT2(i__),Per(i__),Vmag(i__),B_V(i__),
+ logM1(i__),e_logM1(i__),logM2(i__),e_logM2(i__),logR1(i__),
+ e_logR1(i__),logR2(i__),e_logR2(i__),logg1(i__),e_logg1(i__),
+ logg2(i__),e_logg2(i__),logT1(i__),e_logT1(i__),logT2(i__),
+ e_logT2(i__),logL1(i__),e_logL1(i__),logL2(i__),e_logL2(i__),
+ v_M_H_(i__),e__M_H_(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'refs.dat' ! References and notes
C Format for file interpretation
2 format(A26,1X,A23,1X,A19,1X,A19,3X,A25,1X,A19,1X,A19,1X,A53)
C Effective file loading
open(unit=1,status='old',file=
+'refs.dat')
write(6,*) '....Loading file: refs.dat'
do i__=1,195
read(1,'(A212)')ar__1
read(ar__1,2)
+ Name_1(i__),Auth(i__),BibCode(i__),Cat(i__),Auth2(i__),
+ BibCode2(i__),Cat2(i__),n_Name(i__)
c ..............Just test output...........
write(6,2)
+ Name_1(i__),Auth(i__),BibCode(i__),Cat(i__),Auth2(i__),
+ BibCode2(i__),Cat2(i__),n_Name(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end