From 9c9c42d0df411c3bec6588ebb53ec6417a8a51b2 Mon Sep 17 00:00:00 2001
From: Peter Boyle <paboyle@ph.ed.ac.uk>
Date: Fri, 20 Oct 2023 19:25:39 -0400
Subject: [PATCH] Tests on frontier with real speed up . 3.5x on 16^3 at
 mq=0.01

---
 tests/debug/Test_general_coarse_hdcg.cc      | 14 +++++++-------
 tests/debug/Test_general_coarse_hdcg_phys.cc |  2 +-
 2 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/tests/debug/Test_general_coarse_hdcg.cc b/tests/debug/Test_general_coarse_hdcg.cc
index 2b5b54b8..84cbfb2f 100644
--- a/tests/debug/Test_general_coarse_hdcg.cc
+++ b/tests/debug/Test_general_coarse_hdcg.cc
@@ -144,10 +144,10 @@ int main (int argc, char ** argv)
 {
   Grid_init(&argc,&argv);
 
-  const int Ls=16;
+  const int Ls=24;
   const int nbasis = 40;
   const int cb = 0 ;
-  RealD mass=0.01;
+  RealD mass=0.00078;
   RealD M5=1.8;
   RealD b=1.5;
   RealD c=0.5;
@@ -219,10 +219,10 @@ int main (int argc, char ** argv)
   ////////////////////////////////////////////////////////////
   LittleDiracOperator LittleDiracOp(geom,FrbGrid,Coarse5d);
 
-  bool load=true;
+  bool load=false;
   if ( load ) {
-    LoadBasis(Aggregates,"Subspace.scidac");
-    LoadOperator(LittleDiracOp,"LittleDiracOp.scidac");
+    LoadBasis(Aggregates,"/lustre/orion/phy157/proj-shared/phy157_dwf/paboyle/Subspace.scidac");
+    LoadOperator(LittleDiracOp,"/lustre/orion/phy157/proj-shared/phy157_dwf/paboyle/LittleDiracOp.scidac");
   } else {
     Aggregates.CreateSubspaceChebyshev(RNG5,HermOpEO,nbasis,
 				       95.0,0.1,
@@ -235,8 +235,8 @@ int main (int argc, char ** argv)
 				       100,
 				       0.0);
     LittleDiracOp.CoarsenOperator(FineHermOp,Aggregates);
-    SaveBasis(Aggregates,"Subspace.scidac");
-    SaveOperator(LittleDiracOp,"LittleDiracOp.scidac");
+    SaveBasis(Aggregates,"/lustre/orion/phy157/proj-shared/phy157_dwf/paboyle/Subspace.scidac");
+    SaveOperator(LittleDiracOp,"/lustre/orion/phy157/proj-shared/phy157_dwf/paboyle/LittleDiracOp.scidac");
   }
   
   // Try projecting to one hop only
diff --git a/tests/debug/Test_general_coarse_hdcg_phys.cc b/tests/debug/Test_general_coarse_hdcg_phys.cc
index 760e8f97..7e32cc10 100644
--- a/tests/debug/Test_general_coarse_hdcg_phys.cc
+++ b/tests/debug/Test_general_coarse_hdcg_phys.cc
@@ -257,7 +257,7 @@ int main (int argc, char ** argv)
   // Build a coarse lanczos
   //////////////////////////////////////////
   //  Chebyshev<CoarseVector>      IRLCheby(0.01,44.0,201);  // 1 iter
-  Chebyshev<CoarseVector>      IRLCheby(0.006,44.0,301);  // 1 iter
+  Chebyshev<CoarseVector>      IRLCheby(0.005,44.0,401);  // 1 iter
   FunctionHermOp<CoarseVector> IRLOpCheby(IRLCheby,CoarseOp);
   PlainHermOp<CoarseVector>    IRLOp    (CoarseOp);
   int Nk=160;