From caf66114859f3269564ce86c2bfe0df32cf8b561 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Wed, 15 Apr 2015 18:05:27 +0000 Subject: [PATCH] unused variable --- code/damage_isoBrittle.f90 | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/code/damage_isoBrittle.f90 b/code/damage_isoBrittle.f90 index 0e5d58d88..3a62aa396 100644 --- a/code/damage_isoBrittle.f90 +++ b/code/damage_isoBrittle.f90 @@ -397,8 +397,7 @@ function damage_isoBrittle_getDamageDiffusion33(ipc, ip, el) use lattice, only: & lattice_DamageDiffusion33 use material, only: & - mappingConstitutive, & - damageState + mappingConstitutive implicit none integer(pInt), intent(in) :: &