The transfer of sign function, called ISIGN in Fortran, is defined by
This function can be calculated (modulo 232) with four instructions on most machines: