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

crystallite: 

- grainrotation calculation now is done with symmetryID 0, i.e. without symmetry reduction since we want the absolute misorientation.
- While math has everything in radians, post results eulerangles and axisangle are given in degrees.
And: grain rotation seems OK after the previous changes in math module.
This commit is contained in:
Claudio Zambaldi 2010-05-07 12:01:46 +00:00
parent 97f206d0bc
commit 2405a51042
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
code/crystallite.f90
View File

@ -1603,7 +1603,7 @@ logical error
crystallite_rotation(:,g,i,e) = & crystallite_rotation(:,g,i,e) = &
math_QuaternionDisorientation( crystallite_orientation(:,g,i,e), & ! calculate grainrotation math_QuaternionDisorientation( crystallite_orientation(:,g,i,e), & ! calculate grainrotation
crystallite_orientation0(:,g,i,e), & crystallite_orientation0(:,g,i,e), &
crystallite_symmetryID(g,i,e) ) 0_pInt ) ! we don't want symmetry here
enddo enddo
enddo enddo
@ -1669,7 +1669,8 @@ function crystallite_postResults(&
use prec, only: pInt, & use prec, only: pInt, &
pReal pReal
use math, only: math_QuaternionToEuler, & use math, only: math_QuaternionToEuler, &
math_QuaternionToAxisAngle math_QuaternionToAxisAngle, &
inDeg
use mesh, only: mesh_element use mesh, only: mesh_element
use material, only: microstructure_crystallite, & use material, only: microstructure_crystallite, &
crystallite_Noutput, & crystallite_Noutput, &
@ -1711,15 +1712,16 @@ function crystallite_postResults(&
c = c + 1_pInt c = c + 1_pInt
case ('orientation') case ('orientation')
crystallite_postResults(c+1:c+4) = & crystallite_postResults(c+1:c+4) = &
crystallite_orientation(:,g,i,e) ! grain orientation crystallite_orientation(:,g,i,e) ! grain orientation as quaternion
c = c + 4_pInt c = c + 4_pInt
case ('eulerangles') case ('eulerangles')
crystallite_postResults(c+1:c+3) = & crystallite_postResults(c+1:c+3) = inDeg * &
math_QuaternionToEuler(crystallite_orientation(:,g,i,e)) ! grain orientation math_QuaternionToEuler(crystallite_orientation(:,g,i,e)) ! grain orientation as Euler angles in degree
c = c + 3_pInt c = c + 3_pInt
case ('grainrotation') case ('grainrotation')
crystallite_postResults(c+1:c+4) = & crystallite_postResults(c+1:c+4) = &
math_QuaternionToAxisAngle(crystallite_rotation(:,g,i,e)) ! grain rotation away from initial orientation math_QuaternionToAxisAngle(crystallite_rotation(1:4,g,i,e)) ! grain rotation away from initial orientation as axis-angle
crystallite_postResults(c+4) = inDeg * crystallite_postResults(c+4) ! angle in degree
c = c + 4_pInt c = c + 4_pInt
case ('defgrad') case ('defgrad')
forall (k=0:2,l=0:2) crystallite_postResults(c+1+k*3+l) = & forall (k=0:2,l=0:2) crystallite_postResults(c+1+k*3+l) = &