source:
branches/jerome/src_flexwrf_v3.1/isnan_other.f90
@
16
Last change on this file since 16 was 16, checked in by jebri, 11 years ago | |
---|---|
File size: 233 bytes |
Rev | Line | |
---|---|---|
[16] | 1 | logical function isnan2(a) |
2 | ! use ieee_arithmetic | |
3 | real :: a | |
4 | ! if (ieee_is_nan(a)) then | |
5 | if (a.ne.a) then | |
6 | isnan2 = .true. | |
7 | else | |
8 | isnan2 = .false. | |
9 | end if | |
10 | return | |
11 | end | |
12 | ||
13 |
Note: See TracBrowser
for help on using the repository browser.