229 INTEGER FUNCTION iparmq( ISPEC, NAME, OPTS, N, ILO, IHI, LWORK )
236 INTEGER ihi, ilo, ispec, lwork, n
237 CHARACTER name*( * ), opts*( * )
241 INTEGER inmin, inwin, inibl, ishfts, iacc22, icost
242 parameter( inmin = 12, inwin = 13, inibl = 14,
243 $ ishfts = 15, iacc22 = 16, icost = 17 )
244 INTEGER nmin, k22min, kacmin, nibble, knwswp, rcost
245 parameter( nmin = 75, k22min = 14, kacmin = 14,
246 $ nibble = 14, knwswp = 500, rcost = 10 )
248 parameter( two = 2.0 )
256 INTRINSIC log, max, mod, nint, real
259 IF( ( ispec.EQ.ishfts ) .OR. ( ispec.EQ.inwin ) .OR.
260 $ ( ispec.EQ.iacc22 ) )
THEN
271 $ ns = max( 10, nh / nint( log( real( nh ) ) / log( two ) ) )
278 ns = max( 2, ns-mod( ns, 2 ) )
281 IF( ispec.EQ.inmin )
THEN
290 ELSE IF( ispec.EQ.inibl )
THEN
298 ELSE IF( ispec.EQ.ishfts )
THEN
304 ELSE IF( ispec.EQ.inwin )
THEN
308 IF( nh.LE.knwswp )
THEN
314 ELSE IF( ispec.EQ.iacc22 )
THEN
328 ic = ichar( subnam( 1: 1 ) )
330 IF( iz.EQ.90 .OR. iz.EQ.122 )
THEN
334 IF( ic.GE.97 .AND. ic.LE.122 )
THEN
335 subnam( 1: 1 ) = char( ic-32 )
337 ic = ichar( subnam( i: i ) )
338 IF( ic.GE.97 .AND. ic.LE.122 )
339 $ subnam( i: i ) = char( ic-32 )
343 ELSE IF( iz.EQ.233 .OR. iz.EQ.169 )
THEN
347 IF( ( ic.GE.129 .AND. ic.LE.137 ) .OR.
348 $ ( ic.GE.145 .AND. ic.LE.153 ) .OR.
349 $ ( ic.GE.162 .AND. ic.LE.169 ) )
THEN
350 subnam( 1: 1 ) = char( ic+64 )
352 ic = ichar( subnam( i: i ) )
353 IF( ( ic.GE.129 .AND. ic.LE.137 ) .OR.
354 $ ( ic.GE.145 .AND. ic.LE.153 ) .OR.
355 $ ( ic.GE.162 .AND. ic.LE.169 ) )subnam( i:
356 $ i ) = char( ic+64 )
360 ELSE IF( iz.EQ.218 .OR. iz.EQ.250 )
THEN
364 IF( ic.GE.225 .AND. ic.LE.250 )
THEN
365 subnam( 1: 1 ) = char( ic-32 )
367 ic = ichar( subnam( i: i ) )
368 IF( ic.GE.225 .AND. ic.LE.250 )
369 $ subnam( i: i ) = char( ic-32 )
374 IF( subnam( 2:6 ).EQ.
'GGHRD' .OR.
375 $ subnam( 2:6 ).EQ.
'GGHD3' )
THEN
379 ELSE IF ( subnam( 4:6 ).EQ.
'EXC' )
THEN
384 ELSE IF ( subnam( 2:6 ).EQ.
'HSEQR' .OR.
385 $ subnam( 2:5 ).EQ.
'LAQR' )
THEN
392 ELSE IF( ispec.EQ.icost )
THEN
integer function iparmq(ispec, name, opts, n, ilo, ihi, lwork)
IPARMQ