source/unres/src_MD-M/isnan.f

   1       logical function isnan(a)
   2       real a
   3       if (a.ne.a) then
   4        isnan = .true.
   5       else
   6        isnan = .false.
   7       end if
   8       return
   9       end
  10