Museum

SIGN(3F)                             SysV                             SIGN(3F)



NAME
     sign, isign, dsign - FORTRAN transfer-of-sign intrinsic function

SYNOPSIS
     integer i, j, k
     real r1, r2, r3
     double precision dp1, dp2, dp3

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

     r3 = sign(r1, r2)

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

DESCRIPTION
     isign returns the magnitude of its first argument with the sign of its
     second argument.  sign and dsign are its real and double-precision
     counterparts, respectively.  The generic version is sign and will devolve
     to the appropriate type depending on its arguments.