9.243 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