From ddff2cb6e73bbecebce228272d335429b666f202 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Thu, 19 Sep 2019 13:38:45 -0700 Subject: [PATCH] newer versions of PGI provide norm2 https://www.pgroup.com/resources/docs/19.7/x86/pgi-release-notes/index.htm#what-is-new-197 --- src/future.f90 | 14 -------------- 1 file changed, 14 deletions(-) diff --git a/src/future.f90 b/src/future.f90 index 214bedc17..d69384949 100644 --- a/src/future.f90 +++ b/src/future.f90 @@ -32,18 +32,4 @@ function findloc(a,v) end function findloc #endif - -#if defined(__PGI) -!-------------------------------------------------------------------------------------------------- -!> @brief substitute for the norm2 intrinsic (only for real, dimension(3) at the moment) -!-------------------------------------------------------------------------------------------------- -real(pReal) pure function norm2(v) - - real(pReal), intent(in), dimension(3) :: v - - norm2 = sqrt(sum(v**2)) - -end function norm2 -#endif - end module future