Algorithm 810. Sleogn2 Sturm Liouville Code 2001