diff --git a/src/CMakeLists.txt b/src/CMakeLists.txt index 4210a79b3..e86fbe422 100644 --- a/src/CMakeLists.txt +++ b/src/CMakeLists.txt @@ -65,14 +65,18 @@ add_library(ROTATIONS OBJECT "rotations.f90") add_dependencies(ROTATIONS LAMBERT QUATERNIONS) list(APPEND OBJECTFILES $) +add_library(ORIENTATIONS OBJECT "orientations.f90") +add_dependencies(ORIENTATIONS ROTATIONS) +list(APPEND OBJECTFILES $) + # SPECTRAL solver and FEM solver use different mesh files if (PROJECT_NAME STREQUAL "DAMASK_spectral") add_library(MESH OBJECT "mesh.f90") - add_dependencies(MESH ROTATIONS FEsolving) + add_dependencies(MESH ORIENTATIONS FEsolving) list(APPEND OBJECTFILES $) elseif (PROJECT_NAME STREQUAL "DAMASK_FEM") add_library(FEZoo OBJECT "FEM_zoo.f90") - add_dependencies(FEZoo ROTATIONS FEsolving) + add_dependencies(FEZoo ORIENTATIONS FEsolving) list(APPEND OBJECTFILES $) add_library(MESH OBJECT "meshFEM.f90") add_dependencies(MESH FEZoo) diff --git a/src/orientations.f90 b/src/orientations.f90 new file mode 100644 index 000000000..1a5363ee6 --- /dev/null +++ b/src/orientations.f90 @@ -0,0 +1,8 @@ +module orientations + use rotations + + implicit none + type, extends(rotation), public :: orientation + end type + +end module orientations diff --git a/src/quaternions.f90 b/src/quaternions.f90 index 60b8d387d..78379c49b 100644 --- a/src/quaternions.f90 +++ b/src/quaternions.f90 @@ -27,10 +27,9 @@ ! ################################################################### module quaternions - use prec - implicit none + implicit none public type, public :: quaternion real(pReal) :: w = 0.0_pReal