/usr/share/doc/libplplot12/examples/f95/plf95demos.inc is in libplplot-dev 5.10.0+dfsg2-0.1ubuntu2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 | function myisnan(x)
use plplot_flt
implicit none
logical :: myisnan
real (kind=plflt) :: x
myisnan = (x.ne.x)
! myisnan = isnan(x)
return
end function
|