This commit is contained in:
Martin Diehl 2019-06-15 20:42:16 +02:00
parent 2c4f1eb173
commit e30478127d
2 changed files with 40 additions and 40 deletions

View File

@ -497,7 +497,7 @@ subroutine mesh_marc_map_elements(tableStyle,nameElemSet,mapElemSet,nElems,fileF
mesh_mapFEtoCPelem(2,cpElem) = cpElem
enddo
call math_sort(mesh_mapFEtoCPelem,1,size(mesh_mapFEtoCPelem,2))
call math_sort(mesh_mapFEtoCPelem)
end subroutine mesh_marc_map_elements
@ -532,7 +532,7 @@ subroutine mesh_marc_map_nodes(nNodes,fileUnit)
endif
enddo
620 call math_sort(mesh_mapFEtoCPnode,1,size(mesh_mapFEtoCPnode,2))
620 call math_sort(mesh_mapFEtoCPnode)
end subroutine mesh_marc_map_nodes