(generic) function and (word1, word2)
(generic) function or (word1, word2)
(generic) function xor (word1, word2)
(generic) function not (word)
(generic) function rshift (word, nbits)
(generic) function lshift (word, nbits)
subroutine bic (bitnum, word) integer*4 bitnum, word
subroutine bis (bitnum, word) integer*4 bitnum, word
subroutine setbit (bitnum, word, state) integer*4 bitnum, word, state
logical function bit (bitnum, word) integer*4 bitnum, word
and、or、xor、not、rshift 和 lshift 函数是编译器以内联方式扩展的一般函数。它们的参数必须是整数或逻辑值,或长或短。返回的值具有第一个参数的数据类型。
将对各个位进行编号,以便使位 0 为最小有效位,使位 31 为最大有效位。此例程对所有 Solaris Studio 受支持体系结构都起作用,即使某些体系结构以不同的方式对字节进行编号。
计算其参数的按位“与”。
计算其参数的按位“或”。
计算其参数的按位“按位异或”。
返回其参数的按位求补。
是没有循环进位的逻辑左移。
是带有符号扩展的算术右移。不测试 nbits 的值是否合理。
bic、bis 和 setbit 是对 INTEGER*4 参数进行操作的外部子例程。
设置 word 中的 bitnum。
清除 word 中的 bitnum。
如果 state 为非零值,则将 word 中的 bitnum 设置为 1,否则将其清除。
是对 word 中的 bitnum 进行测试的外部函数。如果 bitnum 为 1(一),则返回 .true.;如果 bitnum 为 0(零),则返回 .false.。
libfui.a