diff --git a/tracy/tracy/src/tpsa_lin.cc b/tracy/tracy/src/tpsa_lin.cc
index d8682583e9ddfeacbdcd1ef9d3f3a108fa9b78c2..383f1f97ec3c5b6863eb7740b8ab4eb035c430d7 100644
--- a/tracy/tracy/src/tpsa_lin.cc
+++ b/tracy/tracy/src/tpsa_lin.cc
@@ -174,7 +174,11 @@ void putmat(ss_vect<tps> &map, const int i, const int j, const double r)
   map[i-1].ltps[j] = r;
 }
 
-
+/*
+  Purpose:
+    Copy the nv*nv components of the matrix map to matrix mat
+    
+*/
 void getlinmat(const int nv, const ss_vect<tps> &map, Matrix &mat)
 {
   int  j, k;