223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

intent(in/out) is self-explanatory

This commit is contained in:
Martin Diehl 2017-02-08 19:44:19 +01:00
parent 27063043b9
commit 89be6d0b08
1 changed files with 0 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/mesh.f90
View File

@ -3353,15 +3353,10 @@ end function FE_mapElemtype
subroutine mesh_faceMatch(elem, face ,matchingElem, matchingFace) subroutine mesh_faceMatch(elem, face ,matchingElem, matchingFace)
implicit none implicit none
!*** output variables
integer(pInt), intent(out) :: matchingElem, & ! matching CP element ID integer(pInt), intent(out) :: matchingElem, & ! matching CP element ID
matchingFace ! matching face ID matchingFace ! matching face ID
!*** input variables
integer(pInt), intent(in) :: face, & ! face ID integer(pInt), intent(in) :: face, & ! face ID
elem ! CP elem ID elem ! CP elem ID
!*** local variables
integer(pInt), dimension(FE_NmatchingNodesPerFace(face,FE_geomtype(mesh_element(2,elem)))) :: & integer(pInt), dimension(FE_NmatchingNodesPerFace(face,FE_geomtype(mesh_element(2,elem)))) :: &
myFaceNodes ! global node ids on my face myFaceNodes ! global node ids on my face
integer(pInt) :: myType, & integer(pInt) :: myType, &