File: plf95demos.inc.cmake

package info (click to toggle)
plplot 5.9.9-5
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 84,772 kB
  • sloc: ansic: 86,290; xml: 26,754; ada: 17,685; cpp: 15,530; php: 11,938; tcl: 11,125; ml: 6,825; perl: 6,736; f90: 6,709; python: 6,237; java: 6,215; sh: 2,042; makefile: 192; lisp: 75; fortran: 64; sed: 52
file content (12 lines) | stat: -rw-r--r-- 212 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
 
      function myisnan(x)

      implicit none
      logical myisnan
      real*8 x

@HAVE_F77_ISNAN_FALSE@      myisnan = (x.ne.x)
@HAVE_F77_ISNAN_TRUE@      myisnan = isnan(x)

      return

      end function