subroutine write_exact_spec_testsuite_data(h_sum, spec_low, spec_high)
real(dp), intent(in) :: h_sum, spec_low, spec_high
write(stdout, '(/,1X,64("="))')
write(stdout, '(1X,"Exact spectrum testsuite data:")')
write(stdout, '(1X,"Sum of H elements:",26X,es20.13)') h_sum
write(stdout, '(1X,"Spectral weight at the lowest omega value:",2X,es20.13)') spec_low
write(stdout, '(1X,"Spectral weight at the highest omega value:",1X,es20.13)') spec_high
write(stdout, '(1X,64("="))')
end subroutine write_exact_spec_testsuite_data