Skip to content
Permalink
Browse files

Fix some initilization statements.

  • Loading branch information...
Juha Ruokolainen
Juha Ruokolainen committed Feb 6, 2018
1 parent 04dcad0 commit c01daa1ba87738e2d4c6465c4366ce019f73da18
Showing with 6 additions and 6 deletions.
  1. +6 −6 fem/src/MeshUtils.F90
@@ -2852,13 +2852,13 @@ SUBROUTINE SetMeshEdgeFaceDOFs(Mesh,EdgeDOFs,FaceDOFs,inDOFs,NeedEdges)
!------------------------------------------------------------------------------
INTEGER :: i,j,el_id
TYPE(Element_t), POINTER :: Element, Edge, Face
LOGICAL :: AssignEdges=.FALSE.
LOGICAL :: AssignEdges
!------------------------------------------------------------------------------

CALL FindMeshEdges(Mesh)

IF (PRESENT(NeedEdges)) &
AssignEdges = NeedEdges
AssignEdges = .FALSE.
IF (PRESENT(NeedEdges)) AssignEdges = NeedEdges

! Set edge and face polynomial degree and degrees of freedom for
! all elements

INTEGER i,j,n,edgeNumber, numEdges, bMap(4)
TYPE(Element_t), POINTER :: Edge
LOGICAL :: EvalPE=.TRUE.
LOGICAL :: EvalPE

IF(PRESENT(NoPE)) &
EvalPE = .NOT.NoPE
EvalPE = .TRUE.
IF(PRESENT(NoPE)) EvalPE = .NOT.NoPE

! Get number of points, edges or faces
numEdges = 0

0 comments on commit c01daa1

Please sign in to comment.
You can’t perform that action at this time.