[Adephylo-commits] r156 - pkg/src

[noreply at r-forge.r-project.org]

Author: jombart
Date: 2010-03-12 18:01:08 +0100 (Fri, 12 Mar 2010)
New Revision: 156

Modified:
   pkg/src/distPhylo.c
Log:
Still have some nasty debugging to do.


Modified: pkg/src/distPhylo.c
===================================================================
--- pkg/src/distPhylo.c	2010-03-12 16:12:28 UTC (rev 155)
+++ pkg/src/distPhylo.c	2010-03-12 17:01:08 UTC (rev 156)
@@ -33,7 +33,7 @@
   - ances, desc, and brlength must be created using vecintalloc
   - N is the number of edges to represent the tree
 */
-double findedgelength(int *ances, int *desc, double *brlength, int N, int myNode){
+double findedgelength(int *desc, double *brlength, int N, int myNode){
 	int posi=0;
 
 
@@ -130,7 +130,7 @@
 		 /* compute length */
 		 res=0.0;
 		 for(i=1; i<=*lengthPath; i++){
-			 res += findedgelength(ances, desc, brlength, N, path[i]);
+			 res += findedgelength(desc, brlength, N, path[i]);
 		 }
 		 break;