Section 11,53: ISIGN

 ISIGN (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   |  ISIGN  |   --     | INTEGER*1  | INTEGER*1   |
 |      |         | IISIGN   | INTEGER*2  | INTEGER*2   |
 |      |         | JISIGN   | INTEGER*4  | INTEGER*4   |
 |      |see note | KISIGN   | INTEGER*8  | INTEGER*8   |
 +------+---------+----------+------------+-------------+

 NOTE: KISIGN is only available on AXP systems.
 See also the SIGN intrinsic function.