C     EDIT DATE   13MAY78  06:49
C     SOURCE FILE ERRDFNGAK.IN
C     AUTHOR      GARY A. KUDIS
C     ERROR MESSAGE DEFINTION TABLE
      INTEGER     EPROC (20)
      INTEGER     ECOUNT (20)
      INTEGER     ELIMIT (20)
      INTEGER     EMSG (200)
      INTEGER     EMSG1(10),EMSG2(10),EMSG3(10),EMSG4(10)
      INTEGER     EMSG5(10),EMSG6(10),EMSG7(10),EMSG8(10)
      INTEGER     EMSG9(10),EMSG10(10),EMSG11(10),EMSG12(10)
      INTEGER     EMSG13(10),EMSG14(10),EMSG15(10),EMSG16(10)
      INTEGER     EMSG17(10),EMSG18(10),EMSG19(10),EMSG20(20)
      INTEGER     EMAX,ICLP06
      COMMON      /ERRDFN/ EPROC
      COMMON      /ERRDFN/ ECOUNT
      COMMON      /ERRDFN/ ELIMIT
      COMMON      /ERRDFN/ EMSG
      COMMON      /ERRDFN/ EMAX
      COMMON      /ERRDFN/ ICLP06
      EQUIVALENCE (EMSG1,EMSG(1)),   (EMSG2,EMSG(11))
      EQUIVALENCE (EMSG3,EMSG(21)),  (EMSG4,EMSG(31))
      EQUIVALENCE (EMSG5,EMSG(41)),  (EMSG6,EMSG(51))
      EQUIVALENCE (EMSG7,EMSG(61)),  (EMSG8,EMSG(71))
      EQUIVALENCE (EMSG9,EMSG(81)),  (EMSG10,EMSG(91))
      EQUIVALENCE (EMSG11,EMSG(101)),(EMSG12,EMSG(111))
      EQUIVALENCE (EMSG13,EMSG(121)),(EMSG14,EMSG(131))
      EQUIVALENCE (EMSG15,EMSG(141)),(EMSG16,EMSG(151))
      EQUIVALENCE (EMSG17,EMSG(161)),(EMSG18,EMSG(171))
      EQUIVALENCE (EMSG19,EMSG(181)),(EMSG20,EMSG(191))