Conversion of standardized ReadMe file for
file /./ftp/cats/J/other/A_ARV/18.67 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-Apr-18 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/other/A+ARV/18.67 Accurate masses and radii of normal stars (Torres+, 2010) *================================================================================ *Accurate masses and radii of normal stars: modern results and applications. * Torres G., Andersen J., Gimenez A. * <Astron. Astrophys. Rev., 18, 67-126 (2010)> * =2010A&ARv..18...67T C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! Observed parameters and derived quantities for 95 binary systems, with mean errors integer*4 nr__ parameter (nr__=190) ! Number of records character*121 ar__ ! Full-size record integer*4 Seq ! [1/95] System sequential number character*15 Name ! Star name of the component real*4 Per ! (d) Period of the component character*1 u_Per ! Uncertainty flag on Per character*1 x_Per ! [y] y if period in years character*1 Comp ! [AB] Component character*8 SpType ! MK spectral type of the component real*8 Mass ! (solMass) Mass of the component real*8 e_Mass ! (solMass) rms uncertainty on Mass real*8 Rad ! (solRad) Radius of the component real*4 e_Rad ! (solRad) rms uncertainty on Rad integer*4 Teff ! (K) Effective temperature of the component integer*4 e_Teff ! (K) rms uncertainty on Teff real*4 logg ! ([cm/s2]) Surface gravity of the component real*8 e_logg ! ([cm/s2]) rms uncertainty on logg real*4 logL ! ([solLum]) Luminosity of the component real*4 e_logL ! ([solLum]) rms uncertainty on logL real*4 VMAG ! (mag) Absolute V magnitude of the component real*4 e_VMAG ! (mag) rms uncertainty on on VMAG c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table2.dat' ! Other parameters and references for the 95 binary systems integer*4 nr__1 parameter (nr__1=95) ! Number of records character*190 ar__1 ! Full-size record integer*4 Seq_1 ! [1/95] System sequential number character*14 Name_1 ! Name of the system character*1 n_Name ! [*] Pre-main-sequence phase (1) real*8 Dist ! (pc) Heliocentric distance real*8 e_Dist ! (pc) rms uncertainty on Dist real*4 E_B_V ! (mag) ? Interstellar redenning real*4 e_E_B_V ! (mag) ? rms uncertainty on E(B-V) real*4 vAsini ! (km/s) ? Rotation velocity of A component real*4 e_vAsini ! (km/s) ? rms uncertainty on vAsini real*4 vBsini ! (km/s) ? Rotation velocity of B component real*4 e_vBsini ! (km/s) ? rms uncertainty on vBsini real*4 v_Fe_H_ ! ([Sun]) ? Metallicity real*4 e__Fe_H_ ! ([Sun]) ? rms uncertainty on [Fe/H] character*1 n__Fe_H_ ! [*] Adopted value of [Fe/H] (2) real*4 logAge ! ([yr]) Age of the system character*1 u_logAge ! Uncertainty flag on Age character*19 Ref1 ! Reference (BibCode) character*19 Ref2 ! Reference (BibCode) character*19 Ref3 ! Reference (BibCode) character*19 Ref4 ! Reference (BibCode) character*19 Ref5 ! Reference (BibCode) *Note (1): An asterisk after the name indicates one or both components are * in the pre-main sequence phase. *Note (2): An asterisk after the metallicity indicates a value adopted from * the binary's parent population (cluster or galaxy). c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3.dat' ! Systems with eccentric orbits, and systems with apsidal motion integer*4 nr__2 parameter (nr__2=44) ! Number of records character*115 ar__2 ! Full-size record integer*4 Seq_2 ! [1/95] System sequential number character*14 Name_2 ! Name of the system real*8 Ecc ! Eccentricity real*8 e_Ecc ! rms uncertainty on Ecc real*8 dw_dt ! ? Aspidal motion rate in deg/cycle unit real*8 e_dw_dt ! ? rms uncertainty in dw/dt in deg/cycle unit real*4 logK2 ! ? Internal structure constant (1) real*4 e_logK2 ! ? rms uncertainty on logK2 integer*4 Flag ! [0/3]? Peculiarities (2) character*19 Ref ! Reference (BibCode) character*32 n_Ref ! Complete reference if having not a bibcode *Note (1): indicative of the degree of central density concentration * of the component stars. *Note (2): Flag as follows: * 0 = Apsidal motion not detected * 1 = Rotational axes misaligned * 2 = Apsidal motion dominated by General Relativity component * 3 = Significance of apsidal motion too low for reliable * determination of logk2 c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table5.dat' ! Parameters for 23 astrometric binary systems integer*4 nr__3 parameter (nr__3=23) ! Number of records character*336 ar__3 ! Full-size record integer*4 Seq_3 ! [1/23] Sequential number character*14 Name1 ! Name of the primary real*4 Vmag_1 ! (mag) V magnitude of the system real*8 Plx ! (mas) Orbital parallax real*4 e_Plx ! (mas) rms uncertainty on Plx real*4 Dist_1 ! (pc) Heliocentric distance of the system real*4 e_Dist_1 ! (pc) rms uncertainty on Dist character*2 cp1 ! [A Aa] Component for primary character*5 SpT1 ! MK spectral type of primary real*4 Mass1 ! (solMass) Mass of the primary real*4 e_Mass1 ! (solMass) rms uncertainty on Mass1 real*4 logL1 ! ([solLum]) Luminosity of the primary character*1 u_logL1 ! Uncertainty flag on logL1 real*4 e_logL1 ! ([solLum]) ? rms uncertainty on logL1 integer*4 Teff1 ! (K) ? Effective temperature of the primary integer*4 e_Teff1 ! (K) ? rms uncertainty on Teff real*4 Rad1 ! (solRad) ? Radius of the primary real*4 e_Rad1 ! (solRad) ? rms uncertainty on Rad1 character*19 Ref_1 ! Reference (Bibcode) character*19 Ref2_1 ! Reference (Bibcode) character*11 Name2 ! Name of the secondary real*8 Per_1 ! (d) Period of the system character*1 x_Per_1 ! [y] y if period in years real*8 a ! (mas) ? Semi-major axis of the system real*4 e_a ! (mas) ? rms uncertainty on a real*4 v_Fe_H__1 ! ? Metallicity of the system real*4 e__Fe_H__1 ! ? rms uncertainty on [Fe/H] character*2 cp2 ! [Ab B Ba] Component for secondary character*5 SpT2 ! MK spectral type of the secondary real*4 Mass2 ! (solMass) Mass of the secondary real*4 e_Mass2 ! (solMass) rms uncertainty on Mass2 real*4 logL2 ! ([solLum]) ? Luminosity of the secondary character*1 u_logL2 ! Uncertainty flag on logL2 real*4 e_logL2 ! ([solLum]) ? rms uncertainty on the logL2 integer*4 Teff2 ! (K) ? Effective temperature of the secondary integer*4 e_Teff2 ! (K) ? rms uncertainty on Teff2 real*4 Rad2 ! (solRad) ? Radius of the secondary real*4 e_Rad2 ! (solRad) ? rms uncertainty of the secondary character*11 Name3 ! Name of the the tertiary real*4 Per3 ! (d) ? Period of the tertiary character*1 x_Per3 ! [y] y if period in years real*4 a3 ! (mas) ? Semi-major axis of the tertiary real*4 e_a3 ! (mas) ? rms uncertainty on a3 character*2 cp3 ! [B Bb] Component for tertiary character*5 SpT3 ! MK spectral type of the tertiary real*4 Mass3 ! (solMass) ? Mass of the tertiary real*4 e_Mass3 ! (solMass) ? rms uncertainty on Mass3 real*4 logL3 ! ([solLum]) ? Luminosity of the tertiary character*1 u_logL3 ! Uncertainty flag on logL3 real*4 e_logL3 ! ([solLum]) ? rms uncertainty on logL3 integer*4 Teff3 ! (K) ? Effective temperature of the tertiary integer*4 e_Teff3 ! (K) ? rms uncertainty on the tertiary real*4 Rad3 ! (solRad) ? Radius of the tertiary real*4 e_Rad3 ! (solRad) ? rms uncertainty on Rad3 C============================================================================= C Loading file 'table1.dat' ! Observed parameters and derived quantities for * 95 binary systems, with mean errors C Format for file interpretation 1 format( + I2,1X,A15,1X,F6.2,A1,A1,1X,A1,1X,A8,2X,F8.5,1X,F7.5,2X,F7.4, + 1X,F6.4,1X,I5,1X,I4,1X,F6.4,1X,F7.5,F6.3,1X,F5.3,1X,F5.2,1X, + F4.2) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,190 read(1,'(A121)')ar__ read(ar__,1) + Seq,Name,Per,u_Per,x_Per,Comp,SpType,Mass,e_Mass,Rad,e_Rad, + Teff,e_Teff,logg,e_logg,logL,e_logL,VMAG,e_VMAG c ..............Just test output........... write(6,1) + Seq,Name,Per,u_Per,x_Per,Comp,SpType,Mass,e_Mass,Rad,e_Rad, + Teff,e_Teff,logg,e_logg,logL,e_logL,VMAG,e_VMAG c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table2.dat' ! Other parameters and references for the 95 * binary systems C Format for file interpretation 2 format( + I2,1X,A14,A1,F9.3,1X,F8.3,2X,F5.3,1X,F5.3,1X,F5.1,1X,F4.1,2X, + F5.1,1X,F4.1,1X,F5.2,1X,F4.2,A1,1X,F4.1,A1,1X,A19,1X,A19,1X, + A19,1X,A19,1X,A19) C Effective file loading open(unit=1,status='old',file= +'table2.dat') write(6,*) '....Loading file: table2.dat' do i__=1,95 read(1,'(A190)')ar__1 read(ar__1,2) + Seq_1,Name_1,n_Name,Dist,e_Dist,E_B_V,e_E_B_V,vAsini,e_vAsini, + vBsini,e_vBsini,v_Fe_H_,e__Fe_H_,n__Fe_H_,logAge,u_logAge, + Ref1,Ref2,Ref3,Ref4,Ref5 if(ar__1(39:43) .EQ. '') E_B_V = rNULL__ if(ar__1(45:49) .EQ. '') e_E_B_V = rNULL__ if(ar__1(51:55) .EQ. '') vAsini = rNULL__ if(ar__1(57:60) .EQ. '') e_vAsini = rNULL__ if(ar__1(63:67) .EQ. '') vBsini = rNULL__ if(ar__1(69:72) .EQ. '') e_vBsini = rNULL__ if(ar__1(74:78) .EQ. '') v_Fe_H_ = rNULL__ if(ar__1(80:83) .EQ. '') e__Fe_H_ = rNULL__ c ..............Just test output........... write(6,2) + Seq_1,Name_1,n_Name,Dist,e_Dist,E_B_V,e_E_B_V,vAsini,e_vAsini, + vBsini,e_vBsini,v_Fe_H_,e__Fe_H_,n__Fe_H_,logAge,u_logAge, + Ref1,Ref2,Ref3,Ref4,Ref5 c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table3.dat' ! Systems with eccentric orbits, and systems * with apsidal motion C Format for file interpretation 3 format( + I2,1X,A14,F7.5,1X,F7.5,2X,F7.5,1X,F7.5,1X,F5.2,1X,F4.2,1X,I1, + 1X,A19,1X,A32) C Effective file loading open(unit=1,status='old',file= +'table3.dat') write(6,*) '....Loading file: table3.dat' do i__=1,44 read(1,'(A115)')ar__2 read(ar__2,3) + Seq_2,Name_2,Ecc,e_Ecc,dw_dt,e_dw_dt,logK2,e_logK2,Flag,Ref, + n_Ref if(ar__2(35:41) .EQ. '') dw_dt = rNULL__ if(ar__2(43:49) .EQ. '') e_dw_dt = rNULL__ if(ar__2(51:55) .EQ. '') logK2 = rNULL__ if(ar__2(57:60) .EQ. '') e_logK2 = rNULL__ if(ar__2(62:62) .EQ. '') Flag = iNULL__ c ..............Just test output........... write(6,3) + Seq_2,Name_2,Ecc,e_Ecc,dw_dt,e_dw_dt,logK2,e_logK2,Flag,Ref, + n_Ref c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table5.dat' ! Parameters for 23 astrometric binary systems C Format for file interpretation 4 format( + I2,1X,A14,2X,F5.2,2X,F7.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,A2,1X,A5, + 1X,F6.4,1X,F6.4,1X,F6.3,A1,F5.3,2X,I4,1X,I3,1X,F5.2,1X,F4.2, + 1X,A19,1X,A19,1X,A11,F8.3,A1,1X,F7.3,1X,F5.3,1X,F5.2,1X,F4.2, + 1X,A2,1X,A5,1X,F6.4,1X,F6.4,1X,F6.3,A1,F5.3,1X,I4,1X,I3,1X, + F4.2,1X,F4.2,1X,A11,1X,F6.2,A1,1X,F5.1,1X,F3.1,1X,A2,1X,A5,1X, + F6.4,1X,F6.4,2X,F6.3,A1,F5.3,1X,I4,1X,I3,1X,F4.2,1X,F4.2) C Effective file loading open(unit=1,status='old',file= +'table5.dat') write(6,*) '....Loading file: table5.dat' do i__=1,23 read(1,'(A336)')ar__3 read(ar__3,4) + Seq_3,Name1,Vmag_1,Plx,e_Plx,Dist_1,e_Dist_1,cp1,SpT1,Mass1, + e_Mass1,logL1,u_logL1,e_logL1,Teff1,e_Teff1,Rad1,e_Rad1,Ref_1, + Ref2_1,Name2,Per_1,x_Per_1,a,e_a,v_Fe_H__1,e__Fe_H__1,cp2, + SpT2,Mass2,e_Mass2,logL2,u_logL2,e_logL2,Teff2,e_Teff2,Rad2, + e_Rad2,Name3,Per3,x_Per3,a3,e_a3,cp3,SpT3,Mass3,e_Mass3,logL3, + u_logL3,e_logL3,Teff3,e_Teff3,Rad3,e_Rad3 if(ar__3(84:88) .EQ. '') e_logL1 = rNULL__ if(ar__3(91:94) .EQ. '') Teff1 = iNULL__ if(ar__3(96:98) .EQ. '') e_Teff1 = iNULL__ if(ar__3(100:104) .EQ. '') Rad1 = rNULL__ if(ar__3(106:109) .EQ. '') e_Rad1 = rNULL__ if(ar__3(172:178) .EQ. '') a = rNULL__ if(ar__3(180:184) .EQ. '') e_a = rNULL__ if(ar__3(186:190) .EQ. '') v_Fe_H__1 = rNULL__ if(ar__3(192:195) .EQ. '') e__Fe_H__1 = rNULL__ if(ar__3(220:225) .EQ. '') logL2 = rNULL__ if(ar__3(227:231) .EQ. '') e_logL2 = rNULL__ if(ar__3(233:236) .EQ. '') Teff2 = iNULL__ if(ar__3(238:240) .EQ. '') e_Teff2 = iNULL__ if(ar__3(242:245) .EQ. '') Rad2 = rNULL__ if(ar__3(247:250) .EQ. '') e_Rad2 = rNULL__ if(ar__3(264:269) .EQ. '') Per3 = rNULL__ if(ar__3(272:276) .EQ. '') a3 = rNULL__ if(ar__3(278:280) .EQ. '') e_a3 = rNULL__ if(ar__3(291:296) .EQ. '') Mass3 = rNULL__ if(ar__3(298:303) .EQ. '') e_Mass3 = rNULL__ if(ar__3(306:311) .EQ. '') logL3 = rNULL__ if(ar__3(313:317) .EQ. '') e_logL3 = rNULL__ if(ar__3(319:322) .EQ. '') Teff3 = iNULL__ if(ar__3(324:326) .EQ. '') e_Teff3 = iNULL__ if(ar__3(328:331) .EQ. '') Rad3 = rNULL__ if(ar__3(333:336) .EQ. '') e_Rad3 = rNULL__ c ..............Just test output........... write(6,4) + Seq_3,Name1,Vmag_1,Plx,e_Plx,Dist_1,e_Dist_1,cp1,SpT1,Mass1, + e_Mass1,logL1,u_logL1,e_logL1,Teff1,e_Teff1,Rad1,e_Rad1,Ref_1, + Ref2_1,Name2,Per_1,x_Per_1,a,e_a,v_Fe_H__1,e__Fe_H__1,cp2, + SpT2,Mass2,e_Mass2,logL2,u_logL2,e_logL2,Teff2,e_Teff2,Rad2, + e_Rad2,Name3,Per3,x_Per3,a3,e_a3,cp3,SpT3,Mass3,e_Mass3,logL3, + u_logL3,e_logL3,Teff3,e_Teff3,Rad3,e_Rad3 c .......End.of.Just test output........... end do close(1) C============================================================================= stop end