eispacks.f single precision source code for EISPACK