some small changes

[ape.git] / src / me_ols.c

diff --git a/src/me_ols.c b/src/me_ols.c
index 3c002c9262f9f07c15e89bc3148397b07c89bf69..cd156441898ef6e1702f64b566e181f9399aebba 100644 (file)
--- a/src/me_ols.c
+++ b/src/me_ols.c
@@ -1,3 +1,11 @@
+/* me_ols.c    2012-04-30 */
+
+/* Copyright 2007 Vincent Lefort
+   GMEsplitEdge() modified by Emmanuel Paradis */
+
+/* This file is part of the R-package `ape'. */
+/* See the file ../COPYING for licensing issues. */
+
 #include "me.h"
 
 /*from NNI.c*/
@@ -234,8 +242,8 @@ void printDoubleTable(double **A, int d)
   for(i=0;i<d;i++)
     {
       for(j=0;j<d;j++)
-       printf("%lf ", A[i][j]);
-      printf("\n");
+       Rprintf("%lf ", A[i][j]);
+      Rprintf("\n");
     }
 }
 
@@ -396,13 +404,13 @@ void GMEupdateAveragesMatrix(double **A, edge *e, node *v, node *newNode)
 
 void GMEsplitEdge(tree *T, node *v, edge *e, double **A)
 {
-  char nodelabel[NODE_LABEL_LENGTH];
+  int nodelabel = 0;//char nodelabel[NODE_LABEL_LENGTH];
   char edgelabel[EDGE_LABEL_LENGTH];
   edge *newPendantEdge;
   edge *newInternalEdge;
   node *newNode;
 
-  snprintf(nodelabel,1,"");
+  //snprintf(nodelabel,1,"");
   newNode = makeNewNode(nodelabel,T->size + 1);
 
   //sprintf(edgelabel,"E%d",T->size);