X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=src%2FtriangMtd.c;fp=src%2FtriangMtd.c;h=c7f2b4ba1bef647cc0a199d05428e80b07e5d0f7;hb=984f527e672e911c74f5c2f09ad98a934312fe2f;hp=90b9424a264f7b253938e523cdff510d9455ae11;hpb=756ad52b92dc1ac2922cf62ce882469ad4cacc2c;p=ape.git

diff --git a/src/triangMtd.c b/src/triangMtd.c
index 90b9424..c7f2b4b 100644
--- a/src/triangMtd.c
+++ b/src/triangMtd.c
@@ -1,6 +1,6 @@
-/* triangMtd.c    2011-10-11 */
+/* triangMtd.c    2012-04-02 */
 
-/* Copyright 2011 Andrei-Alin Popescu */
+/* Copyright 2011-2012 Andrei-Alin Popescu */
 
 /* This file is part of the R-package `ape'. */
 /* See the file ../COPYING for licensing issues. */
@@ -268,7 +268,7 @@ void triangMtd(double* d, int* np, int* ed1,int* ed2, double* edLen)
               {
                 if((ed1[i]==aux && ed2[i]==p)||(ed2[i]==aux && ed1[i]==p))
                   {
-                    if(ed2[i]==aux && ed1[i]==p){sw=1;}
+                    if(ed1[i]==aux && ed2[i]==p){sw=1;}
                     subdiv=i;
                     sum+=edLen[i];
                   }