| 470 | } /* iladlr_ */ |
| 471 | |
| 472 | integer ilaenv_(integer *ispec, char *name__, char *opts, integer *n1, |
| 473 | integer *n2, integer *n3, integer *n4, ftnlen name_len, ftnlen |
| 474 | opts_len) |
| 475 | { |
| 476 | /* System generated locals */ |
| 477 | integer ret_val; |
| 478 | |
| 479 | /* Local variables */ |
| 480 | static integer i__; |
| 481 | static char c1[1], c2[2], c3[3], c4[2]; |
| 482 | static integer ic, nb, iz, nx; |
| 483 | static logical cname; |
| 484 | static integer nbmin; |
| 485 | static logical sname; |
| 486 | extern integer ieeeck_(integer *, real *, real *); |
| 487 | static char subnam[6]; |
| 488 | extern integer iparmq_(integer *, char *, char *, integer *, integer *, |
| 489 | integer *, integer *, ftnlen, ftnlen); |
| 490 | |
| 491 | |
| 492 | /* |
| 493 | -- LAPACK auxiliary routine (version 3.2.1) -- |
| 494 | |
| 495 | -- April 2009 -- |
| 496 | |
| 497 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 498 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 499 | |
| 500 | |
| 501 | Purpose |
| 502 | ======= |
| 503 | |
| 504 | ILAENV is called from the LAPACK routines to choose problem-dependent |
| 505 | parameters for the local environment. See ISPEC for a description of |
| 506 | the parameters. |
| 507 | |
| 508 | ILAENV returns an INTEGER |
| 509 | if ILAENV >= 0: ILAENV returns the value of the parameter specified by ISPEC |
| 510 | if ILAENV < 0: if ILAENV = -k, the k-th argument had an illegal value. |
| 511 | |
| 512 | This version provides a set of parameters which should give good, |
| 513 | but not optimal, performance on many of the currently available |
| 514 | computers. Users are encouraged to modify this subroutine to set |
| 515 | the tuning parameters for their particular machine using the option |
| 516 | and problem size information in the arguments. |
| 517 | |
| 518 | This routine will not function correctly if it is converted to all |
| 519 | lower case. Converting it to all upper case is allowed. |
| 520 | |
| 521 | Arguments |
| 522 | ========= |
| 523 | |
| 524 | ISPEC (input) INTEGER |
| 525 | Specifies the parameter to be returned as the value of |
| 526 | ILAENV. |
| 527 | = 1: the optimal blocksize; if this value is 1, an unblocked |
| 528 | algorithm will give the best performance. |
| 529 | = 2: the minimum block size for which the block routine |
no test coverage detected