FORTRAN Generation
(/./ftp/cats/J/AJ/122/2222)

Conversion of standardized ReadMe file for file /./ftp/cats/J/AJ/122/2222 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 2017-Apr-30
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/AJ/122/2222    Superclusters of Abell and X-ray clusters      (Einasto+, 2001)
*================================================================================
*Optical and X-ray clusters as tracers of the supercluster-void network.
*I. Superclusters of Abell and X-ray clusters.
*    Einasto M., Einasto J., Tago E., Muller V., Andernach H.
*   <Astron. J. 122, 2222 (2001)>
*   =2001AJ....122.2222E
C=============================================================================

C  Internal variables

      integer*4 i__

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'tablea1.dat'	! The List of Superclusters

      integer*4 nr__
      parameter (nr__=286)	! Number of records
      character*287 ar__   	! Full-size record

C  B1950 position composed of: RAdeg DEdeg
      integer*4     SCl         ! [1/300] Identification number (SCl NNN in Simbad)
      character*1   f_SCl       ! [c] c: a supercluster candidate
      integer*4     Num         ! [2/35] Number of member clusters in supercluster
      real*4        RAdeg       ! (deg) Supercluster center right ascension (B1950)
      real*4        DEdeg       ! (deg) Supercluster center declination (B1950)
      integer*4     Dist        ! (Mpc) Distance to the supercluster center
*                               in units of h^-1^ Mpc (Ho/h=100km/s/Mpc)
      character*21  CName       ! Commonly used supercluster name
      integer*4     AC1         ! 1st cluster in the supercluster (1)
      character*1   f_AC1       ! [e] e: cluster has an estimated distance
      integer*4     AC2         ! 2nd cluster in the supercluster (1)
      character*1   f_AC2       ! [e] e: cluster has an estimated distance
      integer*4     AC3         ! ? 3rd cluster in the supercluster (1)
      character*1   f_AC3       ! [e] e: cluster has an estimated distance
      integer*4     AC4         ! ? 4th cluster in the supercluster (1)
      character*1   f_AC4       ! [e] e: cluster has an estimated distance
      integer*4     AC5         ! ? 5th cluster in the supercluster (1)
      character*1   f_AC5       ! [e] e: cluster has an estimated distance
      integer*4     AC6         ! ? 6th cluster in the supercluster (1)
      character*1   f_AC6       ! [e] e: cluster has an estimated distance
      integer*4     AC7         ! ? 7th cluster in the supercluster (1)
      character*1   f_AC7       ! [e] e: cluster has an estimated distance
      integer*4     AC8         ! ? 8th cluster in the supercluster (1)
      character*1   f_AC8       ! [e] e: cluster has an estimated distance
      integer*4     AC9         ! ? 9th cluster in the supercluster (1)
      character*1   f_AC9       ! [e] e: cluster has an estimated distance
      integer*4     AC10        ! ? 10th cluster in the supercluster (1)
      character*1   f_AC10      ! [e] e: cluster has an estimated distance
      integer*4     AC11        ! ? 11th cluster in the supercluster (1)
      character*1   f_AC11      ! [e] e: cluster has an estimated distance
      integer*4     AC12        ! ? 12th cluster in the supercluster (1)
      character*1   f_AC12      ! [e] e: cluster has an estimated distance
      integer*4     AC13        ! ? 13th cluster in the supercluster (1)
      character*1   f_AC13      ! [e] e: cluster has an estimated distance
      integer*4     AC14        ! ? 14th cluster in the supercluster (1)
      character*1   f_AC14      ! [e] e: cluster has an estimated distance
      integer*4     AC15        ! ? 15th cluster in the supercluster (1)
      character*1   f_AC15      ! [e] e: cluster has an estimated distance
      integer*4     AC16        ! ? 16th cluster in the supercluster (1)
      character*1   f_AC16      ! [e] e: cluster has an estimated distance
      integer*4     AC17        ! ? 17th cluster in the supercluster (1)
      character*1   f_AC17      ! [e] e: cluster has an estimated distance
      integer*4     AC18        ! ? 18th cluster in the supercluster (1)
      character*1   f_AC18      ! [e] e: cluster has an estimated distance
      integer*4     AC19        ! ? 19th cluster in the supercluster (1)
      character*1   f_AC19      ! [e] e: cluster has an estimated distance
      integer*4     AC20        ! ? 20th cluster in the supercluster (1)
      character*1   f_AC20      ! [e] e: cluster has an estimated distance
      integer*4     AC21        ! ? 21th cluster in the supercluster (1)
      character*1   f_AC21      ! [e] e: cluster has an estimated distance
      integer*4     AC22        ! ? 22th cluster in the supercluster (1)
      character*1   f_AC22      ! [e] e: cluster has an estimated distance
      integer*4     AC23        ! ? 23th cluster in the supercluster (1)
      character*1   f_AC23      ! [e] e: cluster has an estimated distance
      integer*4     AC24        ! ? 24th cluster in the supercluster (1)
      character*1   f_AC24      ! [e] e: cluster has an estimated distance
      integer*4     AC25        ! ? 25th cluster in the supercluster (1)
      character*1   f_AC25      ! [e] e: cluster has an estimated distance
      integer*4     AC26        ! ? 26th cluster in the supercluster (1)
      character*1   f_AC26      ! [e] e: cluster has an estimated distance
      integer*4     AC27        ! ? 27th cluster in the supercluster (1)
      character*1   f_AC27      ! [e] e: cluster has an estimated distance
      integer*4     AC28        ! ? 28th cluster in the supercluster (1)
      character*1   f_AC28      ! [e] e: cluster has an estimated distance
      integer*4     AC29        ! ? 29th cluster in the supercluster (1)
      character*1   f_AC29      ! [e] e: cluster has an estimated distance
      integer*4     AC30        ! ? 30th cluster in the supercluster (1)
      character*1   f_AC30      ! [e] e: cluster has an estimated distance
      integer*4     AC31        ! ? 31th cluster in the supercluster (1)
      character*1   f_AC31      ! [e] e: cluster has an estimated distance
      integer*4     AC32        ! ? 32th cluster in the supercluster (1)
      character*1   f_AC32      ! [e] e: cluster has an estimated distance
      integer*4     AC33        ! ? 33th cluster in the supercluster (1)
      character*1   f_AC33      ! [e] e: cluster has an estimated distance
      integer*4     AC34        ! ? 34th cluster in the supercluster (1)
      character*1   f_AC34      ! [e] e: cluster has an estimated distance
      integer*4     AC35        ! ? 35th cluster in the supercluster (1)
      character*1   f_AC35      ! [e] e: cluster has an estimated distance
*Note (1): The Abell cluster catalog number (ACO).

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'tableb1.dat'	! The List of X-Ray clusters in superclusters

      integer*4 nr__1
      parameter (nr__1=99)	! Number of records
      character*146 ar__1  	! Full-size record

C  B1950 position composed of: RAdeg DEdeg
      integer*4     SCl_1       ! [1/300] Identification number NNN
*                                  (SCl NNN in Simbad for tableb1.dat)
*                                  (SCl XNN in Simbad for tableb2.dat)
      character*1   f_SCl_1     ! [c] Indicates a supercluster candidate
      integer*4     Num_1       ! Number of member clusters in the supercluster
      real*4        RAdeg_1     ! (deg) Supercluster center Right Ascension (B1950)
      real*4        DEdeg_1     ! (deg) Supercluster center declination (B1950)
      integer*4     Dist_1      ! (Mpc) Distance to the supercluster center
*                                  in units of h^-1^ Mpc (Ho/h=100km/s/Mpc)
      character*20  CName_1     ! Commonly used supercluster name
      integer*4     XCl1        ! The 1st X-ray cluster in the supercluster (1)
      character*2   r_XCl1      ! Cluster reference on XCl1 (1)
      integer*4     XCl2        ! ? The 2nd X-ray cluster in the supercluster (1)
      character*2   r_XCl2      ! Cluster reference on XCl2 (1)
      integer*4     XCl3        ! ? The 3rd X-ray cluster in the supercluster (1)
      character*2   r_XCl3      ! Cluster reference on XCl3 (1)
      integer*4     XCl4        ! ? The 4th X-ray cluster in the supercluster
      character*2   r_XCl4      ! Cluster reference on XCl4 (1)
      integer*4     XCl5        ! ? The 5th X-ray cluster in the supercluster
      character*2   r_XCl5      ! Cluster reference on XCl5 (1)
      integer*4     XCl6        ! ? The 6th X-ray cluster in the supercluster
      character*2   r_XCl6      ! Cluster reference on XCl6 (1)
      integer*4     XCl7        ! ? The 7th X-ray cluster in the supercluster
      character*2   r_XCl7      ! Cluster reference on XCl6 (1)
      integer*4     XCl8        ! ? The 8th X-ray cluster in the supercluster
      character*2   r_XCl8      ! Cluster reference on XCl7 (1)
      integer*4     XCl9        ! ? The 9th X-ray cluster in the supercluster
      character*2   r_XCl9      ! Cluster reference on XCl8 (1)
      integer*4     XCl10       ! ? The 10th X-ray cluster in the supercluster
      character*2   r_XCl10     ! Cluster reference on XCl9 (1)
      integer*4     XCl11       ! ? The 11th X-ray cluster in the supercluster
      character*2   r_XCl11     ! Cluster reference on XCl10 (1)
      integer*4     XCl12       ! ? The 12th X-ray cluster in the supercluster
      character*2   r_XCl12     ! Cluster reference on XCl11 (1)
      integer*4     XCl13       ! ? The 13th X-ray cluster in the supercluster
      character*2   r_XCl13     ! Cluster reference on XCl12 (1)
      integer*4     XCl14       ! ? The 14th X-ray cluster in the supercluster
      character*2   r_XCl14     ! Cluster reference on XCl13 (1)
*Note (1): Cluster references:
*     G = Abell - ACO catalog number from de Grandi et al.
*          (1999, Cat. <J/ApJ/514/148>)
*     D = Abell - ACO catalog number from David, Forman & Jones
*          (1999, Cat. <J/ApJ/519/533>)
*     B = Abell - ACO catalog number from the Brightest Cluster Sample
*          catalog (Ebeling et al., 1998, <J/MNRAS/301/881>)
*    RR = non-Abell cluster number from ROSAT Bright Survey catalog of
*          high Galactic latitude RASS sources, Schwope et al., Cat. <IX/32>
*    BB = non-Abell cluster number from Brightest Cluster Sample catalog
*          Ebeling et al., 1998, Cat. <J/MNRAS/301/881>
*    GG = non-Abell cluster number the the catalog by de Grandi et al.
*          (1999, Cat. <J/ApJ/514/148>)
*   No reference = Abell - ACO catalog number from ROSAT Bright Survey catalog,
*          Fischer et al., 2000, Cat. <IX/32>

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 

C  Declarations for 'tableb2.dat'	! The List of additional superclusters of
                               non-Abell X-Ray clusters

      integer*4 nr__2
      parameter (nr__2=19)	! Number of records
      character*146 ar__2  	! Full-size record

C  B1950 position composed of: RAdeg DEdeg
      integer*4     SCl_2       ! [1/300] Identification number NNN
*                                  (SCl NNN in Simbad for tableb1.dat)
*                                  (SCl XNN in Simbad for tableb2.dat)
      character*1   f_SCl_2     ! [c] Indicates a supercluster candidate
      integer*4     Num_2       ! Number of member clusters in the supercluster
      real*4        RAdeg_2     ! (deg) Supercluster center Right Ascension (B1950)
      real*4        DEdeg_2     ! (deg) Supercluster center declination (B1950)
      integer*4     Dist_2      ! (Mpc) Distance to the supercluster center
*                                  in units of h^-1^ Mpc (Ho/h=100km/s/Mpc)
      character*20  CName_2     ! Commonly used supercluster name
      integer*4     XCl1_1      ! The 1st X-ray cluster in the supercluster (1)
      character*2   r_XCl1_1    ! Cluster reference on XCl1 (1)
      integer*4     XCl2_1      ! ? The 2nd X-ray cluster in the supercluster (1)
      character*2   r_XCl2_1    ! Cluster reference on XCl2 (1)
      integer*4     XCl3_1      ! ? The 3rd X-ray cluster in the supercluster (1)
      character*2   r_XCl3_1    ! Cluster reference on XCl3 (1)
      integer*4     XCl4_1      ! ? The 4th X-ray cluster in the supercluster
      character*2   r_XCl4_1    ! Cluster reference on XCl4 (1)
      integer*4     XCl5_1      ! ? The 5th X-ray cluster in the supercluster
      character*2   r_XCl5_1    ! Cluster reference on XCl5 (1)
      integer*4     XCl6_1      ! ? The 6th X-ray cluster in the supercluster
      character*2   r_XCl6_1    ! Cluster reference on XCl6 (1)
      integer*4     XCl7_1      ! ? The 7th X-ray cluster in the supercluster
      character*2   r_XCl7_1    ! Cluster reference on XCl6 (1)
      integer*4     XCl8_1      ! ? The 8th X-ray cluster in the supercluster
      character*2   r_XCl8_1    ! Cluster reference on XCl7 (1)
      integer*4     XCl9_1      ! ? The 9th X-ray cluster in the supercluster
      character*2   r_XCl9_1    ! Cluster reference on XCl8 (1)
      integer*4     XCl10_1     ! ? The 10th X-ray cluster in the supercluster
      character*2   r_XCl10_1   ! Cluster reference on XCl9 (1)
      integer*4     XCl11_1     ! ? The 11th X-ray cluster in the supercluster
      character*2   r_XCl11_1   ! Cluster reference on XCl10 (1)
      integer*4     XCl12_1     ! ? The 12th X-ray cluster in the supercluster
      character*2   r_XCl12_1   ! Cluster reference on XCl11 (1)
      integer*4     XCl13_1     ! ? The 13th X-ray cluster in the supercluster
      character*2   r_XCl13_1   ! Cluster reference on XCl12 (1)
      integer*4     XCl14_1     ! ? The 14th X-ray cluster in the supercluster
      character*2   r_XCl14_1   ! Cluster reference on XCl13 (1)
*Note (1): Cluster references:
*     G = Abell - ACO catalog number from de Grandi et al.
*          (1999, Cat. <J/ApJ/514/148>)
*     D = Abell - ACO catalog number from David, Forman & Jones
*          (1999, Cat. <J/ApJ/519/533>)
*     B = Abell - ACO catalog number from the Brightest Cluster Sample
*          catalog (Ebeling et al., 1998, <J/MNRAS/301/881>)
*    RR = non-Abell cluster number from ROSAT Bright Survey catalog of
*          high Galactic latitude RASS sources, Schwope et al., Cat. <IX/32>
*    BB = non-Abell cluster number from Brightest Cluster Sample catalog
*          Ebeling et al., 1998, Cat. <J/MNRAS/301/881>
*    GG = non-Abell cluster number the the catalog by de Grandi et al.
*          (1999, Cat. <J/ApJ/514/148>)
*   No reference = Abell - ACO catalog number from ROSAT Bright Survey catalog,
*          Fischer et al., 2000, Cat. <IX/32>

C=============================================================================

C  Loading file 'tablea1.dat'	! The List of Superclusters

C  Format for file interpretation

    1 format(
     +  I3,1X,A1,1X,I2,1X,F5.1,1X,F5.1,1X,I4,1X,A21,I4,A1,1X,I4,A1,1X,
     +  I4,A1,1X,I4,A1,1X,I4,A1,1X,I4,A1,1X,I4,A1,1X,I4,A1,1X,I4,A1,
     +  1X,I4,A1,1X,I4,A1,1X,I4,A1,1X,I4,A1,1X,I4,A1,1X,I4,A1,1X,I4,
     +  A1,1X,I4,A1,1X,I4,A1,1X,I4,A1,1X,I4,A1,1X,I4,A1,1X,I4,A1,1X,
     +  I4,A1,1X,I4,A1,1X,I4,A1,1X,I4,A1,1X,I4,A1,1X,I4,A1,1X,I4,A1,
     +  1X,I4,A1,1X,I4,A1,1X,I4,A1,1X,I4,A1,1X,I4,A1,1X,I4,A1)

C  Effective file loading

      open(unit=1,status='old',file=
     +'tablea1.dat')
      write(6,*) '....Loading file: tablea1.dat'
      do i__=1,286
        read(1,'(A287)')ar__
        read(ar__,1)
     +  SCl,f_SCl,Num,RAdeg,DEdeg,Dist,CName,AC1,f_AC1,AC2,f_AC2,AC3,
     +  f_AC3,AC4,f_AC4,AC5,f_AC5,AC6,f_AC6,AC7,f_AC7,AC8,f_AC8,AC9,
     +  f_AC9,AC10,f_AC10,AC11,f_AC11,AC12,f_AC12,AC13,f_AC13,AC14,
     +  f_AC14,AC15,f_AC15,AC16,f_AC16,AC17,f_AC17,AC18,f_AC18,AC19,
     +  f_AC19,AC20,f_AC20,AC21,f_AC21,AC22,f_AC22,AC23,f_AC23,AC24,
     +  f_AC24,AC25,f_AC25,AC26,f_AC26,AC27,f_AC27,AC28,f_AC28,AC29,
     +  f_AC29,AC30,f_AC30,AC31,f_AC31,AC32,f_AC32,AC33,f_AC33,AC34,
     +  f_AC34,AC35,f_AC35
        if(ar__(60:63) .EQ. '') AC3 = iNULL__
        if(ar__(66:69) .EQ. '') AC4 = iNULL__
        if(ar__(72:75) .EQ. '') AC5 = iNULL__
        if(ar__(78:81) .EQ. '') AC6 = iNULL__
        if(ar__(84:87) .EQ. '') AC7 = iNULL__
        if(ar__(90:93) .EQ. '') AC8 = iNULL__
        if(ar__(96:99) .EQ. '') AC9 = iNULL__
        if(ar__(102:105) .EQ. '') AC10 = iNULL__
        if(ar__(108:111) .EQ. '') AC11 = iNULL__
        if(ar__(114:117) .EQ. '') AC12 = iNULL__
        if(ar__(120:123) .EQ. '') AC13 = iNULL__
        if(ar__(126:129) .EQ. '') AC14 = iNULL__
        if(ar__(132:135) .EQ. '') AC15 = iNULL__
        if(ar__(138:141) .EQ. '') AC16 = iNULL__
        if(ar__(144:147) .EQ. '') AC17 = iNULL__
        if(ar__(150:153) .EQ. '') AC18 = iNULL__
        if(ar__(156:159) .EQ. '') AC19 = iNULL__
        if(ar__(162:165) .EQ. '') AC20 = iNULL__
        if(ar__(168:171) .EQ. '') AC21 = iNULL__
        if(ar__(174:177) .EQ. '') AC22 = iNULL__
        if(ar__(180:183) .EQ. '') AC23 = iNULL__
        if(ar__(186:189) .EQ. '') AC24 = iNULL__
        if(ar__(192:195) .EQ. '') AC25 = iNULL__
        if(ar__(198:201) .EQ. '') AC26 = iNULL__
        if(ar__(204:207) .EQ. '') AC27 = iNULL__
        if(ar__(210:213) .EQ. '') AC28 = iNULL__
        if(ar__(216:219) .EQ. '') AC29 = iNULL__
        if(ar__(222:225) .EQ. '') AC30 = iNULL__
        if(ar__(228:231) .EQ. '') AC31 = iNULL__
        if(ar__(234:237) .EQ. '') AC32 = iNULL__
        if(ar__(240:243) .EQ. '') AC33 = iNULL__
        if(ar__(246:249) .EQ. '') AC34 = iNULL__
        if(ar__(252:255) .EQ. '') AC35 = iNULL__
c    ..............Just test output...........
        write(6,1)
     +  SCl,f_SCl,Num,RAdeg,DEdeg,Dist,CName,AC1,f_AC1,AC2,f_AC2,AC3,
     +  f_AC3,AC4,f_AC4,AC5,f_AC5,AC6,f_AC6,AC7,f_AC7,AC8,f_AC8,AC9,
     +  f_AC9,AC10,f_AC10,AC11,f_AC11,AC12,f_AC12,AC13,f_AC13,AC14,
     +  f_AC14,AC15,f_AC15,AC16,f_AC16,AC17,f_AC17,AC18,f_AC18,AC19,
     +  f_AC19,AC20,f_AC20,AC21,f_AC21,AC22,f_AC22,AC23,f_AC23,AC24,
     +  f_AC24,AC25,f_AC25,AC26,f_AC26,AC27,f_AC27,AC28,f_AC28,AC29,
     +  f_AC29,AC30,f_AC30,AC31,f_AC31,AC32,f_AC32,AC33,f_AC33,AC34,
     +  f_AC34,AC35,f_AC35
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'tableb1.dat'	! The List of X-Ray clusters in superclusters

C  Format for file interpretation

    2 format(
     +  I3,1X,A1,1X,I2,1X,F6.2,1X,F6.2,1X,I4,1X,A20,1X,I4,A2,1X,I4,A2,
     +  1X,I4,A2,1X,I4,A2,1X,I4,A2,1X,I4,A2,1X,I4,A2,1X,I4,A2,1X,I4,
     +  A2,1X,I4,A2,1X,I4,A2,1X,I4,A2,1X,I4,A2,1X,I4,A2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'tableb1.dat')
      write(6,*) '....Loading file: tableb1.dat'
      do i__=1,99
        read(1,'(A146)')ar__1
        read(ar__1,2)
     +  SCl_1,f_SCl_1,Num_1,RAdeg_1,DEdeg_1,Dist_1,CName_1,XCl1,
     +  r_XCl1,XCl2,r_XCl2,XCl3,r_XCl3,XCl4,r_XCl4,XCl5,r_XCl5,XCl6,
     +  r_XCl6,XCl7,r_XCl7,XCl8,r_XCl8,XCl9,r_XCl9,XCl10,r_XCl10,
     +  XCl11,r_XCl11,XCl12,r_XCl12,XCl13,r_XCl13,XCl14,r_XCl14
        if(ar__1(57:60) .EQ. '') XCl2 = iNULL__
        if(ar__1(64:67) .EQ. '') XCl3 = iNULL__
        if(ar__1(71:74) .EQ. '') XCl4 = iNULL__
        if(ar__1(78:81) .EQ. '') XCl5 = iNULL__
        if(ar__1(85:88) .EQ. '') XCl6 = iNULL__
        if(ar__1(92:95) .EQ. '') XCl7 = iNULL__
        if(ar__1(99:102) .EQ. '') XCl8 = iNULL__
        if(ar__1(106:109) .EQ. '') XCl9 = iNULL__
        if(ar__1(113:116) .EQ. '') XCl10 = iNULL__
        if(ar__1(120:123) .EQ. '') XCl11 = iNULL__
        if(ar__1(127:130) .EQ. '') XCl12 = iNULL__
        if(ar__1(134:137) .EQ. '') XCl13 = iNULL__
        if(ar__1(141:144) .EQ. '') XCl14 = iNULL__
c    ..............Just test output...........
        write(6,2)
     +  SCl_1,f_SCl_1,Num_1,RAdeg_1,DEdeg_1,Dist_1,CName_1,XCl1,
     +  r_XCl1,XCl2,r_XCl2,XCl3,r_XCl3,XCl4,r_XCl4,XCl5,r_XCl5,XCl6,
     +  r_XCl6,XCl7,r_XCl7,XCl8,r_XCl8,XCl9,r_XCl9,XCl10,r_XCl10,
     +  XCl11,r_XCl11,XCl12,r_XCl12,XCl13,r_XCl13,XCl14,r_XCl14
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================

C  Loading file 'tableb2.dat'	! The List of additional superclusters of
*                               non-Abell X-Ray clusters

C  Format for file interpretation

    3 format(
     +  I3,1X,A1,1X,I2,1X,F6.2,1X,F6.2,1X,I4,1X,A20,1X,I4,A2,1X,I4,A2,
     +  1X,I4,A2,1X,I4,A2,1X,I4,A2,1X,I4,A2,1X,I4,A2,1X,I4,A2,1X,I4,
     +  A2,1X,I4,A2,1X,I4,A2,1X,I4,A2,1X,I4,A2,1X,I4,A2)

C  Effective file loading

      open(unit=1,status='old',file=
     +'tableb2.dat')
      write(6,*) '....Loading file: tableb2.dat'
      do i__=1,19
        read(1,'(A146)')ar__2
        read(ar__2,3)
     +  SCl_2,f_SCl_2,Num_2,RAdeg_2,DEdeg_2,Dist_2,CName_2,XCl1_1,
     +  r_XCl1_1,XCl2_1,r_XCl2_1,XCl3_1,r_XCl3_1,XCl4_1,r_XCl4_1,
     +  XCl5_1,r_XCl5_1,XCl6_1,r_XCl6_1,XCl7_1,r_XCl7_1,XCl8_1,
     +  r_XCl8_1,XCl9_1,r_XCl9_1,XCl10_1,r_XCl10_1,XCl11_1,r_XCl11_1,
     +  XCl12_1,r_XCl12_1,XCl13_1,r_XCl13_1,XCl14_1,r_XCl14_1
        if(ar__2(57:60) .EQ. '') XCl2_1 = iNULL__
        if(ar__2(64:67) .EQ. '') XCl3_1 = iNULL__
        if(ar__2(71:74) .EQ. '') XCl4_1 = iNULL__
        if(ar__2(78:81) .EQ. '') XCl5_1 = iNULL__
        if(ar__2(85:88) .EQ. '') XCl6_1 = iNULL__
        if(ar__2(92:95) .EQ. '') XCl7_1 = iNULL__
        if(ar__2(99:102) .EQ. '') XCl8_1 = iNULL__
        if(ar__2(106:109) .EQ. '') XCl9_1 = iNULL__
        if(ar__2(113:116) .EQ. '') XCl10_1 = iNULL__
        if(ar__2(120:123) .EQ. '') XCl11_1 = iNULL__
        if(ar__2(127:130) .EQ. '') XCl12_1 = iNULL__
        if(ar__2(134:137) .EQ. '') XCl13_1 = iNULL__
        if(ar__2(141:144) .EQ. '') XCl14_1 = iNULL__
c    ..............Just test output...........
        write(6,3)
     +  SCl_2,f_SCl_2,Num_2,RAdeg_2,DEdeg_2,Dist_2,CName_2,XCl1_1,
     +  r_XCl1_1,XCl2_1,r_XCl2_1,XCl3_1,r_XCl3_1,XCl4_1,r_XCl4_1,
     +  XCl5_1,r_XCl5_1,XCl6_1,r_XCl6_1,XCl7_1,r_XCl7_1,XCl8_1,
     +  r_XCl8_1,XCl9_1,r_XCl9_1,XCl10_1,r_XCl10_1,XCl11_1,r_XCl11_1,
     +  XCl12_1,r_XCl12_1,XCl13_1,r_XCl13_1,XCl14_1,r_XCl14_1
c    .......End.of.Just test output...........
      end do
      close(1)

C=============================================================================
      stop
      end