-/* plot_phylo.c (2006-10-13) */
+/* plot_phylo.c (2009-10-03) */
-/* Copyright 2004-2006 Emmanuel Paradis
+/* Copyright 2004-2009 Emmanuel Paradis
/* This file is part of the R-package `ape'. */
/* See the file ../COPYING for licensing issues. */
}
}
}
+
+void get_single_index_integer(int *x, int *val, int *index)
+{
+ while (x[*index] != *val) (*index)++;
+ *index += 1;
+}
+
+void get_two_index_integer(int *x, int *val, int *index)
+{
+ while (x[index[0]] != *val) index[0]++;
+ index[1] = index[0] + 1;
+ while (x[index[1]] != *val) index[1]++;
+ index[0] += 1;
+ index[1] += 1;
+}