run_excit_gen_tester Interface

public interface run_excit_gen_tester

Module Procedures

private subroutine run_excit_gen_tester_function(excit_gen, excit_gen_name, opt_nI, opt_n_dets, gen_all_excits, calc_pgen, problem_filter, i_unit, successful)

Author
Werner Dobrautz, Oskar Weser

@brief Test if an excitation generator generates all and only expected states with the correct pgen.

Read more…

Arguments

Type IntentOptional Attributes Name
procedure(generate_excitation_t) :: excit_gen
character(len=*), intent(in) :: excit_gen_name
integer, intent(in), optional :: opt_nI(nel)
integer, intent(in), optional :: opt_n_dets
procedure(generate_all_excits_t), optional :: gen_all_excits
procedure(calc_pgen_t), optional :: calc_pgen
procedure(problem_filter_t), optional :: problem_filter
integer, intent(in), optional :: i_unit
logical, intent(out), optional :: successful

private subroutine run_excit_gen_tester_class(exc_generator, excit_gen_name, opt_nI, opt_n_dets, problem_filter, i_unit, successful)

Arguments

Type IntentOptional Attributes Name
class(ExcitationGenerator_t), intent(inout) :: exc_generator
character(len=*), intent(in) :: excit_gen_name
integer, intent(in), optional :: opt_nI(nel)
integer, intent(in), optional :: opt_n_dets
procedure(problem_filter_t), optional :: problem_filter
integer, intent(in), optional :: i_unit
logical, intent(out), optional :: successful