underflow/denormal might appear for gfortran

This commit is contained in:
Martin Diehl 2020-11-11 21:30:11 +01:00
parent 3d7aceb99b
commit ff2eec133f
1 changed files with 1 additions and 1 deletions

View File

@ -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)