SIGN(3F)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.
Page 1
