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

norm2 is (yet) not available in PGI

This commit is contained in:
Martin Diehl 2019-03-10 08:42:50 +01:00
parent ed7423a3d6
commit 96c4599dc7
3 changed files with 36 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/plastic_nonlocal.f90
View File

@ -1624,6 +1624,10 @@ use debug, only: debug_level, &
debug_e debug_e
#endif #endif
use math, only: math_mul3x3, & use math, only: math_mul3x3, &
#ifdef __PGI
norm2, &
#endif
math_mul33x3, & math_mul33x3, &
math_mul33xx33, & math_mul33xx33, &
math_mul33x33, & math_mul33x33, &

12
src/quaternions.f90
View File

@ -354,6 +354,10 @@ end function pow_quat__
!> ToDo: Lacks any check for invalid operations !> ToDo: Lacks any check for invalid operations
!--------------------------------------------------------------------------------------------------- !---------------------------------------------------------------------------------------------------
type(quaternion) elemental function exp__(self) type(quaternion) elemental function exp__(self)
#ifdef __PGI
use math, only: &
norm2
#endif
implicit none implicit none
class(quaternion), intent(in) :: self class(quaternion), intent(in) :: self
@ -374,6 +378,10 @@ end function exp__
!> ToDo: Lacks any check for invalid operations !> ToDo: Lacks any check for invalid operations
!--------------------------------------------------------------------------------------------------- !---------------------------------------------------------------------------------------------------
type(quaternion) elemental function log__(self) type(quaternion) elemental function log__(self)
#ifdef __PGI
use math, only: &
norm2
#endif
implicit none implicit none
class(quaternion), intent(in) :: self class(quaternion), intent(in) :: self
@ -393,6 +401,10 @@ end function log__
!> norm of a quaternion !> norm of a quaternion
!--------------------------------------------------------------------------------------------------- !---------------------------------------------------------------------------------------------------
real(pReal) elemental function abs__(a) real(pReal) elemental function abs__(a)
#ifdef __PGI
use math, only: &
norm2
#endif
implicit none implicit none
class(quaternion), intent(in) :: a class(quaternion), intent(in) :: a

20
src/rotations.f90
View File

@ -157,6 +157,10 @@ end subroutine
function rotVector(self,v,active) function rotVector(self,v,active)
use prec, only: & use prec, only: &
dEq dEq
#ifdef __PGI
use math, only: &
norm2
#endif
implicit none implicit none
real(pReal), dimension(3) :: rotVector real(pReal), dimension(3) :: rotVector
@ -573,6 +577,9 @@ pure function ro2ax(ro) result(ax)
use prec, only: & use prec, only: &
dEq0 dEq0
use math, only: & use math, only: &
#ifdef __PGI
norm2, &
#endif
PI PI
implicit none implicit none
@ -662,6 +669,9 @@ pure function ro2ho(ro) result(ho)
use prec, only: & use prec, only: &
dEq0 dEq0
use math, only: & use math, only: &
#ifdef __PGI
norm2, &
#endif
PI PI
implicit none implicit none
@ -718,6 +728,10 @@ end function qu2om
function om2qu(om) result(qu) function om2qu(om) result(qu)
use prec, only: & use prec, only: &
dEq dEq
#ifdef __PGI
use math, only: &
norm2
#endif
implicit none implicit none
real(pReal), intent(in), dimension(3,3) :: om real(pReal), intent(in), dimension(3,3) :: om
@ -791,6 +805,9 @@ pure function qu2ro(qu) result(ro)
use prec, only: & use prec, only: &
dEq0 dEq0
use math, only: & use math, only: &
#ifdef __PGI
norm2, &
#endif
math_clip math_clip
type(quaternion), intent(in) :: qu type(quaternion), intent(in) :: qu
@ -819,6 +836,9 @@ pure function qu2ho(qu) result(ho)
use prec, only: & use prec, only: &
dEq0 dEq0
use math, only: & use math, only: &
#ifdef __PGI
norm2, &
#endif
math_clip math_clip
implicit none implicit none