while node coordinates are always 3D displacements are passed into hypela2 as 2D array (dispt) for 2D simulations

This commit is contained in:
Franz Roters 2014-12-05 07:35:28 +00:00
parent 0b03485589
commit 55c2b729a0
1 changed files with 1 additions and 1 deletions

View File

@ -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