X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=src%2Fplot_phylo.c;h=9b38d2a7f72a54b96dd5c2d859f8470e8b05449b;hb=2014b83971be4b9cd1644d6127837df798e9335c;hp=a8b1ca3d35b054e559320295958b8d63a44a1e7b;hpb=c827059eeafc8cbe41c812b26979543ab287803e;p=ape.git

diff --git a/src/plot_phylo.c b/src/plot_phylo.c
index a8b1ca3..9b38d2a 100644
--- a/src/plot_phylo.c
+++ b/src/plot_phylo.c
@@ -1,6 +1,6 @@
-/* plot_phylo.c (2006-10-13) */
+/* plot_phylo.c (2012-10-01) */
 
-/* Copyright 2004-2006 Emmanuel Paradis
+/* Copyright 2004-2012 Emmanuel Paradis
 
 /* This file is part of the R-package `ape'. */
 /* See the file ../COPYING for licensing issues. */
@@ -35,14 +35,13 @@ 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, k, n;
+    int i, n;
     double S;
 
     /* The coordinates of the tips have been already computed */
 
-    k = 1;
     S = 0;
     n = 0;
     for (i = 0; i < *nedge; i++) {
@@ -59,14 +58,13 @@ void node_height(int *ntip, int *nnode, int *edge1, int *edge2,
 void node_height_clado(int *ntip, int *nnode, int *edge1, int *edge2,
 		       int *nedge, double *xx, double *yy)
 {
-    int i, k, n;
+    int i, n;
     double S;
 
     node_depth(ntip, nnode, edge1, edge2, nedge, xx);
 
     /* The coordinates of the tips have been already computed */
 
-    k = 1;
     S = 0;
     n = 0;
     for (i = 0; i < *nedge; i++) {