223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

newer versions of PGI provide norm2 

https://www.pgroup.com/resources/docs/19.7/x86/pgi-release-notes/index.htm#what-is-new-197
This commit is contained in:
Martin Diehl 2019-09-19 13:38:45 -07:00
parent f1d29da056
commit ddff2cb6e7
1 changed files with 0 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/future.f90
View File

@ -32,18 +32,4 @@ function findloc(a,v)
end function findloc end function findloc
#endif #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 end module future