Conversion of standardized ReadMe file for
file /./ftp/cats/J/AJ/134/579 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-17
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/134/579 Morphologically classified galaxies from SDSS DR3 (Fukugita+, 2007)
*================================================================================
*A catalog of morphologically classified galaxies from the Sloan Digital Sky
*Survey: north equatorial region.
* Fukugita M., Nakamura O., Okamura S., Yasuda N., Barentine J.C.,
* Brinkmann J., Gunn J.E., Harvanek M., Ichikawa T., Lupton R.H.,
* Schneider D.P., Strauss M.A., York D.G.
* <Astron. J., 134, 579-593 (2007)>
* =2007AJ....134..579F
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2.dat' ! Catalog of morphologically classified galaxies
integer*4 nr__
parameter (nr__=2275) ! Number of records
character*134 ar__ ! Full-size record
C J2000 position composed of: RAdeg DEdeg
integer*4 v_FNO2007_ ! Running identification number
character*19 DR3 ! The DR3 photometric identification,
* NNNN-N-NN-NNNN-NNNN (1)
real*8 RAdeg ! (deg) Right Ascension in decimal degrees (J2000)
real*8 DEdeg ! (deg) Declination in decimal degrees (J2000)
character*17 EDR ! The EDR photometric identification
* NNNN-N-NN-NNNN-NNNN (1)
integer*4 DR ! [1/3] Flag for catalog inclusion (2)
character*2 sp ! [012 :] Flag for spectroscopic target
* selection (3)
real*4 TT ! Morphology index (4)
real*4 e_TT ! The 1{sigma} uncertainty in TT
character*2 Qual ! Photometric quality (5)
real*4 rmag ! (mag) Petrosian r magnitude (6)
character*13 SpecID ! Spectroscopic Plate-MJD-Fiber identification
real*4 z ! ? Heliocentric redshift
real*4 Con_z ! ? Confidence level of redshift measurement
character*15 Com ! Additional comments (8)
integer*4 PGC ! ? The PGC catalog number (Cat. VII/237)
*Note (1): The numbers mean
* run (observation) - camcol (camera column) - rerun (photometric
* data reduction)- field - object id (see DR3, Cat. II/259 for details).
*Note (2): Flag for catalog inclusion as follows:
* 3 = both in DR3 (rmag<=16) and in EDR (rmag<=15.9)
* 2 = only in DR3 (rmag<=16)
* 1 = rmag>16
*Note (3): Flag for spectroscopic target selection as follows:
* 0 = not targeted
* 1 = targeted but not observed
* 2 = observed
* 2: = fiber positioned off-nucleus, but on some other part of the
* object carrying the specified photometric identification
*Note (4): The mean of three classifiers rounded to the nearest integer or
* half-integer.
*Note (5): Photometric quality flag as follows:
* 0 = good photometry (typical error expected to be smaller than
* approximately 0.1mag based on visual estimates)
* 1 = photometry is accurate if one uses the magnitude given to the
* parent image
* 2 = some errors, say 0.3mag (with visual estimates), is suspected in
* photometry
* 3 = poor photometry. (Note that these flags are somewhat subjective.)
* 2c = suspected errors. Magnitudes may easily be obtained by
* applying aperture photometry centred on the designated object
* using parent atlas image frames
* 2p = suspected errors. Magnitudes may easily be obtained by
* applying aperture photometry centred on the designated object
* using child atlas image frames
* 3c = poor photometry. Magnitudes may easily be obtained by applying
* aperture photometry centred on the designated object using
* parent atlas image frames
* 3p = poor photometry. Magnitudes may easily be obtained by
* applying aperture photometry centred on the designated object
* using child atlas image frames
*Note (6): Of the child image after correcting for Galactic extinction.
*Note (8): Abbreviations used:
* p = peculiar, and this flag is given only when galaxies
* are classified into normal types,
* am = galaxies with an amorphous appearance,
* int = interacting,
* d-nucl = double nuclei within a single galaxy,
* "double" and "multiple" stand for more than one galaxy in the child
* field, while interactions among them are not apparent.
C=============================================================================
C Loading file 'table2.dat' ! Catalog of morphologically classified galaxies
C Format for file interpretation
1 format(
+ I4,1X,A19,1X,F9.5,1X,F9.5,1X,A17,1X,I1,1X,A2,1X,F4.1,1X,F3.1,
+ 1X,A2,1X,F5.2,1X,A13,1X,F6.4,1X,F5.3,1X,A15,1X,I5)
C Effective file loading
open(unit=1,status='old',file=
+'table2.dat')
write(6,*) '....Loading file: table2.dat'
do i__=1,2275
read(1,'(A134)')ar__
read(ar__,1)
+ v_FNO2007_,DR3,RAdeg,DEdeg,EDR,DR,sp,TT,e_TT,Qual,rmag,SpecID,
+ z,Con_z,Com,PGC
if(ar__(101:106) .EQ. '') z = rNULL__
if(ar__(108:112) .EQ. '') Con_z = rNULL__
if(ar__(130:134) .EQ. '') PGC = iNULL__
c ..............Just test output...........
write(6,1)
+ v_FNO2007_,DR3,RAdeg,DEdeg,EDR,DR,sp,TT,e_TT,Qual,rmag,SpecID,
+ z,Con_z,Com,PGC
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end