MINICERN/packlib/kernlib/kerngen/tcgen/locbyt.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/02/15 17:49:49  mclareni
   6 * Kernlib
   7 *
   8 *
   9 #include "kerngen/pilot.h"
  10 #if defined(CERNLIB_QMSUN)
  11 #include "sungs/locbyt.F"
  12 #else
  13       FUNCTION LOCBYT (IT,IA,N,NW,LA,NBITS)
  14 C
  15 C CERN PROGLIB# M428    LOCBYT          .VERSION KERNFOR  4.07  830624
  16 C ORIG. 03/05/72
  17 C
  18       DIMENSION IA(9)
  19 C
  20 #include "kerngen/q_jbit.inc"
  21 * Ignoring t=pass
  22 C
  23       IF (N.EQ.0)  GO TO 19
  24       DO 18 J=1,N,NW
  25       IF (JBYT(IA(J),LA,NBITS).EQ.IT)  GO TO 21
  26    18 CONTINUE
  27    19 LOCBYT= 0
  28       RETURN
  29 C
  30    21 LOCBYT= J
  31       RETURN
  32       END
  33 #endif