From cbcb7dca5d359f7fea1ad4f7cf5e0ee7d61b8f3d Mon Sep 17 00:00:00 2001
From: Martin Diehl <m.diehl@mpie.de>
Date: Wed, 26 Feb 2020 06:12:45 +0100
Subject: [PATCH] cleaning

---
 src/CPFEM.f90 | 50 +++++++++++++++++++++++++-------------------------
 1 file changed, 25 insertions(+), 25 deletions(-)

diff --git a/src/CPFEM.f90 b/src/CPFEM.f90
index 418c7f7bc..172b79122 100644
--- a/src/CPFEM.f90
+++ b/src/CPFEM.f90
@@ -72,32 +72,32 @@ contains
 !> @brief call (thread safe) all module initializations
 !--------------------------------------------------------------------------------------------------
 subroutine CPFEM_initAll(el,ip)
- integer(pInt), intent(in) ::                        el, &                                          !< FE el number
-                                                     ip                                             !< FE integration point number
+ 
+  integer(pInt), intent(in) :: el, &                                                                !< FE el number
+                               ip                                                                   !< FE integration point number
 
- !$OMP CRITICAL (init)
-   if (.not. CPFEM_init_done) then
-     call DAMASK_interface_init
-     call prec_init
-     call IO_init
-     call numerics_init
-     call debug_init
-     call config_init
-     call math_init
-     call rotations_init
-     call HDF5_utilities_init
-     call results_init
-     call mesh_init(ip, el)
-     call lattice_init
-     call material_init
-     call constitutive_init
-     call crystallite_init
-     call homogenization_init
-     call CPFEM_init
-     call CPFEM_initX
-     CPFEM_init_done = .true.
-   endif
- !$OMP END CRITICAL (init)
+  !$OMP CRITICAL(init)
+  if (.not. CPFEM_init_done) then
+    call DAMASK_interface_init
+    call prec_init
+    call IO_init
+    call numerics_init
+    call debug_init
+    call config_init
+    call math_init
+    call rotations_init
+    call HDF5_utilities_init
+    call results_init
+    call mesh_init(ip, el)
+    call lattice_init
+    call material_init
+    call constitutive_init
+    call crystallite_init
+    call homogenization_init
+    call CPFEM_init
+    CPFEM_init_done = .true.
+  endif
+  !$OMP END CRITICAL(init)
 
 end subroutine CPFEM_initAll