MVBITS
書式 |
CALL MVBITS(FROM,FROMPOS,LEN,TO,TOPOS) |
機能 |
1つのデータ実態FROMから他のデータ実態TOにビット列を複写する。
FROMの位置FROMPOSから始まる長さLENのビット列をTOの位置TOPOSに複写する。
TOの他のどのビットも変更されない。
|
引数 |
FROM | :整数型、INTENT(IN)引数 |
FROMPOS | :整数型、INTENT(IN)引数 (0≦FROMPOS) |
LEN | :整数型、INTENT(IN)引数 (FROMPOS+LEN≦BIT_SIZE(FROM)) |
TO | :整数型、INTENT(INOUT)引数 |
TOPOS | :整数型、INTENT(IN)引数 (0≦TOPOS≦BIT_SIZE(TO)) |
|
サンプルプログラム
整数7の(FROM)の第2(FROMPOS)ビット目から始まる長さ3(LEN)ビットを
整数14(TO)の第0(TOPOS)ビット目から3ビット複写する。
INTEGER :: to
to=14
CALL MVBITS(7,2,3,to,0)
WRITE(*,*) to
9