X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Flib%2Fisnan_pgi.f;fp=source%2Flib%2Fisnan_pgi.f;h=19e68163b9f44b21a9882d565fb47ff5e8e6230a;hb=425ab7fc9653a6772cadfcfa71bc07fe892784ba;hp=0000000000000000000000000000000000000000;hpb=35c4815a6e39535784e96581f9947c717ed1b137;p=unres.git

diff --git a/source/lib/isnan_pgi.f b/source/lib/isnan_pgi.f
new file mode 100644
index 0000000..19e6816
--- /dev/null
+++ b/source/lib/isnan_pgi.f
@@ -0,0 +1,7 @@
+        logical function isnan(a)
+        logical isnand
+        double precision a
+        isnan=isnand(a)
+        return
+        end
+        
\ No newline at end of file