This code is derived from a public domain shell sort routine