some updates for ape 3.0-6

[ape.git] / src / plot_phylo.c

diff --git a/src/plot_phylo.c b/src/plot_phylo.c
index d8666a20c83b156ba84fb2969abc124317fa5ae1..9b38d2a7f72a54b96dd5c2d859f8470e8b05449b 100644 (file)
--- a/src/plot_phylo.c
+++ b/src/plot_phylo.c
@@ -1,6 +1,6 @@
-/* plot_phylo.c (2011-06-23) */
+/* plot_phylo.c (2012-10-01) */
 
-/* Copyright 2004-2011 Emmanuel Paradis
+/* Copyright 2004-2012 Emmanuel Paradis
 
 /* This file is part of the R-package `ape'. */
 /* See the file ../COPYING for licensing issues. */
@@ -35,7 +35,7 @@ void node_depth(int *ntip, int *nnode, int *edge1, int *edge2,
 }
 
 void node_height(int *ntip, int *nnode, int *edge1, int *edge2,
-               int *nedge, double *yy)
+                int *nedge, double *yy)
 {
     int i, n;
     double S;
@@ -77,18 +77,3 @@ void node_height_clado(int *ntip, int *nnode, int *edge1, int *edge2,
        }
     }
 }
-
-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;
-}