C-----THIS IS COMMON/INCLUDE FILE DPCODB.INC-----
C     THIS IS COMMON FOR DEBUGGING
C
C               ****************************************
C               ****************************************
C               **  DEFINE AND EQUIVALENCE INTEGER    **
C               **  DEBUGGING                         **
C               **  VARIABLES AND ARRAYS              **
C               ****************************************
C               ****************************************
C
      COMMON /IBUG/I1BUG(10)
C
      EQUIVALENCE (I1BUG(1) ,MAXBUG)
      EQUIVALENCE (I1BUG(2) ,NUMBUG)
C
C               ****************************************
C               ****************************************
C               **  DEFINE AND EQUIVALENCE CHARACTER  **
C               **  DEBUGGING                         **
C               **  VARIABLES AND ARRAYS              **
C               ****************************************
C               ****************************************
C
      CHARACTER*4 IBUGMA
      CHARACTER*4 IBUGIN
      CHARACTER*4 IBUGLS
      CHARACTER*4 IBUGMS
      CHARACTER*4 IBUGGC
      CHARACTER*4 IBUGTY
      CHARACTER*4 IBUGTE
      CHARACTER*4 IBUGPC
      CHARACTER*4 IBUGP2
      CHARACTER*4 IBUGOD
      CHARACTER*4 IBUGO2
      CHARACTER*4 IBUGSU
      CHARACTER*4 IBUGS2
      CHARACTER*4 IBUGGR
      CHARACTER*4 IBUGG2
      CHARACTER*4 IBUGG3
      CHARACTER*4 IBUGAN
      CHARACTER*4 IBUGA2
      CHARACTER*4 IBUGA3
      CHARACTER*4 IBUGPL
      CHARACTER*4 IBUGP
      CHARACTER*4 IBUGP1
      CHARACTER*4 IBUGP3
      CHARACTER*4 IBUGDG
      CHARACTER*4 IBUGD2
      CHARACTER*4 IBUGCO
      CHARACTER*4 IBUGEV
      CHARACTER*4 IBUGQ
      CHARACTER*4 IBUGRE
      CHARACTER*4 IBUGWR
      CHARACTER*4 IBUGSO
      CHARACTER*4 IBUGTO
C
      CHARACTER*4 IH1BUG
C
      COMMON /IHBUG/IH1BUG(100)
C
      EQUIVALENCE (IH1BUG(3) ,IBUGMA)
      EQUIVALENCE (IH1BUG(4) ,IBUGIN)
      EQUIVALENCE (IH1BUG(5) ,IBUGLS)
      EQUIVALENCE (IH1BUG(6) ,IBUGMS)
      EQUIVALENCE (IH1BUG(7) ,IBUGGC)
      EQUIVALENCE (IH1BUG(8) ,IBUGTY)
      EQUIVALENCE (IH1BUG(9) ,IBUGTE)
      EQUIVALENCE (IH1BUG(10),IBUGPC)
      EQUIVALENCE (IH1BUG(11),IBUGP2)
      EQUIVALENCE (IH1BUG(12),IBUGOD)
      EQUIVALENCE (IH1BUG(13),IBUGO2)
      EQUIVALENCE (IH1BUG(14),IBUGSU)
      EQUIVALENCE (IH1BUG(15),IBUGS2)
      EQUIVALENCE (IH1BUG(21),IBUGGR)
      EQUIVALENCE (IH1BUG(22),IBUGG2)
      EQUIVALENCE (IH1BUG(23),IBUGG3)
      EQUIVALENCE (IH1BUG(26),IBUGAN)
      EQUIVALENCE (IH1BUG(27),IBUGA2)
      EQUIVALENCE (IH1BUG(28),IBUGA3)
      EQUIVALENCE (IH1BUG(31),IBUGPL)
      EQUIVALENCE (IH1BUG(32),IBUGP)
      EQUIVALENCE (IH1BUG(33),IBUGP1)
      EQUIVALENCE (IH1BUG(34),IBUGP3)
      EQUIVALENCE (IH1BUG(36),IBUGDG)
      EQUIVALENCE (IH1BUG(37),IBUGD2)
      EQUIVALENCE (IH1BUG(41),IBUGCO)
      EQUIVALENCE (IH1BUG(42),IBUGEV)
      EQUIVALENCE (IH1BUG(51),IBUGQ)
      EQUIVALENCE (IH1BUG(56),IBUGRE)
      EQUIVALENCE (IH1BUG(57),IBUGWR)
      EQUIVALENCE (IH1BUG(58),IBUGSO)
      EQUIVALENCE (IH1BUG(59),IBUGTO)
C