C
C     THIS COMMON BLOCK CONTAINS INFORMATION NEEDED BY LXLREC FAMILY
C     OF ROUTINES.
C
C     NEWN.....NUMBER OF ITEMS IN CURRENT RECORD
C     OLDN.....NUMBER OF ITEMS IN PREVIOUS RECORD
C     NEWREC...CURRENT TEXT ITEM CHARACTER IMAGE PACKED TOGETHER
C     OLDREC...SAME AS NEWREC BUT FOR PREVIOUS RECORD.
C     TYPE.....TYPE OF EACH ITEM 4HTEXT,3HINT,4HREAL
C     INTVAL...VALUE IF INTEGER TYPE, START POINTER IN NEWREC IF TEXT.
C     RVAL.....VALUE IF REAL TYPE, NUM. CHARS. IF TEXT TYPE.
C     NEXT.....NEXT AVAILABLE POITION IN NEWREC
C     NIN......INPUT FILE NAME
C     NOUT.....OUTPUT FILE NAME
C     ECHO.....LOGICAL .TRUE. IFF LXLREC SHOULD ECHO INPUT.
C     LXEOF....LOGICAL .TRUE. IFF EOF READ ON LAST READ
C
      COMMON /LXCARD/NEWN,OLDN,NEWREC(290),OLDREC(290),
     X               TYPE(100),INTVAL(100),RVAL(100),NEXT,
     X               NIN,NOUT,ECHO,LXEOF
      INTEGER OLDN,OLDREC,TYPE
      LOGICAL ECHO,LXEOF