i := hI( key );
     if (i mod m0) < m-m0 then     hashfunction := i mod (2*m0);
               else      hashfunction := i mod m0;