Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/145/159 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/145/159 LAMOST. II. ugriz photometry of 526 new quasars (Huo+, 2013)
*================================================================================
*The LAMOST survey of background quasars in the vicinity of the Andromeda and
*Triangulum galaxies. II. Results from the commissioning observations and the
*pilot surveys.
* Huo Z.-Y., Liu X.-W., Xiang M.-S., Yuan H.-B., Huang Y., Zhang H.-H.,
* Yan L., Bai Z.-R., Chen J.-J., Chen X.-Y., Chu J.-R., Chu Y.-Q., Cui X.-Q.,
* Du B., Hou Y.-H., Hu H.-Z., Hu Z.-W., Jia L., Jiang F.-H., Lei Y.-J.,
* Li A.-H., Li G.-W., Li G.-P., Li J., Li X.-N., Li Y., Li Y.-P., Liu G.-R.,
* Liu Z.-G., Lu Q.-S., Luo A.-L., Luo Y., Men L., Ni J.-J., Qi Y.-J.,
* Qi Z.-X., Shi J.-R., Shi H.-M., Sun S.-W., Tang Z.-H., Tian Y., Tu L.-P.,
* Wang D., Wang F.-F., Wang G., Wang J.-N., Wang L., Wang S.-Q., Wang Y.,
* Wang Y.-F., Wei M.-Z., Wu Y., Xue X.-X., Yao Z.-Q., Yu Y., Yuan H.,
* Zhai C., Zhang E.-P., Zhang H.-T., Zhang J.-N., Zhang W., Zhang Y.-X.,
* Zhang Y., Zhang Z.-C., Zhao G., Zhao M., Zhao Y.-H., Zhou F., Zhou X.-L.,
* Zhu Y.-T., Zou S.-C.
* <Astron. J., 145, 159 (2013)>
* =2013AJ....145..159H
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1.dat' ! Catalog of new quasars in the vicinity of M31 and
M33 discovered by LAMOST in fields observed in
2010 and 2011
integer*4 nr__
parameter (nr__=526) ! Number of records
character*84 ar__ ! Full-size record
C J2000 position composed of: RAdeg DEdeg
character*19 Name ! Target identifier (JHHMMSS.ss+DDMMSS.s) (1)
real*8 RAdeg ! (deg) Right Ascension in decimal degrees (J2000)
real*8 DEdeg ! (deg) Declination in decimal degrees (J2000)
real*4 z ! [0.093/3.204] LAMOST redshift
real*4 umag ! (mag) ? Best SDSS u-band PSF magnitude if available (2)
real*4 gmag ! (mag) Best SDSS g-band PSF magnitude (2)
real*4 rmag ! (mag) Best SDSS r-band PSF magnitude (2)
real*4 imag ! (mag) Best SDSS i-band PSF magnitude (2)
real*4 zmag ! (mag) ? Best SDSS z-band PSF magnitude if available (2)
real*4 Ai ! (mag) [0.08/0.29] Galactic extinction in the i band (3)
character*3 Sel ! Selection criteria (W, S, M) (4)
*Note (1): <LAMOST JHHMMSS.ss+DDMMSS.s> in Simbad.
*Note (2): Without extinction corrections.
*Note (3): From Schlegel et al. (1998ApJ...500..525S).
*Note (4): Selection criteria as follows:
* W = selected by the IR criteria based on the WISE data;
* S = optically selected with the SDSS criteria for low-redshift quasars;
* M = optically selected from the KPNO 4m Local Group Galaxy survey data
* (Massey et al. 2006, Cat. J/AJ/131/2478).
C=============================================================================
C Loading file 'table1.dat' ! Catalog of new quasars in the vicinity of M31 and
* M33 discovered by LAMOST in fields observed in
* 2010 and 2011
C Format for file interpretation
1 format(
+ A19,1X,F9.6,1X,F9.6,1X,F5.3,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,
+ 1X,F5.2,1X,F4.2,1X,A3)
C Effective file loading
open(unit=1,status='old',file=
+'table1.dat')
write(6,*) '....Loading file: table1.dat'
do i__=1,526
read(1,'(A84)')ar__
read(ar__,1)
+ Name,RAdeg,DEdeg,z,umag,gmag,rmag,imag,zmag,Ai,Sel
if(ar__(47:51) .EQ. '') umag = rNULL__
if(ar__(71:75) .EQ. '') zmag = rNULL__
c ..............Just test output...........
write(6,1)
+ Name,RAdeg,DEdeg,z,umag,gmag,rmag,imag,zmag,Ai,Sel
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end