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
211 ilaenv = ieeeck( 1, 0.0, 1.0 )
214 ELSE IF( ispec.EQ.11 )
THEN
221 ilaenv = ieeeck( 0, 0.0, 1.0 )
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
integer function iparmq(ISPEC, NAME, OPTS, N, ILO, IHI, LWORK)
IPARMQ
integer function ilaenv(ISPEC, NAME, OPTS, N1, N2, N3, N4)