dummy orientations module

needs to be extendend to include symmetry
This commit is contained in:
Martin Diehl 2018-12-08 11:40:27 +01:00
parent 40d38ebf55
commit 5cdd603671
3 changed files with 15 additions and 4 deletions

View File

@ -65,14 +65,18 @@ add_library(ROTATIONS OBJECT "rotations.f90")
add_dependencies(ROTATIONS LAMBERT QUATERNIONS) add_dependencies(ROTATIONS LAMBERT QUATERNIONS)
list(APPEND OBJECTFILES $<TARGET_OBJECTS:ROTATIONS>) list(APPEND OBJECTFILES $<TARGET_OBJECTS:ROTATIONS>)
add_library(ORIENTATIONS OBJECT "orientations.f90")
add_dependencies(ORIENTATIONS ROTATIONS)
list(APPEND OBJECTFILES $<TARGET_OBJECTS:ORIENTATIONS>)
# SPECTRAL solver and FEM solver use different mesh files # SPECTRAL solver and FEM solver use different mesh files
if (PROJECT_NAME STREQUAL "DAMASK_spectral") if (PROJECT_NAME STREQUAL "DAMASK_spectral")
add_library(MESH OBJECT "mesh.f90") add_library(MESH OBJECT "mesh.f90")
add_dependencies(MESH ROTATIONS FEsolving) add_dependencies(MESH ORIENTATIONS FEsolving)
list(APPEND OBJECTFILES $<TARGET_OBJECTS:MESH>) list(APPEND OBJECTFILES $<TARGET_OBJECTS:MESH>)
elseif (PROJECT_NAME STREQUAL "DAMASK_FEM") elseif (PROJECT_NAME STREQUAL "DAMASK_FEM")
add_library(FEZoo OBJECT "FEM_zoo.f90") add_library(FEZoo OBJECT "FEM_zoo.f90")
add_dependencies(FEZoo ROTATIONS FEsolving) add_dependencies(FEZoo ORIENTATIONS FEsolving)
list(APPEND OBJECTFILES $<TARGET_OBJECTS:FEZoo>) list(APPEND OBJECTFILES $<TARGET_OBJECTS:FEZoo>)
add_library(MESH OBJECT "meshFEM.f90") add_library(MESH OBJECT "meshFEM.f90")
add_dependencies(MESH FEZoo) add_dependencies(MESH FEZoo)

8
src/orientations.f90 Normal file
View File

@ -0,0 +1,8 @@
module orientations
use rotations
implicit none
type, extends(rotation), public :: orientation
end type
end module orientations

View File

@ -27,10 +27,9 @@
! ################################################################### ! ###################################################################
module quaternions module quaternions
use prec use prec
implicit none
implicit none
public public
type, public :: quaternion type, public :: quaternion
real(pReal) :: w = 0.0_pReal real(pReal) :: w = 0.0_pReal