C     EDIT DATE   30AUG78  13:42
C     SOURCE FILE FLMSGAPB.IN
C     AUTHOR      A. P. BUCHALTER
C     CLUSTER     XX
      INTEGER     MSGS(16,100)
      INTEGER     MSG01(16,10)
      INTEGER     MSG11(16,10)
      INTEGER     MSG21(16,10)
      INTEGER     MSG31(16,10)
      INTEGER     MSG41(16,10)
      INTEGER     MSG51(16,10)
      INTEGER     MSG61(16,10)
      INTEGER     MSG71(16,10)
      INTEGER     MSG81(16,10)
      COMMON      /FLTMSG/ MSGS
      EQUIVALENCE (MSGS(1, 1),MSG01(1,1))
      EQUIVALENCE (MSGS(1,11),MSG11(1,1))
      EQUIVALENCE (MSGS(1,21),MSG21(1,1))
      EQUIVALENCE (MSGS(1,31),MSG31(1,1))
      EQUIVALENCE (MSGS(1,41),MSG41(1,1))
      EQUIVALENCE (MSGS(1,51),MSG51(1,1))
      EQUIVALENCE (MSGS(1,61),MSG61(1,1))
      EQUIVALENCE (MSGS(1,71),MSG71(1,1))
      EQUIVALENCE (MSGS(1,81),MSG81(1,1))