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

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

4
code/numerics.f90
View File

@ -112,11 +112,11 @@ subroutine numerics_init
IO_floatValue, & IO_floatValue, &
IO_intValue, & IO_intValue, &
IO_warning 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 !$ use OMP_LIB, only: omp_set_num_threads
#endif #endif
implicit none 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" !$ include "omp_lib.h"
#endif #endif
integer(pInt), parameter :: fileunit = 300_pInt ,& integer(pInt), parameter :: fileunit = 300_pInt ,&