C
C   The lines below MUST be removed before compiling and placed into a file
C   named 'quasar.cmn'. They will be inserted automatically by the 'include'
C   compiler facility. If this facility is unavailable they must be inserted
C   manually using the editor. Note the explanation at the front of the file.
C
C
C       Common file for QUASAR
C
        CHARACTER*80 IBUF,OBUF
        CHARACTER*80 STRI
        CHARACTER*40 BLOK
        CHARACTER*40 BLOC
        CHARACTER*32 VERS
        CHARACTER*1  TAB
C                               up to 2500 data items in archive file
        INTEGER      REQU(5,2500)
        INTEGER      RCNT(2500)
        CHARACTER*4  TYPE(2500)
C                               up to 200 data items in request file
        CHARACTER*32 NAME(200)
        CHARACTER*5  UNIT(200)
        INTEGER      ITEM(200)
        INTEGER      CLEN(200)
        INTEGER      LOOP(200)
        INTEGER      SCR1(200)
        INTEGER      SCR2(200)
C                               up to 50 data requests in a loop
        INTEGER      LREC(50)
        INTEGER      LPOS(50)
        INTEGER      LLEN(50)
C                               up to 10 wild card data name requests
        INTEGER      WILD(10) 
        INTEGER      NWILD
C                               logical integrity test flag
        INTEGER      SLOG
C                               end of file flag (off=0; on=1)
        INTEGER      IEOF
C                               request end of file (off=0; on=1)
        INTEGER      EOFR
C                               current column pointer for GETSTR & GETSCR
        INTEGER      ICHR
C                               current column pointer for PUTSCR
        INTEGER      JCHR
C                               current column pointer for PUTOUT
        INTEGER      JPOS
C                               input string type from GETSTR (see above)
        INTEGER      NTYP
C                               number of scratch file records
        INTEGER      NSCR
C                               number of characters in string
        INTEGER      NCHR
C                               number of requested data items
        INTEGER      NREQ
C                               number of lines input on archive file
        INTEGER      LINE
C                               conversion from upper to lower case  
        INTEGER      CASE
C
        COMMON/QUASI/ REQU,RCNT,CLEN,ITEM,LOOP,SCR1,SCR2,LREC,LPOS,
     *  LLEN,IEOF,ICHR,JCHR,JPOS,NTYP,NSCR,NCHR,NREQ,EOFR,SLOG,WILD,
     *  NWILD,LINE,CASE
C
        COMMON/QUASC/ IBUF,OBUF,STRI,BLOK,TYPE,NAME,UNIT,VERS,TAB,BLOC
C
C-end-of-quasar-end-of-quasar-end-of-quasar-end-of-quasar-end-of-quasar-end