MINICERN/packlib/zebra/dzebra/dzstor.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/03/06 10:47:07  mclareni
   6 * Zebra
   7 *
   8 *
   9 *-----------------------------------------------------------
  10 #include "zebra/pilot.h"
  11 #if (defined(CERNLIB_DEBUGON))&&(defined(CERNLIB_VFORT))
  12 #include "zebra/debugvf1.inc"
  13 #endif
  14       SUBROUTINE DZSTOR (CHTEXT,IXSTOR)
  15 #include "zebra/mqsys.inc"
  16 #include "zebra/qequ.inc"
  17 #include "zebra/zunit.inc"
  18 #include "zebra/dzc1.inc"
  19 #include "zebra/divparq.inc"
  20 #include "zebra/storparq.inc"
  21       CHARACTER *(*) CHTEXT
  22
  23       CHARACTER CHROUT*(*)
  24       PARAMETER (CHROUT = 'DZSTOR')
  25
  26 #if (defined(CERNLIB_DEBUGON))&&(defined(CERNLIB_VFORT))
  27 #include "zebra/debugvf2.inc"
  28 #endif
  29
  30       CQSTAK = CHROUT//'/'
  31       IQUEST(1) = 0
  32
  33       IF (CHTEXT.NE.CDUMMQ)                                    THEN
  34           CQMAP(1)      = ' '
  35           CQMAP(2)      = ' DZSTOR --- '
  36           CQMAP(2)(13:) = CHTEXT
  37           CALL DZTEXT(0,CDUMMQ,2)
  38       ENDIF
  39
  40       CALL MZSDIV (IXSTOR,-1)
  41
  42
  43       LSTABS = LQSTOR + 1
  44 *           MAP addresses are in BYTES
  45 #if !defined(CERNLIB_WORDMAP)
  46       LSTABS = LSTABS*4
  47 #endif
  48       WRITE(CQMAP,'(1X,/,''  --- Store Parameters ---'',/,
  49      W'' Id    Name    Abs.addr.  Length   Fence      NS      NL'',
  50      W''      WS  Min.Resv.  Act.Resv.   Min(1+2)   Low  High'',/,
  51 #if (!defined(CERNLIB_OCTMAP))&&(!defined(CERNLIB_QMIBM))
  52      W   I3,2X,2A4,2X,Z8,1X,5I8,3I11,2I6)',ERR=999)
  53 #endif
  54 #if (!defined(CERNLIB_OCTMAP))&&(defined(CERNLIB_QMIBM))
  55      W   I3,2X,2A4,2X,Z8,1X,5I8,3I11,2I6)')
  56 #endif
  57 #if defined(CERNLIB_OCTMAP)
  58      W   I3,2X,2A4,2X,O8,1X,5I8,3I11,2I6)',ERR=999)
  59 #endif
  60      W    JQSTOR , NQSNAM(1) , NQSNAM(2) ,
  61      W    LSTABS , LQSTA(KQT+NDVMXQ+1)-1 , NQFEND ,
  62      W    NQSTRU , NQREF-NQSTRU , NQLINK-NQREF ,
  63      W    NQMINR , LQSTA(KQT+MDVHGQ)-LQEND(KQT+MDVLWQ) ,
  64      W    LQ2END-1 , JQDVLL , 20-JQDVSY
  65       CALL DZTEXT(0,CDUMMQ,4)
  66
  67       CALL DZSTDV
  68
  69       CALL DZSTLA
  70
  71   999 RETURN
  72       END