underflow/denormal might appear for gfortran
This commit is contained in:
parent
3d7aceb99b
commit
ff2eec133f
|
@ -53,7 +53,7 @@ subroutine parallelization_init
|
||||||
call PetscInitializeNoArguments(petsc_err) ! first line in the code according to PETSc manual
|
call PetscInitializeNoArguments(petsc_err) ! first line in the code according to PETSc manual
|
||||||
CHKERRQ(petsc_err)
|
CHKERRQ(petsc_err)
|
||||||
|
|
||||||
#ifdef DEBUG
|
#if defined(DEBUG) && defined(__INTEL_COMPILER)
|
||||||
call PetscSetFPTrap(PETSC_FP_TRAP_ON,petsc_err)
|
call PetscSetFPTrap(PETSC_FP_TRAP_ON,petsc_err)
|
||||||
#else
|
#else
|
||||||
call PetscSetFPTrap(PETSC_FP_TRAP_OFF,petsc_err)
|
call PetscSetFPTrap(PETSC_FP_TRAP_OFF,petsc_err)
|
||||||
|
|
Loading…
Reference in New Issue