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