!-------------------------------------------------------------------------------------------------- !> @author Martin Diehl, KU Leuven !> @brief Dummy homogenization scheme for 1 constituent per material point !-------------------------------------------------------------------------------------------------- submodule(homogenization:damage) damage_pass contains module subroutine pass_init() print'(/,1x,a)', '<<<+- homogenization:damage:pass init -+>>>' end subroutine pass_init end submodule damage_pass