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

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/02/15 17:49:51  mclareni
   6 * Kernlib
   7 *
   8 *
   9 #include "kerngen/pilot.h"
  10       SUBROUTINE UBITS (I,N,K,M)
  11 C
  12 C CERN PROGLIB# M503    UBITS           .VERSION KERNFOR  3.17  820204
  13 C
  14 C ARGUMENTS:
  15 C    I - A FULLWORD ARRAY CONTAINING THE BIT STRING TO BE EXAMINED
  16 C    N - THE NUMBER OF BITS IN THE BIT STRING
  17 C    K - ARRAY TO CONTAIN THE LOCATIONS OF THE BITS WITH VALUE 1
  18 C    M - NUMBER OF BITS FOUND TO HAVE THE VALUE 1
  19 C
  20       DIMENSION I(9), K(N)
  21 C
  22 C
  23       CALL UPKBYT (I, 1, K, N, 0)
  24 C
  25       J = 0
  26       DO 10 L=1,N
  27       IF (K(L).EQ.0)   GO TO 10
  28       J = J + 1
  29       K(J) = L
  30    10 CONTINUE
  31       M = J
  32 C
  33       IF (M.EQ.N)      RETURN
  34       J = J + 1
  35       DO 20 L=J,N
  36    20 K(L) = 0
  37       RETURN
  38       END