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 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 2017-Aug-16
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        (nr__) ! [1/300] Identification number (SCl NNN in Simbad)
      character*1   f_SCl      (nr__) ! [c] c: a supercluster candidate
      integer*4     Num        (nr__) ! [2/35] Number of member clusters in supercluster
      real*4        RAdeg      (nr__) ! (deg) Supercluster center right ascension (B1950)
      real*4        DEdeg      (nr__) ! (deg) Supercluster center declination (B1950)
      integer*4     Dist       (nr__) ! (Mpc) Distance to the supercluster center
*                               in units of h^-1^ Mpc (Ho/h=100km/s/Mpc)
      character*21  CName      (nr__) ! Commonly used supercluster name
      integer*4     AC1        (nr__) ! 1st cluster in the supercluster (1)
      character*1   f_AC1      (nr__) ! [e] e: cluster has an estimated distance
      integer*4     AC2        (nr__) ! 2nd cluster in the supercluster (1)
      character*1   f_AC2      (nr__) ! [e] e: cluster has an estimated distance
      integer*4     AC3        (nr__) ! ? 3rd cluster in the supercluster (1)
      character*1   f_AC3      (nr__) ! [e] e: cluster has an estimated distance
      integer*4     AC4        (nr__) ! ? 4th cluster in the supercluster (1)
      character*1   f_AC4      (nr__) ! [e] e: cluster has an estimated distance
      integer*4     AC5        (nr__) ! ? 5th cluster in the supercluster (1)
      character*1   f_AC5      (nr__) ! [e] e: cluster has an estimated distance
      integer*4     AC6        (nr__) ! ? 6th cluster in the supercluster (1)
      character*1   f_AC6      (nr__) ! [e] e: cluster has an estimated distance
      integer*4     AC7        (nr__) ! ? 7th cluster in the supercluster (1)
      character*1   f_AC7      (nr__) ! [e] e: cluster has an estimated distance
      integer*4     AC8        (nr__) ! ? 8th cluster in the supercluster (1)
      character*1   f_AC8      (nr__) ! [e] e: cluster has an estimated distance
      integer*4     AC9        (nr__) ! ? 9th cluster in the supercluster (1)
      character*1   f_AC9      (nr__) ! [e] e: cluster has an estimated distance
      integer*4     AC10       (nr__) ! ? 10th cluster in the supercluster (1)
      character*1   f_AC10     (nr__) ! [e] e: cluster has an estimated distance
      integer*4     AC11       (nr__) ! ? 11th cluster in the supercluster (1)
      character*1   f_AC11     (nr__) ! [e] e: cluster has an estimated distance
      integer*4     AC12       (nr__) ! ? 12th cluster in the supercluster (1)
      character*1   f_AC12     (nr__) ! [e] e: cluster has an estimated distance
      integer*4     AC13       (nr__) ! ? 13th cluster in the supercluster (1)
      character*1   f_AC13     (nr__) ! [e] e: cluster has an estimated distance
      integer*4     AC14       (nr__) ! ? 14th cluster in the supercluster (1)
      character*1   f_AC14     (nr__) ! [e] e: cluster has an estimated distance
      integer*4     AC15       (nr__) ! ? 15th cluster in the supercluster (1)
      character*1   f_AC15     (nr__) ! [e] e: cluster has an estimated distance
      integer*4     AC16       (nr__) ! ? 16th cluster in the supercluster (1)
      character*1   f_AC16     (nr__) ! [e] e: cluster has an estimated distance
      integer*4     AC17       (nr__) ! ? 17th cluster in the supercluster (1)
      character*1   f_AC17     (nr__) ! [e] e: cluster has an estimated distance
      integer*4     AC18       (nr__) ! ? 18th cluster in the supercluster (1)
      character*1   f_AC18     (nr__) ! [e] e: cluster has an estimated distance
      integer*4     AC19       (nr__) ! ? 19th cluster in the supercluster (1)
      character*1   f_AC19     (nr__) ! [e] e: cluster has an estimated distance
      integer*4     AC20       (nr__) ! ? 20th cluster in the supercluster (1)
      character*1   f_AC20     (nr__) ! [e] e: cluster has an estimated distance
      integer*4     AC21       (nr__) ! ? 21th cluster in the supercluster (1)
      character*1   f_AC21     (nr__) ! [e] e: cluster has an estimated distance
      integer*4     AC22       (nr__) ! ? 22th cluster in the supercluster (1)
      character*1   f_AC22     (nr__) ! [e] e: cluster has an estimated distance
      integer*4     AC23       (nr__) ! ? 23th cluster in the supercluster (1)
      character*1   f_AC23     (nr__) ! [e] e: cluster has an estimated distance
      integer*4     AC24       (nr__) ! ? 24th cluster in the supercluster (1)
      character*1   f_AC24     (nr__) ! [e] e: cluster has an estimated distance
      integer*4     AC25       (nr__) ! ? 25th cluster in the supercluster (1)
      character*1   f_AC25     (nr__) ! [e] e: cluster has an estimated distance
      integer*4     AC26       (nr__) ! ? 26th cluster in the supercluster (1)
      character*1   f_AC26     (nr__) ! [e] e: cluster has an estimated distance
      integer*4     AC27       (nr__) ! ? 27th cluster in the supercluster (1)
      character*1   f_AC27     (nr__) ! [e] e: cluster has an estimated distance
      integer*4     AC28       (nr__) ! ? 28th cluster in the supercluster (1)
      character*1   f_AC28     (nr__) ! [e] e: cluster has an estimated distance
      integer*4     AC29       (nr__) ! ? 29th cluster in the supercluster (1)
      character*1   f_AC29     (nr__) ! [e] e: cluster has an estimated distance
      integer*4     AC30       (nr__) ! ? 30th cluster in the supercluster (1)
      character*1   f_AC30     (nr__) ! [e] e: cluster has an estimated distance
      integer*4     AC31       (nr__) ! ? 31th cluster in the supercluster (1)
      character*1   f_AC31     (nr__) ! [e] e: cluster has an estimated distance
      integer*4     AC32       (nr__) ! ? 32th cluster in the supercluster (1)
      character*1   f_AC32     (nr__) ! [e] e: cluster has an estimated distance
      integer*4     AC33       (nr__) ! ? 33th cluster in the supercluster (1)
      character*1   f_AC33     (nr__) ! [e] e: cluster has an estimated distance
      integer*4     AC34       (nr__) ! ? 34th cluster in the supercluster (1)
      character*1   f_AC34     (nr__) ! [e] e: cluster has an estimated distance
      integer*4     AC35       (nr__) ! ? 35th cluster in the supercluster (1)
      character*1   f_AC35     (nr__) ! [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      (nr__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    (nr__1) ! [c] Indicates a supercluster candidate
      integer*4     Num_1      (nr__1) ! Number of member clusters in the supercluster
      real*4        RAdeg_1    (nr__1) ! (deg) Supercluster center Right Ascension (B1950)
      real*4        DEdeg_1    (nr__1) ! (deg) Supercluster center declination (B1950)
      integer*4     Dist_1     (nr__1) ! (Mpc) Distance to the supercluster center
*                                  in units of h^-1^ Mpc (Ho/h=100km/s/Mpc)
      character*20  CName_1    (nr__1) ! Commonly used supercluster name
      integer*4     XCl1       (nr__1) ! The 1st X-ray cluster in the supercluster (1)
      character*2   r_XCl1     (nr__1) ! Cluster reference on XCl1 (1)
      integer*4     XCl2       (nr__1) ! ? The 2nd X-ray cluster in the supercluster (1)
      character*2   r_XCl2     (nr__1) ! Cluster reference on XCl2 (1)
      integer*4     XCl3       (nr__1) ! ? The 3rd X-ray cluster in the supercluster (1)
      character*2   r_XCl3     (nr__1) ! Cluster reference on XCl3 (1)
      integer*4     XCl4       (nr__1) ! ? The 4th X-ray cluster in the supercluster
      character*2   r_XCl4     (nr__1) ! Cluster reference on XCl4 (1)
      integer*4     XCl5       (nr__1) ! ? The 5th X-ray cluster in the supercluster
      character*2   r_XCl5     (nr__1) ! Cluster reference on XCl5 (1)
      integer*4     XCl6       (nr__1) ! ? The 6th X-ray cluster in the supercluster
      character*2   r_XCl6     (nr__1) ! Cluster reference on XCl6 (1)
      integer*4     XCl7       (nr__1) ! ? The 7th X-ray cluster in the supercluster
      character*2   r_XCl7     (nr__1) ! Cluster reference on XCl6 (1)
      integer*4     XCl8       (nr__1) ! ? The 8th X-ray cluster in the supercluster
      character*2   r_XCl8     (nr__1) ! Cluster reference on XCl7 (1)
      integer*4     XCl9       (nr__1) ! ? The 9th X-ray cluster in the supercluster
      character*2   r_XCl9     (nr__1) ! Cluster reference on XCl8 (1)
      integer*4     XCl10      (nr__1) ! ? The 10th X-ray cluster in the supercluster
      character*2   r_XCl10    (nr__1) ! Cluster reference on XCl9 (1)
      integer*4     XCl11      (nr__1) ! ? The 11th X-ray cluster in the supercluster
      character*2   r_XCl11    (nr__1) ! Cluster reference on XCl10 (1)
      integer*4     XCl12      (nr__1) ! ? The 12th X-ray cluster in the supercluster
      character*2   r_XCl12    (nr__1) ! Cluster reference on XCl11 (1)
      integer*4     XCl13      (nr__1) ! ? The 13th X-ray cluster in the supercluster
      character*2   r_XCl13    (nr__1) ! Cluster reference on XCl12 (1)
      integer*4     XCl14      (nr__1) ! ? The 14th X-ray cluster in the supercluster
      character*2   r_XCl14    (nr__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  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      (nr__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    (nr__2) ! [c] Indicates a supercluster candidate
      integer*4     Num_2      (nr__2) ! Number of member clusters in the supercluster
      real*4        RAdeg_2    (nr__2) ! (deg) Supercluster center Right Ascension (B1950)
      real*4        DEdeg_2    (nr__2) ! (deg) Supercluster center declination (B1950)
      integer*4     Dist_2     (nr__2) ! (Mpc) Distance to the supercluster center
*                                  in units of h^-1^ Mpc (Ho/h=100km/s/Mpc)
      character*20  CName_2    (nr__2) ! Commonly used supercluster name
      integer*4     XCl1_1     (nr__2) ! The 1st X-ray cluster in the supercluster (1)
      character*2   r_XCl1_1   (nr__2) ! Cluster reference on XCl1 (1)
      integer*4     XCl2_1     (nr__2) ! ? The 2nd X-ray cluster in the supercluster (1)
      character*2   r_XCl2_1   (nr__2) ! Cluster reference on XCl2 (1)
      integer*4     XCl3_1     (nr__2) ! ? The 3rd X-ray cluster in the supercluster (1)
      character*2   r_XCl3_1   (nr__2) ! Cluster reference on XCl3 (1)
      integer*4     XCl4_1     (nr__2) ! ? The 4th X-ray cluster in the supercluster
      character*2   r_XCl4_1   (nr__2) ! Cluster reference on XCl4 (1)
      integer*4     XCl5_1     (nr__2) ! ? The 5th X-ray cluster in the supercluster
      character*2   r_XCl5_1   (nr__2) ! Cluster reference on XCl5 (1)
      integer*4     XCl6_1     (nr__2) ! ? The 6th X-ray cluster in the supercluster
      character*2   r_XCl6_1   (nr__2) ! Cluster reference on XCl6 (1)
      integer*4     XCl7_1     (nr__2) ! ? The 7th X-ray cluster in the supercluster
      character*2   r_XCl7_1   (nr__2) ! Cluster reference on XCl6 (1)
      integer*4     XCl8_1     (nr__2) ! ? The 8th X-ray cluster in the supercluster
      character*2   r_XCl8_1   (nr__2) ! Cluster reference on XCl7 (1)
      integer*4     XCl9_1     (nr__2) ! ? The 9th X-ray cluster in the supercluster
      character*2   r_XCl9_1   (nr__2) ! Cluster reference on XCl8 (1)
      integer*4     XCl10_1    (nr__2) ! ? The 10th X-ray cluster in the supercluster
      character*2   r_XCl10_1  (nr__2) ! Cluster reference on XCl9 (1)
      integer*4     XCl11_1    (nr__2) ! ? The 11th X-ray cluster in the supercluster
      character*2   r_XCl11_1  (nr__2) ! Cluster reference on XCl10 (1)
      integer*4     XCl12_1    (nr__2) ! ? The 12th X-ray cluster in the supercluster
      character*2   r_XCl12_1  (nr__2) ! Cluster reference on XCl11 (1)
      integer*4     XCl13_1    (nr__2) ! ? The 13th X-ray cluster in the supercluster
      character*2   r_XCl13_1  (nr__2) ! Cluster reference on XCl12 (1)
      integer*4     XCl14_1    (nr__2) ! ? The 14th X-ray cluster in the supercluster
      character*2   r_XCl14_1  (nr__2) ! 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(i__),f_SCl(i__),Num(i__),RAdeg(i__),DEdeg(i__),Dist(i__),
     +  CName(i__),AC1(i__),f_AC1(i__),AC2(i__),f_AC2(i__),AC3(i__),
     +  f_AC3(i__),AC4(i__),f_AC4(i__),AC5(i__),f_AC5(i__),AC6(i__),
     +  f_AC6(i__),AC7(i__),f_AC7(i__),AC8(i__),f_AC8(i__),AC9(i__),
     +  f_AC9(i__),AC10(i__),f_AC10(i__),AC11(i__),f_AC11(i__),
     +  AC12(i__),f_AC12(i__),AC13(i__),f_AC13(i__),AC14(i__),
     +  f_AC14(i__),AC15(i__),f_AC15(i__),AC16(i__),f_AC16(i__),
     +  AC17(i__),f_AC17(i__),AC18(i__),f_AC18(i__),AC19(i__),
     +  f_AC19(i__),AC20(i__),f_AC20(i__),AC21(i__),f_AC21(i__),
     +  AC22(i__),f_AC22(i__),AC23(i__),f_AC23(i__),AC24(i__),
     +  f_AC24(i__),AC25(i__),f_AC25(i__),AC26(i__),f_AC26(i__),
     +  AC27(i__),f_AC27(i__),AC28(i__),f_AC28(i__),AC29(i__),
     +  f_AC29(i__),AC30(i__),f_AC30(i__),AC31(i__),f_AC31(i__),
     +  AC32(i__),f_AC32(i__),AC33(i__),f_AC33(i__),AC34(i__),
     +  f_AC34(i__),AC35(i__),f_AC35(i__)
        if(ar__(60:63) .EQ. '') AC3(i__) = iNULL__
        if(ar__(66:69) .EQ. '') AC4(i__) = iNULL__
        if(ar__(72:75) .EQ. '') AC5(i__) = iNULL__
        if(ar__(78:81) .EQ. '') AC6(i__) = iNULL__
        if(ar__(84:87) .EQ. '') AC7(i__) = iNULL__
        if(ar__(90:93) .EQ. '') AC8(i__) = iNULL__
        if(ar__(96:99) .EQ. '') AC9(i__) = iNULL__
        if(ar__(102:105) .EQ. '') AC10(i__) = iNULL__
        if(ar__(108:111) .EQ. '') AC11(i__) = iNULL__
        if(ar__(114:117) .EQ. '') AC12(i__) = iNULL__
        if(ar__(120:123) .EQ. '') AC13(i__) = iNULL__
        if(ar__(126:129) .EQ. '') AC14(i__) = iNULL__
        if(ar__(132:135) .EQ. '') AC15(i__) = iNULL__
        if(ar__(138:141) .EQ. '') AC16(i__) = iNULL__
        if(ar__(144:147) .EQ. '') AC17(i__) = iNULL__
        if(ar__(150:153) .EQ. '') AC18(i__) = iNULL__
        if(ar__(156:159) .EQ. '') AC19(i__) = iNULL__
        if(ar__(162:165) .EQ. '') AC20(i__) = iNULL__
        if(ar__(168:171) .EQ. '') AC21(i__) = iNULL__
        if(ar__(174:177) .EQ. '') AC22(i__) = iNULL__
        if(ar__(180:183) .EQ. '') AC23(i__) = iNULL__
        if(ar__(186:189) .EQ. '') AC24(i__) = iNULL__
        if(ar__(192:195) .EQ. '') AC25(i__) = iNULL__
        if(ar__(198:201) .EQ. '') AC26(i__) = iNULL__
        if(ar__(204:207) .EQ. '') AC27(i__) = iNULL__
        if(ar__(210:213) .EQ. '') AC28(i__) = iNULL__
        if(ar__(216:219) .EQ. '') AC29(i__) = iNULL__
        if(ar__(222:225) .EQ. '') AC30(i__) = iNULL__
        if(ar__(228:231) .EQ. '') AC31(i__) = iNULL__
        if(ar__(234:237) .EQ. '') AC32(i__) = iNULL__
        if(ar__(240:243) .EQ. '') AC33(i__) = iNULL__
        if(ar__(246:249) .EQ. '') AC34(i__) = iNULL__
        if(ar__(252:255) .EQ. '') AC35(i__) = iNULL__
c    ..............Just test output...........
        write(6,1)
     +  SCl(i__),f_SCl(i__),Num(i__),RAdeg(i__),DEdeg(i__),Dist(i__),
     +  CName(i__),AC1(i__),f_AC1(i__),AC2(i__),f_AC2(i__),AC3(i__),
     +  f_AC3(i__),AC4(i__),f_AC4(i__),AC5(i__),f_AC5(i__),AC6(i__),
     +  f_AC6(i__),AC7(i__),f_AC7(i__),AC8(i__),f_AC8(i__),AC9(i__),
     +  f_AC9(i__),AC10(i__),f_AC10(i__),AC11(i__),f_AC11(i__),
     +  AC12(i__),f_AC12(i__),AC13(i__),f_AC13(i__),AC14(i__),
     +  f_AC14(i__),AC15(i__),f_AC15(i__),AC16(i__),f_AC16(i__),
     +  AC17(i__),f_AC17(i__),AC18(i__),f_AC18(i__),AC19(i__),
     +  f_AC19(i__),AC20(i__),f_AC20(i__),AC21(i__),f_AC21(i__),
     +  AC22(i__),f_AC22(i__),AC23(i__),f_AC23(i__),AC24(i__),
     +  f_AC24(i__),AC25(i__),f_AC25(i__),AC26(i__),f_AC26(i__),
     +  AC27(i__),f_AC27(i__),AC28(i__),f_AC28(i__),AC29(i__),
     +  f_AC29(i__),AC30(i__),f_AC30(i__),AC31(i__),f_AC31(i__),
     +  AC32(i__),f_AC32(i__),AC33(i__),f_AC33(i__),AC34(i__),
     +  f_AC34(i__),AC35(i__),f_AC35(i__)
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(i__),f_SCl_1(i__),Num_1(i__),RAdeg_1(i__),DEdeg_1(i__),
     +  Dist_1(i__),CName_1(i__),XCl1(i__),r_XCl1(i__),XCl2(i__),
     +  r_XCl2(i__),XCl3(i__),r_XCl3(i__),XCl4(i__),r_XCl4(i__),
     +  XCl5(i__),r_XCl5(i__),XCl6(i__),r_XCl6(i__),XCl7(i__),
     +  r_XCl7(i__),XCl8(i__),r_XCl8(i__),XCl9(i__),r_XCl9(i__),
     +  XCl10(i__),r_XCl10(i__),XCl11(i__),r_XCl11(i__),XCl12(i__),
     +  r_XCl12(i__),XCl13(i__),r_XCl13(i__),XCl14(i__),r_XCl14(i__)
        if(ar__1(57:60) .EQ. '') XCl2(i__) = iNULL__
        if(ar__1(64:67) .EQ. '') XCl3(i__) = iNULL__
        if(ar__1(71:74) .EQ. '') XCl4(i__) = iNULL__
        if(ar__1(78:81) .EQ. '') XCl5(i__) = iNULL__
        if(ar__1(85:88) .EQ. '') XCl6(i__) = iNULL__
        if(ar__1(92:95) .EQ. '') XCl7(i__) = iNULL__
        if(ar__1(99:102) .EQ. '') XCl8(i__) = iNULL__
        if(ar__1(106:109) .EQ. '') XCl9(i__) = iNULL__
        if(ar__1(113:116) .EQ. '') XCl10(i__) = iNULL__
        if(ar__1(120:123) .EQ. '') XCl11(i__) = iNULL__
        if(ar__1(127:130) .EQ. '') XCl12(i__) = iNULL__
        if(ar__1(134:137) .EQ. '') XCl13(i__) = iNULL__
        if(ar__1(141:144) .EQ. '') XCl14(i__) = iNULL__
c    ..............Just test output...........
        write(6,2)
     +  SCl_1(i__),f_SCl_1(i__),Num_1(i__),RAdeg_1(i__),DEdeg_1(i__),
     +  Dist_1(i__),CName_1(i__),XCl1(i__),r_XCl1(i__),XCl2(i__),
     +  r_XCl2(i__),XCl3(i__),r_XCl3(i__),XCl4(i__),r_XCl4(i__),
     +  XCl5(i__),r_XCl5(i__),XCl6(i__),r_XCl6(i__),XCl7(i__),
     +  r_XCl7(i__),XCl8(i__),r_XCl8(i__),XCl9(i__),r_XCl9(i__),
     +  XCl10(i__),r_XCl10(i__),XCl11(i__),r_XCl11(i__),XCl12(i__),
     +  r_XCl12(i__),XCl13(i__),r_XCl13(i__),XCl14(i__),r_XCl14(i__)
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(i__),f_SCl_2(i__),Num_2(i__),RAdeg_2(i__),DEdeg_2(i__),
     +  Dist_2(i__),CName_2(i__),XCl1_1(i__),r_XCl1_1(i__),
     +  XCl2_1(i__),r_XCl2_1(i__),XCl3_1(i__),r_XCl3_1(i__),
     +  XCl4_1(i__),r_XCl4_1(i__),XCl5_1(i__),r_XCl5_1(i__),
     +  XCl6_1(i__),r_XCl6_1(i__),XCl7_1(i__),r_XCl7_1(i__),
     +  XCl8_1(i__),r_XCl8_1(i__),XCl9_1(i__),r_XCl9_1(i__),
     +  XCl10_1(i__),r_XCl10_1(i__),XCl11_1(i__),r_XCl11_1(i__),
     +  XCl12_1(i__),r_XCl12_1(i__),XCl13_1(i__),r_XCl13_1(i__),
     +  XCl14_1(i__),r_XCl14_1(i__)
        if(ar__2(57:60) .EQ. '') XCl2_1(i__) = iNULL__
        if(ar__2(64:67) .EQ. '') XCl3_1(i__) = iNULL__
        if(ar__2(71:74) .EQ. '') XCl4_1(i__) = iNULL__
        if(ar__2(78:81) .EQ. '') XCl5_1(i__) = iNULL__
        if(ar__2(85:88) .EQ. '') XCl6_1(i__) = iNULL__
        if(ar__2(92:95) .EQ. '') XCl7_1(i__) = iNULL__
        if(ar__2(99:102) .EQ. '') XCl8_1(i__) = iNULL__
        if(ar__2(106:109) .EQ. '') XCl9_1(i__) = iNULL__
        if(ar__2(113:116) .EQ. '') XCl10_1(i__) = iNULL__
        if(ar__2(120:123) .EQ. '') XCl11_1(i__) = iNULL__
        if(ar__2(127:130) .EQ. '') XCl12_1(i__) = iNULL__
        if(ar__2(134:137) .EQ. '') XCl13_1(i__) = iNULL__
        if(ar__2(141:144) .EQ. '') XCl14_1(i__) = iNULL__
c    ..............Just test output...........
        write(6,3)
     +  SCl_2(i__),f_SCl_2(i__),Num_2(i__),RAdeg_2(i__),DEdeg_2(i__),
     +  Dist_2(i__),CName_2(i__),XCl1_1(i__),r_XCl1_1(i__),
     +  XCl2_1(i__),r_XCl2_1(i__),XCl3_1(i__),r_XCl3_1(i__),
     +  XCl4_1(i__),r_XCl4_1(i__),XCl5_1(i__),r_XCl5_1(i__),
     +  XCl6_1(i__),r_XCl6_1(i__),XCl7_1(i__),r_XCl7_1(i__),
     +  XCl8_1(i__),r_XCl8_1(i__),XCl9_1(i__),r_XCl9_1(i__),
     +  XCl10_1(i__),r_XCl10_1(i__),XCl11_1(i__),r_XCl11_1(i__),
     +  XCl12_1(i__),r_XCl12_1(i__),XCl13_1(i__),r_XCl13_1(i__),
     +  XCl14_1(i__),r_XCl14_1(i__)
c    .......End.of.Just test output...........
      end do
      close(1)

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