Marc now works also with the module

reason, why it did NOT work earlier still not clear
This commit is contained in:
Martin Diehl 2019-02-03 13:30:04 +01:00
parent b9f93d5460
commit 91992debf2
1 changed files with 1 additions and 6 deletions

View File

@ -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