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