Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/123/567 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/123/567 SDSS quasar catalog, I: Early Data Release (Schneider+, 2002) *================================================================================ *The Sloan Digital Sky Survey quasar catalog. I. Early data release. * Schneider D.P., Richards G.T., Fan X., Hall P.B., Strauss M.A., * Vanden Berk D.E., Gunn J.E., Newberg H.J., Reichard T.A., Stoughton C., * Voges W., Yanny B., Anderson S.F., Annis J., Bahcall N.A., Bauer A., * Bernardi M., Blanton M.R., Boroski W.N., Brinkmann J., Briggs J.W., * Brunner R., Burles S., Carey L., Castander F.J., Connolly A.J., Csabai I., * Doi M., Friedman S., Frieman J.A., Fukugita M., Heckman T.M., * Hennessy G.S., Hindsley R.B., Hogg D.W., Ivezic Z., Kent S., Knapp G.R., * Kunzst P.Z., Lamb D.Q., Leger R.F., Long D.C., Loveday J., Lupton R.H., * Margon B., Meiksin A., Merelli A., Munn J.A., Newcomb M., Nichol R.C., * Owen R., Pier J.R., Pope A., Rockosi C.M., Saxe D.H., Schlegel D., * Siegmund W.A., Smee S., Snir Y., Subbarao M., Szalay A.S., Thakar A.R., * Uomoto A., Waddell P., York D.G. * <Astron. J. 123, 567 (2002)> * =2002AJ....123..567S C============================================================================= C Internal variables integer*4 i__ c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table1.dat' ! SDSS spectroscopic plate information integer*4 nr__ parameter (nr__=92) ! Number of records character*29 ar__ ! Full-size record C J2000.0 position composed of: RAh RAm RAs DE- DEd DEm DEs real*8 RAdeg ! (deg) Right Ascension J2000.0 real*8 DEdeg ! (deg) Declination J2000.0 C ---------------------------------- ! (position vector(s) in degrees) integer*4 Plate ! Plate number integer*4 RAh ! (h) Right ascension (J2000.0) integer*4 RAm ! (min) Right ascension (J2000.0) real*4 RAs ! (s) Right ascension (J2000.0) character*1 DE_ ! Declination sign (J2000.0) integer*4 DEd ! (deg) Declination (J2000.0) integer*4 DEm ! (arcmin) Declination (J2000.0) integer*4 DEs ! (arcsec) Declination (J2000.0) integer*4 N ! Number of quasars in the catalog contained on * this plate c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table3.dat' ! The SDSS Quasar Catalog I integer*4 nr__1 parameter (nr__1=3814) ! Number of records character*196 ar__1 ! Full-size record C J2000 position composed of: RArad DErad character*1 f5 ! [*] Discrepant redshift (see table5) character*18 SDSS ! Object name, hhmmss.ss+ddmmss.s (1) integer*4 RArad ! (10-7rad) Right Ascension (J2000) (in 10^-7^ radians) integer*4 DErad ! (10-7rad) Declination (J2000) (in 10^-7^ radians) real*4 z ! Redshift integer*4 r_SDSS ! Source of object (2) real*4 u_mag ! (mag) The u* band magnitude (7) real*4 e_u_mag ! (mag) The error in u*mag real*4 g_mag ! (mag) The g* band magnitude (7) real*4 e_g_mag ! (mag) The error in g*mag real*4 r_mag ! (mag) The r* band magnitude (7) real*4 e_r_mag ! (mag) The error in r*mag real*4 i_mag ! (mag) The i* band magnitude (7) real*4 e_i_mag ! (mag) The error in i*mag real*4 z_mag ! (mag) The z* band magnitude (7) real*4 e_z_mag ! (mag) The error in z*mag real*4 uAbs ! (mag) Galactic absorption in u band real*8 PFlux ! (mJy) ?=0.00 FIRST peak flux density at 20cm (1.4GHz) real*4 logCR ! ([ct/s]) ?=0 Log of ROSAT full band count rate real*4 i_Mag_1 ! (mag) Absolute i* band magnitude (3) integer*4 Morph ! [0,1] Morphologically extended flag (4) integer*4 TarSel ! [0] Target selection version (5) integer*4 QFlag ! [0,1] Quasar target flag (6) integer*4 FFlag ! [0,1] FIRST target flag (6) integer*4 RFlag ! [0,1] ROSAT target flag (6) integer*4 SFlag ! [0,1] Serendipity target flag (6) integer*4 StFlag ! [0,1] Star target flag (6) integer*4 GFlag ! [0,1] Galaxy target flag (6) integer*4 SNum ! SDSS Imaging Run Number for photometric * measurements integer*4 ObsDate ! (d) Modified Julian Date (MJD=JD-2400000.5) * of spectroscopic observation integer*4 Plate_1 ! Spectroscopic Plate Number integer*4 Fiber ! Spectroscopic Fiber Number character*20 OName ! Object Name if not discovered by SDSS *Note (1): The full name of an object is SDSS Jhhmmss.ss+ddmmss.s (J2000). *Note (2): Source of object * 0 = Early Data Release (EDR) quasar; * 1 = Extreme BAL Search; * 2 = Visual search of Early Data Release (EDR_ spectra. *Note (3): Absolute i* band magnitude, assuming H_0_ = 50km/s/Mpc, * {Omega}_M_ = 1.00, {Omega}_L_ = 0.00, and {alpha}_Q_ = -0.50. *Note (4): Morphology flag: * 0 = point source; * 2 = extended. *Note (5): Target selection version (is always 0 in this version) * 1 = 2.2a; * 2 = 2.5; * 3 = 2.7. *Note (6): Flags: * 0 = not targetted; * 2 = targetted. *Note (7): For the definition of the SDSS photometric system, see * Fukugita, et al., 1996AJ....111.1748F c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - C Declarations for 'table5.dat' ! Discrepant redshifts integer*4 nr__2 parameter (nr__2=20) ! Number of records character*54 ar__2 ! Full-size record character*18 SDSS_1 ! SDSS quasar name real*4 zSDSS ! SDSS redshift real*4 Dz ! ? NED-SDSS redshift character*20 Name ! NED Object Name C============================================================================= C Loading file 'table1.dat' ! SDSS spectroscopic plate information C Format for file interpretation 1 format(I3,2X,I2,1X,I2,1X,F4.1,1X,A1,I2,1X,I2,1X,I2,1X,I3) C Effective file loading open(unit=1,status='old',file= +'table1.dat') write(6,*) '....Loading file: table1.dat' do i__=1,92 read(1,'(A29)')ar__ read(ar__,1)Plate,RAh,RAm,RAs,DE_,DEd,DEm,DEs,N RAdeg = rNULL__ DEdeg = rNULL__ c Derive coordinates RAdeg and DEdeg from input data c (RAdeg and DEdeg are set to rNULL__ when unknown) if(RAh .GT. -180) RAdeg=RAh*15. if(RAm .GT. -180) RAdeg=RAdeg+RAm/4. if(RAs .GT. -180) RAdeg=RAdeg+RAs/240. if(DEd .GE. 0) DEdeg=DEd if(DEm .GE. 0) DEdeg=DEdeg+DEm/60. if(DEs .GE. 0) DEdeg=DEdeg+DEs/3600. if(DE_.EQ.'-'.AND.DEdeg.GE.0) DEdeg=-DEdeg c ..............Just test output........... write(6,1)Plate,RAh,RAm,RAs,DE_,DEd,DEm,DEs,N write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table3.dat' ! The SDSS Quasar Catalog I C Format for file interpretation 2 format( + A1,A18,2X,I8,2X,I8,1X,F5.3,1X,I1,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,2X,F4.2, + 1X,F7.2,1X,F6.3,1X,F6.2,2X,I1,2X,I1,2X,I1,2X,I1,2X,I1,2X,I1, + 2X,I1,2X,I1,2X,I4,1X,I5,2X,I3,1X,I3,1X,A20) C Effective file loading open(unit=1,status='old',file= +'table3.dat') write(6,*) '....Loading file: table3.dat' do i__=1,3814 read(1,'(A196)')ar__1 read(ar__1,2) + f5,SDSS,RArad,DErad,z,r_SDSS,u_mag,e_u_mag,g_mag,e_g_mag, + r_mag,e_r_mag,i_mag,e_i_mag,z_mag,e_z_mag,uAbs,PFlux,logCR, + i_Mag_1,Morph,TarSel,QFlag,FFlag,RFlag,SFlag,StFlag,GFlag, + SNum,ObsDate,Plate_1,Fiber,OName c ..............Just test output........... write(6,2) + f5,SDSS,RArad,DErad,z,r_SDSS,u_mag,e_u_mag,g_mag,e_g_mag, + r_mag,e_r_mag,i_mag,e_i_mag,z_mag,e_z_mag,uAbs,PFlux,logCR, + i_Mag_1,Morph,TarSel,QFlag,FFlag,RFlag,SFlag,StFlag,GFlag, + SNum,ObsDate,Plate_1,Fiber,OName c .......End.of.Just test output........... end do close(1) C============================================================================= C Loading file 'table5.dat' ! Discrepant redshifts C Format for file interpretation 3 format(1X,A18,2X,F4.2,2X,F5.2,2X,A20) C Effective file loading open(unit=1,status='old',file= +'table5.dat') write(6,*) '....Loading file: table5.dat' do i__=1,20 read(1,'(A54)')ar__2 read(ar__2,3)SDSS_1,zSDSS,Dz,Name if(ar__2(28:32) .EQ. '') Dz = rNULL__ c ..............Just test output........... write(6,3)SDSS_1,zSDSS,Dz,Name c .......End.of.Just test output........... end do close(1) C============================================================================= stop end