Platform

x64, Win32, .NET

Purpose

To copy a sequence of bits.

Class

Elemental subroutine.

Syntax

SUBROUTINE MVBITS(FROM, FROMPOS, LEN, TO, TOPOS)
INTEGER,INTENT(IN) ::FROM, FROMPOS, LEN, TOPOS
INTEGER,INTENT(INOUT)::TO

Description

FROMPOS > 0 and FROMPOS + LEN < BIT_SIZE(FROM).

LEN > 0.

TO has the same kind type as FROM.

TOPOS > 0 and TOPOS + LEN < BIT_SIZE(TO).

Return value

After calling the subroutine the value of TO is modified by copying bits from FROM. LEN bits are copied from FROM starting at FROMPOS. The bits are copied to TO starting at TOPOS. FROM and TO are zero-based, counting from the least significant bit.

Example

If T = 4 then after a call to MVBITS(12, 2, 2, TO, 0), TO takes the value 7.