| 7930 | } /* dhseqr_ */ |
| 7931 | |
| 7932 | logical disnan_(doublereal *din) |
| 7933 | { |
| 7934 | /* System generated locals */ |
| 7935 | logical ret_val; |
| 7936 | |
| 7937 | /* Local variables */ |
| 7938 | extern logical dlaisnan_(doublereal *, doublereal *); |
| 7939 | |
| 7940 | |
| 7941 | /* |
| 7942 | -- LAPACK auxiliary routine (version 3.2.2) -- |
| 7943 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 7944 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 7945 | June 2010 |
| 7946 | |
| 7947 | |
| 7948 | Purpose |
| 7949 | ======= |
| 7950 | |
| 7951 | DISNAN returns .TRUE. if its argument is NaN, and .FALSE. |
| 7952 | otherwise. To be replaced by the Fortran 2003 intrinsic in the |
| 7953 | future. |
| 7954 | |
| 7955 | Arguments |
| 7956 | ========= |
| 7957 | |
| 7958 | DIN (input) DOUBLE PRECISION |
| 7959 | Input to test for NaN. |
| 7960 | |
| 7961 | ===================================================================== |
| 7962 | */ |
| 7963 | |
| 7964 | ret_val = dlaisnan_(din, din); |
| 7965 | return ret_val; |
| 7966 | } /* disnan_ */ |
| 7967 | |
| 7968 | /* Subroutine */ int dlabad_(doublereal *small, doublereal *large) |
| 7969 | { |