[u/mrichter/AliRoot.git] / MINICERN / packlib / kernlib / kerngen / tcgen / sungs / locbyt.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/02/15 17:49:58  mclareni
* Kernlib
*
*
      FUNCTION LOCBYT (IT,IA,N,NW,LA,NBITS)
C
C CERN PROGLIB# M428    LOCBYT          .VERSION KERNSUN  1.06  920511
C ORIG. 22/09/88, JZ
C
      DIMENSION IA(9)
C
C
      IF (N.EQ.0)  GO TO 19
#if defined(CERNLIB_BUGLRSHFT)
      MASK = LSHIFT (ishft(-1,-32+NBITS),LA-1)
#endif
#if !defined(CERNLIB_BUGLRSHFT)
      MASK = LSHIFT (lrshft(-1,32-NBITS),LA-1)
#endif
      ITSH = LSHIFT (IT,LA-1)

      DO 18 J=1,N,NW
      IF (AND(IA(J),MASK).EQ.ITSH)  GO TO 21
   18 CONTINUE
   19 LOCBYT= 0
      RETURN
C
   21 LOCBYT= J
      RETURN
      END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1996/02/15 17:49:58 mclareni
	6	* Kernlib
	7	*
	8	*
	9	FUNCTION LOCBYT (IT,IA,N,NW,LA,NBITS)
	10	C
	11	C CERN PROGLIB# M428 LOCBYT .VERSION KERNSUN 1.06 920511
	12	C ORIG. 22/09/88, JZ
	13	C
	14	DIMENSION IA(9)
	15	C
	16	C
	17	IF (N.EQ.0) GO TO 19
	18	#if defined(CERNLIB_BUGLRSHFT)
	19	MASK = LSHIFT (ishft(-1,-32+NBITS),LA-1)
	20	#endif
	21	#if !defined(CERNLIB_BUGLRSHFT)
	22	MASK = LSHIFT (lrshft(-1,32-NBITS),LA-1)
	23	#endif
	24	ITSH = LSHIFT (IT,LA-1)
	25
	26	DO 18 J=1,N,NW
	27	IF (AND(IA(J),MASK).EQ.ITSH) GO TO 21
	28	18 CONTINUE
	29	19 LOCBYT= 0
	30	RETURN
	31	C
	32	21 LOCBYT= J
	33	RETURN
	34	END