working on readtree

[mothur.git] / clustercommand.cpp

diff --git a/clustercommand.cpp b/clustercommand.cpp
index dc61a6a745eaeddb31a9e573b2b966a1dfde760d..f0ef51f05b846797a42c8e71cacce326db06f4bb 100644 (file)
--- a/clustercommand.cpp
+++ b/clustercommand.cpp
@@ -106,7 +106,14 @@ int ClusterCommand::execute(){
                else if(rndPreviousDist<cutoff){
                        printData(toString(rndPreviousDist, length-1));
                }
-       
+               
+               //delete globaldata's copy of the sparsematrix and listvector to free up memory
+               SparseMatrix* clearM = NULL;
+               globaldata->setSparseMatrix(clearM);
+               ListVector* clearL = NULL;
+               globaldata->setListVector(clearL);
+
+               
                //saves .list file so you can do the collect, rarefaction and summary commands without doing a read.list
                if (globaldata->getFormat() == "phylip") { globaldata->setPhylipFile(""); }
                else if (globaldata->getFormat() == "column") { globaldata->setColumnFile(""); }