-/* #include <stdio.h> */
-/* #include <stdlib.h> */
-/* #include <math.h> */
-/* #include "graph.h" */
-/* #include "fastme.h" */
+/* SPR.c 2009-01-12 */
+
+/* Copyright 2009 Richard Desper */
+
+/* This file is part of the R-package `ape'. */
+/* See the file ../COPYING for licensing issues. */
+
#include "me.h"
/*functions from bNNI.c*/
/*sib is tree C being passed by B*/
/*D is tree below etest*/
double D_AB, D_CD, D_AC, D_BD;
- /* double thisWeight; */
+ double thisWeight;
sib = siblingEdge(etest);
left = etest->head->leftEdge;
right = etest->head->rightEdge;