sign(3F)

NAME
     sign, isign, iisign, jisign, dsign, qsign - FORTRAN transfer-of-sign
     intrinsic function

SYNOPSIS
     integer i, j, k
     integer*2 ii1, ii2, ii3
     integer*4 ji1, ji2, ji3
     real r1, r2, r3
     double precision dp1, dp2, dp3
     real*16 qp1, qp2, qp3

     k = isign(i, j)
     k = sign(i, j)

     ii3 = iisign(ii1, ii2)
     ii3 = sign(ii1, ii2)

     ji3 = jisign(ji1, ji2)
     ji3 = sign(ji1, ji2)

     r3 = sign(r1, r2)

     dp3 = dsign(dp1, dp2)
     dp3 = sign(dp1, dp2)

     qp3 = qsign(qp1, qp2)
     qp3 = sign(qp1, qp2)

DESCRIPTION
     isign returns the magnitude of its first argument with the sign of its
     second argument.  It accepts either integer*2 or integer*4 arguments and
     the result is the same type.  iisign and jisign take integer*2 and
     integer*4 arguments, respectively.  sign, dsign, and qsign are isign's
     real, double-precision, and real*16 counterparts, respectively.  If the
     value of the first argument of isign, sign, dsign, or qsign is zero, the
     result is zero.  The generic version is sign and will devolve to the
     appropriate type depending on its arguments.