Copyright Digital Equipment Corp. All rights reserved.

SET_EXPONENT

 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.