TREX/qmckl
1
0
Fork 0
mirror of https://github.com/TREX-CoE/qmckl.git synced 2025-01-03 10:06:09 +01:00
Code Issues Projects Releases Wiki Activity

No bugs with Clang static analyzer

Browse Source
This commit is contained in:
Anthony Scemama 2021-05-19 22:49:32 +02:00
parent bbb6fac5db
commit 2bbef647f5
2 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
org/qmckl_electron.org
View File

@ -276,7 +276,7 @@ qmckl_get_electron_walk_num (const qmckl_context context, int64_t* const walk_nu
Returns the current electron coordinates. The pointer is assumed Returns the current electron coordinates. The pointer is assumed
to point on a memory block of size ~3 * elec_num * walk_num~. to point on a memory block of size ~3 * elec_num * walk_num~.
The normal order of the indices is: The order of the indices is:
| | Normal | Transposed | | | Normal | Transposed |
|---------+---------------------------+---------------------------| |---------+---------------------------+---------------------------|

8
org/qmckl_nucleus.org
View File

@ -129,6 +129,7 @@ qmckl_get_nucleus_num (const qmckl_context context, int64_t* const num) {
int32_t mask = 1 << 0; int32_t mask = 1 << 0;
if ( (ctx->nucleus.uninitialized & mask) != 0) { if ( (ctx->nucleus.uninitialized & mask) != 0) {
*num = (int64_t) 0;
return qmckl_failwith( context, return qmckl_failwith( context,
QMCKL_NOT_PROVIDED, QMCKL_NOT_PROVIDED,
"qmckl_get_nucleus_num", "qmckl_get_nucleus_num",
@ -170,10 +171,7 @@ qmckl_get_nucleus_charge (const qmckl_context context, double* const charge) {
assert (ctx->nucleus.charge != NULL); assert (ctx->nucleus.charge != NULL);
int64_t nucl_num; int64_t nucl_num = ctx->nucleus.num;
qmckl_exit_code rc;
rc = qmckl_get_nucleus_num(context, &nucl_num);
if (rc != QMCKL_SUCCESS) return rc;
memcpy(charge, ctx->nucleus.charge, nucl_num*sizeof(double)); memcpy(charge, ctx->nucleus.charge, nucl_num*sizeof(double));
@ -361,7 +359,7 @@ qmckl_exit_code
qmckl_set_nucleus_coord(qmckl_context context, const char transp, const double* coord) { qmckl_set_nucleus_coord(qmckl_context context, const char transp, const double* coord) {
<<pre2>> <<pre2>>
int64_t nucl_num; int64_t nucl_num = (int64_t) 0;
qmckl_exit_code rc; qmckl_exit_code rc;
int32_t mask = 1 << 2; int32_t mask = 1 << 2;