subroutine write_ftlm_testsuite_data(h_sum)
real(dp), intent(in) :: h_sum
write(stdout, '(/,1X,64("="))')
write(stdout, '(1X,"FTLM testsuite data:")')
write(stdout, '(1X,"Sum of H elements from the last Lanczos space:",2X,es20.13)') h_sum
write(stdout, '(1X,"FT energy at lowest beta value:",17X,es20.13)') ftlm_e_num(1) / ftlm_trace(1)
write(stdout, '(1X,"FT energy at highest beta value:",16X,es20.13)') ftlm_e_num(nbeta_ftlm + 1) / ftlm_trace(nbeta_ftlm + 1)
write(stdout, '(1X,64("="))')
end subroutine write_ftlm_testsuite_data