From 4d673866b8fe53fcad96d251345e7cff94daac30 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Mon, 20 Jan 2020 23:31:51 +0100 Subject: [PATCH] bugfix: copy and paste error --- src/mesh_FEM.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/mesh_FEM.f90 b/src/mesh_FEM.f90 index 10d49251b..9c46715d8 100644 --- a/src/mesh_FEM.f90 +++ b/src/mesh_FEM.f90 @@ -179,7 +179,7 @@ subroutine mesh_init call IO_error(602,ext_msg='IP') ! selected element does not have requested IP FEsolving_execElem = [ 1,mesh_NcpElems ] ! parallel loop bounds set to comprise all DAMASK elements - FEsolving_execIP = spread([1,FE_Nips(FE_geomtype(mesh_element(2,1))),2,nElems) + FEsolving_execIP = spread([1,FE_Nips(FE_geomtype(mesh_element(2,1)))],2,mesh_NcpElems) allocate(mesh_node0(3,mesh_Nnodes),source=0.0_pReal)