IBSET
copyright

green dotIBSET

書式IBSET(I,POS)
機能 整数Iの第POSビットを1にした値を求める。
引数
I :整数型
POS:整数型(0<POS<BIT_SIZE(I))
戻り値 型、種別型パラメタは引数Iと同じである。

green dotサンプルプログラム

WRITE(*,*) IBSET(14,0)
 実行すると、IBSET(14,0)は、下図のように整数14の 第0ビットを1にした値を求めるので15になる。

IBSET

line-end