(JEC) 3/2/16 update testing suite

src/lagsht_testsuite.cc

@@ -834,7 +834,7 @@ int main(int narg, char *arg[]) {
   char* pLAGSHTROOTDIR; pLAGSHTROOTDIR = getenv("LAGSHTROOTDIR");
   string clenshawDir = string(pLAGSHTROOTDIR)+"/data";
   string jlnpDir = string(pLAGSHTROOTDIR)+"/data";
-  bool recomputeJlnp = true;
+  bool recomputeJlnp = false;
 
 
   //JEC 12/1/16 alpha as input
@@ -973,7 +973,20 @@ int main(int narg, char *arg[]) {
       }
       break;
 
-    case 5:
+    case 50:
+      {
+	cout << "rebuild Jlnp: \n Clenshaw Path<"<<param.clenshawDir<<">\n and jlnp Path<"
+	     << param.jlnpDir << ">"
+	     << endl;
+	if(Pmax<N){ param.Pmax = N; cout << "(Warning): Pmax<Nmax => modify the value to "<<  param.Pmax << endl;}
+	tstack_push("TestJlnpComputation");
+	TestJlnpComputation();
+ 	tstack_pop("TestLaguerre2Bessel");
+ 	tstack_report("TestLaguerre2Bessel");
+      }
+      break;
+
+    case 51:
       {
 	if(recomputeJlnp){
 	  cout << "rebuild Jlnp: \n Clenshaw Path<"<<param.clenshawDir<<">\n and jlnp Path<"
@@ -984,8 +997,7 @@ int main(int narg, char *arg[]) {
 	}
 	if(Pmax<N){ param.Pmax = 16*N; cout << "(Warning): Pmax<Nmax => modify the value to "<<  param.Pmax << endl;}
 	tstack_push("TestLaguerre2Bessel");
-	//	TestLaguerre2Bessel();
-	TestJlnpComputation();
+	TestLaguerre2Bessel();
  	tstack_pop("TestLaguerre2Bessel");
  	tstack_report("TestLaguerre2Bessel");
       }

src/laguerre2bessel.cc

@@ -318,9 +318,9 @@ void Laguerre2Bessel::ComputeJInteg(string clenshawDir, string jlnpDir){
 	integ_val = theQuad.GlobalAdapStrat(tol);
 	Jlnp_[ploff7 + n*Jstride] = integ_val.first * (facts[n]*sqrt(2.0/M_PI));
 
- 	cout <<l<<" "
-	     <<n<<" "
-	     <<p<< " " << setprecision(30) << Jlnp_[ploff7 + n*Jstride] << endl;
+//  	cout <<l<<" "
+// 	     <<n<<" "
+// 	     <<p<< " " << setprecision(30) << Jlnp_[ploff7 + n*Jstride] << endl;
 	ofs <<l<<" "
 	    <<n<<" "
  	    <<p<< " " << setprecision(30) << Jlnp_[ploff7 + n*Jstride] << endl;