Section 11,77: SIGN

 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   |  --      | INTEGER*1  | INTEGER*1   |
 |      |         | IISIGN   | INTEGER*2  | INTEGER*2   |
 |      |         | JISIGN   | INTEGER*4  | INTEGER*4   |
 |      |see note | KISIGN   | INTEGER*8  | INTEGER*8   |
 |      |         | SIGN     | REAL*4     | REAL*4      |
 |      |         | DSIGN    | REAL*8     | REAL*8      |
 |      |see note | QSIGN    | REAL*16    | REAL*16     |
 +------+---------+----------+------------+-------------+

 NOTE: KISIGN is only available on AXP systems.
       QSIGN is not available in DEC Fortran.

 See also the ISIGN intrinsic function.