From a5bd0958a1f821c1382b90112dc99f10302802e2 Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Sat, 30 May 2020 21:39:35 +0200
Subject: [PATCH] polishing

---
 src/constitutive_plastic_nonlocal.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/constitutive_plastic_nonlocal.f90 b/src/constitutive_plastic_nonlocal.f90
index 65fea24b2..7f21d0194 100644
--- a/src/constitutive_plastic_nonlocal.f90
+++ b/src/constitutive_plastic_nonlocal.f90
@@ -56,7 +56,7 @@ submodule(constitutive) plastic_nonlocal
       rhoSglScrewNeg0, &                                                                            !< initial screw_neg dislocation density
       rhoDipEdge0, &                                                                                !< initial edge dipole dislocation density
       rhoDipScrew0                                                                                  !< initial screw dipole dislocation density
-    integer,     dimension(:) ,allocatable :: &
+    integer,     dimension(:), allocatable :: &
       N_sl
   end type tInitialParameters