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

*
* $Id$
*
* $Log$
* Revision 1.2  1996/04/24 17:26:17  mclareni
* Extend the include file cleanup to dzebra, rz and tq, and also add
* dependencies in some cases.
*
* 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 DZSTLA
      SAVE CLATYP
#include "zebra/divparq.inc"
#include "zebra/storparq.inc"
#include "zebra/questparq.inc"
#include "zebra/mqsys.inc"
#include "zebra/qequ.inc"
#include "zebra/mzcn.inc"
#include "zebra/zunit.inc"
#include "zebra/dzc1.inc"

      CHARACTER CHROUT*(*),CHSTAK*6,            CLATYP(0:1)*9, CAKTIV*8
      PARAMETER (CHROUT = 'DZSTLA')
      DATA      CLATYP               /'PERMANENT','TEMPORARY'/

#include "zebra/q_jbit.inc"
#include "zebra/q_jbyt.inc"

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


      CHSTAK          = CQSTAK(MCQSIQ:)
      CQSTAK(MCQSIQ:) = CHROUT


      IF (LQSTA(KQT+JQDVSY).EQ.LQEND(KQT+JQDVSY))          GO TO 999

      LSYSB  = LQSYSS(KQT+MSYLAQ)
      CALL MZCHLS(NCHEKQ,LSYSB)
      IF (IQFOUL.NE.0)    THEN
          CALL DZTEXT(MARE1Q,CDUMMQ,0)
                                                           GO TO 999
      ENDIF


      NWTAB  = IQ(KQS+LSYSB+MLAUSQ)


      LENTRY = LSYSB + KQS + MLAUSQ

      CQMAP(1) = ' '
      CQMAP(2) = '  --- Link area parameters ---'
      CQMAP(3) = ' '
      CALL DZTEXT(0,CDUMMQ,3)

      DO 200 IENTRY = 1,(NWTAB-1)/NLAENQ

          LLAAR1 = IQ(LENTRY+MLAADQ)
          LLAARL = IQ(LENTRY+MLALTQ)
          NLANS  = IQ(LENTRY+MLANSQ)
          NAME1  = IQ(LENTRY+MLAN1Q)
          NAME2  = IQ(LENTRY+MLAN2Q)
          JTEMP  = JBIT(NLANS,JLATMQ)
          NTEMP  = NLATMQ*JTEMP
          NLANS  = JBYT(NLANS,JLANSQ,NLANSQ)-NTEMP
          IF                                                     (
     X      JTEMP.EQ.0
     X    .OR.
     X      (JTEMP.EQ.1.AND.LQ(KQS+LLAAR1+MLACTQ-1).NE.0)        )
     X                                                        THEN
              CAKTIV = '  ACTIVE'
          ELSE
              CAKTIV = 'INACTIVE'
          ENDIF

          LLAABS = LLAAR1 + LQSTOR
*                MAP addresses are in BYTES
#if !defined(CERNLIB_WORDMAP)
          LLAABS = LLAABS*4
#endif
          NDW    = LLAARL - LLAAR1  - NTEMP

          WRITE(CQLINE,'(1X,2A4,1X,A9,'' LIST AREA'',5X,
#if !defined(CERNLIB_OCTMAP)
     W    '' is at absolute '',Z8,'' NL/NS '',2I5,
#endif
#if defined(CERNLIB_OCTMAP)
     W    ''is at absolute '',O11,'' NL/NS '',2I5,
#endif
     W     5X,''status '',A8)'                    )
     W     NAME1,NAME2,CLATYP(JTEMP),LLAABS,NDW,NLANS,CAKTIV
          CALL DZTEXT(0,CDUMMQ,1)

          LENTRY = LENTRY + NLAENQ

  200 CONTINUE

  999 CQSTAK(MCQSIQ:) = CHSTAK
      END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.2 1996/04/24 17:26:17 mclareni
	6	* Extend the include file cleanup to dzebra, rz and tq, and also add
	7	* dependencies in some cases.
	8	*
	9	* Revision 1.1.1.1 1996/03/06 10:47:07 mclareni
	10	* Zebra
	11	*
	12	*
	13	*-----------------------------------------------------------
	14	#include "zebra/pilot.h"
	15	#if (defined(CERNLIB_DEBUGON))&&(defined(CERNLIB_VFORT))
	16	#include "zebra/debugvf1.inc"
	17	#endif
	18	SUBROUTINE DZSTLA
	19	SAVE CLATYP
	20	#include "zebra/divparq.inc"
	21	#include "zebra/storparq.inc"
	22	#include "zebra/questparq.inc"
	23	#include "zebra/mqsys.inc"
	24	#include "zebra/qequ.inc"
	25	#include "zebra/mzcn.inc"
	26	#include "zebra/zunit.inc"
	27	#include "zebra/dzc1.inc"
	28
	29	CHARACTER CHROUT(),CHSTAK6, CLATYP(0:1)9, CAKTIV*8
	30	PARAMETER (CHROUT = 'DZSTLA')
	31	DATA CLATYP /'PERMANENT','TEMPORARY'/
	32
	33	#include "zebra/q_jbit.inc"
	34	#include "zebra/q_jbyt.inc"
	35
	36	#if (defined(CERNLIB_DEBUGON))&&(defined(CERNLIB_VFORT))
	37	#include "zebra/debugvf2.inc"
	38	#endif
	39
	40
	41	CHSTAK = CQSTAK(MCQSIQ:)
	42	CQSTAK(MCQSIQ:) = CHROUT
	43
	44
	45	IF (LQSTA(KQT+JQDVSY).EQ.LQEND(KQT+JQDVSY)) GO TO 999
	46
	47	LSYSB = LQSYSS(KQT+MSYLAQ)
	48	CALL MZCHLS(NCHEKQ,LSYSB)
	49	IF (IQFOUL.NE.0) THEN
	50	CALL DZTEXT(MARE1Q,CDUMMQ,0)
	51	GO TO 999
	52	ENDIF
	53
	54
	55	NWTAB = IQ(KQS+LSYSB+MLAUSQ)
	56
	57
	58	LENTRY = LSYSB + KQS + MLAUSQ
	59
	60	CQMAP(1) = ' '
	61	CQMAP(2) = ' --- Link area parameters ---'
	62	CQMAP(3) = ' '
	63	CALL DZTEXT(0,CDUMMQ,3)
	64
65	DO 200 IENTRY = 1,(NWTAB-1)/NLAENQ
66
67	LLAAR1 = IQ(LENTRY+MLAADQ)
68	LLAARL = IQ(LENTRY+MLALTQ)
69	NLANS = IQ(LENTRY+MLANSQ)
70	NAME1 = IQ(LENTRY+MLAN1Q)
71	NAME2 = IQ(LENTRY+MLAN2Q)
72	JTEMP = JBIT(NLANS,JLATMQ)
73	NTEMP = NLATMQ*JTEMP
74	NLANS = JBYT(NLANS,JLANSQ,NLANSQ)-NTEMP
75	IF (
76	X JTEMP.EQ.0
77	X .OR.
78	X (JTEMP.EQ.1.AND.LQ(KQS+LLAAR1+MLACTQ-1).NE.0) )
79	X THEN
80	CAKTIV = ' ACTIVE'
81	ELSE
82	CAKTIV = 'INACTIVE'
83	ENDIF
84
85	LLAABS = LLAAR1 + LQSTOR
86	* MAP addresses are in BYTES
87	#if !defined(CERNLIB_WORDMAP)
88	LLAABS = LLAABS*4
89	#endif
90	NDW = LLAARL - LLAAR1 - NTEMP
91
92	WRITE(CQLINE,'(1X,2A4,1X,A9,'' LIST AREA'',5X,
93	#if !defined(CERNLIB_OCTMAP)
94	W '' is at absolute '',Z8,'' NL/NS '',2I5,
95	#endif
96	#if defined(CERNLIB_OCTMAP)
97	W ''is at absolute '',O11,'' NL/NS '',2I5,
98	#endif
99	W 5X,''status '',A8)' )
100	W NAME1,NAME2,CLATYP(JTEMP),LLAABS,NDW,NLANS,CAKTIV
101	CALL DZTEXT(0,CDUMMQ,1)
102
103	LENTRY = LENTRY + NLAENQ
104
105	200 CONTINUE
106
107	999 CQSTAK(MCQSIQ:) = CHSTAK
108	END