f_tpositive_p    1275 complex.c          impos = f_tpositive_p(dat->imag);
f_tpositive_p    2076 complex.c          if (f_tpositive_p(self))