From c01daa1ba87738e2d4c6465c4366ce019f73da18 Mon Sep 17 00:00:00 2001
From: Juha Ruokolainen <jpr@ruokolainen-linux.x.csc.fi>
Date: Tue, 6 Feb 2018 10:16:06 +0200
Subject: [PATCH] Fix some initilization statements.

---
 fem/src/MeshUtils.F90 | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/fem/src/MeshUtils.F90 b/fem/src/MeshUtils.F90
index f7dfa3fdac..85d8efa1b9 100644
--- a/fem/src/MeshUtils.F90
+++ b/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
@@ -15487,10 +15487,10 @@ SUBROUTINE AssignLocalNumber( EdgeElement, Element, Mesh,NoPE )
 
     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