153 INTEGER FUNCTION ilaenv( ISPEC, NAME, OPTS, N1, N2, N3,
162 CHARACTER*( * ) name, opts
163 INTEGER ispec, n1, n2, n3, n4
169 INTRINSIC int, min, real
176 INTEGER iparms( 100 )
179 common / claenv / iparms
186 IF( ispec.GE.1 .AND. ispec.LE.5 )
THEN
192 ELSE IF( ispec.EQ.6 )
THEN
196 ilaenv = int(
REAL( MIN( N1, N2 ) )*1.6e0 )
198 ELSE IF( ispec.GE.7 .AND. ispec.LE.9 )
THEN
204 ELSE IF( ispec.EQ.10 )
THEN
214 ELSE IF( ispec.EQ.11 )
THEN
224 ELSE IF(( ispec.GE.12 ) .AND. (ispec.LE.16))
THEN
244 INTEGER FUNCTION iparmq( ISPEC, NAME, OPTS, N, ILO, IHI, LWORK )
246 INTEGER inmin, inwin, inibl, ishfts, iacc22
247 parameter( inmin = 12, inwin = 13, inibl = 14,
248 $ ishfts = 15, iacc22 = 16 )
249 INTEGER nmin, k22min, kacmin, nibble, knwswp
250 parameter( nmin = 11, k22min = 14, kacmin = 14,
251 $ nibble = 14, knwswp = 500 )
253 parameter( two = 2.0 )
256 INTEGER ihi, ilo, ispec, lwork, n
257 CHARACTER name*( * ), opts*( * )
263 INTRINSIC log, max, mod, nint, real
266 IF( ( ispec.EQ.ishfts ) .OR. ( ispec.EQ.inwin ) .OR.
267 $ ( ispec.EQ.iacc22 ) )
THEN
278 $ ns = max( 10, nh / nint( log(
REAL( NH ) ) / log( two ) ) )
285 ns = max( 2, ns-mod( ns, 2 ) )
288 IF( ispec.EQ.inmin )
THEN
297 ELSE IF( ispec.EQ.inibl )
THEN
305 ELSE IF( ispec.EQ.ishfts )
THEN
311 ELSE IF( ispec.EQ.inwin )
THEN
315 IF( nh.LE.knwswp )
THEN
321 ELSE IF( ispec.EQ.iacc22 )
THEN