Conversion of standardized ReadMe file for
file /./ftp/cats/V/120 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-Mar-28 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/120 Catalog of early-type contact binaries (Bondarenko+, 1996) *================================================================================ *Catalogue of Photometric, Geometric, and Absolute elements of contact binary *stars of the early spectral type. * Bondarenko I.I., Perevozkina E.L. * <Publ. Odessa Obs. 9, 20 (1996)> * =1996IzOde...9...20B C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! Photometric elements integer*4 nr__ parameter (nr__=148) ! Number of records character*43 ar__ ! Full-size record integer*4 Seq ! Number of (CE)-system (G1) character*9 Name ! Designation in General Catalogue of Variable * Stars (4th Edition) real*4 Coef1 ! ? limb-darkening coefficient real*4 Coef2 ! ? limb-darkening coefficient character*1 n_Coef1 ! [*] *: Approximated values of darkness to * an edge according to the spectral type real*4 L1 ! ? Fractonal light (relative to L1+L2) real*4 J1_J2 ! ? Surface brightness ratio of components character*4 Phot ! Photometry system of light curve or * effective wavelength which was used for * photoelectric observation (2) *Note (2): the systems are the following: * UBVRI: Johnson colour system * ubvy: instrumental * viz: visual * pg: photographic c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! Geometrical and absolute elements integer*4 nr__1 parameter (nr__1=100) ! Number of records character*126 ar__1 ! Full-size record integer*4 Seq_1 ! Number of (CE)-system (G1) character*9 Name_1 ! Designation in General Catalogue of Variable * Stars character*7 Sp1 ! The spectral class of primary (2) character*7 Sp2 ! The spectral class of secondary (2) real*4 M1 ! (solMass) Mass of primary is determined by the * mass-luminosity relation for stars of the * main sequence real*4 M2 ! (solMass) Mass of secondary is calculated using a * photometric mass ratio q=M1/M2 real*4 q ! Photometric mass ratio derived from the light * curve solution (3) real*4 R1 ! (solRad) Radius of primary real*4 R2 ! (solRad) Radius of secondary real*4 a ! (solRad) Value of the orbital semimajor axis real*4 M1bol ! (mag) Absolute bolometric magnitude of primary integer*4 Wph ! Weight (10 ball system) (4) real*4 M2bol ! Absolute bolometric magnitude of secondary real*4 rad1f ! Fractional radius of the primary from * photometric solutions real*4 rad2f ! Fractional radius of the secondary from * photometric solutions real*4 i ! (deg) Inclination of the orbital axis to the sight integer*4 mu1 ! (%) Degree of filling of Roche-Lobe of primary integer*4 mu2 ! (%) Degree of filling of Roche-Lobe of secondary integer*4 Dist ! (pc) ? Distance to the system integer*4 Wabs ! Weight (10 ball system) (5) real*8 Per ! (d) Sideral orbital period character*1 n_Per ! [*] * - variability of period character*5 Type ! Type of eclipse (6) character*2 Method ! Method of recognition of photometric * solution (7) *Note (2): The spectral class of primary was obtained from spectroscopic * observations (in few cases from other relations of physical * characteristics of the system). The spectral class of secondary * appearing in brackets ([B1]) is calculated from photometric ratio * J1/J2, assuming that components radiate as absolutely black bodies. *Note (3): Values deduced on the assumption that the secondary fills * its Roche-lobe. *Note (4): Weight characterizes the quality of photometric element * determination. Details in Svechnikov M.A., 1969. *Note (5): Weight characterizes the degree of reliability of absolute element * system determination (when elements are determined inexact Wabs<1) *Note (6): Type of eclipse: * p. tr. -partial transit * p. oc. -partial occultation. *Note (7): Method of recognition of photometric solution: * * L-Lavrov * * K-Kopal Close Binary Systems.N.Y., 1959, Close Binary Systems * * R-Russel, 1912ApJ....35..315R; 1912ApJ....36...54R; * 1912ApJ....36..239R * * RM-Ressel-Merrill, 1952, The determinations of the elements of * eclipsing binaries. - Contribs Princeton Univ. Obs., 26. * * W-Wood, 1953, A finding list for observers of eclipsing variables. * Publ. Univ. Pennsilvania, 8. * * WD-Wilson-Deviney, 1977ApJ...211..853L c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'notes.dat' ! Individual notes integer*4 nr__2 parameter (nr__2=207) ! Number of records character*80 ar__2 ! Full-size record integer*4 Seq_2 ! Number of (CE)-system (G1) character*76 Note ! Text of the note C============================================================================= C Loading file 'table1.dat' ! Photometric elements C Format for file interpretation 1 format(I3,1X,A9,1X,F4.2,1X,F4.2,1X,A1,1X,F5.3,1X,F6.3,1X,A4) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,148 read(1,'(A43)')ar__ read(ar__,1)Seq,Name,Coef1,Coef2,n_Coef1,L1,J1_J2,Phot if(ar__(15:18) .EQ. '') Coef1 = rNULL__ if(ar__(20:23) .EQ. '') Coef2 = rNULL__ if(ar__(27:31) .EQ. '') L1 = rNULL__ if(ar__(33:38) .EQ. '') J1_J2 = rNULL__ c ..............Just test output........... write(6,1)Seq,Name,Coef1,Coef2,n_Coef1,L1,J1_J2,Phot c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table2.dat' ! Geometrical and absolute elements C Format for file interpretation 2 format( + I3,1X,A9,1X,A7,1X,A7,1X,F4.1,1X,F4.1,1X,F4.2,1X,F4.1,1X,F4.1, + 1X,F4.1,1X,F5.1,1X,I1,1X,F5.1,1X,F5.3,1X,F5.3,1X,F4.1,1X,I3, + 1X,I3,1X,I4,1X,I1,1X,F8.5,1X,A1,1X,A5,1X,A2) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,100 read(1,'(A126)')ar__1 read(ar__1,2) + Seq_1,Name_1,Sp1,Sp2,M1,M2,q,R1,R2,a,M1bol,Wph,M2bol,rad1f, + rad2f,i,mu1,mu2,Dist,Wabs,Per,n_Per,Type,Method if(ar__1(100:103) .EQ. '') Dist = iNULL__ c ..............Just test output........... write(6,2) + Seq_1,Name_1,Sp1,Sp2,M1,M2,q,R1,R2,a,M1bol,Wph,M2bol,rad1f, + rad2f,i,mu1,mu2,Dist,Wabs,Per,n_Per,Type,Method c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'notes.dat' ! Individual notes C Format for file interpretation 3 format(I3,1X,A76) C Effective file loading open(unit=1,status='old',file= +'notes.dat') write(6,*) '....Loading file: notes.dat' do i__=1,207 read(1,'(A80)')ar__2 read(ar__2,3)Seq_2,Note c ..............Just test output........... write(6,3)Seq_2,Note c .......End.of.Just test output........... end do close(1) C============================================================================= stop end