ＭＶＢＩＴＳ
copyright

green dotＭＶＢＩＴＳ

書式 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)）

green dotサンプルプログラム

整数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
line-end