Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_AS/117/519 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-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+AS/117/519 Structures around the SGP (Escalera+, 1996)
*================================================================================
*Detection of structures on multiple scales around the South Galactic Pole.
*A two-dimensional analysis of the COSMOS/UKST Southern Sky Galaxy Catalogue.
* Escalera E., MacGillivray H.
* <Astron. Astrophys. Suppl. Ser. 117, 519 (1996)>
* =1996A&AS..117..519E (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table1' ! Definition of the subsamples ("domains")
successively used for the detection.
integer*4 nr__
parameter (nr__=12) ! Number of records
character*45 ar__ ! Full-size record
character*4 No (nr__) ! Codes that will be used through this paper.
integer*4 Ngal (nr__) ! Number of galaxies involved in the domains.
real*4 BjLow (nr__) ! (mag) Lower limit of the B_j magnitude. (1)
real*4 BjUp (nr__) ! (mag) Upper limit of the B_j magnitude. (1)
real*4 fi (nr__) ! ? Parameter to take into account a distance
* effect (see text) : fi is the rate in
* dimensions from one field to another
* (computation starts from [D180]).
*Note (1): Note that the first 3 subsamples are consecutive (the sum
* involves all the available data), while the remaining 9 are
* thinner and thinner magnitude slices.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table2' ! *Detection of the structures
integer*4 nr__1
parameter (nr__1=111) ! Number of records
character*76 ar__1 ! Full-size record
C J2000 position composed of: RAdeg DEdeg
character*4 No_1 (nr__1) ! Identifies the sample to which the structure
* belongs.
real*4 RAdeg (nr__1) ! (deg) [-36.40-22.50] Right ascension J2000 of the
* structures following our procedure
* i.e. the position of the central maximum of
* the wavelet coefficients (see text).
real*4 DEdeg (nr__1) ! (deg) Declination J2000 of the structure
* (decimal degrees)
real*4 PSL (nr__1) ! Significance level of the structures (1)
character*4 Name (nr__1) ! Labels of the structures
real*4 RAdeg2 (nr__1) ! (deg) [-37.28-22.57] Right ascension J2000 of the
* centroid (2)
real*4 DEdeg2 (nr__1) ! (deg) Declination J2000 of the centroid (2)
real*4 m_axis (nr__1) ! (deg) Minor semi-axis
real*4 M_axis_1 (nr__1) ! (deg) Major semi-axis
real*4 Theta (nr__1) ! (deg) Declination axis, increases toward the left
* of the image (figures)
*Note (1): PSL gives the relative number of structures equivalent
* found in a set of 1000 random simulations (see text), so value
* s close to 0 identify high confidence levels.
*Note (2): Parametrisation of the structures by ellipses.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table3' ! Membership of the structures detected
integer*4 nr__2
parameter (nr__2=50) ! Number of records
character*49 ar__2 ! Full-size record
character*4 No_2 (nr__2) ! Sample (domain) to which the structure belong
integer*4 N1 (nr__2) ! Populations inside a circular areas centered
* on the structures with a radius of 1 a_opt
integer*4 N2 (nr__2) ! Populations inside a circular areas centered
* on the structures with a radius of 5 a_opt.
* Since wavelets are not sensitive to what
* happens beyond 5 a_opt, Hence N2 can be
* considered as the local background of the
* structure.
integer*4 E1 (nr__2) ! Excess of population (E1) inside the a_opt
* area. (1)
real*4 Dn (nr__2) ! Delta_n parameter
character*5 Name_1 (nr__2) ! Labels of the structures as previous tables
real*4 Nb (nr__2) ! Rank number within the domain.
*Note (1): The values of E1 are estimated in terms of local
* fluctuations with the delta_n parameter given in the column Dn.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table4' ! Morphological topology of the structures
through the foreground set
integer*4 nr__3
parameter (nr__3=96) ! Number of records
character*57 ar__3 ! Full-size record
character*1 Zone (nr__3) ! [A-C] Zone considered (1)
character*4 Name_2 (nr__3) ! Labels of the successive structures.
character*16 No_3 (nr__3) ! Fields into which the structures appear;
* the "+" symbol indicates that the concerned
* structures also appear in an alternative set
character*3 Class (nr__3) ! Class to which the structure belongs, in terms
* of extension (codes into brackets). (2)
character*21 Morph (nr__3) ! Morphological events within the respective
* structures (3)
*Note (1): A: domains [D085], [D164], and [D169]
* B: domains [D180], [D185], [D190], [D193], and [D196]
* C: domains [D200], [D201], [D203], and [D205]
*Note (2): The successive categories are as follows :
* {W} = Oversized structures,
* {V} = Very large structures,
* {S} = Superclusters,
* {E} = Intermediate or Elongated structures
* {C} = Cluster-sized structures,
*Note (3): The morphological events are defined in the form of a
* series of keywords "includes" and "included in" identifies
* structures fully overlapping each other;
* "involves" and "involved in" identifies partial overlapping
* "close to" denotes structures with the respective centroids
* separated by less than the greater major axis but without any
* superposition. Obviously optical superpositions are not taken into
* account.
* "isolated" identifies structures fully independent of each others.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table5' ! Summary of the large-scales detection results
for all the domains
integer*4 nr__4
parameter (nr__4=111) ! Number of records
character*61 ar__4 ! Full-size record
C J2000 position composed of: RAdeg DEdeg
real*4 RAdeg_1 (nr__4) ! (deg) [-37.28-22.57] Right ascension J2000 of the
* centroid of the ellipse
real*4 DEdeg_1 (nr__4) ! (deg) Declination J2000 of the centroid of the
* ellipse
real*4 M_axis_2 (nr__4) ! (deg) Major axis of the ellipse
character*4 Name_3 (nr__4) ! Label of the structures. Symbol "=" denotes
* structures identifyed in several domains
character*4 No_4 (nr__4) ! Domain of appearance of the structures
real*4 fi_1 (nr__4) ! []? Distance effect (see table 1)
character*3 Class_1 (nr__4) ! Morphological classification (see table 4)
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table6' ! Definition of the subsamples ("volumes")
successively used for the small-scales detection
integer*4 nr__5
parameter (nr__5=54) ! Number of records
character*75 ar__5 ! Full-size record
character*4 No_5 (nr__5) ! Codes that will be used through this paper.
integer*4 Ngal_1 (nr__5) ! Number of galaxies involved in the successive
* samples
real*4 RAdegLow (nr__5) ! (deg) Lower value of right ascension J2000 (1)
real*4 RAdegUp (nr__5) ! (deg) Upper value of right ascension J2000 (1)
real*4 DEdegLow (nr__5) ! (deg) Lower value of declination J2000 (1)
real*4 DEdegUp (nr__5) ! (deg) Upper value of declination J2000 (1)
real*4 BjLow_1 (nr__5) ! (mag) Lower value of Bj magnitude (2)
real*4 BjUp_1 (nr__5) ! (mag) Upper value of Bj magnitude (2)
character*6 n_Bjmag (nr__5) ! Part of Bj magnitude
*Note (1): Dimensions differ from one field to another, though
*Note (2): Note that 3 volumes are splitted each into two parts (cuts in
* magnitudes).
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table7' ! Detection of the structures
integer*4 nr__6
parameter (nr__6=234) ! Number of records
character*79 ar__6 ! Full-size record
C J2000 position composed of: RAdeg DEdeg
character*1 Zone_1 (nr__6) ! Zone considered (1)
character*4 No_6 (nr__6) ! Sample to which the structure belongs.
real*4 RAdeg_2 (nr__6) ! (deg) [-39.99-25.54] Right ascension J2000 of the
* central maximum of the wavelet coefficients
real*4 DEdeg_2 (nr__6) ! (deg) Declination J2000 of the central maximum of
* the wavelet coefficients
real*4 PSL_1 (nr__6) ! Significance level of the structures (2)
character*5 Name_4 (nr__6) ! Labels of the structures
real*4 Nb_1 (nr__6) ! Rank numbers consistent with the marks on the
* respective figures
real*4 RAdeg2_1 (nr__6) ! (deg) [-40.33-25.42] Right ascension J2000 of the
* centroid
real*4 DEdeg2_1 (nr__6) ! (deg) Declination J2000 of the centroid
real*4 m_axis_3 (nr__6) ! (deg) Minor axis of the ellipse
real*4 M_axis_4 (nr__6) ! (deg) Major axis of the ellipse
real*4 Theta_1 (nr__6) ! (deg) Orientation of the ellipse, referred to the
* declination axis and increases toward the
* left of the image (figures).
*Note (1): Results are listed for the 11 zones separately in consistency
* with the figures 13-23.
*Note (2): P_SL gives the relative number of structures equivalent
* found in a set of 1000 random simulations (see text), so values
* close to 0 identify high confidence levels.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table8' ! Membership of the structures detected.
integer*4 nr__7
parameter (nr__7=234) ! Number of records
character*67 ar__7 ! Full-size record
character*1 Zone_2 (nr__7) ! Zone considered
character*4 No_7 (nr__7) ! Sample (volume) to which the structure belongs
integer*4 N1_1 (nr__7) ! Populations inside a circular area centered
* on the structures with a radius of 1 a_opt
integer*4 N2_1 (nr__7) ! Populations inside a circular areas centered
* on the structures with a radius of 5 a_opt.
* Since wavelets are not sensitive to what
* happens beyond 5 a_{opt}, N2 can be
* considered as the local background of the
* structure.
integer*4 E1_1 (nr__7) ! ? Excess of population inside the a_{opt} area.
* Then the values of E1 are estimated in terms
* of local fluctuations with the delta_n
* parameter
real*4 Dn_1 (nr__7) ! ? Delta_n parameter
character*5 Name_5 (nr__7) ! Label of the structures
real*4 Nb_2 (nr__7) ! Rank number consistent with the marks on the
* corresponding figures.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table9' ! Morphological topology of the structures
integer*4 nr__8
parameter (nr__8=235) ! Number of records
character*50 ar__8 ! Full-size record
character*5 Name_6 (nr__8) ! Label of the structures.
character*4 No_8 (nr__8) ! Volumes into which the structures appear.
character*3 Class_2 (nr__8) ! Class to which the structure belong, in terms
* of extension (codes into brackets, see also
* table 4). (1)
character*21 Morph_1 (nr__8) ! Morphological events within the respective
* structures (2)
*Note (1): The only two categories concerned here are :
* {C} = Cluster-sized structures,
* {A} = Compact clusters or Associations.
*Note (2): Morphological events are in the form of a series of key-words:
* "includes" and "included in" identify structures fully overlapping
* each other
* "involves" and "involved in" identify partial overlapping
* "close to" denotes structures with the respective centroids separated
* by less than the greater major axis but without any superposition.
* Obviously optical superpositions are not taken into account. The
* absence of any comment identifies structures fully isolated.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table10' ! Summary of the small- and intermediate-scales
detection results for all the volumes.
integer*4 nr__9
parameter (nr__9=234) ! Number of records
character*69 ar__9 ! Full-size record
C J2000 position composed of: RAdeg DEdeg
real*4 RAdeg_3 (nr__9) ! (deg) [-40.33-25.42] Right ascension J2000 of the
* ellipse centroid
real*4 DEdeg_3 (nr__9) ! (deg) Declination J2000 of the ellipse centroid
real*4 M_axis_5 (nr__9) ! (deg) Major axis
character*5 Name_7 (nr__9) ! Label of the structure
character*4 Volume (nr__9) ! Volume of appearance of the structures
integer*4 IM (nr__9) ! []? Estimator of the distance effect scales
* from 1 to 6
character*3 Class_3 (nr__9) ! Morphological classification
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table12' ! Multi-scale detection, the main database
integer*4 nr__10
parameter (nr__10=345) ! Number of records
character*80 ar__10 ! Full-size record
C J2000 position composed of: RAh RAm DE- DEd DEm
real*8 RAdeg_4 (nr__10) ! (deg) Right Ascension J2000
real*8 DEdeg_4 (nr__10) ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
character*1 Samp (nr__10) ! [ABC] Sample A: Very Large Structures
* B: Superclusters
* C: Cluster-sized Structures
character*8 COS (nr__10) ! Numerotation of our own : "COS" refers to the
* information that follows, i.e. coordinates
* and sizes. The Very Large Structures are
* numbered from 1, the Superclusters are
* numbered from 100, and the lower scaled
* structures are numbered from 1000.
integer*4 RAh (nr__10) ! (h) Right ascension J2000
real*4 RAm (nr__10) ! (min) Right ascension J2000
character*1 DE_ (nr__10) ! Declination sign
integer*4 DEd (nr__10) ! (deg) Declination J2000
integer*4 DEm (nr__10) ! (arcmin) Declination J2000
real*4 M_axis_6 (nr__10) ! (deg) Major axis of the ellipses that fits the
* structures
character*5 Name_8 (nr__10) ! Labels used through this paper, consistent
* with all previous tables, figures and text.
character*4 Sample (nr__10) ! Subsample into which the successive structures
* are detected :
* "D" corres. to the magnitude slices (sect.4)
* "V" to the volumes (section 5.).
integer*4 IM_1 (nr__10) ! []? Index that informs on the magnitude
* range of the concerned subsample : the
* distance effect is supposed to increase with
* values of IM.
character*3 Class_4 (nr__10) ! Categories of the structures, in terms of
* overall extension (codes into brackets). (1)
*Note (1): The successive categories are as follows :
* {W} = Oversized structures,
* {V} = Very large structures,
* {S} = Superclusters,
* {E} = Intermediate or Elongated structures,
* {C} = Cluster-sized structures,
* {A} = Compact clusters or Associations.
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'table13' ! Identification with the ACO catalogue
integer*4 nr__11
parameter (nr__11=184) ! Number of records
character*37 ar__11 ! Full-size record
real*4 PSL_2 (nr__11) ! Confidence level (1)
real*4 R (nr__11) ! (deg) Difference in the positions between our
* structures (e.g. as listed in tables 2.)
* and the Abell clusters
character*8 Abell (nr__11) ! Successive Abell clusters most likely
* identified to our structures.
integer*4 Ngal_2 (nr__11) ! Population
real*4 z (nr__11) ! ? Redshift
real*4 Mag (nr__11) ! (mag) Magnitude of the 10th ranked galaxy, so we can
* easily check the consistency with the
* identifyed structure
*Note (1): Values greater than 0.050 correspond to structures not
* significant from our procedure, thus not listed in the previous tables.
C=============================================================================
C Loading file 'table1' ! Definition of the subsamples ("domains")
* successively used for the detection.
C Format for file interpretation
1 format(4X,A4,4X,I4,9X,F5.2,3X,F5.2,3X,F4.2)
C Effective file loading
open(unit=1,status='old',file=
+'table1')
write(6,*) '....Loading file: table1'
do i__=1,12
read(1,'(A45)')ar__
read(ar__,1)No(i__),Ngal(i__),BjLow(i__),BjUp(i__),fi(i__)
if(ar__(42:45) .EQ. '') fi(i__) = rNULL__
c ..............Just test output...........
write(6,1)No(i__),Ngal(i__),BjLow(i__),BjUp(i__),fi(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table2' ! *Detection of the structures
C Format for file interpretation
2 format(
+ 1X,A4,3X,F6.2,3X,F6.2,3X,F5.3,3X,A4,1X,F6.2,3X,F6.2,3X,F4.2,
+ 2X,F5.2,3X,F5.1)
C Effective file loading
open(unit=1,status='old',file=
+'table2')
write(6,*) '....Loading file: table2'
do i__=1,111
read(1,'(A76)')ar__1
read(ar__1,2)
+ No_1(i__),RAdeg(i__),DEdeg(i__),PSL(i__),Name(i__),
+ RAdeg2(i__),DEdeg2(i__),m_axis(i__),M_axis_1(i__),Theta(i__)
c ..............Just test output...........
write(6,2)
+ No_1(i__),RAdeg(i__),DEdeg(i__),PSL(i__),Name(i__),
+ RAdeg2(i__),DEdeg2(i__),m_axis(i__),M_axis_1(i__),Theta(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table3' ! Membership of the structures detected
C Format for file interpretation
3 format(2X,A4,4X,I3,4X,I4,4X,I3,4X,F5.2,3X,A5,1X,F3.0)
C Effective file loading
open(unit=1,status='old',file=
+'table3')
write(6,*) '....Loading file: table3'
do i__=1,50
read(1,'(A49)')ar__2
read(ar__2,3)
+ No_2(i__),N1(i__),N2(i__),E1(i__),Dn(i__),Name_1(i__),Nb(i__)
c ..............Just test output...........
write(6,3)
+ No_2(i__),N1(i__),N2(i__),E1(i__),Dn(i__),Name_1(i__),Nb(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table4' ! Morphological topology of the structures
* through the foreground set
C Format for file interpretation
4 format(A1,2X,A4,1X,A16,1X,A3,5X,A21)
C Effective file loading
open(unit=1,status='old',file=
+'table4')
write(6,*) '....Loading file: table4'
do i__=1,96
read(1,'(A57)')ar__3
read(ar__3,4)
+ Zone(i__),Name_2(i__),No_3(i__),Class(i__),Morph(i__)
c ..............Just test output...........
write(6,4)
+ Zone(i__),Name_2(i__),No_3(i__),Class(i__),Morph(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table5' ! Summary of the large-scales detection results
* for all the domains
C Format for file interpretation
5 format(2X,F6.2,3X,F6.2,3X,F5.2,4X,A4,3X,A4,4X,F4.2,4X,A3)
C Effective file loading
open(unit=1,status='old',file=
+'table5')
write(6,*) '....Loading file: table5'
do i__=1,111
read(1,'(A61)')ar__4
read(ar__4,5)
+ RAdeg_1(i__),DEdeg_1(i__),M_axis_2(i__),Name_3(i__),No_4(i__),
+ fi_1(i__),Class_1(i__)
if(ar__4(45:48) .EQ. '') fi_1(i__) = rNULL__
c ..............Just test output...........
write(6,5)
+ RAdeg_1(i__),DEdeg_1(i__),M_axis_2(i__),Name_3(i__),No_4(i__),
+ fi_1(i__),Class_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table6' ! Definition of the subsamples ("volumes")
* successively used for the small-scales detection
C Format for file interpretation
6 format(
+ 1X,A4,4X,I5,3X,F6.2,2X,F6.2,6X,F6.2,2X,F6.2,4X,F5.2,3X,F5.2,
+ 1X,A6)
C Effective file loading
open(unit=1,status='old',file=
+'table6')
write(6,*) '....Loading file: table6'
do i__=1,54
read(1,'(A75)')ar__5
read(ar__5,6)
+ No_5(i__),Ngal_1(i__),RAdegLow(i__),RAdegUp(i__),
+ DEdegLow(i__),DEdegUp(i__),BjLow_1(i__),BjUp_1(i__),
+ n_Bjmag(i__)
c ..............Just test output...........
write(6,6)
+ No_5(i__),Ngal_1(i__),RAdegLow(i__),RAdegUp(i__),
+ DEdegLow(i__),DEdegUp(i__),BjLow_1(i__),BjUp_1(i__),
+ n_Bjmag(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table7' ! Detection of the structures
C Format for file interpretation
7 format(
+ A1,1X,A4,2X,F6.2,2X,F6.2,2X,F5.3,2X,A5,2X,F3.0,1X,F6.2,2X,
+ F6.2,2X,F5.3,2X,F5.3,2X,F5.1)
C Effective file loading
open(unit=1,status='old',file=
+'table7')
write(6,*) '....Loading file: table7'
do i__=1,234
read(1,'(A79)')ar__6
read(ar__6,7)
+ Zone_1(i__),No_6(i__),RAdeg_2(i__),DEdeg_2(i__),PSL_1(i__),
+ Name_4(i__),Nb_1(i__),RAdeg2_1(i__),DEdeg2_1(i__),
+ m_axis_3(i__),M_axis_4(i__),Theta_1(i__)
c ..............Just test output...........
write(6,7)
+ Zone_1(i__),No_6(i__),RAdeg_2(i__),DEdeg_2(i__),PSL_1(i__),
+ Name_4(i__),Nb_1(i__),RAdeg2_1(i__),DEdeg2_1(i__),
+ m_axis_3(i__),M_axis_4(i__),Theta_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table8' ! Membership of the structures detected.
C Format for file interpretation
8 format(A1,1X,A4,4X,I4,4X,I5,5X,I3,4X,F5.2,5X,A5,5X,F3.0)
C Effective file loading
open(unit=1,status='old',file=
+'table8')
write(6,*) '....Loading file: table8'
do i__=1,234
read(1,'(A67)')ar__7
read(ar__7,8)
+ Zone_2(i__),No_7(i__),N1_1(i__),N2_1(i__),E1_1(i__),Dn_1(i__),
+ Name_5(i__),Nb_2(i__)
if(ar__7(29:31) .EQ. '') E1_1(i__) = iNULL__
if(ar__7(36:40) .EQ. '') Dn_1(i__) = rNULL__
c ..............Just test output...........
write(6,8)
+ Zone_2(i__),No_7(i__),N1_1(i__),N2_1(i__),E1_1(i__),Dn_1(i__),
+ Name_5(i__),Nb_2(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table9' ! Morphological topology of the structures
C Format for file interpretation
9 format(2X,A5,4X,A4,7X,A3,4X,A21)
C Effective file loading
open(unit=1,status='old',file=
+'table9')
write(6,*) '....Loading file: table9'
do i__=1,235
read(1,'(A50)')ar__8
read(ar__8,9)Name_6(i__),No_8(i__),Class_2(i__),Morph_1(i__)
c ..............Just test output...........
write(6,9)Name_6(i__),No_8(i__),Class_2(i__),Morph_1(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table10' ! Summary of the small- and intermediate-scales
* detection results for all the volumes.
C Format for file interpretation
10 format(5X,F6.2,7X,F6.2,7X,F4.2,5X,A5,4X,A4,6X,I1,5X,A3)
C Effective file loading
open(unit=1,status='old',file=
+'table10')
write(6,*) '....Loading file: table10'
do i__=1,234
read(1,'(A69)')ar__9
read(ar__9,10)
+ RAdeg_3(i__),DEdeg_3(i__),M_axis_5(i__),Name_7(i__),
+ Volume(i__),IM(i__),Class_3(i__)
if(ar__9(60:60) .EQ. '') IM(i__) = iNULL__
c ..............Just test output...........
write(6,10)
+ RAdeg_3(i__),DEdeg_3(i__),M_axis_5(i__),Name_7(i__),
+ Volume(i__),IM(i__),Class_3(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table12' ! Multi-scale detection, the main database
C Format for file interpretation
11 format(
+ A1,1X,A8,4X,I2,1X,F4.1,6X,A1,I2,1X,I2,5X,F5.2,5X,A5,4X,A4,6X,
+ I1,4X,A3)
C Effective file loading
open(unit=1,status='old',file=
+'table12')
write(6,*) '....Loading file: table12'
do i__=1,345
read(1,'(A80)')ar__10
read(ar__10,11)
+ Samp(i__),COS(i__),RAh(i__),RAm(i__),DE_(i__),DEd(i__),
+ DEm(i__),M_axis_6(i__),Name_8(i__),Sample(i__),IM_1(i__),
+ Class_4(i__)
if(ar__10(68:68) .EQ. '') IM_1(i__) = iNULL__
RAdeg_4(i__) = rNULL__
DEdeg_4(i__) = rNULL__
c Derive coordinates RAdeg_4 and DEdeg_4 from input data
c (RAdeg_4 and DEdeg_4 are set to rNULL__ when unknown)
if(RAh(i__) .GT. -180) RAdeg_4(i__)=RAh(i__)*15.
if(RAm(i__) .GT. -180) RAdeg_4(i__)=RAdeg_4(i__)+RAm(i__)/4.
if(DEd(i__) .GE. 0) DEdeg_4(i__)=DEd(i__)
if(DEm(i__) .GE. 0) DEdeg_4(i__)=DEdeg_4(i__)+DEm(i__)/60.
if(DE_(i__).EQ.'-'.AND.DEdeg_4(i__).GE.0) DEdeg_4(i__)=-DEdeg_4(i__)
c ..............Just test output...........
write(6,11)
+ Samp(i__),COS(i__),RAh(i__),RAm(i__),DE_(i__),DEd(i__),
+ DEm(i__),M_axis_6(i__),Name_8(i__),Sample(i__),IM_1(i__),
+ Class_4(i__)
write(6,'(6H Pos: 2F8.4)') RAdeg_4(i__),DEdeg_4(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'table13' ! Identification with the ACO catalogue
C Format for file interpretation
12 format(F5.3,1X,F4.2,1X,A8,1X,I3,1X,F6.4,1X,F5.2)
C Effective file loading
open(unit=1,status='old',file=
+'table13')
write(6,*) '....Loading file: table13'
do i__=1,184
read(1,'(A37)')ar__11
read(ar__11,12)
+ PSL_2(i__),R(i__),Abell(i__),Ngal_2(i__),z(i__),Mag(i__)
if(ar__11(25:30) .EQ. '') z(i__) = rNULL__
c ..............Just test output...........
write(6,12)
+ PSL_2(i__),R(i__),Abell(i__),Ngal_2(i__),z(i__),Mag(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end