input argument not needed any more

This commit is contained in:
Martin Diehl 2019-02-03 14:23:32 +01:00
parent ec23fca057
commit b0b1ea3b84
1 changed files with 1 additions and 1 deletions

View File

@ -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) :: &