15 lines
475 B
Fortran
15 lines
475 B
Fortran
|
!--------------------------------------------------------------------------------------------------
|
||
|
|
!> @author Martin Diehl, KU Leuven
|
||
|
|
!> @brief Dummy homogenization scheme for 1 constituent per material point
|
||
|
|
!--------------------------------------------------------------------------------------------------
|
||
|
|
submodule(homogenization:thermal) isotemperature
|
||
|
|
|
||
|
|
contains
|
||
|
|
|
||
|
|
module subroutine isotemperature_init
|
||
|
|
|
||
|
|
|
||
|
|
end subroutine isotemperature_init
|
||
|
|
|
||
|
|
end submodule isotemperature
|