mirror of https://github.com/TREX-CoE/qmckl.git
50 lines
1.5 KiB
Fortran
50 lines
1.5 KiB
Fortran
module qmckl_probes_f
|
|
interface
|
|
logical(c_bool) function qmckl_probe &
|
|
(testName, varName, val) &
|
|
bind(C, name="qmckl_probe_f")
|
|
|
|
use, intrinsic :: iso_c_binding
|
|
import
|
|
implicit none
|
|
|
|
character(C_CHAR), dimension(*) :: testName
|
|
character(C_CHAR), dimension(*) :: varName
|
|
|
|
real(C_DOUBLE) :: val
|
|
end function qmckl_probe
|
|
|
|
logical(c_bool) function qmckl_probe_check &
|
|
(testName, varName, val, expectedValue, accuracyTarget) &
|
|
bind(C, name="qmckl_probe_check_f")
|
|
|
|
use, intrinsic :: iso_c_binding
|
|
import
|
|
implicit none
|
|
|
|
character(C_CHAR), dimension(*) :: testName
|
|
character(C_CHAR), dimension(*) :: varName
|
|
|
|
real(C_DOUBLE) :: val
|
|
real(C_DOUBLE) :: expectedValue
|
|
real(C_DOUBLE) :: accuracyTarget
|
|
end function qmckl_probe_check
|
|
|
|
logical(c_bool) function qmckl_probe_check_relative &
|
|
(testName, varName, val, expectedValue, accuracyTarget) &
|
|
bind(C, name="qmckl_probe_check_relative_f")
|
|
|
|
use, intrinsic :: iso_c_binding
|
|
import
|
|
implicit none
|
|
|
|
character(C_CHAR), dimension(*) :: testName
|
|
character(C_CHAR), dimension(*) :: varName
|
|
|
|
real(C_DOUBLE) :: val
|
|
real(C_DOUBLE) :: expectedValue
|
|
real(C_DOUBLE) :: accuracyTarget
|
|
end function qmckl_probe_check_relative
|
|
end interface
|
|
end module qmckl_probes_f
|