final warp for ape 3.0-2

[ape.git] / src / mvr.c

diff --git a/src/mvr.c b/src/mvr.c
index f27298265a706dbbbf09ad7c2728f4b78fc6e527..f400775718c22dcda6f3fbaf6a87e97d647fbb17 100644 (file)
--- a/src/mvr.c
+++ b/src/mvr.c
@@ -1,4 +1,4 @@
-/* mvr.c    2012-04-02 */
+/* mvr.c    2012-05-02 */
 
 /* Copyright 2011-2012 Andrei-Alin Popescu */
 
@@ -133,7 +133,7 @@ void mvr(double *D, double* v,int *N, int *edge1, int *edge2, double *edge_lengt
                    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;