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

changed numerics.f90 back to the old openmp statement as this doesn't seem to cause the problem and is standard conforming 

corrected typo in constitutive_j2.f90 that might cause abaqus to crash
now running 20 tests of abaqus in order to have a decent statistic about the crash behavior
improved abaqus_v6.env
This commit is contained in:
Martin Diehl 2012-08-29 16:16:10 +00:00
parent 84e3f94424
commit 8e3b547cbd
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
code/constitutive_j2.f90
View File

@ -282,7 +282,7 @@ subroutine constitutive_j2_init(myFile)
end select end select
if (mySize > 0_pInt) then ! any meaningful output found if (mySize > 0_pInt) then ! any meaningful output found
constitutive_j2_sizePostResult(j,i) = mySize constitutive_j2_sizePostResult(o,i) = mySize
constitutive_j2_sizePostResults(i) = & constitutive_j2_sizePostResults(i) = &
constitutive_j2_sizePostResults(i) + mySize constitutive_j2_sizePostResults(i) + mySize
endif endif

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
#ifdef Spectral ! Use the standard conforming module file for omp if using the spectral solver #ifndef Marc ! 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
#ifndef Spectral ! use the non F90 standard include file because some versions of Marc and Abaqus crash when using the module #ifdef Marc ! 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 ,&