cleaning of C files and update on simulation of OU process

[ape.git] / src / bipartition.c

diff --git a/src/bipartition.c b/src/bipartition.c
index 86d5bbd299dabd8c241ea99e02e8a4fd261948a1..a2b34d38d39159fbb1ca705c8701b17f8040d899 100644 (file)
--- a/src/bipartition.c
+++ b/src/bipartition.c
@@ -1,6 +1,6 @@
-/* bipartition.c    2007-06-29 */
+/* bipartition.c    2011-06-23 */
 
-/* Copyright 2005-2007 Emmanuel Paradis, and 2007 R Development Core Team */
+/* Copyright 2005-2011 Emmanuel Paradis, and 2007 R Development Core Team */
 
 /* This file is part of the R-package `ape'. */
 /* See the file ../COPYING for licensing issues. */
@@ -112,7 +112,8 @@ SEXP bipartition(SEXP edge, SEXP nbtip, SEXP nbnode)
     return ans;
 } /* bipartition */
 
-/* From R-ext: */
+/* From R-ext manual
+   (not the same than in library/stats/src/nls.c) */
 SEXP getListElement(SEXP list, char *str)
 {
     SEXP elmt = R_NilValue, names = getAttrib(list, R_NamesSymbol);
@@ -142,7 +143,7 @@ int SameClade(SEXP clade1, SEXP clade2)
 
 SEXP prop_part(SEXP TREES, SEXP nbtree, SEXP keep_partitions)
 {
-    int i, j, k, l, KeepPartition, Ntree, Ntip, Nnode, Npart, NpartCurrent, *no;
+    int i, j, k, KeepPartition, Ntree, Ntip, Nnode, Npart, NpartCurrent, *no;
     SEXP bp, ans, nbtip, nbnode, number;
 
     PROTECT(nbtree = coerceVector(nbtree, INTSXP));