2021-04-06 15:25:30 +05:30
|
|
|
!--------------------------------------------------------------------------------------------------
|
|
|
|
|
!> @author Martin Diehl, KU Leuven
|
|
|
|
|
!> @brief Dummy homogenization scheme for 1 constituent per material point
|
|
|
|
|
!--------------------------------------------------------------------------------------------------
|
2021-04-06 15:35:47 +05:30
|
|
|
submodule(homogenization:damage) damage_pass
|
2021-04-06 15:25:30 +05:30
|
|
|
|
|
|
|
|
contains
|
|
|
|
|
|
|
|
|
|
module subroutine pass_init
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
end subroutine pass_init
|
|
|
|
|
|
2021-04-06 15:35:47 +05:30
|
|
|
end submodule damage_pass
|
