source/lib/isnan_pgi.f

   1         logical function isnan(a)
   2         logical isnand
   3         double precision a
   4         isnan=isnand(a)
   5         return
   6         end
   7