[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / qutil / lzbyt.F

*
* $Id$
*
* $Log$
* Revision 1.2  1996/04/18 16:13:31  mclareni
* Incorporate changes from J.Zoll for version 3.77
*
* Revision 1.1.1.1  1996/03/06 10:47:14  mclareni
* Zebra
*
*
#include "zebra/pilot.h"
      FUNCTION LZBYT (IXSTOR,LGO,ITEXT,JTH,NBITS)

C-    FIND BANK CONTAINING ITEXT IN STATUS-BYTE  (JTH,NBITS)
C-    SEARCH LINEAR STRUCTURE STARTING WITH BANK AT LGO
C-    RETURN BANK-ADR AS VALUE

#include "zebra/q.inc"
C--------------    END CDE                             --------------

#include "zebra/q_jbyt.inc"

#include "zebra/qstore.inc"

      L = LGO
   21 IF (L.EQ.0)                              GO TO 29
      IF (JBYT(IQ(KQS+L),JTH,NBITS).EQ.ITEXT)  GO TO 29
      L = LQ(KQS+L)
      GO TO 21

   29 LZBYT = L
      RETURN
      END
*      ==================================================
#include "zebra/qcardl.inc"
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.2 1996/04/18 16:13:31 mclareni
	6	* Incorporate changes from J.Zoll for version 3.77
	7	*
	8	* Revision 1.1.1.1 1996/03/06 10:47:14 mclareni
	9	* Zebra
	10	*
	11	*
	12	#include "zebra/pilot.h"
	13	FUNCTION LZBYT (IXSTOR,LGO,ITEXT,JTH,NBITS)
	14
	15	C- FIND BANK CONTAINING ITEXT IN STATUS-BYTE (JTH,NBITS)
	16	C- SEARCH LINEAR STRUCTURE STARTING WITH BANK AT LGO
	17	C- RETURN BANK-ADR AS VALUE
	18
	19	#include "zebra/q.inc"
	20	C-------------- END CDE --------------
	21
	22	#include "zebra/q_jbyt.inc"
	23
	24	#include "zebra/qstore.inc"
	25
	26	L = LGO
	27	21 IF (L.EQ.0) GO TO 29
	28	IF (JBYT(IQ(KQS+L),JTH,NBITS).EQ.ITEXT) GO TO 29
	29	L = LQ(KQS+L)
	30	GO TO 21
	31
	32	29 LZBYT = L
	33	RETURN
	34	END
	35	* ==================================================
	36	#include "zebra/qcardl.inc"