From 91992debf292233c1a36080ca76e8aba7b216ee1 Mon Sep 17 00:00:00 2001
From: Martin Diehl <m.diehl@mpie.de>
Date: Sun, 3 Feb 2019 13:30:04 +0100
Subject: [PATCH] Marc now works also with the module

reason, why it did NOT work earlier still not clear
---
 src/numerics.f90 | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

diff --git a/src/numerics.f90 b/src/numerics.f90
index 9e585dda7..1678d0c48 100644
--- a/src/numerics.f90
+++ b/src/numerics.f90
@@ -177,13 +177,8 @@ subroutine numerics_init
 #include <petsc/finclude/petscsys.h>
    use petscsys
 #endif
-#if !defined(Marc4DAMASK)
-!$ use OMP_LIB, only: omp_set_num_threads                                                           ! Standard conforming module
+!$ use OMP_LIB, only: omp_set_num_threads
  implicit none
-#else  
- implicit none
-!$ include "omp_lib.h"                                                                              ! MSC.Marc includes this file on !its own, avoid conflict with the OMP_LIB module
-#endif
  integer(pInt), parameter ::                 FILEUNIT = 300_pInt
 !$ integer ::                                gotDAMASK_NUM_THREADS = 1
  integer :: i, ierr                                                                                 ! no pInt