223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/numerics.f90
View File

@ -177,13 +177,8 @@ subroutine numerics_init
#include <petsc/finclude/petscsys.h> #include <petsc/finclude/petscsys.h>
use petscsys use petscsys
#endif #endif
#if !defined(Marc4DAMASK) !$ use OMP_LIB, only: omp_set_num_threads
!$ use OMP_LIB, only: omp_set_num_threads ! Standard conforming module
implicit none 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(pInt), parameter :: FILEUNIT = 300_pInt
!$ integer :: gotDAMASK_NUM_THREADS = 1 !$ integer :: gotDAMASK_NUM_THREADS = 1
integer :: i, ierr ! no pInt integer :: i, ierr ! no pInt