--- trunk/SHAPES/SphereHarm.cpp	2004/06/26 15:32:12	1312
+++ trunk/SHAPES/SphereHarm.cpp	2004/06/26 15:40:49	1313
@@ -119,7 +119,7 @@ void SphereHarm::printShapesFileStart(char name[200], 
   shapes << "end ShapeInfo\n";
 }
 
-void SphereHarm::printToShapesFile(char name[200], int index){
+void SphereHarm::printToShapesFile(char name[200], int index, double tolVal){
   ofstream shapes(name, ios::app);
   
   biggest = 0.0;
@@ -158,8 +158,8 @@ void SphereHarm::printToShapesFile(char name[200], int
                               - icoeffs[dummy2]);
       }
         
-      if (fabs(cm) > 0.01 * biggest) nfuncs++;
-      if (fabs(sm) > 0.01 * biggest) nfuncs++;
+      if (fabs(cm) > tolVal * biggest) nfuncs++;
+      if (fabs(sm) > tolVal * biggest) nfuncs++;
     }
   }
     
@@ -193,9 +193,9 @@ void SphereHarm::printToShapesFile(char name[200], int
                               - icoeffs[dummy2]);
       }
         
-      if (fabs(cm) > 0.01 * biggest) 
+      if (fabs(cm) > tolVal * biggest) 
         shapes << l << "\t" << m << "\tcos\t\t" << cm << "\n";
-      if (fabs(sm) > 0.01 * biggest) 
+      if (fabs(sm) > tolVal * biggest) 
         shapes << l << "\t" << m << "\tsin\t\t" << sm << "\n";
     }
   }