SET_EXPONENT (real-number, integer)

  Class:  Elemental function - Generic

  Returns a copy of "real-number" with the value of the exponent
  part (of the model for the argument) set to a specified value.

  The result type is the same as the "real-number" argument.  For
  information on the real model,see the HP Fortran for OpenVMS
  Language Reference Manual.

  Example:

  If 3.0 is a REAL*4 value, SET_EXPONENT (3.0, 1) has the value 1.5.