-/* 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. */
}
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++) {
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++) {