mirror of
https://github.com/TREX-CoE/qmckl.git
synced 2024-12-22 20:36:01 +01:00
66 lines
1.0 KiB
C
66 lines
1.0 KiB
C
|
#include <stdbool.h>
|
||
|
|
||
|
|
||
|
#ifdef VFC_CI
|
||
|
#include <vfc_probes.h>
|
||
|
extern vfc_probes * probes;
|
||
|
#endif
|
||
|
|
||
|
// Wrappers to Verificarlo functions
|
||
|
|
||
|
#ifdef VFC_CI
|
||
|
void qmckl_init_probes() __attribute__((constructor));
|
||
|
#endif
|
||
|
|
||
|
bool qmckl_probe(
|
||
|
char * testName,
|
||
|
char * varName,
|
||
|
double value
|
||
|
);
|
||
|
|
||
|
bool qmckl_probe_check(
|
||
|
char * testName,
|
||
|
char * varName,
|
||
|
double value,
|
||
|
double expectedValue,
|
||
|
double accuracyTarget
|
||
|
);
|
||
|
|
||
|
bool qmckl_probe_check_relative(
|
||
|
char * testName,
|
||
|
char * varName,
|
||
|
double value,
|
||
|
double expectedValue,
|
||
|
double accuracyTarget
|
||
|
);
|
||
|
|
||
|
#ifdef VFC_CI
|
||
|
void qmckl_dump_probes() __attribute__((destructor));
|
||
|
#endif
|
||
|
|
||
|
|
||
|
// Fortran wrappers
|
||
|
|
||
|
bool qmckl_probe_f(
|
||
|
char * testName,
|
||
|
char * varName,
|
||
|
double * value
|
||
|
);
|
||
|
|
||
|
bool qmckl_probe_check_f(
|
||
|
char * testName,
|
||
|
char * varName,
|
||
|
double * value,
|
||
|
double * expectedValue,
|
||
|
double * accuracyTarget
|
||
|
);
|
||
|
|
||
|
|
||
|
bool qmckl_probe_check_relative_f(
|
||
|
char * testName,
|
||
|
char * varName,
|
||
|
double * value,
|
||
|
double * expectedValue,
|
||
|
double * accuracyTarget
|
||
|
);
|