C     EDIT DATE   10NOV78  14:27
C     SOURCE FILE LOGOSAJH.IN
C     AUTHOR      A. J. HOWARD
C     GLOBAL PROGRAM DATA BASE
      INTEGER     ADDR,   ADRFLG, CUROP,  NEXTOP, CFLAG
      INTEGER     PI,     XBBL,   XA,     XF,     XZERO,  DPVFLG
      INTEGER     LC,     LCI,    LODLCI, LODLCV, LDLCVO, MAXLCV
      INTEGER     NEXT,   NUMBER, I,      IOTYPE
      INTEGER     J,      K,      L,      LABNLX, M,      N
      INTEGER     PSYMB,  SYMBOL, TOP,    VALFLG, QVALUE
      INTEGER     OPTOPX, OPNXTX, TOPX,   NEXTX
      INTEGER     DUMMY,  OVCHN,  PEEKS
      INTEGER     LO,     CI,     CO,     LOGICF, LOCSUP
      INTEGER     VAREF,  INPUTJ, LCTS,   CRUCNT, FLTCNT
I     INTEGER ICLP05
      LOGICAL     ENDOK,CONEND
      COMMON   /LOGOS/  ADDR,   ADRFLG, CUROP,  NEXTOP, CFLAG
      COMMON   /LOGOS/  PI,     XBBL,   XA,     XF,     XZERO,  DPVFLG
      COMMON   /LOGOS/  LC,     LCI,    LODLCI, LODLCV, LDLCVO, MAXLCV
      COMMON   /LOGOS/  NEXT,   NUMBER, I,      IOTYPE
      COMMON   /LOGOS/  J,      K,      L,      LABNLX, M,      N
      COMMON   /LOGOS/  PSYMB,  SYMBOL, TOP,    VALFLG, QVALUE
      COMMON   /LOGOS/  OPTOPX, OPNXTX, TOPX,   NEXTX
      COMMON   /LOGOS/  DUMMY,  OVCHN,  PEEKS
      COMMON   /LOGOS/  LO,     CI,     CO,     LOGICF, LOCSUP
      COMMON   /LOGOS/  VAREF,  INPUTJ, LCTS,   CRUCNT, FLTCNT
I     COMMON   /LOGOS/  ICLP05
      COMMON   /LOGOS/  ENDOK,CONEND