--- cvsroot/Tree-M/PMT.cpp	2001/05/06 01:35:15	1.2
+++ cvsroot/Tree-M/PMT.cpp	2001/05/06 17:28:24	1.3
@@ -34,6 +34,16 @@
    return dist;
 }
 
+
+Object::Object(double *pkey)
+{
+  k = pkey;
+
+  // discretize the vector
+  for (int i = NDIMS; i--; )
+     k[i] = int2double (double2int (k[i]));
+}
+
 Object::Object(char *key)
 {
   unsigned char *c = (unsigned char *)key;
@@ -55,7 +65,7 @@
             abort ();
         }
 
-      k[i] = ((double)elem) * ACC->max / ACC->steps + ACC->min;
+      k[i] = int2double(elem);
     }
 }
 
@@ -65,7 +75,7 @@
 
   for (int i = 0; i < NDIMS; i++)
     {
-      unsigned long elem = (unsigned long)floor ((k[i] - ACC->min) * ACC->steps / ACC->max);
+      unsigned long elem = double2int (k[i]);
 
       switch (ACC->elemsize)
         {