SHIFTR(3I) Last changed: 1-6-98
SHIFTR - Performs a right shift with zero fill
SHIFTR ([I=]i,[J=]j)
UNICOS, UNICOS/mk, and IRIX systems
CF90 and MIPSpro 7 Fortran 90 compiler extension to Fortran 90
The SHIFTR intrinsic function performs a right shift with zero fill of
the i by j bits. It accepts the following arguments:
i The value to be shifted. i can be of type Boolean, integer,
real, or Cray pointer.
j The number of bits to shift the value. Must be of type integer
or Boolean. j must be within the range 0 <= j <=size, where size
is the size, in bits, of i. That is, if i is a 64-bit object, j
must be within the range 0 <= j <= 64.
On UNICOS systems, an object is 64 bits. On UNICOS/mk systems, an
object is 32 bits or 64 bits. On IRIX systems, an object is 8 bits,
16 bits, 32 bits, or 64 bits.
SHIFTR is an elemental function. The name of this intrinsic cannot be
passed as an argument.
This is an outmoded routine. Refer to the Fortran Language Reference
Manual, Volume 2, publication SR-3903, for information about outmoded
features and their preferred standard alternatives.
The bit representation of the logical data type is not consistent
among Cray Research systems. For further details, see your compiler's
reference manuals.
SHIFTR returns a value of type Boolean on UNICOS and UNICOS/mk
systems. It returns an integer result on IRIX systems.
The following section of Fortran code shows the SHIFTR function used
in the case where i is of type integer. The bit pattern of i and the
bit pattern of the result are also given. For simplicity, a 16-bit
object is used.
INTEGER I1, I2, I3
...
I2 = 5
I3 = SHIFTR(I1,I2)
---------------------------------------------------------------
| 1 | 1 | 1 | 1 | 1 | 1 | 1 | 1 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 |
---------------------------------------------------------------
I1 (i)
---------------------------------------------------------------
| 0 | 0 | 0 | 0 | 0 | 1 | 1 | 1 | 1 | 1 | 1 | 1 | 1 | 0 | 0 | 0 |
---------------------------------------------------------------
I3 (result)
Intrinsic Procedures Reference Manual, publication SR-2138, for the
printed version of this man page.
SHIFTR(3I) Last changed: 1-6-98
SHIFTR - Performs a right shift with zero fill
SHIFTR ([I=]i,[J=]j)
UNICOS, UNICOS/mk, and IRIX systems
CF90 and MIPSpro 7 Fortran 90 compiler extension to Fortran 90
The SHIFTR intrinsic function performs a right shift with zero fill of
the i by j bits. It accepts the following arguments:
i The value to be shifted. i can be of type Boolean, integer,
real, or Cray pointer.
j The number of bits to shift the value. Must be of type integer
or Boolean. j must be within the range 0 <= j <=size, where size
is the size, in bits, of i. That is, if i is a 64-bit object, j
must be within the range 0 <= j <= 64.
On UNICOS systems, an object is 64 bits. On UNICOS/mk systems, an
object is 32 bits or 64 bits. On IRIX systems, an object is 8 bits,
16 bits, 32 bits, or 64 bits.
SHIFTR is an elemental function. The name of this intrinsic cannot be
passed as an argument.
This is an outmoded routine. Refer to the Fortran Language Reference
Manual, Volume 2, publication SR-3903, for information about outmoded
features and their preferred standard alternatives.
The bit representation of the logical data type is not consistent
among Cray Research systems. For further details, see your compiler's
reference manuals.
SHIFTR returns a value of type Boolean on UNICOS and UNICOS/mk
systems. It returns an integer result on IRIX systems.
The following section of Fortran code shows the SHIFTR function used
in the case where i is of type integer. The bit pattern of i and the
bit pattern of the result are also given. For simplicity, a 16-bit
object is used.
INTEGER I1, I2, I3
...
I2 = 5
I3 = SHIFTR(I1,I2)
---------------------------------------------------------------
| 1 | 1 | 1 | 1 | 1 | 1 | 1 | 1 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 |
---------------------------------------------------------------
I1 (i)
---------------------------------------------------------------
| 0 | 0 | 0 | 0 | 0 | 1 | 1 | 1 | 1 | 1 | 1 | 1 | 1 | 0 | 0 | 0 |
---------------------------------------------------------------
I3 (result)
Intrinsic Procedures Reference Manual, publication SR-2138, for the
printed version of this man page.
[ Back ]
|
