From fa323f3f0b02f4306518a942385694dda693b55c Mon Sep 17 00:00:00 2001 From: Franz Roters Date: Thu, 24 Mar 2011 07:38:56 +0000 Subject: [PATCH] removed division by zero from debug_reset(), uses huge() now --- code/debug.f90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/code/debug.f90 b/code/debug.f90 index 4c869ece3..22e177396 100644 --- a/code/debug.f90 +++ b/code/debug.f90 @@ -177,10 +177,10 @@ subroutine debug_reset() debug_stressMinLocation = 0_pInt debug_jacobianMaxLocation = 0_pInt debug_jacobianMinLocation = 0_pInt - debug_stressMax = - 1.0_pReal / 0.0_pReal - debug_stressMin = + 1.0_pReal / 0.0_pReal - debug_jacobianMax = - 1.0_pReal / 0.0_pReal - debug_jacobianMin = + 1.0_pReal / 0.0_pReal + debug_stressMax = -huge(1.0_pReal) + debug_stressMin = huge(1.0_pReal) + debug_jacobianMax = -huge(1.0_pReal) + debug_jacobianMin = huge(1.0_pReal) endsubroutine