| 7910 | } /* shseqr_ */ |
| 7911 | |
| 7912 | logical sisnan_(real *sin__) |
| 7913 | { |
| 7914 | /* System generated locals */ |
| 7915 | logical ret_val; |
| 7916 | |
| 7917 | /* Local variables */ |
| 7918 | extern logical slaisnan_(real *, real *); |
| 7919 | |
| 7920 | |
| 7921 | /* |
| 7922 | -- LAPACK auxiliary routine (version 3.2.2) -- |
| 7923 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 7924 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 7925 | June 2010 |
| 7926 | |
| 7927 | |
| 7928 | Purpose |
| 7929 | ======= |
| 7930 | |
| 7931 | SISNAN returns .TRUE. if its argument is NaN, and .FALSE. |
| 7932 | otherwise. To be replaced by the Fortran 2003 intrinsic in the |
| 7933 | future. |
| 7934 | |
| 7935 | Arguments |
| 7936 | ========= |
| 7937 | |
| 7938 | SIN (input) REAL |
| 7939 | Input to test for NaN. |
| 7940 | |
| 7941 | ===================================================================== |
| 7942 | */ |
| 7943 | |
| 7944 | ret_val = slaisnan_(sin__, sin__); |
| 7945 | return ret_val; |
| 7946 | } /* sisnan_ */ |
| 7947 | |
| 7948 | /* Subroutine */ int slabad_(real *small, real *large) |
| 7949 | { |