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

Like this Euler angles AND grain rotation should be OK.

This commit is contained in:
Claudio Zambaldi 2010-05-11 15:06:21 +00:00
parent 483584ceb3
commit 15328e51cf
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
code/crystallite.f90
View File

@ -1550,7 +1550,8 @@ use prec, only: pInt, &
use math, only: math_pDecomposition, & use math, only: math_pDecomposition, &
math_RtoQuaternion, & math_RtoQuaternion, &
math_QuaternionDisorientation, & math_QuaternionDisorientation, &
inDeg inDeg, &
math_qConj
use FEsolving, only: FEsolving_execElem, & use FEsolving, only: FEsolving_execElem, &
FEsolving_execIP FEsolving_execIP
use IO, only: IO_warning use IO, only: IO_warning
@ -1597,12 +1598,12 @@ logical error
call IO_warning(650, e, i, g) call IO_warning(650, e, i, g)
crystallite_orientation(:,g,i,e) = (/1.0_pReal, 0.0_pReal, 0.0_pReal, 0.0_pReal/) ! fake orientation crystallite_orientation(:,g,i,e) = (/1.0_pReal, 0.0_pReal, 0.0_pReal, 0.0_pReal/) ! fake orientation
else else
crystallite_orientation(:,g,i,e) = math_RtoQuaternion(R) crystallite_orientation(:,g,i,e) = math_RtoQuaternion(transpose(R))
endif endif
crystallite_rotation(:,g,i,e) = & crystallite_rotation(:,g,i,e) = &
math_QuaternionDisorientation( crystallite_orientation(:,g,i,e), & ! calculate grainrotation math_QuaternionDisorientation( math_qConj(crystallite_orientation(:,g,i,e)), & ! calculate grainrotation
crystallite_orientation0(:,g,i,e), & math_qConj(crystallite_orientation0(:,g,i,e)), &
0_pInt ) ! we don't want symmetry here 0_pInt ) ! we don't want symmetry here
enddo enddo