intent(in/out) is self-explanatory

2017-02-08 19:44:19 +01:00 · 2017-02-08 19:44:19 +01:00 · 89be6d0b08
parent 27063043b9
commit 89be6d0b08
1 changed files with 0 additions and 5 deletions
--- 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, &