ieee_binary_scale(3I)

NAME
     IEEE_BINARY_SCALE - Returns y multiplied by 2**n

SYNOPSIS
     IEEE_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.