Sgl_set_sign
Sgl_set_sign(opnd,sign);
Sgl_set_sign(opnd3,/*using*/sign_save);
Sgl_set_sign(opnd3,/*using*/sign_save);
Sgl_set_sign(opnd3,sign_save); /* restore sign */
Sgl_set_sign(resultp1,/*using*/sign_save);
Sgl_set_sign(opnd3,/*using*/sign_save);
Sgl_set_sign(opnd3,/*using*/sign_save);
Sgl_set_sign(opnd3,sign_save); /* restore sign */
Sgl_set_sign(resultp1,/*using*/sign_save);
Sgl_set_sign(left,/*using*/sign_save);
Sgl_set_sign(result,/*using*/sign_save);
Sgl_set_sign(result,/*using*/sign_save);
Sgl_set_sign(result,/*using*/sign_save);
Sgl_set_sign(result,sign_save);
Sgl_set_sign(result,sign_save);
Sgl_set_sign(left,/*using*/sign_save);
Sgl_set_sign(result,/*using*/sign_save);
Sgl_set_sign(result,/*using*/sign_save);
Sgl_set_sign(result,/*using*/sign_save);
Sgl_set_sign(result,sign_save);
Sgl_set_sign(result,sign_save);
#define Sglext_set_sign(dbl_value,sign) Sgl_set_sign(dbl_value,sign)