write_ftlm_testsuite_data Subroutine

public subroutine write_ftlm_testsuite_data(h_sum)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: h_sum

Source Code

    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