240227.193840.HKT fortran/classical/bobyqa/rescue: change IABS to `…

…ABS`
equipez · Feb 27, 2024 · 713e244 · 713e244
1 parent e6e6d89
commit 713e244
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 3 deletions.
diff --git a/.github/actions/spelling/allow.txt b/.github/actions/spelling/allow.txt
@@ -179,7 +179,6 @@ HYDCAR
 HYPOT
 Hennart
 Himmelblau
-IABS
 IBDSAV
 IBRNCH
 ICONT

diff --git a/fortran/classical/bobyqa/rescue.f b/fortran/classical/bobyqa/rescue.f
@@ -396,7 +396,7 @@ subroutine rescue(calfun, n, npt, xl, xu, iprint,maxfun,xbase,xpt,
               IHQ=(IQ+IQ*IQ)/2
               VQUAD=VQUAD+XQ*(GOPT(IQ)+HALF*XQ*HQ(IHQ))
               IF (IP > 0) THEN
-                  IW=MAX0(IHP,IHQ)-IABS(IP-IQ)
+                  IW=MAX0(IHP,IHQ)-ABS(IP-IQ)
                   VQUAD=VQUAD+XP*XQ*HQ(IW)
               END IF
           END IF
@@ -463,7 +463,7 @@ subroutine rescue(calfun, n, npt, xl, xu, iprint,maxfun,xbase,xpt,
                       HQ(IHP)=HQ(IHP)+TEMP*PTSAUX(1,IP)**2
                       IF (IQ > 0) THEN
                           HQ(IHQ)=HQ(IHQ)+TEMP*PTSAUX(1,IQ)**2
-                          IW=MAX0(IHP,IHQ)-IABS(IQ-IP)
+                          IW=MAX0(IHP,IHQ)-ABS(IQ-IP)
                           HQ(IW)=HQ(IW)+TEMP*PTSAUX(1,IP)*PTSAUX(1,IQ)
                       END IF
                   END IF