Conversion of standardized ReadMe file for
file /./ftp/cats/VII/170 into FORTRAN code for loading all data files into arrays.
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-Sep-12
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/170 Catalogue of Southern Peculiar Galaxies and Associations (Arp+, 1987)
*================================================================================
*Catalogue of Southern Peculiar Galaxies and Associations.
*Volume I. Positions and descriptions.
* Arp H.C., Madore B.F.
* <Cambridge University Press (1987)>
* =1987AM....C......0A (SIMBAD/NED RefCode)
* =1987AMCat.C......1A
* =1996yCat.7170....0A
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'catalog.dat' ! Catalogue of Southern peculiar galaxies
and associations
integer*4 nr__
parameter (nr__=6445) ! Number of records
character*149 ar__ ! Full-size record
C 1950 position composed of: RAh RAm RAs DE- DEd DEm
real*8 RAdeg (nr__) ! (deg) Right Ascension 1950
real*8 DEdeg (nr__) ! (deg) Declination 1950
C ---------------------------------- ! (position vector(s) in degrees)
character*1 FCflag (nr__) ! [*] * indicates that the object is
* illustrated in Volume II
character*8 AM (nr__) ! AM identification (1)
integer*4 n_AM (nr__) ! []? More detailed AM identification (2)
integer*4 RAh (nr__) ! (h) Right ascension 1950
integer*4 RAm (nr__) ! (min) Right ascension 1950
integer*4 RAs (nr__) ! (s) Right ascension 1950
character*1 DE_ (nr__) ! Declination sign
integer*4 DEd (nr__) ! (deg) Declination 1950
real*4 DEm (nr__) ! (arcmin) Declination 1950
real*4 GLON (nr__) ! (deg) Galactic longitude
real*4 GLAT (nr__) ! (deg) Galactic latitude
integer*4 SGL (nr__) ! (0.1deg) Supergalactic longitude
integer*4 SGB (nr__) ! (0.1deg) Supergalacitc latitude
character*1 n_Diam (nr__) ! [SD] Note on Diam (3)
integer*4 Diam (nr__) ! (0.1arcmin) []? Diameter or Separation (3)
integer*4 CD1 (nr__) ! [1-25]? Category (4)
integer*4 CD2 (nr__) ! [1-25]? Category (4)
integer*4 CD3 (nr__) ! [1-25]? Category (4)
integer*4 CD4 (nr__) ! [1-25]? Category (4)
integer*4 CD5 (nr__) ! [1-25]? Category (4)
integer*4 ESO_SERC (nr__) ! []? ESO/SERC field number
integer*4 SERC_J (nr__) ! []? SERC J plate number
integer*4 Xpos (nr__) ! (mm) X position (5)
integer*4 Ypos (nr__) ! (mm) Y position (5)
character*67 Desc (nr__) ! Description (6)
*Note (1):
* Note that the AM designation is based on the 1950 position with
* "format" HHMM+DDM, where the last 'M' digit represents truncated tens
* of arc minutes (the last digit is always between 0 and 5)
*Note (2):
* For objects that are part of a pair, a triple or a larger association
* of objects which are also listed and described in the Catalogue as
* separate entries, this number represents the abbreviated right
* ascension and declination of the member immediately preceding the
* current object in order of right ascension (only the last number of
* right ascension and the four numbers of declination are given)
*Note (3):
* S or D, indicating that the following number is a measure of either
* the separation (S) of major components, or a characteristic diameter
* (D) of the system as a whole, respectively.
*Note (4): the following Description Codes are used:
* 1 Galaxies with interacting companion(s)
* 2 Interacting doubles (galaxies of comparable size)
* 3 Interacting triples
* 4 Interacting quartets
* 5 Interacting quintets
* 6 Ring galaxies (or morphologically similar objects)
* 7 Galaxies with (linear) jets
* 8 Galaxies with apparent companion(s)
* 9 M51-types (companion at end of spiral arm)
* 10 Galaxies with peculiar spiral arms
* 11 Three-armed spirals and multiple-armed spirals
* 12 Peculiar disks (major asymmetry or deformation)
* 13 Compact (very high-surface-brightness) galaxies
* 14 Galaxies with prominent or unusual dust absorption
* 15 Galaxies with tails, loops of material or debris
* 16 Irregular or disturbed, (apparently isolated) galaxies
* 17 Chains (four or more galaxies aligned)
* 18 Groups (four or more galaxies not aligned)
* 19 Clusters (only very conspicuous, rich systems)
* 20 Dwarf galaxies (low surface brightness)
* 21 Stellar objects with associated nebulosity
* 22 Miscellaneous (rare or distinctive objects)
* 23 Close pairs (not visibly interacting)
* 24 Clode triples (not visibly interacting)
* 25 Planetary nebulae
*Note (5):
* The Cartesian coordinates of the object are measured from the lower
* left-hand (south-east) corner of the original SERC plate.
*Note (6): the following abbreviations are used:
* ABS'N. absorption
* APP. apparent
* ASSOC. association
* ASYMM. asymmetric
* BR. bright
* CIRC. circular
* COMP'N. companion
* COMP'NS. companions
* CONDENS. condensation
* CONN. connected/ing/ion
* DBL. double
* DIAM. diametric
* E elliptical
* ELONG. elongated
* ENVEL. envelope
* FILAM. filament
* FNT. faint
* G.D. grand design
* GAL./GALS. galaxy/galaxies
* GRP. group
* HI.S.BR. high surface brightness
* incl. including
* I/A interacting
* IRR. irregular
* LO.S.BR. low surface brightness
* MA.AX. major axis
* MATR'L material
* MDM.S.BR. medium surface brightness
* MI.AX. minor axis
* MULTI. multiple
* PEC. peculiar
* S.BR. surface brightness
* SP. spiral
* V. very
* w. with
* + and or plus
C=============================================================================
C Loading file 'catalog.dat' ! Catalogue of Southern peculiar galaxies
* and associations
C Format for file interpretation
1 format(
+ A1,A8,I5,1X,I2,I2,I2,A1,I2,F4.1,1X,F6.2,F6.2,1X,I4,I4,A1,I4,
+ I2,I2,I2,I2,I2,I3,1X,I4,1X,I3,1X,I3,1X,A67)
C Effective file loading
open(unit=1,status='old',file=
+'catalog.dat')
write(6,*) '....Loading file: catalog.dat'
do i__=1,6445
read(1,'(A149)')ar__
read(ar__,1)
+ FCflag(i__),AM(i__),n_AM(i__),RAh(i__),RAm(i__),RAs(i__),
+ DE_(i__),DEd(i__),DEm(i__),GLON(i__),GLAT(i__),SGL(i__),
+ SGB(i__),n_Diam(i__),Diam(i__),CD1(i__),CD2(i__),CD3(i__),
+ CD4(i__),CD5(i__),ESO_SERC(i__),SERC_J(i__),Xpos(i__),
+ Ypos(i__),Desc(i__)
if(ar__(10:14) .EQ. '') n_AM(i__) = iNULL__
if(ar__(52:55) .EQ. '') Diam(i__) = iNULL__
if(ar__(56:57) .EQ. '') CD1(i__) = iNULL__
if(ar__(58:59) .EQ. '') CD2(i__) = iNULL__
if(ar__(60:61) .EQ. '') CD3(i__) = iNULL__
if(ar__(62:63) .EQ. '') CD4(i__) = iNULL__
if(ar__(64:65) .EQ. '') CD5(i__) = iNULL__
if(ar__(66:68) .EQ. '') ESO_SERC(i__) = iNULL__
if(ar__(70:73) .EQ. '') SERC_J(i__) = iNULL__
RAdeg(i__) = rNULL__
DEdeg(i__) = rNULL__
c Derive coordinates RAdeg and DEdeg from input data
c (RAdeg and DEdeg are set to rNULL__ when unknown)
if(RAh(i__) .GT. -180) RAdeg(i__)=RAh(i__)*15.
if(RAm(i__) .GT. -180) RAdeg(i__)=RAdeg(i__)+RAm(i__)/4.
if(RAs(i__) .GT. -180) RAdeg(i__)=RAdeg(i__)+RAs(i__)/240.
if(DEd(i__) .GE. 0) DEdeg(i__)=DEd(i__)
if(DEm(i__) .GE. 0) DEdeg(i__)=DEdeg(i__)+DEm(i__)/60.
if(DE_(i__).EQ.'-'.AND.DEdeg(i__).GE.0) DEdeg(i__)=-DEdeg(i__)
c ..............Just test output...........
write(6,1)
+ FCflag(i__),AM(i__),n_AM(i__),RAh(i__),RAm(i__),RAs(i__),
+ DE_(i__),DEd(i__),DEm(i__),GLON(i__),GLAT(i__),SGL(i__),
+ SGB(i__),n_Diam(i__),Diam(i__),CD1(i__),CD2(i__),CD3(i__),
+ CD4(i__),CD5(i__),ESO_SERC(i__),SERC_J(i__),Xpos(i__),
+ Ypos(i__),Desc(i__)
write(6,'(6H Pos: 2F8.4)') RAdeg(i__),DEdeg(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end