Function Xgetua

Part of:

package slatec
( xgetua < iunita > < n > )