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