TREX/qmckl
1
0
Fork 0
mirror of https://github.com/TREX-CoE/qmckl.git synced 2024-07-18 00:43:51 +02:00
Code Issues Projects Releases Wiki Activity

Place/rename new probes in both distance and AO tests

Browse Source
This commit is contained in:
Aurélien Delval 2021-07-24 13:19:09 +02:00
parent ce24885979
commit e443790806
2 changed files with 43 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
org/qmckl_ao.org
View File

@ -1772,8 +1772,21 @@ integer(c_int32_t) function test_qmckl_ao_gaussian_vgl(context) bind(C)
test_qmckl_ao_gaussian_vgl = & test_qmckl_ao_gaussian_vgl = &
qmckl_ao_gaussian_vgl(context, X, R, n, A, VGL, ldv) qmckl_ao_gaussian_vgl(context, X, R, n, A, VGL, ldv)
vfc_err = qmckl_probe("ao"//C_NULL_CHAR, "gaussian_vgl"//C_NULL_CHAR, & vfc_err = qmckl_probe("ao"//C_NULL_CHAR, "gaussian_vgl_2,1"//C_NULL_CHAR, &
DBLE(test_qmckl_ao_gaussian_vgl)) DBLE(VGL(2,1)))
vfc_err = qmckl_probe("ao"//C_NULL_CHAR, "gaussian_vgl_2,2"//C_NULL_CHAR, &
DBLE(VGL(2,2)))
vfc_err = qmckl_probe("ao"//C_NULL_CHAR, "gaussian_vgl_2,3"//C_NULL_CHAR, &
DBLE(VGL(2,3)))
vfc_err = qmckl_probe("ao"//C_NULL_CHAR, "gaussian_vgl_2,4"//C_NULL_CHAR, &
DBLE(VGL(2,4)))
vfc_err = qmckl_probe("ao"//C_NULL_CHAR, "gaussian_vgl_2,5"//C_NULL_CHAR, &
DBLE(VGL(2,5)))
if (test_qmckl_ao_gaussian_vgl /= 0) return if (test_qmckl_ao_gaussian_vgl /= 0) return
@ -2834,8 +2847,8 @@ integer(c_int32_t) function test_qmckl_ao_power(context) bind(C)
test_qmckl_ao_power = qmckl_ao_power(context, n, X, LMAX, P, LDP) test_qmckl_ao_power = qmckl_ao_power(context, n, X, LMAX, P, LDP)
vfc_err = qmckl_probe("ao"//C_NULL_CHAR, "power"//C_NULL_CHAR, & vfc_err = qmckl_probe("ao"//C_NULL_CHAR, "power_2,2"//C_NULL_CHAR, &
DBLE(test_qmckl_ao_power)) DBLE(P(2,2)))
if (test_qmckl_ao_power /= QMCKL_SUCCESS) return if (test_qmckl_ao_power /= QMCKL_SUCCESS) return
@ -3174,8 +3187,20 @@ integer(c_int32_t) function test_qmckl_ao_polynomial_vgl(context) bind(C)
test_qmckl_ao_polynomial_vgl = & test_qmckl_ao_polynomial_vgl = &
qmckl_ao_polynomial_vgl(context, X, R, lmax, n, L, ldl, VGL, ldv) qmckl_ao_polynomial_vgl(context, X, R, lmax, n, L, ldl, VGL, ldv)
vfc_err = qmckl_probe("ao"//C_NULL_CHAR, "polynomial_vgl"//C_NULL_CHAR, & vfc_err = <("ao"//C_NULL_CHAR, "polynomial_vgl_1,2"//C_NULL_CHAR, &
DBLE(test_qmckl_ao_polynomial_vgl)) DBLE(VGL(1,2)))
vfc_err = qmckl_probe("ao"//C_NULL_CHAR, "polynomial_vgl_2,2"//C_NULL_CHAR, &
DBLE(VGL(2,2)))
vfc_err = qmckl_probe("ao"//C_NULL_CHAR, "polynomial_vgl_3,2"//C_NULL_CHAR, &
DBLE(VGL(3,2)))
vfc_err = qmckl_probe("ao"//C_NULL_CHAR, "polynomial_vgl_4,2"//C_NULL_CHAR, &
DBLE(VGL(4,2)))
vfc_err = qmckl_probe("ao"//C_NULL_CHAR, "polynomial_vgl_5,2"//C_NULL_CHAR, &
DBLE(VGL(5,2)))
if (test_qmckl_ao_polynomial_vgl /= QMCKL_SUCCESS) return if (test_qmckl_ao_polynomial_vgl /= QMCKL_SUCCESS) return
if (n /= d) return if (n /= d) return

24
org/qmckl_distance.org
View File

@ -323,7 +323,7 @@ integer(qmckl_exit_code) function test_qmckl_distance_sq(context) bind(C)
test_qmckl_distance_sq = & test_qmckl_distance_sq = &
qmckl_distance_sq(context, 'X', 't', m, n, A, LDA, B, LDB, C, LDC) qmckl_distance_sq(context, 'X', 't', m, n, A, LDA, B, LDB, C, LDC)
vfc_err = qmckl_probe("distance", "distance_sq_Xt", DBLE(C(2,2))) vfc_err = qmckl_probe("distance", "distance_sq_Xt_2,2", DBLE(C(2,2)))
if (test_qmckl_distance_sq == 0) return if (test_qmckl_distance_sq == 0) return
@ -331,14 +331,14 @@ integer(qmckl_exit_code) function test_qmckl_distance_sq(context) bind(C)
qmckl_distance_sq(context, 't', 'X', m, n, A, LDA, B, LDB, C, LDC) qmckl_distance_sq(context, 't', 'X', m, n, A, LDA, B, LDB, C, LDC)
vfc_err = qmckl_probe("distance", "distance_sq_tX", DBLE(C(2,2))) vfc_err = qmckl_probe("distance", "distance_sq_tX_2,2", DBLE(C(2,2)))
if (test_qmckl_distance_sq == 0) return if (test_qmckl_distance_sq == 0) return
test_qmckl_distance_sq = & test_qmckl_distance_sq = &
qmckl_distance_sq(context, 'T', 't', m, n, A, LDA, B, LDB, C, LDC) qmckl_distance_sq(context, 'T', 't', m, n, A, LDA, B, LDB, C, LDC)
vfc_err = qmckl_probe("distance", "distance_sq_Tt", DBLE(C(2,2))) vfc_err = qmckl_probe("distance", "distance_sq_Tt_2,2", DBLE(C(2,2)))
if (test_qmckl_distance_sq == 0) return if (test_qmckl_distance_sq == 0) return
@ -359,7 +359,7 @@ integer(qmckl_exit_code) function test_qmckl_distance_sq(context) bind(C)
test_qmckl_distance_sq = & test_qmckl_distance_sq = &
qmckl_distance_sq(context, 'n', 'T', m, n, A, LDA, B, LDB, C, LDC) qmckl_distance_sq(context, 'n', 'T', m, n, A, LDA, B, LDB, C, LDC)
vfc_err = qmckl_probe("distance", "distance_sq_nT", DBLE(C(2,2))) vfc_err = qmckl_probe("distance", "distance_sq_nT_2,2", DBLE(C(2,2)))
if (test_qmckl_distance_sq == 0) return if (test_qmckl_distance_sq == 0) return
@ -380,7 +380,7 @@ integer(qmckl_exit_code) function test_qmckl_distance_sq(context) bind(C)
test_qmckl_distance_sq = & test_qmckl_distance_sq = &
qmckl_distance_sq(context, 'T', 'n', m, n, A, LDA, B, LDB, C, LDC) qmckl_distance_sq(context, 'T', 'n', m, n, A, LDA, B, LDB, C, LDC)
vfc_err = qmckl_probe("distance", "distance_sq_Tn", DBLE(C(2,2))) vfc_err = qmckl_probe("distance", "distance_sq_Tn_2,2", DBLE(C(2,2)))
if (test_qmckl_distance_sq == 0) return if (test_qmckl_distance_sq == 0) return
@ -401,7 +401,7 @@ integer(qmckl_exit_code) function test_qmckl_distance_sq(context) bind(C)
test_qmckl_distance_sq = & test_qmckl_distance_sq = &
qmckl_distance_sq(context, 'n', 'N', m, n, A, LDA, B, LDB, C, LDC) qmckl_distance_sq(context, 'n', 'N', m, n, A, LDA, B, LDB, C, LDC)
vfc_err = qmckl_probe("distance", "distance_sq_nN", DBLE(C(2,2))) vfc_err = qmckl_probe("distance", "distance_sq_nN_2,2", DBLE(C(2,2)))
if (test_qmckl_distance_sq == 0) return if (test_qmckl_distance_sq == 0) return
@ -760,21 +760,21 @@ integer(qmckl_exit_code) function test_qmckl_dist(context) bind(C)
test_qmckl_dist = & test_qmckl_dist = &
qmckl_distance(context, 'X', 't', m, n, A, LDA, B, LDB, C, LDC) qmckl_distance(context, 'X', 't', m, n, A, LDA, B, LDB, C, LDC)
vfc_err = qmckl_probe("distance", "distance_Xt", DBLE(C(2,2))) vfc_err = qmckl_probe("distance", "distance_Xt_2,2", DBLE(C(2,2)))
if (test_qmckl_dist == 0) return if (test_qmckl_dist == 0) return
test_qmckl_dist = & test_qmckl_dist = &
qmckl_distance(context, 't', 'X', m, n, A, LDA, B, LDB, C, LDC) qmckl_distance(context, 't', 'X', m, n, A, LDA, B, LDB, C, LDC)
vfc_err = qmckl_probe("distance", "distance_tX", DBLE(C(2,2))) vfc_err = qmckl_probe("distance", "distance_tX_2,2", DBLE(C(2,2)))
if (test_qmckl_dist == 0) return if (test_qmckl_dist == 0) return
test_qmckl_dist = & test_qmckl_dist = &
qmckl_distance(context, 'T', 't', m, n, A, LDA, B, LDB, C, LDC) qmckl_distance(context, 'T', 't', m, n, A, LDA, B, LDB, C, LDC)
vfc_err = qmckl_probe("distance", "distance_Tt", DBLE(C(2,2))) vfc_err = qmckl_probe("distance", "distance_Tt_2,2", DBLE(C(2,2)))
if (test_qmckl_dist == 0) return if (test_qmckl_dist == 0) return
@ -795,7 +795,7 @@ integer(qmckl_exit_code) function test_qmckl_dist(context) bind(C)
test_qmckl_dist = & test_qmckl_dist = &
qmckl_distance(context, 'n', 'T', m, n, A, LDA, B, LDB, C, LDC) qmckl_distance(context, 'n', 'T', m, n, A, LDA, B, LDB, C, LDC)
vfc_err = qmckl_probe("distance", "distance_nT", DBLE(C(2,2))) vfc_err = qmckl_probe("distance", "distance_nT_2,2", DBLE(C(2,2)))
if (test_qmckl_dist == 0) return if (test_qmckl_dist == 0) return
@ -816,7 +816,7 @@ integer(qmckl_exit_code) function test_qmckl_dist(context) bind(C)
test_qmckl_dist = & test_qmckl_dist = &
qmckl_distance(context, 'T', 'n', m, n, A, LDA, B, LDB, C, LDC) qmckl_distance(context, 'T', 'n', m, n, A, LDA, B, LDB, C, LDC)
vfc_err = qmckl_probe("distance", "distance_Tn", DBLE(C(2,2))) vfc_err = qmckl_probe("distance", "distance_Tn_2,2", DBLE(C(2,2)))
if (test_qmckl_dist == 0) return if (test_qmckl_dist == 0) return
@ -837,7 +837,7 @@ integer(qmckl_exit_code) function test_qmckl_dist(context) bind(C)
test_qmckl_dist = & test_qmckl_dist = &
qmckl_distance(context, 'n', 'N', m, n, A, LDA, B, LDB, C, LDC) qmckl_distance(context, 'n', 'N', m, n, A, LDA, B, LDB, C, LDC)
vfc_err = qmckl_probe("distance", "distance_nN", DBLE(C(2,2))) vfc_err = qmckl_probe("distance", "distance_nN_2,2", DBLE(C(2,2)))
if (test_qmckl_dist == 0) return if (test_qmckl_dist == 0) return