Man Page mvbits.3f

NAME

     mvbits - move specified bits

SYNOPSIS

     subroutine mvbits (src, ini1, nbits, des, ini2 )
     integer*4 src, ini1, nbits, des, ini2

DESCRIPTION

     This routine moves bits from src, starting  with  bit  ini1,
     number of bits moved nbits, to des, starting with bit ini2.

NOTES

     Usage:
       INTEGER*4  src, ini1, nbits, des, ini2
            ...
       CALL mvbits(src, ini1, nbits, des, ini2)

     Restrictions:
       ini1 + nbits < 32
       ini2 + nbits < 32

     Example:
     demo% cat  mvb1.f
     * mvb1.f       <-- From src, initial bit 0, move 3 bits to
     *                    des initial bit 3
     *   src   des
     * 543210 543210       <-- Bit numbers (VMS convention)
     * 000111 000001       <-- Values before move
     * 000111 111001       <-- Values after move

         INTEGER*4 src, ini1, nbits, des, ini2
          DATA src, ini1, nbits, des, ini2
     &             / 7,    0,      3,     1,     3 /
          CALL mvbits ( src, ini1, nbits, des, ini2 )
          WRITE (*,"(5O3)") src, ini1, nbits, des, ini2
          END
     demo% f77 -silent mvb1.f
     demo% a.out
       7  0 3 71  3
     demo%

FILES

     libfui.a

SEE ALSO

     FORTRAN 77 Reference Manual