Function Sngl

Part of:

package f2cl-lib
( sngl < x > )