Conversion of standardized ReadMe file for
file /./ftp/cats/J/MNRAS/463/2125 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/MNRAS/463/2125 White dwarf binary pathways survey (Parsons+, 2016)
*================================================================================
*The white dwarf binary pathways survey.
*I. A sample of FGK stars with white dwarf companions.
* Parsons S.G., Rebassa-Mansergas A., Schreiber M.R., Gansicke B.T.,
* Zorotovic M., Ren J.J.
* <Mon. Not. R. Astron. Soc., 463, 2125-2136 (2016)>
* =2016MNRAS.463.2125P (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'rave.dat' ! Main-sequence stars from the RAVE survey with
UV-excesses (table A1)
integer*4 nr__
parameter (nr__=430) ! Number of records
character*95 ar__ ! Full-size record
C J2000 position composed of: RAdeg DEdeg
character*23 Name ! Simbad name of the source
real*8 RAdeg ! (deg) Right ascension (J2000)
real*8 DEdeg ! (deg) Declination (J2000)
real*4 FUV ! (mag) FUV magnitude
real*4 NUV ! (mag) NUV magnitude
real*4 Vmag ! (mag) V magnitude
real*4 Teff ! (K) Effective temperature
real*4 logg ! ([cm/s]) Surface gravity
real*4 logZ ! ([-]) [-5/1] Metallicity
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'lamost.dat' ! Main-sequence stars from the LAMOST survey
with UV-excesses (table B1)
integer*4 nr__1
parameter (nr__1=626) ! Number of records
character*235 ar__1 ! Full-size record
C J2000 position composed of: RAdeg DEdeg
character*10 Jname ! Short J name (JHHMM+DDMM)
character*19 Name_1 ! LAMOST name (JHHMMSS.ss+DDMMSS.s)
real*8 RAdeg_1 ! (deg) Right ascension (J2000)
real*8 DEdeg_1 ! (deg) Declination (J2000)
real*8 NUV_1 ! (mag) NUV magnitude
real*8 e_NUV ! (mag) rms uncertainty on NUV
real*8 FUV_1 ! (mag) FUV magnitude
real*8 e_FUV ! (mag) rms uncertainty on FUV
character*45 fitsname ! Name of the LAMOST spectrum fits file
real*4 snru ! LAMOST signal-to-noise ratio in u band
real*8 snrg ! LAMOST signal-to-noise ratio in g band
real*8 snrr ! LAMOST signal-to-noise ratio in r band
real*8 snri ! LAMOST signal-to-noise ratio in i band
real*8 snrz ! LAMOST signal-to-noise ratio in z band
real*8 Teff_1 ! (K) Effective temperature
real*4 e_Teff ! (K) rms uncertainty on Teff
real*4 logg_1 ! ([cm/s2]) Surface gravity
real*4 e_logg ! ([cm/s2]) rms uncertainty on logg
real*4 v_Fe_H_ ! ([-]) Metallicity
real*4 e__Fe_H_ ! ([-]) rms uncertainty on [Fe/H]
real*8 RV ! (km/s) Radial velocity
real*4 e_RV ! (km/s) rms uncertainty on RV
C=============================================================================
C Loading file 'rave.dat' ! Main-sequence stars from the RAVE survey with
* UV-excesses (table A1)
C Format for file interpretation
1 format(
+ A23,1X,F16.12,1X,F15.11,1X,F6.3,1X,F6.3,1X,F6.3,1X,F6.1,1X,
+ F4.2,1X,F5.2)
C Effective file loading
open(unit=1,status='old',file=
+'rave.dat')
write(6,*) '....Loading file: rave.dat'
do i__=1,430
read(1,'(A95)')ar__
read(ar__,1)Name,RAdeg,DEdeg,FUV,NUV,Vmag,Teff,logg,logZ
c ..............Just test output...........
write(6,1)Name,RAdeg,DEdeg,FUV,NUV,Vmag,Teff,logg,logZ
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'lamost.dat' ! Main-sequence stars from the LAMOST survey
* with UV-excesses (table B1)
C Format for file interpretation
2 format(
+ A10,1X,A19,1X,F14.10,1X,F13.10,1X,F8.5,1X,F7.5,1X,F8.5,1X,
+ F7.5,1X,A45,1X,F5.2,1X,F8.2,1X,F8.2,1X,F8.2,1X,F8.2,1X,F7.2,
+ 1X,F6.2,1X,F5.3,1X,F5.3,1X,F6.3,1X,F5.3,1X,F7.2,1X,F5.2)
C Effective file loading
open(unit=1,status='old',file=
+'lamost.dat')
write(6,*) '....Loading file: lamost.dat'
do i__=1,626
read(1,'(A235)')ar__1
read(ar__1,2)
+ Jname,Name_1,RAdeg_1,DEdeg_1,NUV_1,e_NUV,FUV_1,e_FUV,fitsname,
+ snru,snrg,snrr,snri,snrz,Teff_1,e_Teff,logg_1,e_logg,v_Fe_H_,
+ e__Fe_H_,RV,e_RV
c ..............Just test output...........
write(6,2)
+ Jname,Name_1,RAdeg_1,DEdeg_1,NUV_1,e_NUV,FUV_1,e_FUV,fitsname,
+ snru,snrg,snrr,snri,snrz,Teff_1,e_Teff,logg_1,e_logg,v_Fe_H_,
+ e__Fe_H_,RV,e_RV
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end