Subroutine */
| 375 | /* *********************************************************************** */ |
| 376 | |
| 377 | /* Subroutine */ int dlamc2_(integer *beta, integer *t, logical *rnd, |
| 378 | doublereal *eps, integer *emin, doublereal *rmin, integer *emax, |
| 379 | doublereal *rmax) |
| 380 | { |
| 381 | /* Initialized data */ |
| 382 | |
| 383 | static logical first = TRUE_; |
| 384 | static logical iwarn = FALSE_; |
| 385 | |
| 386 | /* Format strings */ |
| 387 | static char fmt_9999[] = "(//\002 WARNING. The value EMIN may be incorre" |
| 388 | "ct:-\002,\002 EMIN = \002,i8,/\002 If, after inspection, the va" |
| 389 | "lue EMIN looks\002,\002 acceptable please comment out \002,/\002" |
| 390 | " the IF block as marked within the code of routine\002,\002 DLAM" |
| 391 | "C2,\002,/\002 otherwise supply EMIN explicitly.\002,/)"; |
| 392 | |
| 393 | /* System generated locals */ |
| 394 | integer i__1; |
| 395 | doublereal d__1, d__2, d__3, d__4, d__5; |
| 396 | |
| 397 | /* Local variables */ |
| 398 | static doublereal a, b, c__; |
| 399 | static integer i__, lt; |
| 400 | static doublereal one, two; |
| 401 | static logical ieee; |
| 402 | static doublereal half; |
| 403 | static logical lrnd; |
| 404 | static doublereal leps, zero; |
| 405 | static integer lbeta; |
| 406 | static doublereal rbase; |
| 407 | static integer lemin, lemax, gnmin; |
| 408 | static doublereal small; |
| 409 | static integer gpmin; |
| 410 | static doublereal third, lrmin, lrmax, sixth; |
| 411 | extern /* Subroutine */ int dlamc1_(integer *, integer *, logical *, |
| 412 | logical *); |
| 413 | extern doublereal dlamc3_(doublereal *, doublereal *); |
| 414 | static logical lieee1; |
| 415 | extern /* Subroutine */ int dlamc4_(integer *, doublereal *, integer *), |
| 416 | dlamc5_(integer *, integer *, integer *, logical *, integer *, |
| 417 | doublereal *); |
| 418 | static integer ngnmin, ngpmin; |
| 419 | |
| 420 | /* Fortran I/O blocks */ |
| 421 | static cilist io___58 = { 0, 6, 0, fmt_9999, 0 }; |
| 422 | |
| 423 | |
| 424 | /* |
| 425 | -- LAPACK auxiliary routine (version 3.2) -- |
| 426 | Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. |
| 427 | November 2006 |
| 428 | |
| 429 | |
| 430 | Purpose |
| 431 | ======= |
| 432 | |
| 433 | DLAMC2 determines the machine parameters specified in its argument |
| 434 | list. |
no test coverage detected