Function Zs1s2

Part of:

package slatec
( zs1s2 < zrr > < zri > < s1r > < s1i > < s2r > < s2i > < nz > < ascle > < alim > < iuf > )