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

nNodes form element is used already

This commit is contained in:
Martin Diehl 2019-02-02 13:10:21 +01:00
parent b514bf78a5
commit 933136ec1e
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/mesh_base.f90
View File

@ -1,3 +1,4 @@
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
!> @author Franz Roters, Max-Planck-Institut für Eisenforschung GmbH !> @author Franz Roters, Max-Planck-Institut für Eisenforschung GmbH
!> @author Philip Eisenlohr, Max-Planck-Institut für Eisenforschung GmbH !> @author Philip Eisenlohr, Max-Planck-Institut für Eisenforschung GmbH
@ -66,6 +67,7 @@ subroutine tMesh_base_init(self,meshType,elemType,nodes)
self%type = meshType self%type = meshType
call self%elem%init(elemType) call self%elem%init(elemType)
self%node0 = nodes self%node0 = nodes
self%nNodes = size(nodes,2)
end subroutine tMesh_base_init end subroutine tMesh_base_init