C
C     CZGLVL.INC (aide global response value common block)
C
      INTEGER    MXGLID,MXGLEN,MXASVL
      PARAMETER (MXGLID=10,MXGLEN=4096,MXASVL=500)
C
      COMMON/CZGLVL/ZGLCNT,ZGLPOS,        ZGLLEN,        ZGLFLN,
     1              ZGLFCT,        ZGLAVL
      INTEGER       ZGLCNT,ZGLPOS(MXGLID),ZGLLEN(MXGLID),ZGLFLN(MXGLID),
     1              ZGLFCT(MXGLID),ZGLAVL(MXASVL,MXGLID)
C
      COMMON/CZGLVC/ZGLNAM,ZGLVAL
      CHARACTER*8   ZGLNAM(MXGLID)
      CHARACTER*1   ZGLVAL(MXGLEN)
C