Fix some initilization statements.

ElmerCSC · Feb 6, 2018 · c01daa1 · c01daa1
1 parent 04dcad0
commit c01daa1
Showing 1 changed file with 6 additions and 6 deletions.
diff --git 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