[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / tq / tzinq.F

*
* $Id$
*
* $Log$
* Revision 1.2  1996/04/18 16:14:54  mclareni
* Incorporate changes from J.Zoll for version 3.77
*
* Revision 1.1.1.1  1996/03/06 10:47:27  mclareni
* Zebra
*
*
#include "zebra/pilot.h"
      SUBROUTINE TZINQ  (IXSTOR,IXTITL,LTT,IFLAG)

C-    Inquire about the title structure in store IXSTOR
C-        return:  the index of the title division
C-                 the adr of the last (IFLAG=0) or the first bank

#include "zebra/mqsys.inc"
#include "zebra/eqlqt.inc"
C--------------    END CDE                             -----------------
#if (defined(CERNLIB_QTRHOLL))&&(!defined(CERNLIB_A6M))
      DIMENSION    NAMESR(2)
      DATA  NAMESR / 4HTZIN, 4HQ    /
#endif
#if (defined(CERNLIB_QTRHOLL))&&(defined(CERNLIB_A6M))
      DATA  NAMESR / 6HTZINQ  /
#endif
#if !defined(CERNLIB_QTRHOLL)
      CHARACTER    NAMESR*8
      PARAMETER   (NAMESR = 'TZINQ   ')
#endif

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

#include "zebra/qtraceq.inc"

#include "zebra/qstore.inc"

      L = LQT(KQT+1)
      IF (L.EQ.0)                  GO TO 70

      JDV  = MZFDIV (-7, L)
      IF (JDV.EQ.JQDVSY)  JDV = 24
      IXDV = MSBYT (JQSTOR,JDV,27,4)
      IF (IFLAG.NE.0)              GO TO 71

C--       go to the end

   24 IF (LQ(KQS+L).EQ.0)             GO TO 71
      L = LQ(KQS+L)
      GO TO 24

   70 IXDV = MSBYT (JQSTOR,0,27,4)
   71 IXTITL = IXDV
      LTT    = L

#include "zebra/qtrace99.inc"
      RETURN
      END
*      ==================================================
#include "zebra/qcardl.inc"
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.2 1996/04/18 16:14:54 mclareni
	6	* Incorporate changes from J.Zoll for version 3.77
	7	*
	8	* Revision 1.1.1.1 1996/03/06 10:47:27 mclareni
	9	* Zebra
	10	*
	11	*
	12	#include "zebra/pilot.h"
	13	SUBROUTINE TZINQ (IXSTOR,IXTITL,LTT,IFLAG)
	14
	15	C- Inquire about the title structure in store IXSTOR
	16	C- return: the index of the title division
	17	C- the adr of the last (IFLAG=0) or the first bank
	18
	19	#include "zebra/mqsys.inc"
	20	#include "zebra/eqlqt.inc"
	21	C-------------- END CDE -----------------
	22	#if (defined(CERNLIB_QTRHOLL))&&(!defined(CERNLIB_A6M))
	23	DIMENSION NAMESR(2)
	24	DATA NAMESR / 4HTZIN, 4HQ /
	25	#endif
	26	#if (defined(CERNLIB_QTRHOLL))&&(defined(CERNLIB_A6M))
	27	DATA NAMESR / 6HTZINQ /
	28	#endif
	29	#if !defined(CERNLIB_QTRHOLL)
	30	CHARACTER NAMESR*8
	31	PARAMETER (NAMESR = 'TZINQ ')
	32	#endif
	33
	34	#include "zebra/q_jbyt.inc"
	35	#include "zebra/q_sbyt.inc"
	36
	37	#include "zebra/qtraceq.inc"
	38
	39	#include "zebra/qstore.inc"
	40
	41	L = LQT(KQT+1)
	42	IF (L.EQ.0) GO TO 70
	43
	44	JDV = MZFDIV (-7, L)
	45	IF (JDV.EQ.JQDVSY) JDV = 24
	46	IXDV = MSBYT (JQSTOR,JDV,27,4)
	47	IF (IFLAG.NE.0) GO TO 71
	48
	49	C-- go to the end
	50
	51	24 IF (LQ(KQS+L).EQ.0) GO TO 71
	52	L = LQ(KQS+L)
	53	GO TO 24
	54
	55	70 IXDV = MSBYT (JQSTOR,0,27,4)
	56	71 IXTITL = IXDV
	57	LTT = L
	58
	59	#include "zebra/qtrace99.inc"
	60	RETURN
	61	END
	62	* ==================================================
	63	#include "zebra/qcardl.inc"