!-------------------------------------------------------------------------------------------------- !> @author Martin Diehl, KU Leuven !> @brief Isotemperature homogenization !-------------------------------------------------------------------------------------------------- submodule(homogenization:thermal) isotemperature contains module subroutine isotemperature_init() print'(/,1x,a)', '<<<+- homogenization:thermal:isotemperature init -+>>>' end subroutine isotemperature_init end submodule isotemperature