230913.233516.HKT replace .not. any <> with all >=<

libprima · Sep 13, 2023 · 03fb703 · 03fb703
1 parent aeebbfd
commit 03fb703
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/fortran/bobyqa/bobyqa.f90 b/fortran/bobyqa/bobyqa.f90
@@ -474,21 +474,21 @@ subroutine bobyqa(calfun, x, f, &
 
  if (present(xl)) then
  if (size(xl) == size(x)) then
- call assert(.not. any(x < xl), 'X >= XL', srname)
+ call assert(all(x >= xl), 'X >= XL', srname)
  if (present(xhist)) then
  do k = 1, nhist
- call assert(.not. any(xhist(:, k) < xl), 'XHIST >= XL', srname)
+ call assert(all(xhist(:, k) >= xl), 'XHIST >= XL', srname)
  end do
  end if
  end if
  end if
 
  if (present(xu)) then
  if (size(xu) == size(x)) then
- call assert(.not. any(x > xu), 'X <= XU', srname)
+ call assert(all(x <= xu), 'X <= XU', srname)
  if (present(xhist)) then
  do k = 1, nhist
- call assert(.not. any(xhist(:, k) > xu), 'XHIST <= XU', srname)
+ call assert(all(xhist(:, k) <= xu), 'XHIST <= XU', srname)
  end do
  end if
  end if