










      INTEGER      JUNIAA(MAXAA), PREVSHOW(MAXAA), PREVCOL(MAXAT),
     +             NUM_LINS
      CHARACTER*80 TOPLIN

      COMMON      /JUNCM1/
     +             JUNIAA, PREVSHOW, PREVCOL, NUM_LINS

      COMMON      /JUNCM2/
     +             TOPLIN
