Conversion of standardized ReadMe file for
file /./ftp/cats/J/A_AS/117/519 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-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 ! Codes that will be used through this paper.
integer*4 Ngal ! Number of galaxies involved in the domains.
real*4 BjLow ! (mag) Lower limit of the B_j magnitude. (1)
real*4 BjUp ! (mag) Upper limit of the B_j magnitude. (1)
real*4 fi ! ? 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 ! Identifies the sample to which the structure
* belongs.
real*4 RAdeg ! (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 ! (deg) Declination J2000 of the structure
* (decimal degrees)
real*4 PSL ! Significance level of the structures (1)
character*4 Name ! Labels of the structures
real*4 RAdeg2 ! (deg) [-37.28-22.57] Right ascension J2000 of the
* centroid (2)
real*4 DEdeg2 ! (deg) Declination J2000 of the centroid (2)
real*4 m_axis ! (deg) Minor semi-axis
real*4 M_axis_1 ! (deg) Major semi-axis
real*4 Theta ! (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 ! Sample (domain) to which the structure belong
integer*4 N1 ! Populations inside a circular areas centered
* on the structures with a radius of 1 a_opt
integer*4 N2 ! 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 ! Excess of population (E1) inside the a_opt
* area. (1)
real*4 Dn ! Delta_n parameter
character*5 Name_1 ! Labels of the structures as previous tables
real*4 Nb ! 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 ! [A-C] Zone considered (1)
character*4 Name_2 ! Labels of the successive structures.
character*16 No_3 ! Fields into which the structures appear;
* the "+" symbol indicates that the concerned
* structures also appear in an alternative set
character*3 Class ! Class to which the structure belongs, in terms
* of extension (codes into brackets). (2)
character*21 Morph ! 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 ! (deg) [-37.28-22.57] Right ascension J2000 of the
* centroid of the ellipse
real*4 DEdeg_1 ! (deg) Declination J2000 of the centroid of the
* ellipse
real*4 M_axis_2 ! (deg) Major axis of the ellipse
character*4 Name_3 ! Label of the structures. Symbol "=" denotes
* structures identifyed in several domains
character*4 No_4 ! Domain of appearance of the structures
real*4 fi_1 ! []? Distance effect (see table 1)
character*3 Class_1 ! 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 ! Codes that will be used through this paper.
integer*4 Ngal_1 ! Number of galaxies involved in the successive
* samples
real*4 RAdegLow ! (deg) Lower value of right ascension J2000 (1)
real*4 RAdegUp ! (deg) Upper value of right ascension J2000 (1)
real*4 DEdegLow ! (deg) Lower value of declination J2000 (1)
real*4 DEdegUp ! (deg) Upper value of declination J2000 (1)
real*4 BjLow_1 ! (mag) Lower value of Bj magnitude (2)
real*4 BjUp_1 ! (mag) Upper value of Bj magnitude (2)
character*6 n_Bjmag ! 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 ! Zone considered (1)
character*4 No_6 ! Sample to which the structure belongs.
real*4 RAdeg_2 ! (deg) [-39.99-25.54] Right ascension J2000 of the
* central maximum of the wavelet coefficients
real*4 DEdeg_2 ! (deg) Declination J2000 of the central maximum of
* the wavelet coefficients
real*4 PSL_1 ! Significance level of the structures (2)
character*5 Name_4 ! Labels of the structures
real*4 Nb_1 ! Rank numbers consistent with the marks on the
* respective figures
real*4 RAdeg2_1 ! (deg) [-40.33-25.42] Right ascension J2000 of the
* centroid
real*4 DEdeg2_1 ! (deg) Declination J2000 of the centroid
real*4 m_axis_3 ! (deg) Minor axis of the ellipse
real*4 M_axis_4 ! (deg) Major axis of the ellipse
real*4 Theta_1 ! (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 ! Zone considered
character*4 No_7 ! Sample (volume) to which the structure belongs
integer*4 N1_1 ! Populations inside a circular area centered
* on the structures with a radius of 1 a_opt
integer*4 N2_1 ! 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 ! ? 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 ! ? Delta_n parameter
character*5 Name_5 ! Label of the structures
real*4 Nb_2 ! 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 ! Label of the structures.
character*4 No_8 ! Volumes into which the structures appear.
character*3 Class_2 ! Class to which the structure belong, in terms
* of extension (codes into brackets, see also
* table 4). (1)
character*21 Morph_1 ! 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 ! (deg) [-40.33-25.42] Right ascension J2000 of the
* ellipse centroid
real*4 DEdeg_3 ! (deg) Declination J2000 of the ellipse centroid
real*4 M_axis_5 ! (deg) Major axis
character*5 Name_7 ! Label of the structure
character*4 Volume ! Volume of appearance of the structures
integer*4 IM ! []? Estimator of the distance effect scales
* from 1 to 6
character*3 Class_3 ! 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 ! (deg) Right Ascension J2000
real*8 DEdeg_4 ! (deg) Declination J2000
C ---------------------------------- ! (position vector(s) in degrees)
character*1 Samp ! [ABC] Sample A: Very Large Structures
* B: Superclusters
* C: Cluster-sized Structures
character*8 COS ! 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 ! (h) Right ascension J2000
real*4 RAm ! (min) Right ascension J2000
character*1 DE_ ! Declination sign
integer*4 DEd ! (deg) Declination J2000
integer*4 DEm ! (arcmin) Declination J2000
real*4 M_axis_6 ! (deg) Major axis of the ellipses that fits the
* structures
character*5 Name_8 ! Labels used through this paper, consistent
* with all previous tables, figures and text.
character*4 Sample ! 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 ! []? 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 ! 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 ! Confidence level (1)
real*4 R ! (deg) Difference in the positions between our
* structures (e.g. as listed in tables 2.)
* and the Abell clusters
character*8 Abell ! Successive Abell clusters most likely
* identified to our structures.
integer*4 Ngal_2 ! Population
real*4 z ! ? Redshift
real*4 Mag ! (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,Ngal,BjLow,BjUp,fi
if(ar__(42:45) .EQ. '') fi = rNULL__
c ..............Just test output...........
write(6,1)No,Ngal,BjLow,BjUp,fi
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,RAdeg,DEdeg,PSL,Name,RAdeg2,DEdeg2,m_axis,M_axis_1,Theta
c ..............Just test output...........
write(6,2)
+ No_1,RAdeg,DEdeg,PSL,Name,RAdeg2,DEdeg2,m_axis,M_axis_1,Theta
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,N1,N2,E1,Dn,Name_1,Nb
c ..............Just test output...........
write(6,3)No_2,N1,N2,E1,Dn,Name_1,Nb
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,Name_2,No_3,Class,Morph
c ..............Just test output...........
write(6,4)Zone,Name_2,No_3,Class,Morph
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,DEdeg_1,M_axis_2,Name_3,No_4,fi_1,Class_1
if(ar__4(45:48) .EQ. '') fi_1 = rNULL__
c ..............Just test output...........
write(6,5)RAdeg_1,DEdeg_1,M_axis_2,Name_3,No_4,fi_1,Class_1
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,Ngal_1,RAdegLow,RAdegUp,DEdegLow,DEdegUp,BjLow_1,BjUp_1,
+ n_Bjmag
c ..............Just test output...........
write(6,6)
+ No_5,Ngal_1,RAdegLow,RAdegUp,DEdegLow,DEdegUp,BjLow_1,BjUp_1,
+ n_Bjmag
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,No_6,RAdeg_2,DEdeg_2,PSL_1,Name_4,Nb_1,RAdeg2_1,
+ DEdeg2_1,m_axis_3,M_axis_4,Theta_1
c ..............Just test output...........
write(6,7)
+ Zone_1,No_6,RAdeg_2,DEdeg_2,PSL_1,Name_4,Nb_1,RAdeg2_1,
+ DEdeg2_1,m_axis_3,M_axis_4,Theta_1
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,No_7,N1_1,N2_1,E1_1,Dn_1,Name_5,Nb_2
if(ar__7(29:31) .EQ. '') E1_1 = iNULL__
if(ar__7(36:40) .EQ. '') Dn_1 = rNULL__
c ..............Just test output...........
write(6,8)Zone_2,No_7,N1_1,N2_1,E1_1,Dn_1,Name_5,Nb_2
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,No_8,Class_2,Morph_1
c ..............Just test output...........
write(6,9)Name_6,No_8,Class_2,Morph_1
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,DEdeg_3,M_axis_5,Name_7,Volume,IM,Class_3
if(ar__9(60:60) .EQ. '') IM = iNULL__
c ..............Just test output...........
write(6,10)RAdeg_3,DEdeg_3,M_axis_5,Name_7,Volume,IM,Class_3
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,COS,RAh,RAm,DE_,DEd,DEm,M_axis_6,Name_8,Sample,IM_1,
+ Class_4
if(ar__10(68:68) .EQ. '') IM_1 = iNULL__
RAdeg_4 = rNULL__
DEdeg_4 = 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 .GT. -180) RAdeg_4=RAh*15.
if(RAm .GT. -180) RAdeg_4=RAdeg_4+RAm/4.
if(DEd .GE. 0) DEdeg_4=DEd
if(DEm .GE. 0) DEdeg_4=DEdeg_4+DEm/60.
if(DE_.EQ.'-'.AND.DEdeg_4.GE.0) DEdeg_4=-DEdeg_4
c ..............Just test output...........
write(6,11)
+ Samp,COS,RAh,RAm,DE_,DEd,DEm,M_axis_6,Name_8,Sample,IM_1,
+ Class_4
write(6,'(6H Pos: 2F8.4)') RAdeg_4,DEdeg_4
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,R,Abell,Ngal_2,z,Mag
if(ar__11(25:30) .EQ. '') z = rNULL__
c ..............Just test output...........
write(6,12)PSL_2,R,Abell,Ngal_2,z,Mag
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end