From ae57ba9707c774ad133a22ef35ec702073dd4486 Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Sun, 28 Feb 2021 20:10:12 +0100
Subject: [PATCH] got random errors 'O not found'

might be related to use of pointers in openMP. Not nice, but openMP
during initialization is not really required
---
 src/phase_mechanical.f90 | 2 --
 1 file changed, 2 deletions(-)

diff --git a/src/phase_mechanical.f90 b/src/phase_mechanical.f90
index be14c57e6..c934fed72 100644
--- a/src/phase_mechanical.f90
+++ b/src/phase_mechanical.f90
@@ -279,7 +279,6 @@ module subroutine mechanical_init(materials,phases)
   endif
 
   
-  !$OMP PARALLEL DO PRIVATE(ph,me,material,constituents,constituent) 
   do el = 1, size(material_phaseMemberAt,3); do ip = 1, size(material_phaseMemberAt,2)
     do co = 1, homogenization_Nconstituents(material_homogenizationAt(el))
       material     => materials%get(discretization_materialAt(el))
@@ -305,7 +304,6 @@ module subroutine mechanical_init(materials,phases)
 
     enddo
   enddo; enddo
-  !$OMP END PARALLEL DO
 
 
 ! initialize plasticity