isnan_pgi

diff --git a/source/lib/isnan_pgi.f b/source/lib/isnan_pgi.f
new file mode 100644 (file)
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