BTEST
copyright

green dotBTEST

書式 BTEST(I,POS)
機能 整数Iの第POSビットの値が1であるとき .TRUE. ビットの値が 0のとき .FALSE. を返す。
引数
I :整数型
POS:整数型(0≦POS<BIT_SIZE(I))
戻り値 型、種別型パラメタは基本論理型である。

green dotサンプルプログラム

整数3の第1ビットが1であるかを調べる。
    WRITE(*,*) BTEST(3,1) !第1ビットが1なのでTが出力される。
line-end