/sys$common/syshlp/helplib.hlb FORTRAN, Intrinsic Procedures, SIGN  *Conan The Librarian (sorry for the slow response - running on an old VAX)

  SIGN (value, sign)

  A function that assigns the sign of the second argument to the
  absolute value of the first.
  +------+---------+----------+------------+-------------+
  | Args | Generic | Specific |  Argument  | Result Type |
  +------+---------+----------+------------+-------------+
  |  2   |  SIGN   | IISIGN   | INTEGER*2  | INTEGER*2   |
  |      |         | JISIGN   | INTEGER*4  | INTEGER*4   |
  |      |         | SIGN     | REAL*4     | REAL*4      |
  |      |         | DSIGN    | REAL*8     | REAL*8      |
  |      |         | QSIGN    | REAL*16    | REAL*16     |
  +------+---------+----------+------------+-------------+
  See also the ISIGN intrinsic function.