Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/848/11 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-Oct-09
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/ApJ/848/11 Spectroscopic and photometric analysis of WDs (Bedard+, 2017)
*================================================================================
*Measurements of physical parameters of white dwarfs: a test of the mass-radius
*relation.
* Bedard A., Bergeron P., Fontaine G.
* <Astrophys. J., 848, 11-11 (2017)>
* =2017ApJ...848...11B (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Adopted physical parameters of white dwarfs with
reliable data
integer*4 nr__
parameter (nr__=158) ! Number of records
character*97 ar__ ! Full-size record
character*9 WD ! White Dwarf identifier (HHMM+DDd; B1950)
character*14 Name ! Common name
character*5 SpT ! WD spectral type
real*4 Dist ! (pc) [2.6/216] Parallactic distance D_{pi}_
real*4 e_Dist ! (pc) [0.01/35] Uncertainty in Dist
integer*4 Teff ! (K) [6354/67133] Effective temperature
integer*4 e_Teff ! (K) [61/3225] Uncertainty in Teff
character*1 f_Teff ! Method code for determining Teff
* (S=spectroscopic or P=photometric)
real*4 log_g ! ([cm/s2]) [7.3/9.4] log surface gravity
real*4 e_log_g ! ([cm/s2]) [0.04/0.3] Uncertainty in log(g)
real*4 Rad ! (Rsun) [0.003/0.03] Photometric technique
* derived radius (R_{pi}_)
real*4 e_Rad ! (Rsun) [0.0001/0.005] Uncertainty in Rad
real*4 Mass ! (Msun) [0.2/4] Mass from log(g) and Radius
real*4 e_Mass ! (Msun) [0.05/1.4] Uncertainty in Mass
real*4 Delta ! [0.01/9.5] Difference between distance
* measurements (1)
integer*4 Note ! [1/3]? Additional note (2)
*Note (1): We also give, as a quantitative measure of consistency with the
* C/O-core mass-radius relation, the difference between the parallactic
* distance and the mass-radius relation derived distance, in
* units of {sigma}.
*Note (2): Note as follows:
* 1 = Unresolved double degenerate system. The parameters derived under
* the assumption of a single star are meaningless. Atmospheric
* parameters of both components are given in Figure 16.
* 2 = Weakly magnetic white dwarf.
* 3 = Possible iron-core white dwarf.
C=============================================================================
C Loading file 'table1.dat' ! Adopted physical parameters of white dwarfs with
* reliable data
C Format for file interpretation
1 format(
+ A9,1X,A14,1X,A5,1X,F6.2,1X,F5.2,1X,I5,1X,I4,1X,A1,1X,F4.2,1X,
+ F4.2,1X,F6.4,1X,F6.4,1X,F4.2,1X,F4.2,1X,F4.2,1X,I1)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,158
read(1,'(A97)')ar__
read(ar__,1)
+ WD,Name,SpT,Dist,e_Dist,Teff,e_Teff,f_Teff,log_g,e_log_g,Rad,
+ e_Rad,Mass,e_Mass,Delta,Note
if(ar__(97:97) .EQ. '') Note = iNULL__
c ..............Just test output...........
write(6,1)
+ WD,Name,SpT,Dist,e_Dist,Teff,e_Teff,f_Teff,log_g,e_log_g,Rad,
+ e_Rad,Mass,e_Mass,Delta,Note
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end