Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/146/34 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-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/146/34 Infrared photometry of DA white dwarfs from LAMOST (Zhang+, 2013)
*================================================================================
*DA white dwarfs observed in the LAMOST pilot survey.
* Zhang Y.-Y., Deng L.-C., Liu C., Lepine S., Newberg H.J., Carlin J.L.,
* Carrell K., Yang F., Gao S., Xu Y., Li J., Zhang H.-T., Zhao Y.-H.,
* Luo A.-L., Bai Z.-R., Yuan H.-L., Jin G.
* <Astron. J., 146, 34 (2013)>
* =2013AJ....146...34Z
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3.dat' ! Identified DA white dwarfs and DA white
dwarf/subdwarf targets in LAMOST pilot survey
integer*4 nr__
parameter (nr__=358) ! Number of records
character*121 ar__ ! Full-size record
integer*4 Seq (nr__) ! [1/358] Sequence number in the catalog
character*19 LAMOST (nr__) ! LAMOST identifier (JHHMMSS.ss+DDMMSS.s)
real*4 umag (nr__) ! (mag) ? SDSS u band magnitude (1)
real*4 gmag (nr__) ! (mag) ? SDSS g band magnitude (1)
real*4 rmag (nr__) ! (mag) ? SDSS r band magnitude (1)
real*4 imag (nr__) ! (mag) ? SDSS i band magnitude (1)
real*4 Jmag (nr__) ! (mag) ? 2MASS J band magnitude (from cat. II/246)
real*4 Hmag (nr__) ! (mag) ? 2MASS H band magnitude (from cat. II/246)
real*4 Kmag (nr__) ! (mag) ? 2MASS Ks band magnitude (from cat. II/246)
real*4 Bmag (nr__) ! (mag) ? UCAC3 B band magnitude (2)
real*4 Rmag_1 (nr__) ! (mag) ? UCAC3 R band magnitude (2)
real*4 Imag_1 (nr__) ! (mag) ? UCAC3 I band magnitude (2)
real*4 Vmag (nr__) ! (mag) ? Hipparcos V magnitude (from cat. I/239)
character*1 f_Vmag (nr__) ! [k] K_p_ magnitude instead of V magnitude (3)
real*8 RV (nr__) ! (km/s) ? Elodie radial velocity
character*16 Class (nr__) ! DA white dwarf classification (4)
character*1 f_Class (nr__) ! [e] Emission lines shown in a spectrum
character*3 n_LAMOST (nr__) ! DA white dwarf in other catalogs
* (v=Villanova, s=SDSS DR7 white dwarf) (5)
*Note (1): Come from SDSS photometry or Xuyi survey.
*Note (2): From the UCAC3 catalog (Zacharias et al., 2009, cat. I/315; obsoleted
* by Zacharias et al. 2012, cat. I/322).
*Note (3): k = K_p_ magnitude from Kepler Input Catalog (Brown et al., 2011,
* cat. J/AJ/142/112, and V/133) is presented instead of V magnitude.
*Note (4): According to Sion et al. (1983ApJ...269..253S), the classification
* consists of two parts, the "DA" type and the subtype index which is a
* temperature index corresponding to 50,400/T. This temperature index is
* determined by visually comparing the target spectrum with spectra of
* different temperature indices in the atlas of Wesemael et al.
* (1993PASP..105..761W) and the SDSS DR4 WD catalog (Eisenstein et al. 2006,
* cat. J/ApJS/167/40). A DA white dwarf with a companion is denoted as
* "DA+companion." If the spectral type of the companion is identifiable,
* i.e., an M star, the classification is "DA+M." A colon means the
* identification is uncertain. The DA white dwarf/subdwarf targets are
* classified as "DA:/SD."
*Note (5): Other catalogs as follows:
* v = a DA white dwarf is in Villanova white dwarf catalog (McCook & Sion,
* 2008, cat. III/235);
* s = a DA white dwarf is in SDSS DR7 white dwarf catalog (Kleinman et al.,
* 2013, cat. J/ApJS/204/5).
C=============================================================================
C Loading file 'table3.dat' ! Identified DA white dwarfs and DA white
* dwarf/subdwarf targets in LAMOST pilot survey
C Format for file interpretation
1 format(
+ I3,1X,A19,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,
+ F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,A1,1X,F7.2,1X,A16,1X,A1,
+ 1X,A3)
C Effective file loading
open(unit=1,status='old',file=
+'table3.dat')
write(6,*) '....Loading file: table3.dat'
do i__=1,358
read(1,'(A121)')ar__
read(ar__,1)
+ Seq(i__),LAMOST(i__),umag(i__),gmag(i__),rmag(i__),imag(i__),
+ Jmag(i__),Hmag(i__),Kmag(i__),Bmag(i__),Rmag_1(i__),
+ Imag_1(i__),Vmag(i__),f_Vmag(i__),RV(i__),Class(i__),
+ f_Class(i__),n_LAMOST(i__)
if(ar__(25:29) .EQ. '') umag(i__) = rNULL__
if(ar__(31:35) .EQ. '') gmag(i__) = rNULL__
if(ar__(37:41) .EQ. '') rmag(i__) = rNULL__
if(ar__(43:47) .EQ. '') imag(i__) = rNULL__
if(ar__(49:53) .EQ. '') Jmag(i__) = rNULL__
if(ar__(55:59) .EQ. '') Hmag(i__) = rNULL__
if(ar__(61:65) .EQ. '') Kmag(i__) = rNULL__
if(ar__(67:71) .EQ. '') Bmag(i__) = rNULL__
if(ar__(73:77) .EQ. '') Rmag_1(i__) = rNULL__
if(ar__(79:83) .EQ. '') Imag_1(i__) = rNULL__
if(ar__(85:89) .EQ. '') Vmag(i__) = rNULL__
if(ar__(92:98) .EQ. '') RV(i__) = rNULL__
c ..............Just test output...........
write(6,1)
+ Seq(i__),LAMOST(i__),umag(i__),gmag(i__),rmag(i__),imag(i__),
+ Jmag(i__),Hmag(i__),Kmag(i__),Bmag(i__),Rmag_1(i__),
+ Imag_1(i__),Vmag(i__),f_Vmag(i__),RV(i__),Class(i__),
+ f_Class(i__),n_LAMOST(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end