From 55c2b729a0e217aa533a2b1b6cd30345c7a3b601 Mon Sep 17 00:00:00 2001
From: Franz	Roters <f.roters@mpie.de>
Date: Fri, 5 Dec 2014 07:35:28 +0000
Subject: [PATCH] while node coordinates are always 3D displacements are passed
 into hypela2 as 2D array (dispt) for 2D simulations

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

diff --git a/code/DAMASK_marc.f90 b/code/DAMASK_marc.f90
index 575867c9c..61aac75be 100644
--- a/code/DAMASK_marc.f90
+++ b/code/DAMASK_marc.f90
@@ -330,7 +330,7 @@ subroutine hypela2(d,g,e,de,s,t,dt,ngens,m,nn,kcus,matus,ndi,nshear,disp, &
        endif
        do node = 1,FE_Nnodes(mesh_element(2,cp_en))
          CPnodeID = mesh_element(4_pInt+node,cp_en)
-         mesh_node(1:3,CPnodeID) = mesh_node0(1:3,CPnodeID) + numerics_unitlength * dispt(1:3,node)
+         mesh_node(1:ndeg,CPnodeID) = mesh_node0(1:ndeg,CPnodeID) + numerics_unitlength * dispt(1:ndeg,node)
        enddo
      endif