polishing

This commit is contained in:
Martin Diehl 2019-10-14 15:09:16 +02:00
parent 1726d95a56
commit 9ee709d214
1 changed files with 6 additions and 2 deletions

View File

@ -176,8 +176,12 @@ subroutine mesh_init(ip,el)
end subroutine mesh_init
subroutine writeGeometry(elemType,connectivity_elem,connectivity_cell,coordinates_nodes,coordinates_points)
!--------------------------------------------------------------------------------------------------
!> @brief Writes all information needed for the DADF5 geometry
!--------------------------------------------------------------------------------------------------
subroutine writeGeometry(elemType, &
connectivity_elem,connectivity_cell, &
coordinates_nodes,coordinates_points)
integer, intent(in) :: elemType
integer, dimension(:,:), intent(in) :: &