/usr/share/doc/libplplot11/examples/f77/plf77demos.inc is in libplplot-dev 5.9.9-2ubuntu2.
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 | function myisnan(x)
implicit none
logical myisnan
real*8 x
myisnan = (x.ne.x)
C myisnan = isnan(x)
return
end function
|