Merge branch 'adasko' of mmka.chem.univ.gda.pl:unres into adasko

[unres.git] / source / unres / src_MD / isnan.f

diff --git a/source/unres/src_MD/isnan.f b/source/unres/src_MD/isnan.f
new file mode 100644 (file)
index 0000000..a526a80
--- /dev/null
+++ b/source/unres/src_MD/isnan.f
@@ -0,0 +1,10 @@
+      logical function isnan(a)
+      real a
+      if (a.ne.a) then
+       isnan = .true.
+      else
+       isnan = .false.
+      end if
+      return
+      end 
+      
\ No newline at end of file