mil(3F)                                                   mil(3F)



NAME
     ior, iand, not, ieor, ishft, ishftc, ibits, btest, ibset,
     ibclr, mvbits, iior, jior, iiand, jiand, jnot, inot, iieor,
     jieor, jishft, iishft, jishftc, iishftc, iibits, jibits,
     bjtest, bitest, iibset, jibset, iibclr, jibclr - Intrinsic
     functions from Fortran Military Standard (MIL-STD-1753)

SYNOPSIS
     integer i, k, l, m, n, len
     integer*2 i2, k2, l2, m2, n2, len2
     logical b
     logical*2  b2

     i = ior(m, n)
     i = jior(m, n)
     i2 = ior(m2, n2)
     i2 = iior(m2, n2)
     i = iand(m, n)
     i = jiand(m, n)
     i2 = iand(m2, n2)
     i2 = iiand(m2, n2)
     i = not(m)
     i = jnot(m)
     i2 = not(m2)
     i2 = inot(m2)
     i = ieor(m, n)
     i = jieor(m, n)
     i2 = ieor(m2, n2)
     i2 = iieor(m2, n2)
     i = ishft(m, k)
     i = jishft(m, k)
     i2 = ishft(m2, n2)
     i2 = iishft(m2, k2)
     i = ishftc(m, k, len)
     i = jishftc(m, k, len)
     i2 = ishftc(m2, k2, len2)
     i2 = iishftc(m2, k2, len2)
     i = ibits(m, k, len)
     i = jibits(m, k, len)
     i2 = ibits(m2, k2, len2)
     i2 = iibits(m2, k2, len2)
     b = btest(n, k)
     b = bjtest(n, k)
     b2 = btest(n2, k2)
     b2 = bitest(n2, k2)
     i = ibset(n, k)
     i = jibset(n, k)
     i2 = ibset(n2, k2)
     i2 = iibset(n2, k2)
     i = ibclr(n, k)
     i = jibclr(n, k)
     i2 = ibclr(n2, k2)



Page 1                        CX/UX Hf77 Fortran Reference Manual

mil(3F)                                                   mil(3F)



     i2 = iibclr(n2, k2)
     call mvbits(m, k, len, n, l)

DESCRIPTION
     ior, iand, not, ieor - return the same results as and, or,
     not, xor as defined in bool(3F).

     ishft, ishftc - m specifies the integer to be shifted. k
     specifies the shift count. k > 0 indicates a left shift.  k
     = 0 indicates no shift. k < 0 indicates a right shift.

     In ishft, zeros are shifted in.  In ishftc, the rightmost
     len bits are shifted circulary k bits.  If k is greater than
     the machine word-size, ishftc will not shift.

     Bit fields are numbered from right to left and the rightmost
     bit position is zero.  The length of the len field must be
     greater than zero.

     ibit - extract a subfield of len bits from m starting with
     bit position k and extending left for len bits.  The result
     field is right justified and the remaining bits are set to
     zero.

     btest - The kth bit of argument n is tested.  The value of
     the function is .TRUE. if the bit is 1 and .FALSE. if the
     bit is 0.

     ibset - the result is the value of n with the kth bit set to
     1

     ibclr - the result is the value of n with the kth bit set to
     0

     mvbits - len bits are moved beginning at position k of argu-
     ment m to position l of argument n.

     The functions jior, iior, jiand, iiand, jnot, inot, jieor,
     iieor, jishft, iishft, jishftc, iishftc, jibits, iibits,
     bjtest, bitest, jibset, iibset, jibclr and iibclr have been
     included to provide compatibility with other vendors and are
     not recommended for general use.

SEE ALSO
     bool(3F).

NOTES
     When compiling source with the -Qocs option, an explicit
     underscore needs to be added to the name of mvbits.






Page 2                        CX/UX Hf77 Fortran Reference Manual