Conversion of standardized ReadMe file for
file /./ftp/cats/VII/28 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 2026-Oct-07
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. VII/28 Southern Groups and Clusters of Galaxies (Duus, Newell 1977)
*================================================================================
*Southern Groups and Clusters of Galaxies
* Duus A., Newell E.B.
* <Astrophy. Journ. Suppl., 35, 209 (1977)>
* =1977ApJS...35..209D
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'data.dat' ! Catalog Data
integer*4 nr__
parameter (nr__=957) ! Number of records
character*80 ar__ ! Full-size record
character*8 ID ! *Cluster identification number
integer*4 Fnum ! *? ESO field number
integer*4 Ldist1 ! (mm) *? Linear distance (east-west w.r.t. S.E.)
integer*4 Ldist2 ! (mm) *? Linear distance (north-south w.r.t. S.E.)
character*1 Cclass ! *[CMO] Concentration class or type (T)
integer*4 NGal ! *? The estimated number of galaxies
character*1 u_NGal ! *[*] Uncertain estimate
character*1 Dclass ! *[NMDVE] Distance class
character*38 Pident ! *Previous identified clusters and groups
*Note on ID:
* Cluster identification number based on a right ascension, declination
* numbering scheme. These equatorial coordinates were determined with respect
* to a group of SAO stars. (ID = XXYY+ZZZ where XX = hours of right ascension,
* YY = minutes of right ascension and ZZZ = tenths of degrees of declination
* where the equatorial coordinates are at epoch 1950.) This catalogue includes
* all previously identified clusters and groups with delta <= -27 deg. The STR
* designation in the published catalogue refers to Stromlo,
*Note on Fnum:
* European Southern Observatory (ESO) field number: The numbers of the ESO/SRC
* fields searched in this catalogue are as follows-
* 23-25,28-32,34,45-48,50-51,53-55,57,
* 71-76,79-86,102-109,111-112,114,116-120,
* 140-142,144-150,153-154,158-161,184-186,
* 188-190,194-197,200-201,230-232,235-236,
* 238-239,242,283,286,288-290,293-294,322, 325,345,356
*Note on Ldist1:
* Linear distance in the east-west direction of cluster center with respect
* to the southeast corner (lower lefthand corner) in the cluster map.
*Note on Ldist2:
* Linear distance in the north-south direction of cluster center with respect
* to the southeast corner (lower lefthand corner) in the cluster map.
*Note on Cclass:
* Concentration class or type (T) based on the visual appearance of the
* cluster and on the relative separations of the member galaxies as follows:
* C = compact
* M = medium compact
* O = open
* (This scheme is based on the classification as defined in Zwicky, F.,
* Herzog, E. and Wild, P. 1961, Catalogue of Galaxies and Clusters of
* Galaxies, California Institute of Technology
*Note on NGal:
* Estimate, N9 of the number of galaxies within region covered by the obvious
* density enhancement. This estimate is not corrected for contamination by
* background galaxies and will reflect the varying quality of the ESO
* exposures (which causes the limiting magnitude to differ from plate to
* plate).
*Note on u_NGal:
* An asterisk (*) is given in this column to designate uncertainty in the
* value given in bytes 34-36. A colon is given in the published version of the
* catalogue.
*Note on Dclass:
* Distance class, D, based on the apparent Al brightness of the member
* galaxies where:
* N = near V <= 15000
* M = medium distant 15000 < V <= 30000
* D = distant 30000 < V <= 45000
* V = very distant 45000 < V <= 60000
* E = extremely distant V > 60000
* (based on calibration by Zwicky, Herzog and Wild - cf. reference in byte-30)
* Velocity (V) ranges are given in units of km/sec.
*Note on Pident:
* Previously identified clusters and groups groups have been renumbered in the
* given numbering scheme (cf. bytes 1-8) but original designations and some
* references are given here.
* Note: not all entries in the catalogue which qualify as previously identified
* clusters and groups contain data for the fields:
* ESO number, x and y, T, N and D.
* References used in these bytes are given in Table 1. An asterisk (*) in
* these bytes implies additional information as given in Table 2 for the
* appropriate entry.
C=============================================================================
C Loading file 'data.dat' ! Catalog Data
C Format for file interpretation
1 format(A8,3X,I3,3X,I3,3X,I3,3X,A1,3X,I3,A1,2X,A1,2X,A38)
C Effective file loading
open(unit=1,status='old',file=
+'data.dat')
write(6,*) '....Loading file: data.dat'
do i__=1,957
read(1,'(A80)')ar__
read(ar__,1)
+ ID,Fnum,Ldist1,Ldist2,Cclass,NGal,u_NGal,Dclass,Pident
if(ar__(12:14) .EQ. '') Fnum = iNULL__
if(ar__(18:20) .EQ. '') Ldist1 = iNULL__
if(ar__(24:26) .EQ. '') Ldist2 = iNULL__
if(ar__(34:36) .EQ. '') NGal = iNULL__
c ..............Just test output...........
write(6,1)
+ ID,Fnum,Ldist1,Ldist2,Cclass,NGal,u_NGal,Dclass,Pident
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end