C
C     THIS COMMON BLOCK CONTAINS INFORMATION ABOUT THE CURRENT ITEM.
C
C              FIRST....FIRST CHARACTER OF ITEM.
C              LAST.....LAST CHARACTER OF ITEM.
C              TYP......TYP OF ITEM  ONE OF THE FOLLOWING:
C                       INTGER - IVAL SET TO VALUE
C                       REAL   - RVAL SET TO VALUE
C                       TEXT   - NO VALUE RETURNED
C                       SAME (*N ITEMS) - IVAL=N
C                       ALLSAM (** ITEMS)
C                       REPEAT (*=N ITEMS) IVAL=N
C                       GENRAT (*+N ITEMS) IVAL=N
C                       COMMA -  MAKE A -NULL- ITEM
C              IVALUE...INTEGER VALUE RETURN
C              RVALUE...REAL VALUE RETURN
C              NOEND....LOGICAL .TRUE. IFF END-OF-LINE ENCOUNTERED
C                       WITHOUT END-OF-QUOTE OR END-OF-COMMENT.
C
C              FOR REPEAT ITEMS OF THE FORM *=N?VALUE WHERE ? IS + OR -
C              IGEN.....INTEGER GENERATION VALUE
C              RGEN.....REAL GENERATION VALUE
C              TGEN.....TYPE OF GENERATION VALUE (REAL,TEXT OR NULL)
C
      COMMON /LXCIT/FIRST,LAST,TYP,IVALUE,RVALUE,NOEND,IGEN,RGEN,TGEN
      INTEGER FIRST,LAST,TYP,TGEN
      LOGICAL NOEND