From f8b29bdaf0c2892de4103dad2fb821058e7f1b6f Mon Sep 17 00:00:00 2001
From: Tias	Maiti <maititia@egr.msu.edu>
Date: Wed, 26 Nov 2014 18:40:31 +0000
Subject: [PATCH] =?UTF-8?q?fixed=20bug=20in=20type=20definition=20for=20?=
 =?UTF-8?q?=E2=80=98drivingForce=E2=80=99?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 code/damage_anisoBrittle.f90 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/code/damage_anisoBrittle.f90 b/code/damage_anisoBrittle.f90
index 59fbc24d9..6c2b2e74a 100644
--- a/code/damage_anisoBrittle.f90
+++ b/code/damage_anisoBrittle.f90
@@ -433,7 +433,8 @@ subroutine damage_anisoBrittle_microstructure(ipc, ip, el)
    instance, &
    f, i, index_d, index_o, index_myFamily
  real(pReal) :: &
-   localDamage
+   localDamage, &
+   drivingForce
 
  phase = mappingConstitutive(2,ipc,ip,el)
  constituent = mappingConstitutive(1,ipc,ip,el)