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

might be of use

This commit is contained in:
Martin Diehl 2019-12-02 16:22:27 +01:00
parent 8189b50509
commit be099e38c2
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/rotations.f90
View File

@ -64,6 +64,7 @@ module rotations
procedure, public :: asRodrigues procedure, public :: asRodrigues
procedure, public :: asMatrix procedure, public :: asMatrix
!------------------------------------------ !------------------------------------------
procedure, public :: fromQuaternion
procedure, public :: fromEulers procedure, public :: fromEulers
procedure, public :: fromAxisAngle procedure, public :: fromAxisAngle
procedure, public :: fromMatrix procedure, public :: fromMatrix
@ -157,6 +158,18 @@ end function asHomochoric
!--------------------------------------------------------------------------------------------------- !---------------------------------------------------------------------------------------------------
! Initialize rotation from different representations ! Initialize rotation from different representations
!--------------------------------------------------------------------------------------------------- !---------------------------------------------------------------------------------------------------
subroutine fromQuaternion(self,qu)
class(rotation), intent(out) :: self
real(pReal), dimension(4), intent(in) :: qu
if (dNeq(norm2(qu),1.0)) &
call IO_error(402,ext_msg='fromQuaternion')
self%q = qu
end subroutine fromQuaternion
!---------------------------------------------------------------------------------------------------
subroutine fromEulers(self,eu,degrees) subroutine fromEulers(self,eu,degrees)
class(rotation), intent(out) :: self class(rotation), intent(out) :: self