NAME

sign, isign, dsign − Fortran transfer-of-sign intrinsic function

SYNTAX

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

The isign returns the magnitude of its first argument with the sign of its second argument.  Both 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.