diff --git a/org/qmckl_ao.org b/org/qmckl_ao.org index 8289aa4..03405bb 100644 --- a/org/qmckl_ao.org +++ b/org/qmckl_ao.org @@ -4797,7 +4797,7 @@ qmckl_ao_polynomial_transp_vgl_hpc (const qmckl_context context, const double* restrict X, const double* restrict R, const int32_t lmax, - int64_t* restrict n, + int64_t* n, int32_t* restrict const L, const int64_t ldl, double* restrict const VGL, @@ -5529,7 +5529,7 @@ qmckl_compute_ao_vgl_hpc_gaussian ( { qmckl_exit_code rc; double ar2[prim_max]; - int32_t powers[prim_max]; + int32_t powers[3*size_max]; double poly_vgl_l1[4][4] = {{1.0, 0.0, 0.0, 0.0}, {0.0, 1.0, 0.0, 0.0}, {0.0, 0.0, 1.0, 0.0}, @@ -5614,7 +5614,6 @@ qmckl_compute_ao_vgl_hpc_gaussian ( nucleus_max_ang_mom[inucl], &n_poly, powers, (int64_t) 3, &(poly_vgl[0][0]), size_max); - assert (rc == QMCKL_SUCCESS); break; }