fix tol check

Author: jacobwilliams

test/test_chkder.f90

@@ -94,8 +94,8 @@ program test_chkder
             write (nwrite, '(//5x, a//(5x, 5d15.7))') ' ERROR VECTOR', (err(i), i=1, n)
 
             ! compare with previously generated solutions:
-                if (any(abs(solution(nprob) - diff)>tol) .and. &
-                    any(abs((solution(nprob) - diff)/(solution(nprob))) > solution_reltol)) then
+            if (any(abs(solution(nprob) - diff)>tol .and. &
+                    abs((solution(nprob) - diff)/(solution(nprob))) > solution_reltol)) then
                 write(nwrite,'(A)') 'Failed case'
                 write(nwrite, '(//5x, a//(5x, 5d15.7))') 'Expected diff: ', solution(nprob)
                 write(nwrite, '(/5x, a//(5x, 5d15.7))') 'Computed diff: ', diff

test/test_hybrd.f90

@@ -83,8 +83,8 @@ program test
                 factor = ten*factor
 
                 ! compare with previously generated solutions:
-                if (any(abs(solution(ic) - x)>tol) .and. &
-                    any(abs((solution(ic) - x)/(solution(ic))) > solution_reltol)) then
+                if (any(abs( solution(ic) - x)>tol .and. &
+                        abs((solution(ic) - x)/(solution(ic))) > solution_reltol)) then
                     write(nwrite,'(A)') 'Failed case'
                     write(nwrite, '(//5x, a//(5x, 5d15.7))') 'Expected x: ', solution(ic)
                     write(nwrite, '(/5x, a//(5x, 5d15.7))')  'Computed x: ', x

test/test_hybrj.f90

@@ -87,8 +87,8 @@ program test_hybrj
                 factor = ten*factor
 
                 ! compare with previously generated solutions:
-                if (any(abs(solution(ic) - x)>tol) .and. &
-                    any(abs((solution(ic) - x)/(solution(ic))) > solution_reltol)) then
+                if (any(abs( solution(ic) - x)>tol .and. &
+                        abs((solution(ic) - x)/(solution(ic))) > solution_reltol)) then
                     write(nwrite,'(A)') 'Failed case'
                     write(nwrite, '(//5x, a//(5x, 5d15.7))') 'Expected x: ', solution(ic)
                     write(nwrite, '(/5x, a//(5x, 5d15.7))')  'Computed x: ', x

test/test_lmder.f90

@@ -93,8 +93,8 @@ program test
                 factor = ten*factor
 
                 ! compare with previously generated solutions:
-                if (any(abs(solution(ic) - x)>tol) .and. &
-                    any(abs((solution(ic) - x)/(solution(ic))) > solution_reltol)) then
+                if (any(abs( solution(ic) - x)>tol .and. &
+                        abs((solution(ic) - x)/(solution(ic))) > solution_reltol)) then
                     write(nwrite,'(A)') 'Failed case'
                     write(nwrite, '(//5x, a//(5x, 5d15.7))') 'Expected x: ', solution(ic)
                     write(nwrite, '(/5x, a//(5x, 5d15.7))')  'Computed x: ', x

test/test_lmdif.f90

@@ -86,8 +86,8 @@ program test
                 factor = ten*factor
 
                 ! compare with previously generated solutions:
-                if (any(abs(solution(ic) - x)>tol) .and. &
-                    any(abs((solution(ic) - x)/(solution(ic))) > solution_reltol)) then
+                if (any(abs( solution(ic) - x)>tol .and. &
+                        abs((solution(ic) - x)/(solution(ic))) > solution_reltol)) then
                     write(nwrite,'(A)') 'Failed case'
                     write(nwrite, '(//5x, a//(5x, 5d15.7))') 'Expected x: ', solution(ic)
                     write(nwrite, '(/5x, a//(5x, 5d15.7))')  'Computed x: ', x

test/test_lmstr.f90

@@ -92,8 +92,8 @@ program test
                 factor = ten*factor
 
                 ! compare with previously generated solutions:
-                if (any(abs(solution(ic) - x)>solution_abstol) .and. &
-                    any(abs((solution(ic) - x)/(solution(ic))) > solution_reltol)) then
+                if (any(abs( solution(ic) - x)>tol .and. &
+                        abs((solution(ic) - x)/(solution(ic))) > solution_reltol)) then
                     write(nwrite,'(A)') 'Failed case'
                     write(nwrite, '(//5x, a//(5x, 5d15.7))') 'Expected x: ', solution(ic)
                     write(nwrite, '(/5x, a//(5x, 5d15.7))')  'Computed x: ', x