test

Sun Studio 12：Fortran 库参考

1.4.4.2 用法：bic、bis、bit 和 setbit

对于子例程和函数

call bic( bitnum, word )

call bis( bitnum, word )

call setbit( bitnum, word, state )

LOGICAL bit

x = bit( bitnum, word )

bitnum、state 和 word 都是 INTEGER*4 输入参数。函数 bit() 的返回值是逻辑值。

各个位都进行编号，0 位表示最低有效位，31 位表示最高有效位。

bic、bis 和 setbit 是外部子例程，bit 是外部函数。

示例 3：bic、bis、setbit 和 bit：


        integer*4 bitnum/2/, state/0/, word/7/
        logical bit
        print 1, word
 1      format(13x ’word’, o12.11)
        call bic( bitnum, word )
        print 2, word
 2      format(’after bic(2,word)’, o12.11)
        call bis( bitnum, word )
        print 3, word
 3      format(’after bis(2,word)’, o12.11)
        call setbit( bitnum, word, state )
        print 4, word
 4      format(’after setbit(2,word,0)’, o12.11)
        print 5, bit(bitnum, word)
 5      format(’bit(2,word)’, L )
        end
<output>
             word 00000000007
after bic(2,word) 00000000003
after bis(2,word) 00000000007
after setbit(2,word,0) 00000000003
bit(2,word) F