From ac35759c2fab4710d1831e72c49f7d27df773bac Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Tue, 10 Dec 2019 17:25:51 +0100 Subject: [PATCH] not a module subroutine --- src/damage_local.f90 | 2 +- src/damage_nonlocal.f90 | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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