Function Xerhlt

Part of:

package slatec
( xerhlt < messg > )