Fortran sign function.
Math387
It uses slightly different definition for changing sign of a complex number:
Functions