9.240 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