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

check for NaN in math_QuaternionInSST

This commit is contained in:
Franz Roters 2012-05-11 07:37:32 +00:00
parent babf2647fb
commit f8f9c089d6
1 changed files with 16 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
code/math.f90
View File

@ -1804,6 +1804,9 @@ pure function math_QuaternionInSST(Q, symmetryType)
real(pReal), dimension(3) :: Rodrig ! Rodrigues vector of Q real(pReal), dimension(3) :: Rodrig ! Rodrigues vector of Q
Rodrig = math_QuaternionToRodrig(Q) Rodrig = math_QuaternionToRodrig(Q)
if (any(Rodrig/=Rodrig)) then
math_QuaternionInSST = .false.
else
select case (symmetryType) select case (symmetryType)
case (1_pInt) case (1_pInt)
math_QuaternionInSST = Rodrig(1) > Rodrig(2) .and. & math_QuaternionInSST = Rodrig(1) > Rodrig(2) .and. &
@ -1816,6 +1819,7 @@ pure function math_QuaternionInSST(Q, symmetryType)
case default case default
math_QuaternionInSST = .true. math_QuaternionInSST = .true.
end select end select
endif
end function math_QuaternionInSST end function math_QuaternionInSST