16 lines
520 B
Fortran
16 lines
520 B
Fortran
!--------------------------------------------------------------------------------------------------
|
|
!> @author Martin Diehl, KU Leuven
|
|
!> @brief Isotemperature homogenization
|
|
!--------------------------------------------------------------------------------------------------
|
|
submodule(homogenization:thermal) isotemperature
|
|
|
|
contains
|
|
|
|
module subroutine isotemperature_init()
|
|
|
|
print'(/,1x,a)', '<<<+- homogenization:thermal:isotemperature init -+>>>'
|
|
|
|
end subroutine isotemperature_init
|
|
|
|
end submodule isotemperature
|