151 INTEGER FUNCTION ilaenv( ISPEC, NAME, OPTS, N1, N2, N3,
159 CHARACTER*( * ) name, opts
160 INTEGER ispec, n1, n2, n3, n4
166 INTRINSIC int, min, real
173 INTEGER iparms( 100 )
176 COMMON / claenv / iparms
183 IF( ispec.GE.1 .AND. ispec.LE.5 )
THEN
189 ELSE IF( ispec.EQ.6 )
THEN
193 ilaenv = int( real( min( n1, n2 ) )*1.6e0 )
195 ELSE IF( ispec.GE.7 .AND. ispec.LE.9 )
THEN
201 ELSE IF( ispec.EQ.10 )
THEN
211 ELSE IF( ispec.EQ.11 )
THEN
221 ELSE IF(( ispec.GE.12 ) .AND. (ispec.LE.16))
THEN
229 ELSE IF(( ispec.GE.17 ) .AND. (ispec.LE.21))
THEN
233 IF( ispec.EQ.17 )
THEN
254 CHARACTER*( * ) name, opts
255 INTEGER ispec, n1, n2, n3, n4
267 INTEGER iparms( 100 )
270 COMMON / claenv / iparms
277 IF(( ispec.GE.1 ) .AND. (ispec.LE.5))
THEN
281 IF( ispec.EQ.1 )
THEN
301 INTEGER FUNCTION iparmq( ISPEC, NAME, OPTS, N, ILO, IHI, LWORK )
303 INTEGER inmin, inwin, inibl, ishfts, iacc22
304 PARAMETER ( inmin = 12, inwin = 13, inibl = 14,
305 $ ishfts = 15, iacc22 = 16 )
306 INTEGER nmin, k22min, kacmin, nibble, knwswp
307 PARAMETER ( nmin = 11, k22min = 14, kacmin = 14,
308 $ nibble = 14, knwswp = 500 )
310 PARAMETER ( two = 2.0 )
313 INTEGER ihi, ilo, ispec, lwork, n
314 CHARACTER name*( * ), opts*( * )
320 INTRINSIC log, max, mod, nint, real
323 IF( ( ispec.EQ.ishfts ) .OR. ( ispec.EQ.inwin ) .OR.
324 $ ( ispec.EQ.iacc22 ) )
THEN
335 $ ns = max( 10, nh / nint( log( real( nh ) ) / log( two ) ) )
342 ns = max( 2, ns-mod( ns, 2 ) )
345 IF( ispec.EQ.inmin )
THEN
354 ELSE IF( ispec.EQ.inibl )
THEN
362 ELSE IF( ispec.EQ.ishfts )
THEN
368 ELSE IF( ispec.EQ.inwin )
THEN
372 IF( nh.LE.knwswp )
THEN
378 ELSE IF( ispec.EQ.iacc22 )
THEN
integer function ieeeck(ispec, zero, one)
IEEECK
integer function ilaenv2stage(ispec, name, opts, n1, n2, n3, n4)
ILAENV2STAGE
integer function ilaenv(ispec, name, opts, n1, n2, n3, n4)
ILAENV
integer function iparam2stage(ispec, name, opts, ni, nbi, ibi, nxi)
IPARAM2STAGE
integer function iparmq(ispec, name, opts, n, ilo, ihi, lwork)
IPARMQ