8.247 SIGN — Функция копирования знака

Описание:

SIGN(A,B) возвращает значение A со знаком B.

Стандарт:

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

Класс:

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

Синтаксис:

RESULT = SIGN(A, B)

Аргументы:

`A`	Должен быть типа `INTEGER` или `REAL`
`B`	Должен быть того же типа и размера, что и `A`.

Значение результата:

Размер результата совпадает с размером A и B. Если B \ge 0, то результат — ABS(A), иначе — -ABS(A).

Пример:

program test_sign
  print *, sign(-12,1)
  print *, sign(-12,0)
  print *, sign(-12,-1)

  print *, sign(-12.,1.)
  print *, sign(-12.,0.)
  print *, sign(-12.,-1.)
end program test_sign

Условные наименования:

Имя	Аргументы	Тип результата	Стандарт
`SIGN(A,B)`	`REAL(4) A, B`	`REAL(4)`	Fortran 77 и более поздние версии
`ISIGN(A,B)`	`INTEGER(4) A, B`	`INTEGER(4)`	Fortran 77 и более поздние версии
`DSIGN(A,B)`	`REAL(8) A, B`	`REAL(8)`	Fortran 77 и более поздние версии

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