Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/139/2566 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-19
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/AJ/139/2566 SLoWPoKES catalog (Dhital+, 2010)
*================================================================================
*Sloan low-mass wide pairs of kinematically equivalent stars (SLoWPoKES):
*a catalog of very wide, low-mass pairs.
* Dhital S., West A.A., Stassun K.G., Bochanski J.J.
* <Astron. J., 139, 2566-2586 (2010)>
* =2010AJ....139.2566D
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Properties of SLoWPoKES pairs
integer*4 nr__
parameter (nr__=1342) ! Number of records
character*206 ar__ ! Full-size record
C J2000 position composed of: RAdeg DEdeg
character*7 SLW ! Object identification, HHMM+DD (1)
real*8 RAdeg ! (deg) Primary Right Ascension (J2000)
real*8 DEdeg ! (deg) Primary Declination; decimal degrees (J2000)
real*8 RA2deg ! (deg) Secondary Right Ascension (J2000)
real*8 DE2deg ! (deg) Secondary Declination (J2000)
real*4 rmag1 ! (mag) Primary SDSS r band magnitude (2)
real*4 e_rmag1 ! (mag) Error in rmag1
real*4 imag1 ! (mag) Primary SDSS i band magnitude (2)
real*4 e_imag1 ! (mag) Error in imag1
real*4 zmag1 ! (mag) Primary SDSS z band magnitude (2)
real*4 e_zmag1 ! (mag) Error in zmag1
real*4 rmag2 ! (mag) Secondary SDSS r band magnitude (2)
real*4 e_rmag2 ! (mag) Error in rmag2
real*4 imag2 ! (mag) Secondary SDSS i band magnitude (2)
real*4 e_imag2 ! (mag) Error in imag2
real*4 zmag2 ! (mag) Secondary SDSS z band magnitude (2)
real*4 e_zmag2 ! (mag) Error in zmag2
integer*4 pmRA1 ! (mas/yr) Primary proper motion in Right Ascension
integer*4 e_pmRA1 ! (mas/yr) Error in pmRA1
integer*4 pmDE1 ! (mas/yr) Primary proper motion in Declination
integer*4 e_pmDE1 ! (mas/yr) Error in pmDE1
integer*4 pmRA2 ! (mas/yr) Secondary proper motion in Right Ascension
integer*4 e_pmRA2 ! (mas/yr) Error in pmRA2
integer*4 pmDE2 ! (mas/yr) Secondary proper motion in Declination
integer*4 e_pmDE2 ! (mas/yr) Error in pmDE2
integer*4 Dist1 ! (pc) Primary distance (3)
integer*4 Dist2 ! (pc) Secondary distance (3)
character*7 SpT_1 ! Primary spectral type (4)
character*7 SpT_2 ! Secondary spectral type (4)
real*4 Delta ! (arcsec) Binary angular separation {Delta}{theta}
real*4 Dmu ! (mas/yr) Difference in proper motion {Delta}{mu}
integer*4 Ddist ! (pc) Difference in distance {Delta}d
real*8 BE ! (10+33J) Binding energy of binary (10^40^erg)
real*4 Pf ! (%) [0/0.05] False positive probability
character*2 Class ! Type of SLowPoKES pair (5)
*Note (1): The identifiers were generated using the standard JHHMM+DD format
* using coordinates of the primary star.
*Note (2): All magnitudes are psfmag and have not been corrected for extinction.
* Note that we use extinction-corrected magnitudes in our analysis.
*Note (3): Calculated using photometric parallax relations and have 1{sigma}
* errors of ~14%. The absolute distances to subdwarfs (SDs) are overestimated
* (see Section 2.4.1).
*Note (4): The spectral types were inferred from the r-z colors
* (West et al. 2008, Cat. J/AJ/135/785; Covey et al. 2007, Cat. J/AJ/134/2398)
* and are correct to +/-1 subtype.
*Note (5): Type of SLowPoKES pair as follows:
* DD = Disk dwarf
* SD = Subdwarf
* WD = White dwarf-disk dwarf
* T = Triple
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table5.dat' ! A sub-sample of previously known wide binaries
with the projected separation ~>10^4^AU (~0.05pc)
integer*4 nr__1
parameter (nr__1=85) ! Number of records
character*72 ar__1 ! Full-size record
character*13 ID_1 ! Primary component identification (1)
character*16 ID_2 ! Secondary component identification (1)
real*8 Delta_1 ! (arcsec) Angular separation of CPM pair
integer*4 Sep ! (AU) Projected physical separation of CPM pairs
character*5 SpT_1_1 ! Primary component spectral type (2)
character*6 SpT_2_1 ! Secondary component spectral type (2)
real*4 BE_1 ! (10+33J) Binding energy of CPM pair; 10^40^ergs (3)
character*6 Refs ! Reference(s) (4)
*Note (1): We have tried to use HIP and NLTT identifiers, whenever they exist,
* for consistency.
*Note (2): Spectral types are from the referenced papers, SIMBAD, or inferred
* from their V-J colors using Kenyon & Hartmann (1995, Cat. J/ApJS/101/117).
*Note (3): Binding energies are calculated using estimated masses as a function
* of spectral type Kraus & Hillenbrand (2007, Cat. J/AJ/134/2340). When
* spectral type for the secondary was not available, it was assumed to be an
* equal-mass binary.
*Note (4): References as follows:
* 1 = Lepine & Bongiorno (2007, Cat. J/AJ/133/889)
* 2 = Caballero (2007, Cat. J/ApJ/667/520)
* 3 = Caballero (2009A&A...507..251C)
* 4 = Caballero (2010A&A...514A..98C)
* 5 = Bahcall & Soniera (1981ApJ...246..122B)
* 6 = Latham et al. (1984ApJ...281L..41L)
* 7 = Makarov et al. (2008ApJ...687..566M)
* 8 = Zapatero Osorio & Martin (2004, Cat. J/A+A/419/167)
* 9 = Faherty et al. (2010AJ....139..176F)
* 10 = Chaname & Gould (2004ApJ...601..289C)
* 11 = Quinn et al. (2009MNRAS.396L..11Q)
* 12 = Poveda et al. (2009ApJ...706..343P)
* 13 = Allen et al. (2000, Cat. J/A+A/356/529)
C=============================================================================
C Loading file 'table3.dat' ! Properties of SLoWPoKES pairs
C Format for file interpretation
1 format(
+ 4X,A7,1X,F10.6,1X,F10.6,1X,F10.6,1X,F10.6,1X,F5.2,1X,F4.2,1X,
+ F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,1X,F5.2,1X,F4.2,
+ 1X,F5.2,1X,F4.2,1X,I4,1X,I1,1X,I4,1X,I1,1X,I4,1X,I1,1X,I4,1X,
+ I1,1X,I4,1X,I4,1X,A7,1X,A7,1X,F5.1,1X,F4.1,1X,I2,1X,F7.2,1X,
+ F5.3,1X,A2)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,1342
read(1,'(A206)')ar__
read(ar__,1)
+ SLW,RAdeg,DEdeg,RA2deg,DE2deg,rmag1,e_rmag1,imag1,e_imag1,
+ zmag1,e_zmag1,rmag2,e_rmag2,imag2,e_imag2,zmag2,e_zmag2,pmRA1,
+ e_pmRA1,pmDE1,e_pmDE1,pmRA2,e_pmRA2,pmDE2,e_pmDE2,Dist1,Dist2,
+ SpT_1,SpT_2,Delta,Dmu,Ddist,BE,Pf,Class
c ..............Just test output...........
write(6,1)
+ SLW,RAdeg,DEdeg,RA2deg,DE2deg,rmag1,e_rmag1,imag1,e_imag1,
+ zmag1,e_zmag1,rmag2,e_rmag2,imag2,e_imag2,zmag2,e_zmag2,pmRA1,
+ e_pmRA1,pmDE1,e_pmDE1,pmRA2,e_pmRA2,pmDE2,e_pmDE2,Dist1,Dist2,
+ SpT_1,SpT_2,Delta,Dmu,Ddist,BE,Pf,Class
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table5.dat' ! A sub-sample of previously known wide binaries
* with the projected separation ~>10^4^AU (~0.05pc)
C Format for file interpretation
2 format(A13,1X,A16,1X,F7.2,1X,I6,1X,A5,1X,A6,1X,F6.2,1X,A6)
C Effective file loading
open(unit=1,status='old',file=
+'table5.dat')
write(6,*) '....Loading file: table5.dat'
do i__=1,85
read(1,'(A72)')ar__1
read(ar__1,2)ID_1,ID_2,Delta_1,Sep,SpT_1_1,SpT_2_1,BE_1,Refs
c ..............Just test output...........
write(6,2)ID_1,ID_2,Delta_1,Sep,SpT_1_1,SpT_2_1,BE_1,Refs
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end