









      LOGICAL      ROW1(MAXAT), ROW2(MAXAT), ROW3(MAXAT), ROWUSE(10)
      INTEGER      NXTROW, NUMROW(10), IQ7333, IQ7334, IQ7335
      CHARACTER*3  SEALIGN
      CHARACTER*4  AQ7335
      CHARACTER*5  ROWTYP
      CHARACTER*80 ROWTXT(10), ROWTITLE
      EQUIVALENCE  (AQ7335,IQ7335)
      EQUIVALENCE  (ROW1,GRPALL(0*MAXAT+1))
      EQUIVALENCE  (ROW2,GRPALL(1*MAXAT+1))
      EQUIVALENCE  (ROW3,GRPALL(2*MAXAT+1))
      
      COMMON       /WIFRW1/
     +             ROWUSE, IQ7333

      COMMON       /WIFRW2/
     +             NXTROW, NUMROW, IQ7334

      COMMON       /WIFRW3/
     +             ROWTXT, ROWTITLE, ROWTYP, SEALIGN, AQ7335
