Fix small dimension specification issue.

Author: danphenderson

src/ADNLPProblems/clplatea.jl

@@ -6,8 +6,8 @@ function clplatea(;
   wght = -0.1,
   kwargs...,
 ) where {T}
-  p = floor(Int, sqrt(n))
-  p * p != n && @warn("clplatea: number of variables adjusted from $n down to $(p*p)")
+  p = floor(Int, sqrt(n)) < 3 ? 3 : floor(Int, sqrt(n))
+  p * p != n && @warn("clplatea: number of variables adjusted from $n to $(p*p)")
   n = p * p
   hp2 = (1 // 2) * p^2
   function f(x; p = p, hp2 = hp2, wght = wght)

src/ADNLPProblems/clplateb.jl

@@ -6,8 +6,8 @@ function clplateb(;
   wght = -0.1,
   kwargs...,
 ) where {T}
-  p = floor(Int, sqrt(n))
-  p * p != n && @warn("clplateb: number of variables adjusted from $n down to $(p*p)")
+  p = floor(Int, sqrt(n)) < 3 ? 3 : floor(Int, sqrt(n))
+  p * p != n && @warn("clplateb: number of variables adjusted from $n to $(p*p)")
   n = p * p
   hp2 = 1 // 2 * p^2
   function f(x; p = p, hp2 = hp2, wght = wght)

src/ADNLPProblems/clplatec.jl

@@ -8,8 +8,8 @@ function clplatec(;
   l = 0.01,
   kwargs...,
 ) where {T}
-  p = floor(Int, sqrt(n))
-  p * p != n && @warn("clplatec: number of variables adjusted from $n down to $(p*p)")
+  p = floor(Int, sqrt(n)) < 3 ? 3 : floor(Int, sqrt(n))
+  p * p != n && @warn("clplatec: number of variables adjusted from $n to $(p*p)")
   n = p * p
 
   hp2 = 1 // 2 * p^2