| 14402 | } /* dlahr2_ */ |
| 14403 | |
| 14404 | logical dlaisnan_(doublereal *din1, doublereal *din2) |
| 14405 | { |
| 14406 | /* System generated locals */ |
| 14407 | logical ret_val; |
| 14408 | |
| 14409 | |
| 14410 | /* |
| 14411 | -- LAPACK auxiliary routine (version 3.2.2) -- |
| 14412 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 14413 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 14414 | June 2010 |
| 14415 | |
| 14416 | |
| 14417 | Purpose |
| 14418 | ======= |
| 14419 | |
| 14420 | This routine is not for general use. It exists solely to avoid |
| 14421 | over-optimization in DISNAN. |
| 14422 | |
| 14423 | DLAISNAN checks for NaNs by comparing its two arguments for |
| 14424 | inequality. NaN is the only floating-point value where NaN != NaN |
| 14425 | returns .TRUE. To check for NaNs, pass the same variable as both |
| 14426 | arguments. |
| 14427 | |
| 14428 | A compiler must assume that the two arguments are |
| 14429 | not the same variable, and the test will not be optimized away. |
| 14430 | Interprocedural or whole-program optimization may delete this |
| 14431 | test. The ISNAN functions will be replaced by the correct |
| 14432 | Fortran 03 intrinsic once the intrinsic is widely available. |
| 14433 | |
| 14434 | Arguments |
| 14435 | ========= |
| 14436 | |
| 14437 | DIN1 (input) DOUBLE PRECISION |
| 14438 | |
| 14439 | DIN2 (input) DOUBLE PRECISION |
| 14440 | Two numbers to compare for inequality. |
| 14441 | |
| 14442 | ===================================================================== |
| 14443 | */ |
| 14444 | |
| 14445 | ret_val = *din1 != *din2; |
| 14446 | return ret_val; |
| 14447 | } /* dlaisnan_ */ |
| 14448 | |
| 14449 | /* Subroutine */ int dlaln2_(logical *ltrans, integer *na, integer *nw, |
| 14450 | doublereal *smin, doublereal *ca, doublereal *a, integer *lda, |