From 49804c6e44d84a3d835d8bda4082d4ee502c2caf Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Tue, 6 Apr 2021 11:55:30 +0200 Subject: [PATCH] preparing split --- src/commercialFEM_fileList.f90 | 3 +++ src/homogenization_damage.f90 | 11 +++++++++-- src/homogenization_damage_pass.f90 | 14 ++++++++++++++ src/homogenization_thermal.f90 | 10 ++++++++++ src/homogenization_thermal_isotemperature.f90 | 14 ++++++++++++++ src/homogenization_thermal_pass.f90 | 14 ++++++++++++++ 6 files changed, 64 insertions(+), 2 deletions(-) create mode 100644 src/homogenization_damage_pass.f90 create mode 100644 src/homogenization_thermal_isotemperature.f90 create mode 100644 src/homogenization_thermal_pass.f90 diff --git a/src/commercialFEM_fileList.f90 b/src/commercialFEM_fileList.f90 index 585f242b5..1eac4f8fc 100644 --- a/src/commercialFEM_fileList.f90 +++ b/src/commercialFEM_fileList.f90 @@ -47,5 +47,8 @@ #include "homogenization_mechanical_isostrain.f90" #include "homogenization_mechanical_RGC.f90" #include "homogenization_thermal.f90" +#include "homogenization_thermal_pass.f90" +#include "homogenization_thermal_isotemperature.f90" #include "homogenization_damage.f90" +#include "homogenization_damage_pass.f90" #include "CPFEM.f90" diff --git a/src/homogenization_damage.f90 b/src/homogenization_damage.f90 index 203c45670..94978ccc8 100644 --- a/src/homogenization_damage.f90 +++ b/src/homogenization_damage.f90 @@ -1,10 +1,17 @@ !-------------------------------------------------------------------------------------------------- !> @author Martin Diehl, KU Leuven !-------------------------------------------------------------------------------------------------- -submodule(homogenization) homogenization_damage +submodule(homogenization) damage use lattice + interface + + module subroutine pass_init + end subroutine pass_init + + end interface + type :: tDataContainer real(pReal), dimension(:), allocatable :: phi end type tDataContainer @@ -165,4 +172,4 @@ module subroutine damage_nonlocal_results(ho,group) end subroutine damage_nonlocal_results -end submodule homogenization_damage +end submodule damage diff --git a/src/homogenization_damage_pass.f90 b/src/homogenization_damage_pass.f90 new file mode 100644 index 000000000..bda2702f7 --- /dev/null +++ b/src/homogenization_damage_pass.f90 @@ -0,0 +1,14 @@ +!-------------------------------------------------------------------------------------------------- +!> @author Martin Diehl, KU Leuven +!> @brief Dummy homogenization scheme for 1 constituent per material point +!-------------------------------------------------------------------------------------------------- +submodule(homogenization:damage) pass + +contains + +module subroutine pass_init + + +end subroutine pass_init + +end submodule pass diff --git a/src/homogenization_thermal.f90 b/src/homogenization_thermal.f90 index a37b9ef67..00cb438d1 100644 --- a/src/homogenization_thermal.f90 +++ b/src/homogenization_thermal.f90 @@ -5,6 +5,16 @@ submodule(homogenization) thermal use lattice + interface + + module subroutine pass_init + end subroutine pass_init + + module subroutine isothermal_init + end subroutine isothermal_init + + end interface + type :: tDataContainer real(pReal), dimension(:), allocatable :: T, dot_T end type tDataContainer diff --git a/src/homogenization_thermal_isotemperature.f90 b/src/homogenization_thermal_isotemperature.f90 new file mode 100644 index 000000000..7358ecf08 --- /dev/null +++ b/src/homogenization_thermal_isotemperature.f90 @@ -0,0 +1,14 @@ +!-------------------------------------------------------------------------------------------------- +!> @author Martin Diehl, KU Leuven +!> @brief Dummy homogenization scheme for 1 constituent per material point +!-------------------------------------------------------------------------------------------------- +submodule(homogenization:thermal) isotemperature + +contains + +module subroutine isotemperature_init + + +end subroutine isotemperature_init + +end submodule isotemperature diff --git a/src/homogenization_thermal_pass.f90 b/src/homogenization_thermal_pass.f90 new file mode 100644 index 000000000..73150b988 --- /dev/null +++ b/src/homogenization_thermal_pass.f90 @@ -0,0 +1,14 @@ +!-------------------------------------------------------------------------------------------------- +!> @author Martin Diehl, KU Leuven +!> @brief Dummy homogenization scheme for 1 constituent per material point +!-------------------------------------------------------------------------------------------------- +submodule(homogenization:thermal) pass + +contains + +module subroutine pass_init + + +end subroutine pass_init + +end submodule pass