SUBROUTINE MU_INIT_SUMBITS(SUMBITS)
C----------------------------------------------------------------------
C-
C-   Purpose and Methods : Initialize the array which defines the areas
C-            in SAMUS A-station to be counted as valid muon candidates.
C-
C-   Inputs  : None
C-
C-   Outputs : SUMBITS(0:13,0:13,2) - Array which maps valid pixels into 12
C-                    areas, for counting as muon candidates.
C-
C-   Controls:
C-
C-   Created   7-OCT-1992   Guilherme Lima
C-
C----------------------------------------------------------------------
      IMPLICIT NONE
      INTEGER I,J
      INTEGER SUMBITS(0:13,0:13,2)
      INTEGER ARR1(0:13,0:13),ARR2(0:13,0:13)
C----------------------------------------------------------------------
C..   DATA ((SUMBITS(I,J,1),J=0,13),I=0,13) /
      DATA ARR1  /
     &      -1, -1, -1, -1, -1, -1, -1,  3,  3,  3,  3, -1, -1, -1,
     1      -1, -1, -1, -1, -1, -1, -1,  2,  2,  2,  2, -1, -1, -1,
     2      -1, -1, -1, -1, -1, -1, -1,  2,  2,  2,  2, -1, -1, -1,
     3      -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
     4      -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
     5      -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
     6      -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
     7      -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
     8      -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
     9      -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
     &      -1, -1, -1, -1, -1, -1, -1,  1,  1,  1,  1,  0,  0,  0,
     1      -1, -1, -1, -1, -1, -1, -1,  1,  1,  1,  1,  0,  0,  0,
     2      -1, -1, -1, -1, -1, -1, -1,  1,  1,  1,  1,  0,  0,  0,
     3      -1, -1, -1, -1, -1, -1, -1,  2,  2,  2,  2,  0,  0,  0/
C<<
C..   DATA ((SUMBITS(I,J,2),J=0,13),I=0,13) /
      DATA ARR2  /
     &      -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
     1      -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
     2      -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
     3      -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
     4      -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
     5      -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
     6      -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
     7       6,  5,  5, -1, -1, -1, -1, -1, -1, -1,  4,  4,  4,  5,
     8       6,  5,  5, -1, -1, -1, -1, -1, -1, -1,  4,  4,  4,  5,
     9       6,  5,  5, -1, -1, -1, -1, -1, -1, -1,  4,  4,  4,  5,
     &       6,  5,  5, -1, -1, -1, -1, -1, -1, -1,  4,  4,  4,  5,
     1      -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,  3,  3,  3,  3,
     2      -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,  3,  3,  3,  3,
     3      -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,  3,  3,  3,  3/
C<<
C<<
      DO I=0,13
        DO J=0,13
          SUMBITS(I,J,1) = ARR1(J,I)
          SUMBITS(I,J,2) = ARR2(J,I)
        ENDDO
      ENDDO
C------------------------------------------------------------------------
  999 RETURN
      END