Conversion of standardized ReadMe file for
file /./ftp/cats/VII/170 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-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 ! (deg) Right Ascension 1950
real*8 DEdeg ! (deg) Declination 1950
C ---------------------------------- ! (position vector(s) in degrees)
character*1 FCflag ! [*] * indicates that the object is
* illustrated in Volume II
character*8 AM ! AM identification (1)
integer*4 n_AM ! []? More detailed AM identification (2)
integer*4 RAh ! (h) Right ascension 1950
integer*4 RAm ! (min) Right ascension 1950
integer*4 RAs ! (s) Right ascension 1950
character*1 DE_ ! Declination sign
integer*4 DEd ! (deg) Declination 1950
real*4 DEm ! (arcmin) Declination 1950
real*4 GLON ! (deg) Galactic longitude
real*4 GLAT ! (deg) Galactic latitude
integer*4 SGL ! (0.1deg) Supergalactic longitude
integer*4 SGB ! (0.1deg) Supergalacitc latitude
character*1 n_Diam ! [SD] Note on Diam (3)
integer*4 Diam ! (0.1arcmin) []? Diameter or Separation (3)
integer*4 CD1 ! [1-25]? Category (4)
integer*4 CD2 ! [1-25]? Category (4)
integer*4 CD3 ! [1-25]? Category (4)
integer*4 CD4 ! [1-25]? Category (4)
integer*4 CD5 ! [1-25]? Category (4)
integer*4 ESO_SERC ! []? ESO/SERC field number
integer*4 SERC_J ! []? SERC J plate number
integer*4 Xpos ! (mm) X position (5)
integer*4 Ypos ! (mm) Y position (5)
character*67 Desc ! 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,AM,n_AM,RAh,RAm,RAs,DE_,DEd,DEm,GLON,GLAT,SGL,SGB,
+ n_Diam,Diam,CD1,CD2,CD3,CD4,CD5,ESO_SERC,SERC_J,Xpos,Ypos,Desc
if(ar__(10:14) .EQ. '') n_AM = iNULL__
if(ar__(52:55) .EQ. '') Diam = iNULL__
if(ar__(56:57) .EQ. '') CD1 = iNULL__
if(ar__(58:59) .EQ. '') CD2 = iNULL__
if(ar__(60:61) .EQ. '') CD3 = iNULL__
if(ar__(62:63) .EQ. '') CD4 = iNULL__
if(ar__(64:65) .EQ. '') CD5 = iNULL__
if(ar__(66:68) .EQ. '') ESO_SERC = iNULL__
if(ar__(70:73) .EQ. '') SERC_J = iNULL__
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(DE_.EQ.'-'.AND.DEdeg.GE.0) DEdeg=-DEdeg
c ..............Just test output...........
write(6,1)
+ FCflag,AM,n_AM,RAh,RAm,RAs,DE_,DEd,DEm,GLON,GLAT,SGL,SGB,
+ n_Diam,Diam,CD1,CD2,CD3,CD4,CD5,ESO_SERC,SERC_J,Xpos,Ypos,Desc
write(6,'(6H Pos: 2F8.4)') RAdeg,DEdeg
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end