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 generic version is sign and will return the appropriate type depending on its arguments. 

The functions jisign and iisign have been included to provide compatibility with other vendors and are not recommended for general use. 

CX/UX Hf77 Fortran Reference Manual