Skip to content

Commit

Permalink
fix: any task with a failure to converge prints a message
Browse files Browse the repository at this point in the history
Only occurances on task 0 were printing
#787 (comment)
  • Loading branch information
hkershaw-brown committed Dec 26, 2024
1 parent b9e67b4 commit 86c7266
Showing 1 changed file with 2 additions and 2 deletions.
Original file line number Diff line number Diff line change
Expand Up @@ -6,7 +6,7 @@ module normal_distribution_mod

use types_mod, only : r8, missing_r8, digits12, PI

use utilities_mod, only : E_ERR, E_MSG, error_handler
use utilities_mod, only : E_ERR, E_ALLMSG, error_handler

use distribution_params_mod, only : distribution_params_type, NORMAL_DISTRIBUTION

Expand Down Expand Up @@ -445,7 +445,7 @@ function first_guess(quantile, p)
! Not currently happening for any of the test cases on gfortran
x = x_new
write(errstring, *) 'Failed to converge for quantile ', quantile
call error_handler(E_MSG, 'inv_cdf', errstring, source)
call error_handler(E_ALLMSG, 'inv_cdf', errstring, source)
!!!call error_handler(E_ERR, 'inv_cdf', errstring, source)

end function inv_cdf
Expand Down

0 comments on commit 86c7266

Please sign in to comment.