8.223 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)	f77, gnu
ISIGN(A,B)	INTEGER(4) A, B	INTEGER(4)	f77, gnu
DSIGN(A,B)	REAL(8) A, B	REAL(8)	f77, gnu