From d47dff9dd87c70b721c7efab5c404c80982aa615 Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Sun, 29 Sep 2019 14:18:21 -0700
Subject: [PATCH] typo

---
 src/discretization.f90 | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/src/discretization.f90 b/src/discretization.f90
index 3438c6d20..e95747b8d 100644
--- a/src/discretization.f90
+++ b/src/discretization.f90
@@ -28,7 +28,7 @@ module discretization
     discretization_NodeCoords
     
   integer :: &
-    discretization_sharedNodesBegin
+    discretization_sharedNodesBeginn
 
   public :: &
     discretization_init, &
@@ -43,7 +43,7 @@ contains
 !--------------------------------------------------------------------------------------------------
 subroutine discretization_init(homogenizationAt,microstructureAt,&
                                IPcoords0,NodeCoords0,&
-                               sharedNodesBegin)
+                               sharedNodesBeginn)
 
   integer,     dimension(:),   intent(in) :: &
     homogenizationAt, &
@@ -52,7 +52,7 @@ subroutine discretization_init(homogenizationAt,microstructureAt,&
     IPcoords0, &
     NodeCoords0
   integer, optional, intent(in) :: &
-    sharedNodesBegin
+    sharedNodesBeginn
 
   write(6,'(/,a)')   ' <<<+-  discretization init  -+>>>'
 
@@ -69,9 +69,9 @@ subroutine discretization_init(homogenizationAt,microstructureAt,&
   discretization_NodeCoords  = NodeCoords0
   
   if(present(sharedNodesBegin)) then
-    discretization_sharedNodesBegin = sharedNodesBegin
+    discretization_sharedNodesBeginn = sharedNodesBeginn
   else
-    discretization_sharedNodesBegin = size(discretization_NodeCoords0,2)
+    discretization_sharedNodesBeginn = size(discretization_NodeCoords0,2)
   endif
   
 end subroutine discretization_init
@@ -86,8 +86,8 @@ subroutine discretization_results
   
   call HDF5_closeGroup(results_addGroup(trim('current/geometry')))
   
-  u = discretization_NodeCoords (1:3,:discretization_sharedNodesBegin) &
-    - discretization_NodeCoords0(1:3,:discretization_sharedNodesBegin)
+  u = discretization_NodeCoords (1:3,:discretization_sharedNodesBeginn) &
+    - discretization_NodeCoords0(1:3,:discretization_sharedNodesBeginn)
   call results_writeDataset('current/geometry',u,'u_n','nodal displacements','m')
   
   u = discretization_IPcoords &