Marc now works also with the module
reason, why it did NOT work earlier still not clear
This commit is contained in:
parent
b9f93d5460
commit
91992debf2
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue