From 7d5bca76e69c78e1ea0f034bc61b64a507906ba3 Mon Sep 17 00:00:00 2001 From: zaikunzhang Date: Wed, 4 Oct 2023 00:43:09 +0800 Subject: [PATCH] 231004.004309.HKT fix a failure of vtest --- fortran/common/powalg.f90 | 4 ++-- fortran/tests/test_bobyqa.f90 | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/fortran/common/powalg.f90 b/fortran/common/powalg.f90 index de6b387ff0..d57cd195ce 100644 --- 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 index 277880cfdd..bf0221570b 100644 --- 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