diff --git a/src/damage_local.f90 b/src/damage_local.f90 index 5ce27c339..a57bb5c65 100644 --- a/src/damage_local.f90 +++ b/src/damage_local.f90 @@ -215,7 +215,7 @@ end subroutine damage_local_getSourceAndItsTangent !-------------------------------------------------------------------------------------------------- !> @brief writes results to HDF5 output file !-------------------------------------------------------------------------------------------------- -module subroutine damage_local_results(homog,group) +subroutine damage_local_results(homog,group) integer, intent(in) :: homog character(len=*), intent(in) :: group diff --git a/src/damage_nonlocal.f90 b/src/damage_nonlocal.f90 index d7e1aa074..a5e211783 100644 --- a/src/damage_nonlocal.f90 +++ b/src/damage_nonlocal.f90 @@ -252,7 +252,7 @@ end subroutine damage_nonlocal_putNonLocalDamage !-------------------------------------------------------------------------------------------------- !> @brief writes results to HDF5 output file !-------------------------------------------------------------------------------------------------- -module subroutine damage_nonlocal_results(homog,group) +subroutine damage_nonlocal_results(homog,group) integer, intent(in) :: homog character(len=*), intent(in) :: group