From 60f4f9f39c88ec59e310557c0a84ec4f3c2df2a6 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sun, 10 Mar 2019 09:09:23 +0100 Subject: [PATCH] norm2 for PGI --- src/crystallite.f90 | 3 +++ src/mesh_grid.f90 | 3 +++ 2 files changed, 6 insertions(+) diff --git a/src/crystallite.f90 b/src/crystallite.f90 index 5cbd692db..55cc553ea 100644 --- a/src/crystallite.f90 +++ b/src/crystallite.f90 @@ -1094,6 +1094,9 @@ logical function integrateStress(& constitutive_LiAndItsTangents, & constitutive_SandItsTangents use math, only: math_mul33x33, & +#ifdef __PGI + norm2, & +#endif math_mul33xx33, & math_mul3333xx3333, & math_inv33, & diff --git a/src/mesh_grid.f90 b/src/mesh_grid.f90 index 84acba931..6e9e37834 100644 --- a/src/mesh_grid.f90 +++ b/src/mesh_grid.f90 @@ -902,6 +902,9 @@ end function mesh_cellCenterCoordinates !-------------------------------------------------------------------------------------------------- subroutine mesh_build_ipAreas use math, only: & +#ifdef __PGI + norm2, & +#endif math_crossproduct implicit none