DAMASK_EICMD/src/homogenization_damage_pass.f90

16 lines
519 B
Fortran
Raw Normal View History

2021-04-06 15:25:30 +05:30
!--------------------------------------------------------------------------------------------------
!> @author Martin Diehl, KU Leuven
!> @brief Dummy homogenization scheme for 1 constituent per material point
!--------------------------------------------------------------------------------------------------
submodule(homogenization:damage) damage_pass
2021-04-06 15:25:30 +05:30
contains
2021-04-11 19:02:17 +05:30
module subroutine pass_init()
print'(/,1x,a)', '<<<+- homogenization:damage:pass init -+>>>'
2021-04-06 15:25:30 +05:30
end subroutine pass_init
end submodule damage_pass