215 INTEGER FUNCTION iparmq( ISPEC, NAME, OPTS, N, ILO, IHI, LWORK )
223 INTEGER IHI, ILO, ISPEC, LWORK, N
224 CHARACTER NAME*( * ), OPTS*( * )
228 INTEGER INMIN, INWIN, INIBL, ISHFTS, IACC22
229 parameter( inmin = 12, inwin = 13, inibl = 14,
230 $ ishfts = 15, iacc22 = 16 )
231 INTEGER NMIN, K22MIN, KACMIN, NIBBLE, KNWSWP
232 parameter( nmin = 75, k22min = 14, kacmin = 14,
233 $ nibble = 14, knwswp = 500 )
235 parameter( two = 2.0 )
241 INTRINSIC log, max, mod, nint, real
244 IF( ( ispec.EQ.ishfts ) .OR. ( ispec.EQ.inwin ) .OR.
245 $ ( ispec.EQ.iacc22 ) )
THEN
256 $ ns = max( 10, nh / nint( log(
REAL( NH ) ) / log( TWO ) ) )
263 ns = max( 2, ns-mod( ns, 2 ) )
266 IF( ispec.EQ.inmin )
THEN
275 ELSE IF( ispec.EQ.inibl )
THEN
283 ELSE IF( ispec.EQ.ishfts )
THEN
289 ELSE IF( ispec.EQ.inwin )
THEN
293 IF( nh.LE.knwswp )
THEN
299 ELSE IF( ispec.EQ.iacc22 )
THEN
integer function iparmq(ISPEC, NAME, OPTS, N, ILO, IHI, LWORK)
IPARMQ