231004.004309.HKT fix a failure of vtest

zequipe · Oct 3, 2023 · 7d5bca7 · 7d5bca7
1 parent 65267f3
commit 7d5bca7
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/fortran/common/powalg.f90 b/fortran/common/powalg.f90
@@ -21,7 +21,7 @@ module powalg_mod
 !
 ! Started: July 2020
 !
-! Last Modified: Friday, September 29, 2023 AM12:38:11
+! Last Modified: Wednesday, October 04, 2023 AM12:40:04
 !--------------------------------------------------------------------------------------------------!
 
 implicit none
@@ -1566,7 +1566,7 @@ function calvlag_lfqint(kref, bmat, d, xpt, zmat, idz) result(vlag)
 ! Postconditions
 if (DEBUGGING) then
     call assert(size(vlag) == npt + n, 'SIZE(VLAG) == NPT + N', srname)
-    tol = max(1.0E-8_RP, min(1.0E-1_RP, 1.0E12_RP * EPS * real(npt + n, RP)))
+    tol = max(1.0E-8_RP, min(1.0E-1_RP, 5.0E12_RP * EPS * real(npt + n, RP)))
     call wassert(abs(sum(vlag(1:npt)) - ONE) / real(npt, RP) <= tol .or. RP == kind(0.0), &
         & 'SUM(VLAG(1:NPT)) == 1', srname)
 end if

diff --git a/fortran/tests/test_bobyqa.f90 b/fortran/tests/test_bobyqa.f90
@@ -42,7 +42,7 @@ module test_solver_mod
 !
 ! Started: September 2021
 !
-! Last Modified: Sunday, October 01, 2023 PM10:10:14
+! Last Modified: Wednesday, October 04, 2023 AM12:40:47
 !--------------------------------------------------------------------------------------------------!
 
 implicit none