Function Zuchk

Part of:

package slatec
( zuchk < yr > < yi > < nz > < ascle > < tol > )