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)
      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))
      INTEGER     EMAX
      COMMON      /ERRDFN/ EPROC
      COMMON      /ERRDFN/ ECOUNT
      COMMON      /ERRDFN/ ELIMIT
      COMMON      /ERRDFN/ EMSG
      COMMON      /ERRDFN/ EMAX