-/* mvr.c 2012-04-02 */
+/* mvr.c 2012-05-02 */
/* Copyright 2011-2012 Andrei-Alin Popescu */
eLenSum+=wi*(D[give_index(i,OTU2,n)]-D[give_index(i,OTU1,n)]);
}*/
- edge_length[k+1]=D[give_index(OTU1,OTU2,n)]/2 - edge_length[k];
+ edge_length[k+1]=D[give_index(OTU1,OTU2,n)] - edge_length[k];
A = D[smallest];
ij = 0;