norm2 for PGI
This commit is contained in:
parent
05b4dd1973
commit
60f4f9f39c
|
@ -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, &
|
||||
|
|
|
@ -902,6 +902,9 @@ end function mesh_cellCenterCoordinates
|
|||
!--------------------------------------------------------------------------------------------------
|
||||
subroutine mesh_build_ipAreas
|
||||
use math, only: &
|
||||
#ifdef __PGI
|
||||
norm2, &
|
||||
#endif
|
||||
math_crossproduct
|
||||
|
||||
implicit none
|
||||
|
|
Loading…
Reference in New Issue