From c1b8854132ae3f3f75db066110ef789a656e0804 Mon Sep 17 00:00:00 2001
From: Martin Diehl <m.diehl@mpie.de>
Date: Sun, 23 Sep 2018 15:31:19 +0200
Subject: [PATCH] only needed for commercial solvers

---
 src/mesh.f90 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/mesh.f90 b/src/mesh.f90
index 727937055..c0c3e7c6f 100644
--- a/src/mesh.f90
+++ b/src/mesh.f90
@@ -13,7 +13,6 @@ module mesh
  private
  integer(pInt), public, protected :: &
    mesh_NcpElems, &                                                                                 !< total number of CP elements in local mesh
-   mesh_NelemSets, &
    mesh_ElemType, &                                                                                 !< Element type of the mesh (only support homogeneous meshes)
    mesh_maxNelemInSet, &
    mesh_Nmaterials, &
@@ -348,6 +347,8 @@ integer(pInt), dimension(:,:), allocatable, private :: &
 #endif
 
 #if defined(Marc4DAMASK) || defined(Abaqus)
+ integer(pInt), private :: &
+   mesh_NelemSets
  character(len=64), dimension(:), allocatable, private :: &
    mesh_nameElemSet, &                                                                              !< names of elementSet
    mesh_nameMaterial, &                                                                             !< names of material in solid section