1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
! N.B. the pl_test_flt parameter used in this code is only
! provided by the plplot module to allow convenient developer
! testing of either kind(1.0) or kind(1.0d0) floating-point
! precision regardless of the floating-point precision of the
! PLplot C libraries. We do not guarantee the value of this test
! parameter so it should not be used by users, and instead user
! code should replace the pl_test_flt parameter by whatever
! kind(1.0) or kind(1.0d0) precision is most convenient for them.
! For further details on floating-point precision issues please
! consult README_precision in this directory.
!
function myisnan(x)
use plplot
implicit none
logical :: myisnan
real (kind=pl_test_flt) :: x
@HAVE_FORTRAN_ISNAN_FALSE@ myisnan = (x.ne.x)
@HAVE_FORTRAN_ISNAN_TRUE@ myisnan = isnan(x)
return
end function
|
