FREAL
#define isnumber(f) ((f)&(FINT|FVINT|FREAL|FVREAL))
#define isreal(f) ((f)&(FREAL|FVREAL))
if (np->n_flags & FREAL)
type = FREAL;
type = FREAL;
type = FREAL;
type = FREAL;
np->n_flags = FREAL|FVREAL;
if (np->n_flags & FREAL)
if (np->n_flags & FREAL)