@@ -66,10 +66,10 @@ subroutine test_normal
66
66
cdf_diff(i) = normal_cdf(mx(i), mmean(i), msd(i)) - mcdf(i)
67
67
end do
68
68
max_matlab_diff = maxval (abs (cdf_diff))
69
- if (max_matlab_diff > 1.0e-15_r8 ) then
70
- write (* , * ) ' WARNING: Difference from Matlab baseline is too large ' , max_matlab_diff
69
+ if (max_matlab_diff < 1.0e-15_r8 ) then
70
+ write (* , * ) ' Matlab Comparison Tests: PASS ' , max_matlab_diff
71
71
else
72
- write (* , * ) ' Agreement with Matlab baseline is okay: max diff is < 1e-15 ' , max_matlab_diff
72
+ write (* , * ) ' Matlab Comparison Tests: FAIL ' , max_matlab_diff
73
73
endif
74
74
75
75
! Keep track of differences as function of quantile
@@ -92,10 +92,10 @@ subroutine test_normal
92
92
93
93
do j = 1 , 16
94
94
if (max_diff(j) > inv_diff_bound(j)) then
95
- write (* , * ) ' WARNING : Max inversion diff ' , max_diff(j), ' > bound ' , inv_diff_bound(j), &
95
+ write (* , * ) ' FAIL : Max inversion diff ' , max_diff(j), ' > bound ' , inv_diff_bound(j), &
96
96
' for quantiles < ' , max_q(j)
97
97
else
98
- write (* , * ) ' Max inversion diff ' , max_diff(j), ' OK, bound ' , inv_diff_bound(j), &
98
+ write (* , * ) ' PASS: Max inversion diff ' , max_diff(j), ' < bound ' , inv_diff_bound(j), &
99
99
' for quantiles < ' , max_q(j)
100
100
endif
101
101
end do
0 commit comments