abaqus seems to have similar problems with the openmp lib as marc (use module vs. include file), i hope this fixes the crashes

This commit is contained in:
Martin Diehl 2012-08-28 19:48:38 +00:00
parent 5e9e8497e6
commit d089c12947
1 changed files with 2 additions and 2 deletions

View File

@ -112,11 +112,11 @@ subroutine numerics_init
IO_floatValue, &
IO_intValue, &
IO_warning
#ifndef Marc ! Use the standard conforming module file for omp if not using Marc
#ifdef Spectral ! Use the standard conforming module file for omp if using the spectral solver
!$ use OMP_LIB, only: omp_set_num_threads
#endif
implicit none
#ifdef Marc ! use the non F90 standard include file because some versions of Marc crash when using the module
#ifndef Spectral ! use the non F90 standard include file because some versions of Marc and Abaqus crash when using the module
!$ include "omp_lib.h"
#endif
integer(pInt), parameter :: fileunit = 300_pInt ,&