ibset(3I)

NAME
     IBSET, IIBSET, JIBSET, KIBSET - Sets one bit

SYNOPSIS
     IBSET ([I=]i, [POS=]pos)
     IIBSET ([I=]i, [POS=]pos)
     JIBSET ([I=]i, [POS=]pos)
     KIBSET ([I=]i, [POS=]pos)

IMPLEMENTATION
     UNICOS, UNICOS/mk, IRIX systems

     CF90, MIPSpro 7 Fortran 90, MIPSpro Fortran 77

STANDARDS
     Fortran

     Fortran extensions:  IIBSET, JIBSET, KIBSET

DESCRIPTION
     The IBSET, IIBSET, JIBSET, and KIBSET intrinsic functions set one bit
     to 1.  They accepts the following arguments:

     i         Must be of type integer.  For IIBSET, must be of type
               integer (KIND=2).  For JIBSET, must be of type integer
               (KIND=4).  For KIBSET, must be of type integer (KIND=8).

     pos       Must be of type integer.  It must be nonnegative and less
               than BIT_SIZE (i).

     These are elemental intrinsic functions.  The names of these
     intrinsics cannot be passed as arguments.

RETURN VALUES
     The result type and type parameter are the same as i.  The result has
     the value of the sequence of bits of i, except that bit pos of i is
     set to one.

     The bit model defines the interpretation of an integer value as a
     sequence of bits.  For more information on the bit model, see the
     MODELS(3I) man page.

EXAMPLES
     IBSET(12,1) has the value 14.

     If V has the value [1, 2, 3, 4], the value of IBSET(POS=V,I=0) is [2,
     4, 8, 16].

SEE ALSO
     MODELS(3I)

     Intrinsic Procedures Reference Manual for the printed version of this
     man page.