From b0b1ea3b842dc7736ea2f9aa54699f61fd049d98 Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Sun, 3 Feb 2019 14:23:32 +0100
Subject: [PATCH] input argument not needed any more

---
 src/mesh_marc.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/mesh_marc.f90 b/src/mesh_marc.f90
index 4e4adbc36..8c53c5a2d 100644
--- a/src/mesh_marc.f90
+++ b/src/mesh_marc.f90
@@ -757,7 +757,7 @@ subroutine mesh_marc_map_elementSets(nameElemSet,mapElemSet,fileUnit)
                  IO_continuousIntValues
 
  implicit none
- integer(pInt), intent(in) :: fileUnit,NelemSets
+ integer(pInt), intent(in) :: fileUnit
  character(len=64), dimension(:), intent(out) :: &
    nameElemSet
  integer(pInt), dimension(:,:), intent(out) :: &