8.114 FRACTION — Дробная часть представления модели

Описание:

FRACTION(X) возвращает дробную часть представления модели X.

Стандарт:

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

Класс:

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

Синтаксис:

Y = FRACTION(X)

Аргументы:

`X`	Тип аргумента должен быть `REAL`.

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

Значение возврата имеет тот же тип и вид, что и аргумент. Возвращается дробная часть представления модели X; она является X * RADIX(X)**(-EXPONENT(X)).

Пример:

program test_fraction
  real :: x
  x = 178.1387e-4
  print *, fraction(x), x * radix(x)**(-exponent(x))
end program test_fraction

© Free Software Foundation
Licensed under the GNU Free Documentation License, Version 1.3.
https://gcc.gnu.org/onlinedocs/gcc-13.3.0/gfortran/FRACTION.html