SUBROUTINE RAND_COMMON
C----------------------------------------------------------------------
C-
C-   Purpose and Methods : Randomize the common blocks.
C-
C-   Inputs  : none
C-   Outputs : none
C-   Controls: none
C-
C-   Created  25-JUN-1991   MICHIGAN STATE UNIVERSITY, TRIGGER CONTROL SOFTWARE
C-
C----------------------------------------------------------------------
      IMPLICIT NONE
      INCLUDE 'D0$PARAMS:LEVEL1_LOOKUP.PARAMS'
      INCLUDE 'D0$INC:LEVEL1_LOOKUP.INC'
      INCLUDE 'LSMP$SOURCE:LEVEL1_LOOKUP_EXPANSION.INC'
      INCLUDE 'LSMP$SOURCE:PARSE_TOKENS.PARAMS'
      INCLUDE 'LSMP$SOURCE:PARSE_TOKENS.INC'
C
      INTEGER SEED
      INTEGER COUNT
C
      LSM_FILE_LOADED = .TRUE.
      LSO_FILE_LOADED = .FALSE.
      CALL INIT_COMMON_BLOCK()
      TREE_OFFSET(TOT_L2_QUANT) = 5.
C
      COUNT = 0
      SEED = 542221
      DO WHILE (.TRUE.)
        IF (TREE_OFFSET(TOT_L2_QUANT) .NE. 5.) THEN
          GOTO 300
        ENDIF
C&IF VAXVMS
        L0_BIN_COVERAGE(L0_BIN_MIN + COUNT, Z_LOW) = RAN(SEED)
C&ELSE
C&        L0_BIN_COVERAGE(L0_BIN_MIN + COUNT, Z_LOW) = 3.
C&ENDIF
        COUNT = COUNT + 1
      END DO
  300 CONTINUE
      COUNT = 0
      TRANSV_ENERGY_CUT(NEG_ETA, ETA_RANGE_MAX, PY_QUANT) = 5.
      DO WHILE (.TRUE.)
        IF (TRANSV_ENERGY_CUT(NEG_ETA, ETA_RANGE_MAX, PY_QUANT)
     &    .NE. 5.) THEN
          GOTO 999
        ENDIF
        PAGE_Z_NOM(EM_ET_QUANT + COUNT, PAGE_NUM_MIN) = RAN(SEED)
        COUNT = COUNT + 1
      END DO
C----------------------------------------------------------------------
  999 RETURN
      END