223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

make element type 8 (= hex8 reduced integration) available for nonlocal constitutive law

This commit is contained in:
Christoph Kords 2010-05-18 08:13:23 +00:00
parent 19b6fae88b
commit 472684c30e
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
code/constitutive_nonlocal.f90
View File

@ -1287,7 +1287,10 @@ if (verboseDebugger .and. selectiveDebugger) then
!$OMPEND CRITICAL (write2out) !$OMPEND CRITICAL (write2out)
endif 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') call IO_error(-1,el,ip,g,'element type not supported for nonlocal constitution')
myInstance = phase_constitutionInstance(material_phase(g,ip,el)) myInstance = phase_constitutionInstance(material_phase(g,ip,el))