From 9fa14db27117ba40ce36f2a9e317d88a20338285 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ond=C5=99ej=20=C4=8Cert=C3=ADk?= Date: Wed, 25 Oct 2023 10:34:33 -0600 Subject: [PATCH] Error stop --- tests/rlda/uraninum_rlda.f90 | 11 ++--------- 1 file changed, 2 insertions(+), 9 deletions(-) diff --git a/tests/rlda/uraninum_rlda.f90 b/tests/rlda/uraninum_rlda.f90 index e424e60..3c8b8e3 100644 --- a/tests/rlda/uraninum_rlda.f90 +++ b/tests/rlda/uraninum_rlda.f90 @@ -82,13 +82,13 @@ program conv_rlda err = abs(E_tot - E_tot_exact) print '("E_tot=", F16.8, " E_tot_exact=", F16.8, " error:", ES10.2)', & E_tot, E_tot_exact, err -if (err > eps) call error(err, eps) +if (err > eps) call stop_error("err > eps") print *, "state E E_exact error occupancy" do i = 1, size(ks_energies) err = (ks_energies_exact(i) - ks_energies(i)) print "(I1, A, ' ', F16.8, F16.8, ES10.2, ' ', F6.3)", no(i), & l_names(lo(i)), ks_energies(i), ks_energies_exact(i), err, fo(i) - if (err > eps) call error(err, eps) + if (err > eps) call stop_error("err > eps") end do contains @@ -104,11 +104,4 @@ integer function get_N(Z, p) result(N) close(u) end function -subroutine error(err, eps) -real(dp), intent(in) :: err, eps -print "('Test failed: error = ', es10.2, ' > ', es10.2, ' specified.')", & - err, eps -call stop_error("Aborting...") -end subroutine - end program