DAMASK_EICMD/src/homogenization_damage_pass.f90

27 lines
739 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()
2022-02-23 10:03:30 +05:30
2022-02-24 16:39:47 +05:30
integer :: &
ho
print'(/,1x,a)', '<<<+- homogenization:damage:pass init -+>>>'
2021-04-06 15:25:30 +05:30
2022-02-24 16:39:47 +05:30
do ho = 1, size(damage_active)
if (.not. damage_active(ho)) cycle
if (homogenization_Nconstituents(ho) /= 1) &
call IO_error(211,ext_msg='(pass) with N_constituents !=1')
2022-02-24 16:39:47 +05:30
end do
2022-02-23 10:03:30 +05:30
2021-04-06 15:25:30 +05:30
end subroutine pass_init
end submodule damage_pass