-/* triangMtds.c 2011-10-11 */
+/* triangMtds.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. */
{
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];
}