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

initial handling of symmetry introduced

This commit is contained in:
Martin Diehl 2018-12-08 15:54:59 +01:00
parent 5d6faff4d6
commit 58862a939d
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/orientations.f90
View File

@ -1,8 +1,11 @@
module orientations module orientations
use rotations use rotations
use prec, only: &
pStringLen
implicit none implicit none
type, extends(rotation), public :: orientation type, extends(rotation), public :: orientation
character(len=pStringLen) :: sym = 'none'
end type orientation end type orientation
interface orientation interface orientation
@ -11,13 +14,16 @@ module orientations
contains contains
type(orientation) function orientation_init(eu,ax,om,qu,cu,ho,ro) type(orientation) function orientation_init(sym,eu,ax,om,qu,cu,ho,ro)
use prec use prec
implicit none implicit none
real(pReal), intent(in), optional, dimension(3) :: eu, cu, ho character(len=pStringLen), intent(in), optional :: sym
real(pReal), intent(in), optional, dimension(4) :: ax, qu, ro real(pReal), intent(in), optional, dimension(3) :: eu, cu, ho
real(pReal), intent(in), optional, dimension(3,3) :: om real(pReal), intent(in), optional, dimension(4) :: ax, qu, ro
real(pReal), intent(in), optional, dimension(3,3) :: om
if (present(sym)) orientation_init%sym = sym
if (present(om)) then if (present(om)) then
call orientation_init%fromRotationMatrix(om) call orientation_init%fromRotationMatrix(om)
endif endif