35 namespace Test_Mult_Wilson {
40 const std::string filename_input =
"test_Mult_Wilson.yaml";
46 #ifdef USE_TESTMANAGER_AUTOREGISTER
73 const string str_gconf_status = params_test.
get_string(
"gauge_config_status");
74 const string str_gconf_read = params_test.
get_string(
"gauge_config_type_input");
75 const string readfile = params_test.
get_string(
"config_filename_input");
76 const string str_rand_type = params_test.
get_string(
"random_number_type");
77 const unsigned long seed = params_test.
get_unsigned_long(
"seed_for_random_number");
78 const int Nmult = params_test.
get_int(
"number_of_mult");
79 const string str_vlevel = params_test.
get_string(
"verbose_level");
81 const bool do_check = params_test.
is_set(
"expected_result");
82 const double expected_result = do_check ? params_test.
get_double(
"expected_result") : 0.0;
83 const double tolerance = params_test.
get_double(
"tolerance");
85 const string str_gmset_type = params_fopr.
get_string(
"gamma_matrix_type");
90 vout.
general(vl,
" gconf_status = %s\n", str_gconf_status.c_str());
91 vout.
general(vl,
" gconf_read = %s\n", str_gconf_read.c_str());
92 vout.
general(vl,
" readfile = %s\n", readfile.c_str());
93 vout.
general(vl,
" rand_type = %s\n", str_rand_type.c_str());
96 vout.
general(vl,
" vlevel = %s\n", str_vlevel.c_str());
97 vout.
general(vl,
" gmset_type = %s\n", str_gmset_type.c_str());
115 if (str_gconf_status ==
"Continue") {
117 }
else if (str_gconf_status ==
"Cold_start") {
119 }
else if (str_gconf_status ==
"Hot_start") {
122 vout.
crucial(vl,
"Error at %s: unsupported gconf status \"%s\"\n",
test_name.c_str(), str_gconf_status.c_str());
152 for (
int i = 0; i < Nmult; ++i) {
168 double result_single = 0.0;
171 result_single = y.
norm();
174 vout.
crucial(
"%s: result(multithread) not equal to result(single thread)\n",
test_name.c_str());
184 double gflo_mult = fopr->
flop_count() / 1.0e+9;
185 double gflops_mult = gflo_mult * Nmult / (elapse_sec * NPE * Nthread);
195 int verify_test =
Test::verify(result, expected_result, tolerance);
197 if ((thread_test == 0) && (verify_test == 0)) {
203 vout.
detailed(vl,
"check skipped: expected_result not set.\n\n");
void detailed(const char *format,...)
void set(const int jin, const int site, const int jex, double v)
double elapsed_sec() const
void general(const char *format,...)
virtual void set_config(Field *)=0
setting pointer to the gauge configuration.
int get_int(const string &key) const
Wilson-type fermion field.
Parameters lookup(const string &key) const
static bool RegisterTest(const std::string &key, const Test_function func)
static bool initialize(const std::string &rng_type, unsigned long seed)
void read(Field_G *U, const string &filename=string())
unsigned long get_unsigned_long(const string &key) const
double get_double(const string &key) const
virtual double flop_count()
returns the flops per site.
virtual void set_parameters(const Parameters &)=0
static int get_num_threads_available()
returns number of threads (works outside of parallel region).
int non_NULL(const std::string v)
bool is_set(const string &key) const
void crucial(const char *format,...)
static void read(const std::string ¶ms_file, Parameters ¶ms)
int verify(const double result, const double expected, double eps)
virtual void mult(Field &, const Field &)=0
multiplies fermion operator to a given field (2nd argument)
virtual void set_mode(std::string mode)
setting the mode of multiplication if necessary. Default implementation here is just to avoid irrelev...
const std::string test_name
GaugeConfig class for file I/O of gauge configuration.
string get_string(const string &key) const
static VerboseLevel set_verbose_level(const std::string &str)