Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_A/532/A74 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-Oct-06
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/A+A/532/A74 EFIGI catalogue of 4458 nearby galaxies (de Lapparent+, 2011)
*================================================================================
*The EFIGI catalogue of 4458 nearby galaxies with morphology.
* Baillard A., Bertin W., de Lapparent V., Fouque P., Arnouts S., Mellier Y.,
* Pello R., Leborgne J.-F., Prugniel P., Makarov D., Marakova L.,
* McCraken H.J., Bijaoui A., Tasca L.
* <Astron. Astrophys. 532, A74 (2011)>
* =2011A&A...532A..74B
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'efigi.dat' ! EFIGI morphometric catalogue (V1.6.2)
integer*4 nr__
parameter (nr__=4458) ! Number of records
character*336 ar__ ! Full-size record
C J2000.0 position composed of: RAdeg DEdeg
integer*4 PGC (nr__) ! PGC name
real*8 RAdeg (nr__) ! (deg) Right ascension (J2000.0)
real*8 DEdeg (nr__) ! (deg) Declination (J2000.0)
integer*4 T (nr__) ! EHS morphological type (1)
integer*4 b_T (nr__) ! EHS morphological type: lower confidence limit
integer*4 B_T_1 (nr__) ! EHS morphological type: upper confidence limit
real*4 B_T_2 (nr__) ! [0,1]?=-1 Bulge-to-total ratio (2)
real*4 b_B_T (nr__) ! [0,1]?=-1 lower confidence limit of B/T
real*4 B_B_T_1 (nr__) ! [0,1]?=-1 upper confidence limit of B/T
real*4 armS (nr__) ! [0,1]?=-1 Arm strength (3)
real*4 b_armS (nr__) ! [0,1]?=-1 Arm strength: lower confidence limit
real*4 B_armS_1 (nr__) ! [0,1]?=-1 Arm strength: upper confidence limit
real*4 armC (nr__) ! [0,1]?=-1 Average spiral arm curvature (4)
real*4 b_armC (nr__) ! [0,1]?=-1 lower confidence limit of armC
real*4 B_armC_1 (nr__) ! [0,1]?=-1 upper confidence limit of armC
* [0,1]?=-1 upper confidence limit
real*4 armR (nr__) ! [0,1]?=-1 Winding direction of spiral arms (5)
real*4 b_armR (nr__) ! [0,1]?=-1 lower confidence limit of armR
real*4 B_armR_1 (nr__) ! [0,1]?=-1 upper confidence limit of armR
real*4 barL (nr__) ! [0,1]?=-1 Length of central bar (6)
real*4 b_barL (nr__) ! [0,1]?=-1 lower confidence limit of barL
real*4 B_barL_1 (nr__) ! [0,1]?=-1 upper confidence limit of barL
real*4 iRing (nr__) ! [0,1]?=-1 Strength of inner ring, lens or
* inner pseudo-ring (7)
real*4 b_iRing (nr__) ! [0,1]?=-1 lower confidence limit of iRing
real*4 B_iRing_1 (nr__) ! [0,1]?=-1 upper confidence limit of iRing
real*4 oRing (nr__) ! [0,1]?=-1 Strength of outer ring (8)
real*4 b_oRing (nr__) ! [0,1]?=-1 lower confidence limit of oRing
real*4 B_oRing_1 (nr__) ! [0,1]?=-1 upper confidence limit of oRing
real*4 pRing (nr__) ! [0,1]?=-1 Type and strength of pseudo-ring (9)
real*4 b_pRing (nr__) ! [0,1]?=-1 lower confidence limit of pRing
real*4 B_pRing_1 (nr__) ! [0,1]?=-1 upper confidence limit of pRing
real*4 Pert (nr__) ! [0,1] Deviation from rotational symmetry (10)
real*4 b_Pert (nr__) ! [0,1] lower confidence limit of Pert
real*4 B_Pert_1 (nr__) ! [0,1] upper confidence limit of Pert
real*4 vDust (nr__) ! [0,1] Strength of dust features (11)
real*4 b_vDust (nr__) ! [0,1] lower confidence limit of vDust
real*4 B_vDust_1 (nr__) ! [0,1] upper confidence limit of vDust
real*4 pDust (nr__) ! [0,1]?=-1 Patchiness of dust features (12)
real*4 b_pDust (nr__) ! [0,1]?=-1 lower confidence limit of pDust
real*4 B_pDust_1 (nr__) ! [0,1]?=-1 upper confidence limit of pDust
real*4 floc (nr__) ! [0,1] Strength of flocculent features (13)
real*4 b_floc (nr__) ! [0,1] lower confidence limit of floc
real*4 B_floc_1 (nr__) ! [0,1] upper confidence limit of floc
real*4 spot (nr__) ! [0,1] Strength of regions of strong star
* formation or active nuclei (14)
real*4 b_spot (nr__) ! [0,1] lower confidence limit of spot
real*4 B_spot_1 (nr__) ! [0,1] upper confidence limit of spot
real*4 inc (nr__) ! [0,1] Inclination of the disk / elongation
* of the spheroid (15)
real*4 b_inc (nr__) ! [0,1] lower confidence limit of inc
real*4 B_inc_1 (nr__) ! [0,1] upper confidence limit of inc
real*4 cont (nr__) ! [0,1] Severity of contamination by stars,
* or artifacts (16)
real*4 b_cont (nr__) ! [0,1] lower confidence limit of cont
real*4 B_cont_1 (nr__) ! [0,1] upper confidence limit of cont
real*4 mult (nr__) ! [0,1] Severity of contamination by stars,
* galaxies or artifacts (17)
real*4 b_mult (nr__) ! [0,1] lower confidence limit of mult
real*4 B_mult_1 (nr__) ! [0,1] upper confidence limit of mult
*Note (1): The EFIGI morphological classification is defined by slightly
* modifying the RC3 Hubble classification: the main galaxy sequence is identical
* to that of the RC3, but peculiar galaxies and special features are no longer
* considered as separate stages. The resulting classification, which we call the
* EFIGI Hubble Sequence (EHS) is summarised below:
* -------------------------------------------------------------------------------
* Class | Stage |Litteral| EHS | Description
* | | type | type |
* -------------------------------------------------------------------------------
* Elliptical | Compact | cE | -6 | Compact elliptical.
* Elliptical | 0-6 | E | -5 | More or less elongated
* Elliptical | cD | cD | -4 | Giant elliptical. Sharp central profile
* | | | | and very extended, low surface
* | | | | brightness halo
* -------------------------------------------------------------------------------
* Lenticular | Early | S0- | -3 | Dominant bulge, no sign of structure in
* | | | | disk nor dust
* Lenticular |Intermed. | S00 | -2 | Some structure in disk but no arms,
* | | | | small amounts of dust
* Lenticular | Late | S0+ | -1 | Clear structure in disk but no arms,
* | | | | thin dust lanes
* -------------------------------------------------------------------------------
* Spiral | 0/a | S0/a | 0 | Very tightly wound arms, very prominent
* | | | | bulge, low amounts of dust
* Spiral | a | Sa | 1 | Tightly wound arms, very prominent
* | | | | bulge, low amounts of dust
* Spiral | ab | Sab | 2 | Quite tightly wound arms, prominent
* | | | | bulge, low amounts of dust
* Spiral | b | Sb | 3 | Quite tightly wound arms, prominent
* | | | | bulge, strong dust lanes
* Spiral | bc | Sbc | 4 | Quite loosely wound arms, medium bulge,
* | | | | dust lanes
* Spiral | c | Sc | 5 | Grand design spiral, fairly weak bulge,
* | | | | dust lanes
* Spiral | cd | Scd | 6 | Loosely wound and weak arms, weak
* | | | | bulge, scattered dust
* Spiral | d | Sd | 7 | Loosely wound and very weak arms, weak
* | | | | bulge, scattered dust
* Spiral | dm | Sdm | 8 | Very loosely wound arms, very weak
* | | | | bulge, small amounts of dust
* Spiral | m | Sm | 9 | No arms, very weak bulge, small amounts
* | | | | of dust
* -------------------------------------------------------------------------------
* Irregular |Magellanic| Im | 10 | No arms, no bulge. Irregular profile.
* | | | | Low surface brightness. May host a bar
* -------------------------------------------------------------------------------
* Dwarf | Dwarf | dE | 11 | Regular low surface brightness profile,
* |spheroidal| | | no arms. May contain a tight nucleus
* |elliptical| | |
* -------------------------------------------------------------------------------
*Note (2): Bulge/Total ratio. This attribute measures the relative contribution
* of the bulge (spheroidal) component to the total flux of the galaxy. Im
* galaxies have Bulge_to_Total=0 and elliptical galaxies have Bulge_to_Total=1.
* Values are:
* ------------------------------------------------------------------------------
* Value | Meaning
* ------------------------------------------------------------------------------
* -1 | undefined
* 0 | no bulge
* 0.25 | very weak bulge comprising ~25% of the total flux
* 0.5 | medium bulge comprising ~50% of the total flux
* 0.75 | strong bulge comprising ~75% of the total flux
* 1 | all flux within bulge, no disk nor spiral arms
* ------------------------------------------------------------------------------
*Note (3): Arm strength. This attribute measures the relative strength of spiral
* arms, in terms of the flux fraction relative to the whole galaxy. 0 indicates
* no visible arms, while 1 corresponds to the highest fraction observed in the
* EFIGI sample. When no spiral arms are visible (either due to the galaxy
* structure or to a high inclination that prevents any existing arm to be seen),
* this attribute is undefined. Values are:
* ------------------------------------------------------------------------------
* Value | Meaning
* ------------------------------------------------------------------------------
* -1 | undefined
* 0 | very weak or no spiral arms
* 0.25 | weak contribution of the spiral arms to the galaxy flux
* 0.5 | moderate contribution of the spiral arms to the galaxy flux
* 0.75 | significant contribution of the spiral arms to the galaxy flux
* 1 | highest contribution of the spiral arms to the galaxy flux
* ------------------------------------------------------------------------------
*Note (4): Arm curvature. This attribute measures the average intrinsic curvature
* of the spiral arms, that is for the same galaxy seen face-on, as inclination
* increases the variations of the arm curvature along the arms. It is
* subordinate to the Arm_Strength attribute: for all EFIGI galaxies for which
* Arm_Strength is undefined, and for the majority of EFIGI galaxies with
* Arm_Strength = 0, specifically those with no visible spiral arms,
* Arm_Curvature has no meaning and the attribute is undefined. Values are:
* ------------------------------------------------------------------------------
* Value | Meaning
* ------------------------------------------------------------------------------
* -1 | undefined
* 0 | wide open spiral arms, with pitch angles of 40 degrees or more
* 0.25 | open spiral arms, with pitch angles of 30 to 40 degrees
* 0.5 | moderately open spiral arms, with pitch angles of 20 to 30 degrees
* 0.75 | closed-in spiral arms, with pitch angles of 10 to 20 degrees
* 1 | tightly wound spiral arms, with pitch angles of 10 degrees or less
* ------------------------------------------------------------------------------
*Note (5): Arm_Rotation. This attribute indicates whether the spiral pattern
* appears to rotate clockwise (East of North negative) or counterclockwise (East
* of North positive). It is subordinate to the Arm_Strength attribute: for the
* vast majority of EFIGI galaxies with Arm_Strength = 0, specifically those
* with no visible spiral arms, Arm_Rotation has no meaning and the attribute is
* undefined. Values are:
* ------------------------------------------------------------------------------
* Value | Meaning
* ------------------------------------------------------------------------------
* -1 | undefined
* 0 | definitely clockwise
* 0.25 | probably clockwise
* 0.5 | no preferred direction
* 0.75 | probably counterclockwise
* 1 | definitely counterclockwise
* ------------------------------------------------------------------------------
*Note (6): Bar length. This attribute quantifies the presence of a central bar
* component in the galaxy, in terms of length relative to the galaxy diameter
* D_25. Bar_Length is often undefined for highly inclined disks in which one
* cannot assess the presence of a bar. Values are:
* ------------------------------------------------------------------------------
* Value | Meaning
* ------------------------------------------------------------------------------
* -1 | undefined
* 0 | no visible bar
* 0.25 | barely visible bar feature
* 0.5 | short bar, with a length about one third of D_25
* 0.75 | long bar, that extends over about half of D_25
* 1 | very long, prominent bar that extends over more than half of D_25
* ------------------------------------------------------------------------------
*Note (7): Inner ring. This attribute measures the presence of a circular or
* elliptical ring-like overdensity that is within the disk and/or spiral arm
* pattern, and at the end of the bar when present (contrary to nuclear rings
* that occur well within the bar). This attributes also includes inner lenses,
* that is regions of nearly constant surface brightness with radius, as well as
* the inner pseudo-rings, which are not completely closed and more spiral-like.
* Strength is proportional to the fraction of galaxy light contained within the
* ring. A value of 1 corresponds to the highest fraction observed in the
* catalogue. This attribute is undefined for highly inclined disks in which one
* cannot assess the presence of a ring. Values are:
* ------------------------------------------------------------------------------
* Value | Meaning
* ------------------------------------------------------------------------------
* -1 | undefined
* 0 | no inner ring
* 0.25 | low ring contribution to the galaxy flux
* 0.5 | intermediate ring contribution to the galaxy flux
* 0.75 | significant ring contribution to the galaxy flux
* 1 | highest ring contribution to the galaxy flux
* ------------------------------------------------------------------------------
*Note (8): Outer ring. This attribute measures the presence of a circular or
* elliptical ring-like over-density that lies mostly outside the disk and/or
* spiral arm pattern. This attributes also includes outer lenses, that is
* regions of nearly constant surface brightness with radius. Strength is
* proportional to the fraction of galaxy light contained within the ring. A
* value of 1 corresponds to the highest fraction observed in the catalogue. This
* attribute is undefined for highly inclined disks in which one cannot assess
* the presence of a ring. Values are:
* ------------------------------------------------------------------------------
* Value | Meaning
* ------------------------------------------------------------------------------
* -1 | undefined
* 0 | no outer ring
* 0.25 | low ring contribution to the galaxy flux
* 0.5 | intermediate ring contribution to the galaxy flux
* 0.75 | significant ring contribution to the galaxy flux
* 1 | highest ring contribution to the galaxy flux
* ------------------------------------------------------------------------------
*Note (9): Pseudo-ring. This attribute measures the presence of outer
* pseudo-rings as defined by Buta & Combes (1996FCPh...17...95B): the R1' ring,
* having a dimpled "eight" shape due to a 180 degrees winding of the spiral
* arms with respect to the end of a bar; the R2' feature, with a higher
* winding of 270 degrees of the spiral arms with respect to the bar; and the
* intermediate R1R2' pattern. Values of 0.75 and 1 are assigned to galaxies
* having two closed-loop arms of type R1', and grade the fraction of the total
* galaxy light that is included in the pseudo-ring feature. Values of 0.25 and
* 0.5 are assigned to galaxies for which one or both of the arms do not form a
* closed-loop of type R1', thus including types R2' and R1R2' from Buta &
* Combes 1996, and also grade the fraction of the total galaxy light that is
* included in the pseudo-ring feature. This attribute is undefined for highly
* inclined disks in which one cannot assess the presence of a pseudo-ring.
* Values are:
*
* -------------------------------------------------------------------------------
* Value | Meaning
* -------------------------------------------------------------------------------
* -1 | undefined
* 0 | no visible pseudo-ring feature
* 0.25 | R2' and R1R2' pseudo-rings containing a low fraction of the
* | galaxy flux
* 0.5 | R2' and R1R2' pseudo-rings containing a higher fraction of the
* | galaxy flux
* 0.75 | R1' pseudo-ring feature containing a low fraction of the galaxy flux
* 1 | R1' pseudo-ring feature containing a higher fraction of the galaxy flux
* -------------------------------------------------------------------------------
*Note (10): Perturbation. This attribute measures the amplitude of distortions
* in the galaxy profile, due to tidal effects for instance. 0 indicates a light
* profile with rotational symmetry (hence regular spiral arms when applicable),
* while 1 corresponds to the most distorted galaxies observed in the catalogue.
* Values are:
* ------------------------------------------------------------------------------
* Value | Meaning
* ------------------------------------------------------------------------------
* -1 | undefined
* 0 | no distortion
* 0.25 | slight distortion of the object profile and/or the spiral arms
* 0.5 | moderate distortion of the object profile and/or the spiral arms
* 0.75 | strong distortion, with bulge, disk, or spiral arms still identifiable
* 1 | completely distorted profile, components can barely be distinguished
* ------------------------------------------------------------------------------
*Note (11): Visible dust. This attribute measures the strength of features
* revealing the presence of dust: obscuration and/or diffusion of star light by
* a dust lane or molecular clouds. Values are:
* -------------------------------------------------------------------------------
* Value | Meaning
* -------------------------------------------------------------------------------
* -1 | undefined
* 0 | no dust
* 0.25 | indications of dust, but dust cannot be located
* 0.5 | low to moderate amounts of dust, can be located
* 0.75 | significant amounts of dust covering < 50% of the surface of the galaxy
* 1 | high amounts of dust covering > 50% of the surface of the galaxy
* -------------------------------------------------------------------------------
*Note (12): Dust dispersion. This attribute measures the "patchiness" of the dust
* distribution in terms of whether the dust is smoothly distributed in sharp
* lanes (or rings) or distributed in strongly irregular patches. This attribute
* is subordinate to the Visible_Dust attribute: Dust_Dispersion is undefined
* when Visible_Dust is equal to 0 or 1. Values are:
* ------------------------------------------------------------------------------
* Value | Meaning
* ------------------------------------------------------------------------------
* -1 | undefined
* 0 | thin lane(s) of dust with smooth outline
* 0.25 | thin lane(s) of dust with patchy outline
* 0.5 | patchy lane(s) of dust and some other small patches
* 0.75 | very patchy lane(s) of dust and many other patches
* 1 | extremely patchy distribution of the dust
* ------------------------------------------------------------------------------
*Note (13): Flocculence. This attribute measures the importance of "flocculent"
* features due to scattered HII regions relative to the strength of spiral arms
* and the underlying smooth profile components. Values are:
* ------------------------------------------------------------------------------
* Value | Meaning
* ------------------------------------------------------------------------------
* -1 | undefined
* 0 | no visible flocculence
* 0.25 | weak/barely visible flocculence limited to small parts of the disk
* 0.5 | some flocculence visible in parts of the galaxy disk
* 0.75 | significant flocculence over most of the galaxy disk
* 1 | strong flocculence over most of the galaxy disk
* ------------------------------------------------------------------------------
*Note (14): Hot spots. This attribute indicates the presence of "hot spots", that
* is regions with a very high surface brightness such as giant regions of star
* formation, active nuclei, or stellar nuclei of dwarf galaxies. It is not to be
* confused with scattered HII regions of normal intensity contributing to the
* "flocculent" aspect of some disks. Values are:
* ------------------------------------------------------------------------------
* Value | Meaning
* ------------------------------------------------------------------------------
* -1 | undefined
* 0 | no hot spot
* 0.25 | small part of the galaxy flux included in one or several hot spots
* 0.5 | moderate part of the galaxy flux included in one or several hot spots
* 0.75 | significant part of the galaxy flux included in one or several
* | hot spots
* 1 | one or several hot spots dominate the galaxy flux
* ------------------------------------------------------------------------------
*Note (15): Inclination/elongation. For galaxies with a visible disk (lenticulars
* and spirals), this attribute measures the disk inclination f=1-cos(theta),
* where theta is the angle between the rotation axis of the disk and the
* line-of-sight of the observer, or equivalently between the galaxy disk and the
* plane of the sky; theta then varies from 0 degrees (face-on) to 90 degrees
* (edge-on). For galaxies with no obvious disk (ellipticals, cD, cE, Im and dE),
* this attribute provides an estimate of the apparent elongation of the object,
* that is f = 1 - b/a with a and b the apparent major and minor axis lengths
* respectively. The scale of elongation is matched to that of inclination so
* that a circular disk of a given inclination attribute value would have an
* identical elongation attribute value. Values are:
* ------------------------------------------------------------------------------
* Value | Meaning
* ------------------------------------------------------------------------------
* -1 | undefined
* 0 | 0-35 degree disk inclination (face-on) / very low elongation f<0.2
* 0.25 | 35-50 degree disk inclination angle / low elongation 0.2<f<0.4
* 0.5 | 50-70 degree disk inclination angle / moderate elongation 0.4<f<0.7
* 0.75 | 70-80 degree disk inclination angle / strong elongation 0.7<f<0.8
* 1 | 80-90 degree disk inclination (edge-on) / very strong elongation f>0.8
* ------------------------------------------------------------------------------
*Note (16): Contamination. This attributes indicates the severity of the
* contamination by bright stars, overlapping galaxies or image artifacts
* (diffraction spikes, star halos, satellite trails, electronic defects,...).
* Values are:
* ------------------------------------------------------------------------------
* Value | Meaning
* ------------------------------------------------------------------------------
* -1 | undefined
* 0 | no overlapping source visible on the galaxy isophotal footprint
* 0.25 | only faint sources overlapping the galaxy isophotal footprint
* | (negligible effect on photometry and morphometry)
* 0.5 | overlapping sources on the galaxy isophotal footprint or faint
* | gradient / background light pollution
* | (some impact on photometry and morphometry)
* 0.75 | bright sources overlapping the galaxy footprint or strong gradient /
* | background light pollution
* | (large impact on photometry and morphometry)
* 1 | most of the galaxy image footprint dominated by light from a very
* | bright contaminant (unreliable photometry or morphometry)
* ------------------------------------------------------------------------------
*Note (17): Multiplicity. This attribute quantifies the abundance of galaxies in
* the vicinity of the main galaxy. Only galaxies that have magnitudes less than
* that of the main galaxy plus ~5 mag, and whose centre lies within 0.75 D_25
* from the image centre are counted. Values are:
* ------------------------------------------------------------------------------
* Value | Meaning
* ------------------------------------------------------------------------------
* -1 | undefined
* 0 | no other galaxy
* 0.25 | one neighbouring galaxy
* 0.5 | two neighbouring galaxies
* 0.75 | three neighbouring galaxies
* 1 | four or more neighbouring galaxies
* ------------------------------------------------------------------------------
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'efigiz.dat' ! EFIGI selected redshifts and corresponding distances
integer*4 nr__1
parameter (nr__1=4458) ! Number of records
character*146 ar__1 ! Full-size record
C J2000 position composed of: RAdeg DEdeg
integer*4 PGC_1 (nr__1) ! PGC galaxy number
real*8 RAdeg_1 (nr__1) ! (deg) Right ascension in decimal degrees (J2000)
real*8 DEdeg_1 (nr__1) ! (deg) Declination in decimal degrees (J2000)
real*4 zhel (nr__1) ! ?=-99.99 Selected heliocentric redshift
real*4 e_zhel (nr__1) ! ?=-9.9999 Uncertainty in zhel
character*4 r_zhel (nr__1) ! Catalogue of redshift correction for
* Local Group infall into Virgo redshift (18)
real*4 zdis (nr__1) ! Selected redshift corrected for Local Group
* infall into Virgo (error always -99.99)
character*10 r_zdis (nr__1) ! Catalogue of redshift correction for Local Group
* infall into Virgo redshift (19)
real*4 zall (nr__1) ! ?=-9.9999 zdis, or zhel if zdis undertermined
character*4 n_zall (nr__1) ! Type of redshift in zall: DIS or HEL (20)
real*4 e_zall (nr__1) ! ?=-9.9999 Uncertainty in redshift used for zall
character*4 f_zall (nr__1) ! uncertainty origin (HEL = heliocentric)
real*8 Dcom (nr__1) ! (Mpc) ?=-999.9999 Comoving distance derived from zall
real*8 Dlum (nr__1) ! (Mpc) ?=-999.9999 Luminosity distance derived from zall
real*8 Ddiam (nr__1) ! (Mpc) ?=-999.9999 Transverse diameter distance derived
* from zall
*Note (18): Catalogue of redshift correction as follows:
* HL = HyperLeda
* NED = NED
* SDSS = SDSS
*Note (19): Catalogue of redshift correction as follows:
* HL = HyperLeda corrected redshift for Local Group infall into Virgo
* NED-vir-HL = NED heliocentric redshift corrected with the HyperLeda
* correction for Local Group infall into Virgo
*Note (20): Type of redshift as follows:
* DIS = redshift corrected for Local Group infall into Virgo stored in zall
* HEL = heliocentric redshift stored in zall
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'pgc.dat' ! PGC parameters for the EFIGI catalogue galaxies
integer*4 nr__2
parameter (nr__2=4458) ! Number of records
character*88 ar__2 ! Full-size record
integer*4 PGC_2 (nr__2) ! PGC galaxy number
real*4 Tpgc (nr__2) ! ?=-9.9 RC3 morphological type
real*4 e_Tpgc (nr__2) ! ?=-9.9 Mean error on Tpgc
character*7 MType (nr__2) ! Expanded morphological type
real*4 logD25 (nr__2) ! ([0.1arcmin]) ?=-99.99 Mean apparent major isophotal
* diameter measured at or reduced to surface
* brightness level 25.0Bmag/arcsec^2 ^
real*4 logR25 (nr__2) ! ([---]) ?=-9.99 Log of ratio of mean major isophotal
* diameter (D25) to mean minor isophotal diam.
integer*4 PA (nr__2) ! (deg) ?=-9999 Position angle of major axis
real*4 BTmag (nr__2) ! (mag) ?=-99.99 Total B magnitude
real*4 e_BTmag (nr__2) ! (mag) ?=-9.99 Mean error on BTmag
real*4 B_VT (nr__2) ! (mag) ?=-9.99 Total (B-V) colour index
real*4 e_B_VT (nr__2) ! (mag) ?=-9.99 Mean error on total (B-V)
integer*4 czP (nr__2) ! (km/s) ?=-9999 Heliocentric velocity
real*4 zP (nr__2) ! ?=-9.999 Redshift
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'hleda.dat' ! HyperLeda velocities, redshifts, types and names
for the EFIGI catalogue galaxies
integer*4 nr__3
parameter (nr__3=4458) ! Number of records
character*129 ar__3 ! Full-size record
integer*4 PGC_3 (nr__3) ! PGC galaxy number
real*8 HRVr (nr__3) ! (km/s) ?=-9999.9 Heliocentric radial velocity from
* radio measurement
real*4 e_HRVr (nr__3) ! (km/s) ?=-99.9 Actual error on HRVr
real*8 HRVo (nr__3) ! (km/s) ?=-9999.9 Heliocentric radial velocity from
* optical measurement
real*4 e_HRVo (nr__3) ! (km/s) ?=-99.9 Actual error on HRVo
real*8 HRV (nr__3) ! (km/s) ?=-9999.9 Mean heliocentric radial velocity
real*4 e_HRV (nr__3) ! (km/s) ?=-99.9 Actual error on HRV
real*8 RVvir (nr__3) ! (km/s) Radial velocity corrected for Local Group
* infall into Virgo
real*4 zvir (nr__3) ! ?=-9.999 Redshift corrected for Local Group
* infall into Virgo
real*4 e_zvir (nr__3) ! ?=-9.999 Redshift error derived from e_RVvir
character*4 MType_1 (nr__3) ! Morphological type
character*9 Name (nr__3) ! Principal (main) designation
character*28 OName (nr__3) ! List of all object names
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'ned.dat' ! NED velocity, redshift and object name for the
EFIGI catalogue galaxies
integer*4 nr__4
parameter (nr__4=4458) ! Number of records
character*50 ar__4 ! Full-size record
integer*4 PGC_4 (nr__4) ! PGC number
integer*4 cz (nr__4) ! (km/s) ?=-9999 Heliocentric velocity
real*8 z (nr__4) ! ?=-9.999 Redshift
character*24 NED (nr__4) ! NED name
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'sdss.dat' ! SDSS identifiers, redshift and confidence level
for the EFIGI catalogue galaxies
integer*4 nr__5
parameter (nr__5=4458) ! Number of records
character*78 ar__5 ! Full-size record
integer*4 PGC_5 (nr__5) ! PGC galaxy number
character*18 objID (nr__5) ! Unique SDSS photometric identifier composed
* from skyVersion, rerun, run, camcol, field, obj
character*18 specObjID (nr__5) ! Unique SDSS spectroscopic identifier
real*4 zS (nr__5) ! ?=-9.99 Redshift
real*4 e_zS (nr__5) ! ?=-9.99 Uncertainty in redshift
real*8 zSconf (nr__5) ! [0,1]?=-9.99 Confidence level in redshift
C=============================================================================
C Loading file 'efigi.dat' ! EFIGI morphometric catalogue (V1.6.2)
C Format for file interpretation
1 format(
+ 3X,I7,2X,F11.7,2X,F11.7,2X,I2,2X,I2,2X,I2,1X,F5.2,1X,F5.2,1X,
+ F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,
+ 1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,
+ F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,
+ 1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,
+ F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,
+ 1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,F5.2,1X,
+ F5.2)
C Effective file loading
open(unit=1,status='old',file=
+'efigi.dat')
write(6,*) '....Loading file: efigi.dat'
do i__=1,4458
read(1,'(A336)')ar__
read(ar__,1)
+ PGC(i__),RAdeg(i__),DEdeg(i__),T(i__),b_T(i__),B_T_1(i__),
+ B_T_2(i__),b_B_T(i__),B_B_T_1(i__),armS(i__),b_armS(i__),
+ B_armS_1(i__),armC(i__),b_armC(i__),B_armC_1(i__),armR(i__),
+ b_armR(i__),B_armR_1(i__),barL(i__),b_barL(i__),B_barL_1(i__),
+ iRing(i__),b_iRing(i__),B_iRing_1(i__),oRing(i__),
+ b_oRing(i__),B_oRing_1(i__),pRing(i__),b_pRing(i__),
+ B_pRing_1(i__),Pert(i__),b_Pert(i__),B_Pert_1(i__),vDust(i__),
+ b_vDust(i__),B_vDust_1(i__),pDust(i__),b_pDust(i__),
+ B_pDust_1(i__),floc(i__),b_floc(i__),B_floc_1(i__),spot(i__),
+ b_spot(i__),B_spot_1(i__),inc(i__),b_inc(i__),B_inc_1(i__),
+ cont(i__),b_cont(i__),B_cont_1(i__),mult(i__),b_mult(i__),
+ B_mult_1(i__)
c ..............Just test output...........
write(6,1)
+ PGC(i__),RAdeg(i__),DEdeg(i__),T(i__),b_T(i__),B_T_1(i__),
+ B_T_2(i__),b_B_T(i__),B_B_T_1(i__),armS(i__),b_armS(i__),
+ B_armS_1(i__),armC(i__),b_armC(i__),B_armC_1(i__),armR(i__),
+ b_armR(i__),B_armR_1(i__),barL(i__),b_barL(i__),B_barL_1(i__),
+ iRing(i__),b_iRing(i__),B_iRing_1(i__),oRing(i__),
+ b_oRing(i__),B_oRing_1(i__),pRing(i__),b_pRing(i__),
+ B_pRing_1(i__),Pert(i__),b_Pert(i__),B_Pert_1(i__),vDust(i__),
+ b_vDust(i__),B_vDust_1(i__),pDust(i__),b_pDust(i__),
+ B_pDust_1(i__),floc(i__),b_floc(i__),B_floc_1(i__),spot(i__),
+ b_spot(i__),B_spot_1(i__),inc(i__),b_inc(i__),B_inc_1(i__),
+ cont(i__),b_cont(i__),B_cont_1(i__),mult(i__),b_mult(i__),
+ B_mult_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'efigiz.dat' ! EFIGI selected redshifts and corresponding distances
C Format for file interpretation
2 format(
+ 3X,I7,1X,F11.7,1X,F11.7,1X,E11.4,1X,E10.4,1X,A4,1X,E10.4,1X,
+ A10,1X,E10.4,1X,A4,1X,E10.4,1X,A4,1X,F9.4,1X,F9.4,1X,F9.4)
C Effective file loading
open(unit=1,status='old',file=
+'efigiz.dat')
write(6,*) '....Loading file: efigiz.dat'
do i__=1,4458
read(1,'(A146)')ar__1
read(ar__1,2)
+ PGC_1(i__),RAdeg_1(i__),DEdeg_1(i__),zhel(i__),e_zhel(i__),
+ r_zhel(i__),zdis(i__),r_zdis(i__),zall(i__),n_zall(i__),
+ e_zall(i__),f_zall(i__),Dcom(i__),Dlum(i__),Ddiam(i__)
c ..............Just test output...........
write(6,2)
+ PGC_1(i__),RAdeg_1(i__),DEdeg_1(i__),zhel(i__),e_zhel(i__),
+ r_zhel(i__),zdis(i__),r_zdis(i__),zall(i__),n_zall(i__),
+ e_zall(i__),f_zall(i__),Dcom(i__),Dlum(i__),Ddiam(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'pgc.dat' ! PGC parameters for the EFIGI catalogue galaxies
C Format for file interpretation
3 format(
+ 3X,I7,1X,F4.1,1X,F4.1,1X,A7,1X,F5.2,1X,F5.2,1X,I5,1X,F6.2,1X,
+ F5.2,1X,F5.2,1X,F5.2,1X,I5,1X,E10.4)
C Effective file loading
open(unit=1,status='old',file=
+'pgc.dat')
write(6,*) '....Loading file: pgc.dat'
do i__=1,4458
read(1,'(A88)')ar__2
read(ar__2,3)
+ PGC_2(i__),Tpgc(i__),e_Tpgc(i__),MType(i__),logD25(i__),
+ logR25(i__),PA(i__),BTmag(i__),e_BTmag(i__),B_VT(i__),
+ e_B_VT(i__),czP(i__),zP(i__)
c ..............Just test output...........
write(6,3)
+ PGC_2(i__),Tpgc(i__),e_Tpgc(i__),MType(i__),logD25(i__),
+ logR25(i__),PA(i__),BTmag(i__),e_BTmag(i__),B_VT(i__),
+ e_B_VT(i__),czP(i__),zP(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'hleda.dat' ! HyperLeda velocities, redshifts, types and names
* for the EFIGI catalogue galaxies
C Format for file interpretation
4 format(
+ 3X,I7,1X,F7.1,1X,F5.1,1X,F8.1,1X,F5.1,1X,F8.1,1X,F5.1,1X,F8.1,
+ 1X,E10.4,1X,E10.4,1X,A4,1X,A9,1X,A28)
C Effective file loading
open(unit=1,status='old',file=
+'hleda.dat')
write(6,*) '....Loading file: hleda.dat'
do i__=1,4458
read(1,'(A129)')ar__3
read(ar__3,4)
+ PGC_3(i__),HRVr(i__),e_HRVr(i__),HRVo(i__),e_HRVo(i__),
+ HRV(i__),e_HRV(i__),RVvir(i__),zvir(i__),e_zvir(i__),
+ MType_1(i__),Name(i__),OName(i__)
c ..............Just test output...........
write(6,4)
+ PGC_3(i__),HRVr(i__),e_HRVr(i__),HRVo(i__),e_HRVo(i__),
+ HRV(i__),e_HRV(i__),RVvir(i__),zvir(i__),e_zvir(i__),
+ MType_1(i__),Name(i__),OName(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'ned.dat' ! NED velocity, redshift and object name for the
* EFIGI catalogue galaxies
C Format for file interpretation
5 format(3X,I6,1X,I5,1X,F9.6,1X,A24)
C Effective file loading
open(unit=1,status='old',file=
+'ned.dat')
write(6,*) '....Loading file: ned.dat'
do i__=1,4458
read(1,'(A50)')ar__4
read(ar__4,5)PGC_4(i__),cz(i__),z(i__),NED(i__)
c ..............Just test output...........
write(6,5)PGC_4(i__),cz(i__),z(i__),NED(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'sdss.dat' ! SDSS identifiers, redshift and confidence level
* for the EFIGI catalogue galaxies
C Format for file interpretation
6 format(3X,I7,1X,A18,1X,A18,1X,E10.4,1X,E10.9,1X,F7.4)
C Effective file loading
open(unit=1,status='old',file=
+'sdss.dat')
write(6,*) '....Loading file: sdss.dat'
do i__=1,4458
read(1,'(A78)')ar__5
read(ar__5,6)
+ PGC_5(i__),objID(i__),specObjID(i__),zS(i__),e_zS(i__),
+ zSconf(i__)
c ..............Just test output...........
write(6,6)
+ PGC_5(i__),objID(i__),specObjID(i__),zS(i__),e_zS(i__),
+ zSconf(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end