Function Dai

Part of:

package slatec
( dai < x > )