norm2 for PGI

This commit is contained in:
Martin Diehl 2019-03-10 09:09:23 +01:00
parent 05b4dd1973
commit 60f4f9f39c
2 changed files with 6 additions and 0 deletions

View File

@ -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, &

View File

@ -902,6 +902,9 @@ end function mesh_cellCenterCoordinates
!--------------------------------------------------------------------------------------------------
subroutine mesh_build_ipAreas
use math, only: &
#ifdef __PGI
norm2, &
#endif
math_crossproduct
implicit none