From 89be6d0b08295467557431c435e5a4df8e3035f4 Mon Sep 17 00:00:00 2001
From: Martin Diehl <m.diehl@mpie.de>
Date: Wed, 8 Feb 2017 19:44:19 +0100
Subject: [PATCH] intent(in/out) is self-explanatory

---
 src/mesh.f90 | 5 -----
 1 file changed, 5 deletions(-)

diff --git a/src/mesh.f90 b/src/mesh.f90
index 7da3d4968..f60fde905 100644
--- a/src/mesh.f90
+++ b/src/mesh.f90
@@ -3353,15 +3353,10 @@ end function FE_mapElemtype
 subroutine mesh_faceMatch(elem, face ,matchingElem, matchingFace)
 
 implicit none
-!*** output variables
 integer(pInt), intent(out) ::     matchingElem, &                                                   ! matching CP element ID
                                   matchingFace                                                      ! matching face ID 
-
-!*** input variables
 integer(pInt), intent(in) ::      face, &                                                           ! face ID
                                   elem                                                              ! CP elem ID
-
-!*** local variables
 integer(pInt), dimension(FE_NmatchingNodesPerFace(face,FE_geomtype(mesh_element(2,elem)))) :: &
                                   myFaceNodes                                                       ! global node ids on my face
 integer(pInt)        ::           myType, &