preparing split

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"

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

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

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

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

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