From 3ce7a7bfe0729cfb9fae1927bbf25034622aca99 Mon Sep 17 00:00:00 2001 From: zaikunzhang Date: Fri, 3 Nov 2023 15:09:44 +0800 Subject: [PATCH] 231103.150944.HKT bobyqa/trustregion: remove `gred` --- .github/actions/spelling/allow.txt | 1 + fortran/bobyqa/trustregion.f90 | 3 +-- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/.github/actions/spelling/allow.txt b/.github/actions/spelling/allow.txt index d0ad3161a3..f7ec8ee176 100644 --- a/.github/actions/spelling/allow.txt +++ b/.github/actions/spelling/allow.txt @@ -2132,3 +2132,4 @@ OSCIPANE TWOBARS lang archnorma +orthtol diff --git a/fortran/bobyqa/trustregion.f90 b/fortran/bobyqa/trustregion.f90 index 0d5c9b44dc..09828207dc 100644 --- a/fortran/bobyqa/trustregion.f90 +++ b/fortran/bobyqa/trustregion.f90 @@ -8,7 +8,7 @@ module trustregion_bobyqa_mod ! ! Started: February 2022 ! -! Last Modified: Friday, November 03, 2023 PM02:58:59 +! Last Modified: Friday, November 03, 2023 PM03:07:50 !--------------------------------------------------------------------------------------------------! implicit none @@ -124,7 +124,6 @@ subroutine trsbox(delta, gopt_in, hq_in, pq_in, sl, su, tol, xopt, xpt, crvmin, real(RP) :: dred(size(gopt_in)) real(RP) :: gnew(size(gopt_in)) real(RP) :: gopt(size(gopt_in)) -real(RP) :: gred(size(gopt_in)) real(RP) :: hdred(size(gopt_in)) real(RP) :: hs(size(gopt_in)) real(RP) :: modscal