From 933136ec1e3486765f6373476e50ede8010380b5 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sat, 2 Feb 2019 13:10:21 +0100 Subject: [PATCH] nNodes form element is used already --- src/mesh_base.f90 | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/mesh_base.f90 b/src/mesh_base.f90 index c0f012256..5afdbc3ad 100644 --- a/src/mesh_base.f90 +++ b/src/mesh_base.f90 @@ -1,3 +1,4 @@ + !-------------------------------------------------------------------------------------------------- !> @author Franz Roters, 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 call self%elem%init(elemType) self%node0 = nodes + self%nNodes = size(nodes,2) end subroutine tMesh_base_init