From 425ab7fc9653a6772cadfcfa71bc07fe892784ba Mon Sep 17 00:00:00 2001 From: Cezary Czaplewski Date: Fri, 29 Sep 2017 19:34:14 +0200 Subject: [PATCH] isnan_pgi --- source/lib/isnan_pgi.f | 7 +++++++ 1 file changed, 7 insertions(+) create mode 100644 source/lib/isnan_pgi.f 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 -- 1.7.9.5