only needed for commercial solvers

This commit is contained in:
Martin Diehl 2018-09-23 15:31:19 +02:00
parent 4862aca340
commit c1b8854132
1 changed files with 2 additions and 1 deletions

View File

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