[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / dzebra / dzstor.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/03/06 10:47:07  mclareni
* Zebra
*
*
*-----------------------------------------------------------
#include "zebra/pilot.h"
#if (defined(CERNLIB_DEBUGON))&&(defined(CERNLIB_VFORT))
#include "zebra/debugvf1.inc"
#endif
      SUBROUTINE DZSTOR (CHTEXT,IXSTOR)
#include "zebra/mqsys.inc"
#include "zebra/qequ.inc"
#include "zebra/zunit.inc"
#include "zebra/dzc1.inc"
#include "zebra/divparq.inc"
#include "zebra/storparq.inc"
      CHARACTER *(*) CHTEXT

      CHARACTER CHROUT*(*)
      PARAMETER (CHROUT = 'DZSTOR')

#if (defined(CERNLIB_DEBUGON))&&(defined(CERNLIB_VFORT))
#include "zebra/debugvf2.inc"
#endif

      CQSTAK = CHROUT//'/'
      IQUEST(1) = 0

      IF (CHTEXT.NE.CDUMMQ)                                    THEN
          CQMAP(1)      = ' '
          CQMAP(2)      = ' DZSTOR --- '
          CQMAP(2)(13:) = CHTEXT
          CALL DZTEXT(0,CDUMMQ,2)
      ENDIF

      CALL MZSDIV (IXSTOR,-1)


      LSTABS = LQSTOR + 1
*           MAP addresses are in BYTES
#if !defined(CERNLIB_WORDMAP)
      LSTABS = LSTABS*4
#endif
      WRITE(CQMAP,'(1X,/,''  --- Store Parameters ---'',/,
     W'' Id    Name    Abs.addr.  Length   Fence      NS      NL'',
     W''      WS  Min.Resv.  Act.Resv.   Min(1+2)   Low  High'',/,
#if (!defined(CERNLIB_OCTMAP))&&(!defined(CERNLIB_QMIBM))
     W   I3,2X,2A4,2X,Z8,1X,5I8,3I11,2I6)',ERR=999)
#endif
#if (!defined(CERNLIB_OCTMAP))&&(defined(CERNLIB_QMIBM))
     W   I3,2X,2A4,2X,Z8,1X,5I8,3I11,2I6)')
#endif
#if defined(CERNLIB_OCTMAP)
     W   I3,2X,2A4,2X,O8,1X,5I8,3I11,2I6)',ERR=999)
#endif
     W    JQSTOR , NQSNAM(1) , NQSNAM(2) ,
     W    LSTABS , LQSTA(KQT+NDVMXQ+1)-1 , NQFEND ,
     W    NQSTRU , NQREF-NQSTRU , NQLINK-NQREF ,
     W    NQMINR , LQSTA(KQT+MDVHGQ)-LQEND(KQT+MDVLWQ) ,
     W    LQ2END-1 , JQDVLL , 20-JQDVSY
      CALL DZTEXT(0,CDUMMQ,4)

      CALL DZSTDV

      CALL DZSTLA

  999 RETURN
      END
Commit	Line	Data
fe4da5cc	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