From 029502c12e6e3c54d847657bc5c12faecbd1a9f2 Mon Sep 17 00:00:00 2001
From: Martin	Diehl <m.diehl@mpie.de>
Date: Mon, 14 Oct 2013 06:11:50 +0000
Subject: [PATCH] fixed typo causing compilation error

---
 code/homogenization.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/code/homogenization.f90 b/code/homogenization.f90
index 0acfe630d..95be41da4 100644
--- a/code/homogenization.f90
+++ b/code/homogenization.f90
@@ -732,7 +732,7 @@ function homogenization_updateState(ip,el)
                                         materialpoint_subdt(ip,el), &
                                         crystallite_dPdF(1:3,1:3,1:3,1:3,1:homogenization_maxNgrains,ip,el), &
                                         ip, &
-                                        e)l
+                                        el)
    case default chosenHomogenization
      homogenization_updateState = .true.
  end select chosenHomogenization