163 INTEGER FUNCTION ilaenv( ISPEC, NAME, OPTS, N1, N2, N3, N4 )
171 CHARACTER*( * ) name, opts
172 INTEGER ispec, n1, n2, n3, n4
178 INTEGER i, ic, iz, nb, nbmin, nx
180 CHARACTER c1*1, c2*2, c4*2, c3*3, subnam*6
183 INTRINSIC char, ichar, int, min, real
186 INTEGER ieeeck, iparmq
187 EXTERNAL ieeeck, iparmq
191 GO TO ( 10, 10, 10, 80, 90, 100, 110, 120,
192 $ 130, 140, 150, 160, 160, 160, 160, 160 )ispec
205 ic = ichar( subnam( 1: 1 ) )
207 IF( iz.EQ.90 .OR. iz.EQ.122 )
THEN 211 IF( ic.GE.97 .AND. ic.LE.122 )
THEN 212 subnam( 1: 1 ) = char( ic-32 )
214 ic = ichar( subnam( i: i ) )
215 IF( ic.GE.97 .AND. ic.LE.122 )
216 $ subnam( i: i ) = char( ic-32 )
220 ELSE IF( iz.EQ.233 .OR. iz.EQ.169 )
THEN 224 IF( ( ic.GE.129 .AND. ic.LE.137 ) .OR.
225 $ ( ic.GE.145 .AND. ic.LE.153 ) .OR.
226 $ ( ic.GE.162 .AND. ic.LE.169 ) )
THEN 227 subnam( 1: 1 ) = char( ic+64 )
229 ic = ichar( subnam( i: i ) )
230 IF( ( ic.GE.129 .AND. ic.LE.137 ) .OR.
231 $ ( ic.GE.145 .AND. ic.LE.153 ) .OR.
232 $ ( ic.GE.162 .AND. ic.LE.169 ) )subnam( i:
233 $ i ) = char( ic+64 )
237 ELSE IF( iz.EQ.218 .OR. iz.EQ.250 )
THEN 241 IF( ic.GE.225 .AND. ic.LE.250 )
THEN 242 subnam( 1: 1 ) = char( ic-32 )
244 ic = ichar( subnam( i: i ) )
245 IF( ic.GE.225 .AND. ic.LE.250 )
246 $ subnam( i: i ) = char( ic-32 )
252 sname = c1.EQ.
'S' .OR. c1.EQ.
'D' 253 cname = c1.EQ.
'C' .OR. c1.EQ.
'Z' 254 IF( .NOT.( cname .OR. sname ) )
260 GO TO ( 50, 60, 70 )ispec
272 IF( c2.EQ.
'GE' )
THEN 273 IF( c3.EQ.
'TRF' )
THEN 279 ELSE IF( c3.EQ.
'QRF' .OR. c3.EQ.
'RQF' .OR. c3.EQ.
'LQF' .OR.
286 ELSE IF( c3.EQ.
'HRD' )
THEN 292 ELSE IF( c3.EQ.
'BRD' )
THEN 298 ELSE IF( c3.EQ.
'TRI' )
THEN 305 ELSE IF( c2.EQ.
'PO' )
THEN 306 IF( c3.EQ.
'TRF' )
THEN 313 ELSE IF( c2.EQ.
'SY' )
THEN 314 IF( c3.EQ.
'TRF' )
THEN 320 ELSE IF( sname .AND. c3.EQ.
'TRD' )
THEN 322 ELSE IF( sname .AND. c3.EQ.
'GST' )
THEN 325 ELSE IF( cname .AND. c2.EQ.
'HE' )
THEN 326 IF( c3.EQ.
'TRF' )
THEN 328 ELSE IF( c3.EQ.
'TRD' )
THEN 330 ELSE IF( c3.EQ.
'GST' )
THEN 333 ELSE IF( sname .AND. c2.EQ.
'OR' )
THEN 334 IF( c3( 1: 1 ).EQ.
'G' )
THEN 335 IF( c4.EQ.
'QR' .OR. c4.EQ.
'RQ' .OR. c4.EQ.
'LQ' .OR. c4.EQ.
336 $
'QL' .OR. c4.EQ.
'HR' .OR. c4.EQ.
'TR' .OR. c4.EQ.
'BR' )
340 ELSE IF( c3( 1: 1 ).EQ.
'M' )
THEN 341 IF( c4.EQ.
'QR' .OR. c4.EQ.
'RQ' .OR. c4.EQ.
'LQ' .OR. c4.EQ.
342 $
'QL' .OR. c4.EQ.
'HR' .OR. c4.EQ.
'TR' .OR. c4.EQ.
'BR' )
347 ELSE IF( cname .AND. c2.EQ.
'UN' )
THEN 348 IF( c3( 1: 1 ).EQ.
'G' )
THEN 349 IF( c4.EQ.
'QR' .OR. c4.EQ.
'RQ' .OR. c4.EQ.
'LQ' .OR. c4.EQ.
350 $
'QL' .OR. c4.EQ.
'HR' .OR. c4.EQ.
'TR' .OR. c4.EQ.
'BR' )
354 ELSE IF( c3( 1: 1 ).EQ.
'M' )
THEN 355 IF( c4.EQ.
'QR' .OR. c4.EQ.
'RQ' .OR. c4.EQ.
'LQ' .OR. c4.EQ.
356 $
'QL' .OR. c4.EQ.
'HR' .OR. c4.EQ.
'TR' .OR. c4.EQ.
'BR' )
361 ELSE IF( c2.EQ.
'GB' )
THEN 362 IF( c3.EQ.
'TRF' )
THEN 377 ELSE IF( c2.EQ.
'PB' )
THEN 378 IF( c3.EQ.
'TRF' )
THEN 393 ELSE IF( c2.EQ.
'TR' )
THEN 394 IF( c3.EQ.
'TRI' )
THEN 401 ELSE IF( c2.EQ.
'LA' )
THEN 402 IF( c3.EQ.
'UUM' )
THEN 409 ELSE IF( sname .AND. c2.EQ.
'ST' )
THEN 410 IF( c3.EQ.
'EBZ' )
THEN 422 IF( c2.EQ.
'GE' )
THEN 423 IF( c3.EQ.
'QRF' .OR. c3.EQ.
'RQF' .OR. c3.EQ.
'LQF' .OR. c3.EQ.
430 ELSE IF( c3.EQ.
'HRD' )
THEN 436 ELSE IF( c3.EQ.
'BRD' )
THEN 442 ELSE IF( c3.EQ.
'TRI' )
THEN 449 ELSE IF( c2.EQ.
'SY' )
THEN 450 IF( c3.EQ.
'TRF' )
THEN 456 ELSE IF( sname .AND. c3.EQ.
'TRD' )
THEN 459 ELSE IF( cname .AND. c2.EQ.
'HE' )
THEN 460 IF( c3.EQ.
'TRD' )
THEN 463 ELSE IF( sname .AND. c2.EQ.
'OR' )
THEN 464 IF( c3( 1: 1 ).EQ.
'G' )
THEN 465 IF( c4.EQ.
'QR' .OR. c4.EQ.
'RQ' .OR. c4.EQ.
'LQ' .OR. c4.EQ.
466 $
'QL' .OR. c4.EQ.
'HR' .OR. c4.EQ.
'TR' .OR. c4.EQ.
'BR' )
470 ELSE IF( c3( 1: 1 ).EQ.
'M' )
THEN 471 IF( c4.EQ.
'QR' .OR. c4.EQ.
'RQ' .OR. c4.EQ.
'LQ' .OR. c4.EQ.
472 $
'QL' .OR. c4.EQ.
'HR' .OR. c4.EQ.
'TR' .OR. c4.EQ.
'BR' )
477 ELSE IF( cname .AND. c2.EQ.
'UN' )
THEN 478 IF( c3( 1: 1 ).EQ.
'G' )
THEN 479 IF( c4.EQ.
'QR' .OR. c4.EQ.
'RQ' .OR. c4.EQ.
'LQ' .OR. c4.EQ.
480 $
'QL' .OR. c4.EQ.
'HR' .OR. c4.EQ.
'TR' .OR. c4.EQ.
'BR' )
484 ELSE IF( c3( 1: 1 ).EQ.
'M' )
THEN 485 IF( c4.EQ.
'QR' .OR. c4.EQ.
'RQ' .OR. c4.EQ.
'LQ' .OR. c4.EQ.
486 $
'QL' .OR. c4.EQ.
'HR' .OR. c4.EQ.
'TR' .OR. c4.EQ.
'BR' )
500 IF( c2.EQ.
'GE' )
THEN 501 IF( c3.EQ.
'QRF' .OR. c3.EQ.
'RQF' .OR. c3.EQ.
'LQF' .OR. c3.EQ.
508 ELSE IF( c3.EQ.
'HRD' )
THEN 514 ELSE IF( c3.EQ.
'BRD' )
THEN 521 ELSE IF( c2.EQ.
'SY' )
THEN 522 IF( sname .AND. c3.EQ.
'TRD' )
THEN 525 ELSE IF( cname .AND. c2.EQ.
'HE' )
THEN 526 IF( c3.EQ.
'TRD' )
THEN 529 ELSE IF( sname .AND. c2.EQ.
'OR' )
THEN 530 IF( c3( 1: 1 ).EQ.
'G' )
THEN 531 IF( c4.EQ.
'QR' .OR. c4.EQ.
'RQ' .OR. c4.EQ.
'LQ' .OR. c4.EQ.
532 $
'QL' .OR. c4.EQ.
'HR' .OR. c4.EQ.
'TR' .OR. c4.EQ.
'BR' )
537 ELSE IF( cname .AND. c2.EQ.
'UN' )
THEN 538 IF( c3( 1: 1 ).EQ.
'G' )
THEN 539 IF( c4.EQ.
'QR' .OR. c4.EQ.
'RQ' .OR. c4.EQ.
'LQ' .OR. c4.EQ.
540 $
'QL' .OR. c4.EQ.
'HR' .OR. c4.EQ.
'TR' .OR. c4.EQ.
'BR' )
567 ilaenv = int(
REAL( MIN( N1, N2 ) )*1.6e0 )
599 IF( ilaenv.EQ.1 )
THEN 600 ilaenv = ieeeck( 1, 0.0, 1.0 )
610 IF( ilaenv.EQ.1 )
THEN 611 ilaenv = ieeeck( 0, 0.0, 1.0 )
619 ilaenv = iparmq( ispec, name, opts, n1, n2, n3, n4 )