changed comments as per Pascal s request. Added reference to sparse_init = 15 as per Ian s. Added a check for the possible infinit loop.