IEEE_BINARY_SCALE(3I) Last changed: 3-2-98
NAMEIEEE_BINARY_SCALE - Returns y multiplied by 2**n
SYNOPSISIEEE_BINARY_SCALE ([Y=]y, [N=]n)
IMPLEMENTATION
UNICOS/mk and IRIX systems
CRAY T90 systems that support IEEE floating-point arithmetic
STANDARDS
CF90 and MIPSpro 7 Fortran 90 compiler extension to Fortran 90
IEEE Standard for Binary Floating-point Arithmetic
DESCRIPTION
The IEEE_BINARY_SCALE intrinsic function returns y multiplied by the
value
n n
2 for integral values n without computing 2 .
This function accepts the following arguments:
y Must be of type real.
n Must be of type integer. If y is scalar, n must be scalar.
If y is an array, n can be a scalar or an array of the same
shape as x.
IEEE_BINARY_SCALE is an elemental function. The name of this
intrinsic cannot be passed as an argument.
NOTES
The IEEE intrinsic procedures use the named constants contained in a
system module, so you must include one of the following statements in
your program:
* On UNICOS and UNICOS/mk systems: USE CRI_IEEE_DEFINITIONS
* On UNICOS, UNICOS/mk, and IRIX systems: USE FTN_IEEE_DEFINITIONS
The CRI_IEEE_DEFINITIONS module is obsolescent. It will be removed
for the CF90 4.0 release.
RETURN VALUES
The return value is of the same type and type parameter as y. If y is
an array, the result is an array of the same shape as y.
If y is scalar, the result is a scalar that has the value of
n
y multiplied by 2 .
If y is an array and n is scalar, the result is an array in which the
value of each element is the product of
n
y and the value 2 .
i
If y is an array and n is an array, the result is an array in which
the value of each element is the product of y and the value 2**n .
i i
EXAMPLES
REAL small, bigger
... ! Compute SMALL.
bigger = IEEE_BINARY_SCALE(small, 2)
BIGGER is assigned the value SMALL * 2**2.
SEE ALSO
Intrinsic Procedures Reference Manual, publication SR-2138, for the
printed version of this man page.