From 9ee709d2147c6ce4a4981f9fcc0a3185fdd05a4e Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Mon, 14 Oct 2019 15:09:16 +0200 Subject: [PATCH] polishing --- src/mesh_marc.f90 | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/src/mesh_marc.f90 b/src/mesh_marc.f90 index 8109806ba..482cde16c 100644 --- a/src/mesh_marc.f90 +++ b/src/mesh_marc.f90 @@ -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) :: &