256 INTEGER inmin, inwin, inibl, ishfts, iacc22
257 parameter ( inmin = 12, inwin = 13, inibl = 14,
258 $ ishfts = 15, iacc22 = 16 )
259 INTEGER nmin, k22min, kacmin, nibble, knwswp
260 parameter ( nmin = 11, k22min = 14, kacmin = 14,
261 $ nibble = 14, knwswp = 500 )
263 parameter ( two = 2.0 )
266 INTEGER ihi, ilo, ispec, lwork, n
267 CHARACTER name*( * ), opts*( * )
273 INTRINSIC log, max, mod, nint, real
276 IF( ( ispec.EQ.ishfts ) .OR. ( ispec.EQ.inwin ) .OR.
277 $ ( ispec.EQ.iacc22 ) )
THEN
288 $ ns = max( 10, nh / nint( log(
REAL( NH ) ) / log( two ) ) )
295 ns = max( 2, ns-mod( ns, 2 ) )
298 IF( ispec.EQ.inmin )
THEN
307 ELSE IF( ispec.EQ.inibl )
THEN
315 ELSE IF( ispec.EQ.ishfts )
THEN
321 ELSE IF( ispec.EQ.inwin )
THEN
325 IF( nh.LE.knwswp )
THEN
331 ELSE IF( ispec.EQ.iacc22 )
THEN
integer function iparmq(ISPEC, NAME, OPTS, N, ILO, IHI, LWORK)
IPARMQ