Function Initds

Part of:

package slatec
( initds < os > < nos > < eta > )