sign(3F) sign(3F)
NAME
sign, isign, dsign, jisign, iisign - Fortran transfer-of-
sign intrinsic function
SYNOPSIS
integer i, j, k
integer*2 i2, j2, k2
real r1, r2, r3
double precision dp1, dp2, dp3
k = sign(i, j)
k = isign(i, j)
k = jisign(i, j)
k2 = sign(i2, j2)
k2 = isign(i2, j2)
k2 = iisign(i2, j2)
r3 = sign(r1, r2)
dp3 = sign(dp1, dp2)
dp3 = dsign(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 gen-
eric version is sign and will return the appropriate type
depending on its arguments.
The functions jisign and iisign have been included to pro-
vide compatibility with other vendors and are not recom-
mended for general use.
Page 1 CX/UX Hf77 Fortran Reference Manual