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

sprimalib · 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