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)
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 argument 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. 

CX/UX Hf77 Fortran Reference Manual