Conversion of standardized ReadMe file for
file /./ftp/cats/J/ApJ/643/402 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. J/ApJ/643/402 Cool white dwarfs in the solar neighborhood (Kawka+, 2006)
*================================================================================
*Spectroscopic identification of cool white dwarfs in the solar neighborhood.
* Kawka A., Vennes S.
* <Astrophys. J., 643, 402-415 (2006)>
* =2006ApJ...643..402K
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! NLTT white dwarfs
integer*4 nr__
parameter (nr__=61) ! Number of records
character*83 ar__ ! Full-size record
integer*4 NLTT (nr__) ! NLTT number
character*29 OName (nr__) ! Other name(s)
real*4 pm (nr__) ! (arcsec/yr) Total proper motion (1)
real*4 pmPA (nr__) ! (deg) Position angle of proper motion (1)
real*4 Vmag (nr__) ! (mag) V magnitude
real*4 e_Vmag (nr__) ! (mag) rms uncertainty on Vmag
character*1 r_Vmag (nr__) ! [a-f] Vmag reference (2)
real*4 V_J (nr__) ! (mag) V-J colour index (3)
real*4 e_V_J (nr__) ! (mag) rms uncertainty on V-J
real*4 J_H (nr__) ! (mag) J-H colour index (3)
real*4 e_J_H (nr__) ! (mag) rms uncertainty on J-H
*Note (1): From Salim & Gould, Cat. J/ApJ/582/1011
*Note (2): References as follows:
* a = From Salim & Gould (2003, Cat. J/ApJ/582/1011)
* c = From SPM Catalog 2.0. (1998, Cat. I/277
* d = From Kilkenny et al. (1997, Cat. J/MNRAS/287/867)
* e = From Eggen (1968ApJS...16...97E)
* f = From Beers et al. (1992, Cat. J/AJ/103/267)
*Note (3): from 2MASS magnitudes converted to CIT.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! SDSS Colors of NLTT White Dwarfs
integer*4 nr__1
parameter (nr__1=25) ! Number of records
character*62 ar__1 ! Full-size record
integer*4 NLTT_1 (nr__1) ! NLTT number
character*19 SDSS (nr__1) ! SDSS name (JHHMMSS.ss+DDMMSS.s)
real*4 u_g (nr__1) ! (mag) SDSS u-g colour index
real*4 e_u_g (nr__1) ! (mag) rms uncertainty on u-g
real*4 g_r (nr__1) ! (mag) SDSS g-r colour index
real*4 e_g_r (nr__1) ! (mag) rms uncertainty on g-r
real*4 r_i (nr__1) ! (mag) SDSS r-i colour index
real*4 e_r_i (nr__1) ! (mag) rms uncertainty on r-i
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! White Dwarf Parameters and Kinematics
integer*4 nr__2
parameter (nr__2=61) ! Number of records
character*93 ar__2 ! Full-size record
integer*4 NLTT_2 (nr__2) ! NLTT number
character*7 Obs (nr__2) ! Observatories
character*8 WD (nr__2) ! Other name(s)
character*3 n_WD (nr__2) ! [abe, ] Note (1)
character*3 SpT (nr__2) ! Spectral type
character*1 l_Teff (nr__2) ! [~] Limit flag on Teff
integer*4 Teff (nr__2) ! (K) Effective temperature
integer*4 E_Teff (nr__2) ! (K) ? Error on Teff (upper limit)
integer*4 e_Teff_1 (nr__2) ! (K) ? Error on Teff (lower limit)
character*1 n_Teff (nr__2) ! [c] Note (1)
real*4 logg (nr__2) ! ([cm/s2]) ? Surface gravity
real*4 e_logg (nr__2) ! ([cm/s2]) ? rms uncertainty on logg
character*1 n_logg (nr__2) ! [M] M for Magnetic
character*1 u_logg (nr__2) ! [)] uncertainty flag on logg
real*4 Mass (nr__2) ! (solMass) Mass
real*4 e_Mass (nr__2) ! (solMass) ? rms uncertainty on Mass
character*1 u_Mass (nr__2) ! [)] uncertainty flag on Mass
character*1 l_VMAG (nr__2) ! [~] Limit flag on VMAG
real*4 VMAG_1 (nr__2) ! (mag) Absolute V magnitude
character*1 n_VMAG (nr__2) ! [d] d: see text for new cool DQ white dwarf
* NLTT 31347
integer*4 Dist (nr__2) ! (pc) Heliocentric estimated distance
integer*4 UVel (nr__2) ! (km/s) U space velocity
integer*4 VVel (nr__2) ! (km/s) V space velocity
integer*4 WVel (nr__2) ! (km/s) W space velocity
*Note (1): Note as follows:
* a = Also in Kawka et al. (2004AJ....127.1702K)
* b = Also in Vennes & Kawka (2003ApJ...586L..95V)
* c = Possible binary, Teff estimate from V-J,J-H diagram
* e = Double degenerate system.
C=============================================================================
C Loading file 'table1.dat' ! NLTT white dwarfs
C Format for file interpretation
1 format(
+ I5,1X,A29,1X,F5.3,1X,F5.1,1X,F5.2,1X,F4.2,A1,1X,F5.2,1X,F4.2,
+ 1X,F6.3,1X,F5.3)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,61
read(1,'(A83)')ar__
read(ar__,1)
+ NLTT(i__),OName(i__),pm(i__),pmPA(i__),Vmag(i__),e_Vmag(i__),
+ r_Vmag(i__),V_J(i__),e_V_J(i__),J_H(i__),e_J_H(i__)
c ..............Just test output...........
write(6,1)
+ NLTT(i__),OName(i__),pm(i__),pmPA(i__),Vmag(i__),e_Vmag(i__),
+ r_Vmag(i__),V_J(i__),e_V_J(i__),J_H(i__),e_J_H(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2.dat' ! SDSS Colors of NLTT White Dwarfs
C Format for file interpretation
2 format(
+ I5,1X,A19,1X,F5.3,1X,F5.3,1X,F5.3,1X,F5.3,1X,F6.3,1X,F5.3)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,25
read(1,'(A62)')ar__1
read(ar__1,2)
+ NLTT_1(i__),SDSS(i__),u_g(i__),e_u_g(i__),g_r(i__),e_g_r(i__),
+ r_i(i__),e_r_i(i__)
c ..............Just test output...........
write(6,2)
+ NLTT_1(i__),SDSS(i__),u_g(i__),e_u_g(i__),g_r(i__),e_g_r(i__),
+ r_i(i__),e_r_i(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3.dat' ! White Dwarf Parameters and Kinematics
C Format for file interpretation
3 format(
+ I5,1X,A7,1X,A8,A3,1X,A3,1X,A1,I5,1X,I4,1X,I4,A1,1X,F4.2,1X,
+ F4.2,A1,A1,1X,F4.2,1X,F4.2,A1,1X,A1,F5.2,A1,1X,I2,1X,I3,1X,I3,
+ 1X,I3)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,61
read(1,'(A93)')ar__2
read(ar__2,3)
+ NLTT_2(i__),Obs(i__),WD(i__),n_WD(i__),SpT(i__),l_Teff(i__),
+ Teff(i__),E_Teff(i__),e_Teff_1(i__),n_Teff(i__),logg(i__),
+ e_logg(i__),n_logg(i__),u_logg(i__),Mass(i__),e_Mass(i__),
+ u_Mass(i__),l_VMAG(i__),VMAG_1(i__),n_VMAG(i__),Dist(i__),
+ UVel(i__),VVel(i__),WVel(i__)
if(ar__2(38:41) .EQ. '') E_Teff(i__) = iNULL__
if(ar__2(43:46) .EQ. '') e_Teff_1(i__) = iNULL__
if(ar__2(49:52) .EQ. '') logg(i__) = rNULL__
if(ar__2(54:57) .EQ. '') e_logg(i__) = rNULL__
if(ar__2(66:69) .EQ. '') e_Mass(i__) = rNULL__
c ..............Just test output...........
write(6,3)
+ NLTT_2(i__),Obs(i__),WD(i__),n_WD(i__),SpT(i__),l_Teff(i__),
+ Teff(i__),E_Teff(i__),e_Teff_1(i__),n_Teff(i__),logg(i__),
+ e_logg(i__),n_logg(i__),u_logg(i__),Mass(i__),e_Mass(i__),
+ u_Mass(i__),l_VMAG(i__),VMAG_1(i__),n_VMAG(i__),Dist(i__),
+ UVel(i__),VVel(i__),WVel(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end