X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=src%2FSPR.c;h=881cd8f89a24f9d6b8e0fcc2fbf46488a731051b;hb=199144b0297c3fc76d76c29e561151235e39f0af;hp=e5e204f788db38b117c672cd1625221348c4d9f1;hpb=6ee9e0a4e1e6bbc09187382bfdef57fafe3844c7;p=ape.git

diff --git a/src/SPR.c b/src/SPR.c
index e5e204f..881cd8f 100644
--- a/src/SPR.c
+++ b/src/SPR.c
@@ -1,8 +1,10 @@
-/* #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*/
@@ -249,7 +251,7 @@ void assignUpWeights(edge *etest, node *vtest, node *va, edge *back, node *cprev
   /*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;