8.218 SET_EXPONENT — Установка показателя степени модели

Описание:

SET_EXPONENT(X, I) возвращает вещественное число, дробная часть которого равна дробной части X, а показатель степени — I.

Стандарт:

Fortran 95 и более поздние версии

Класс:

Элементарная функция

Синтаксис:

RESULT = SET_EXPONENT(X, I)

Аргументы:

X	Должен быть типа REAL.
I	Должен быть типа INTEGER.

Значение возврата:

Значение возврата имеет тот же тип и вид, что и X. Возвращается вещественное число, дробная часть которого равна дробной части X, а показатель степени — I; это FRACTION(X) * RADIX(X)**I.

Пример:

PROGRAM test_setexp
  REAL :: x = 178.1387e-4
  INTEGER :: i = 17
  PRINT *, SET_EXPONENT(x, i), FRACTION(x) * RADIX(x)**i
END PROGRAM