/cln-1.3.2/src/real/elem/cl_R_plusp.cc

 1// plusp().
 2
 3// General includes.
 4#include "base/cl_sysdep.h"
 5
 6// Specification.
 7#include "cln/real.h"
 8
 9
10// Implementation.
11
12namespace cln {
13
14bool plusp (const cl_R& x)
15{
16	if (minusp(x))
17		return false; // x<0 -> nein
18	elif (zerop(x))
19		return false; // x=0 -> nein
20	else
21		return true; // sonst ist x>0.
22}
23
24}  // namespace cln