Subroutine */
| 1446 | /* *********************************************************************** */ |
| 1447 | |
| 1448 | /* Subroutine */ int slamc2_(integer *beta, integer *t, logical *rnd, real * |
| 1449 | eps, integer *emin, real *rmin, integer *emax, real *rmax) |
| 1450 | { |
| 1451 | /* Initialized data */ |
| 1452 | |
| 1453 | static logical first = TRUE_; |
| 1454 | static logical iwarn = FALSE_; |
| 1455 | |
| 1456 | /* Format strings */ |
| 1457 | static char fmt_9999[] = "(//\002 WARNING. The value EMIN may be incorre" |
| 1458 | "ct:-\002,\002 EMIN = \002,i8,/\002 If, after inspection, the va" |
| 1459 | "lue EMIN looks\002,\002 acceptable please comment out \002,/\002" |
| 1460 | " the IF block as marked within the code of routine\002,\002 SLAM" |
| 1461 | "C2,\002,/\002 otherwise supply EMIN explicitly.\002,/)"; |
| 1462 | |
| 1463 | /* System generated locals */ |
| 1464 | integer i__1; |
| 1465 | real r__1, r__2, r__3, r__4, r__5; |
| 1466 | |
| 1467 | /* Local variables */ |
| 1468 | static real a, b, c__; |
| 1469 | static integer i__, lt; |
| 1470 | static real one, two; |
| 1471 | static logical ieee; |
| 1472 | static real half; |
| 1473 | static logical lrnd; |
| 1474 | static real leps, zero; |
| 1475 | static integer lbeta; |
| 1476 | static real rbase; |
| 1477 | static integer lemin, lemax, gnmin; |
| 1478 | static real small; |
| 1479 | static integer gpmin; |
| 1480 | static real third, lrmin, lrmax, sixth; |
| 1481 | static logical lieee1; |
| 1482 | extern /* Subroutine */ int slamc1_(integer *, integer *, logical *, |
| 1483 | logical *); |
| 1484 | extern doublereal slamc3_(real *, real *); |
| 1485 | extern /* Subroutine */ int slamc4_(integer *, real *, integer *), |
| 1486 | slamc5_(integer *, integer *, integer *, logical *, integer *, |
| 1487 | real *); |
| 1488 | static integer ngnmin, ngpmin; |
| 1489 | |
| 1490 | /* Fortran I/O blocks */ |
| 1491 | static cilist io___144 = { 0, 6, 0, fmt_9999, 0 }; |
| 1492 | |
| 1493 | |
| 1494 | /* |
| 1495 | -- LAPACK auxiliary routine (version 3.2) -- |
| 1496 | Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. |
| 1497 | November 2006 |
| 1498 | |
| 1499 | |
| 1500 | Purpose |
| 1501 | ======= |
| 1502 | |
| 1503 | SLAMC2 determines the machine parameters specified in its argument |
| 1504 | list. |
| 1505 |