update tol

Author: js1019

FORTRAN/pevsl_f90.c

@@ -249,7 +249,8 @@ void PEVSL_FORT(pevsl_lanbounds)(uintptr_t *pevslf90, int *mlan, int *nsteps, do
   pEVSL_ParvecCreate(N, n, nfirst, pevsl->comm, &vinit);
   pEVSL_ParvecRand(&vinit);
   /*------------------- Lanczos Bounds */
-  pEVSL_LanTrbounds(pevsl, *mlan, *nsteps, 1e-8, &vinit, 1, lmin, lmax, NULL);
+  //pEVSL_LanTrbounds(pevsl, *mlan, *nsteps, 1e-8, &vinit, 1, lmin, lmax, NULL);
+  pEVSL_LanTrbounds(pevsl, *mlan, *nsteps, *tol, &vinit, 1, lmin, lmax, NULL);
   //pEVSL_LanTrbounds(pevsl, *mlan, *nsteps, 1e-8, &vinit, 1, lmin, lmax, stdout);
 
   pEVSL_ParvecFree(&vinit);

INC/pevsl_def.h

@@ -15,7 +15,7 @@
 #define PEVSL_MAX(a, b) ((a) > (b) ? (a) : (b))
 #define PEVSL_MIN(a, b) ((a) < (b) ? (a) : (b))
 
-#define orthTol 1e-14
+#define orthTol 1e-18
 
 #define PI M_PI