Function Xercnt

Part of:

package slatec
( xercnt < librar > < subrou > < messg > < nerr > < level > < kontrl > )