FTN4
      SUBROUTINE  BITST(IBUF,ISTBT,NBIT,IVAL),. 92903-16001 REV.1913  78
     .0829
C 
C 
C  ******************************************************************** 
C  *                                                                  * 
C  *  NAME:   BITST     BIT SET ROUTINE                               * 
C  *  SOURCE: &BITST    92903-18053                                   * 
C  *  BINARY: %BITST    ----NONE---    PART OF  %GPLB4  92903-16001   * 
C  *                                                                  * 
C  *  PGMR:   FRANCOIS GAULLIER                                       * 
C  *                                                                  * 
C  ******************************************************************** 
C 
C 
C     **************************************************************
C     * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1978.  ALL RIGHTS    *
C     * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, RE- *
C     * PRODUCED, OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITH-  *
C     * OUT THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.  *
C     **************************************************************
C 
C 
C     THIS SUBROUTINE SET A BIT STRING TO 0 OR 1 AS SPECIFIED IN THE
C     CALLING SEQUENCE. 
C     BITS ARE NUMBERED FROM 1 TO N, BIT 1 BEING THE BIT15 OF THE 
C     FIRST WORD OF THE BUFFER, BIT 2 THE BIT14 OF 1ST WORD, BIT 16 
C     THE BIT0 OF 1ST WORD, BIT17 THE BIT15 OF 2ND WORD .. AND SO ON. 
C 
C          CALL  BITST ( IBUF, ISTBIT, NBIT, IVAL ) 
C     WHERE:
C                   IBUF   IS THE BUFFER
C                   ISTBIT STARTING BIT BEING SET 
C                   NBIT   NUMBER OF CONSECUTIVE BIT THAT 
C                          WILL BE SET. 
C                   IVAL   DEFINE THE VALUE THAT WILL BE USE TO SET 
C                          THE BITS. (ONLY BIT0 OF IVAL IS USED)
      DIMENSION IBUF(1) 
      K=ISTBT-1 
      DO 100 I=1,NBIT 
      NW=K/16 
      CALL SETBT(IBUF(NW+1),15-(K-16*NW),IVAL)
  100 K=K+1 
      RETURN
      END 
      END$
                                                                                                                                                                                                                