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

corrected definition of element base node, which was still flawed

This commit is contained in:
Christoph Kords 2012-01-19 14:15:26 +00:00
parent 4eb754b1fb
commit 1032ff3d47
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
code/mesh.f90
View File

@ -2645,7 +2645,7 @@ subroutine mesh_marc_count_cpSizes (myUnit)
mesh_element( 2,e) = FE_mapElemtype('C3D8R') ! elem type
mesh_element( 3,e) = homog ! homogenization
mesh_element( 4,e) = microstructures(1_pInt+i) ! microstructure
mesh_element( 5,e) = e + (e-1)/a + (e-1)/a/b*(a+1) ! base node
mesh_element( 5,e) = e + (e-1)/(a-1) + ((e-1)/((a-1)*(b-1)))*a ! base node
mesh_element( 6,e) = mesh_element(5,e) + 1
mesh_element( 7,e) = mesh_element(5,e) + a + 1
mesh_element( 8,e) = mesh_element(5,e) + a