From 472684c30e4a204cd2e23b4cce326dfeeb40b1c7 Mon Sep 17 00:00:00 2001 From: Christoph Kords Date: Tue, 18 May 2010 08:13:23 +0000 Subject: [PATCH] make element type 8 (= hex8 reduced integration) available for nonlocal constitutive law --- code/constitutive_nonlocal.f90 | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/code/constitutive_nonlocal.f90 b/code/constitutive_nonlocal.f90 index 709e2c2a6..c18f1cc74 100644 --- a/code/constitutive_nonlocal.f90 +++ b/code/constitutive_nonlocal.f90 @@ -1287,7 +1287,10 @@ if (verboseDebugger .and. selectiveDebugger) then !$OMPEND CRITICAL (write2out) endif -if (.not. (mesh_element(2,el)==1_pInt .or. mesh_element(2,el)==6_pInt .or. mesh_element(2,el)==7_pInt)) & +if (.not. ( mesh_element(2,el) == 1_pInt & + .or. mesh_element(2,el) == 6_pInt & + .or. mesh_element(2,el) == 7_pInt & + .or. mesh_element(2,el) == 8_pInt )) & call IO_error(-1,el,ip,g,'element type not supported for nonlocal constitution') myInstance = phase_constitutionInstance(material_phase(g,ip,el))