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$