Function Zuni1

Part of:

package slatec
( zuni1 < zr > < zi > < fnu > < kode > < n > < yr > < yi > < nz > < nlast > < fnul > < tol > < elim > < alim > )