function y = issingle(x)

y = isa(x, 'single');

endfunction

/*
@GROUP
general
@SYNTAX
issingle(x)
@DOC
.
@EXAMPLES
<programlisting>
</programlisting>
@NOTES
.
@SEE
ischar, iscell, isnumeric, ismatrix, isprime, double, int8, isint8, isuint16, isint16, isint32, isint64
*/