Permalink
Browse files

Change size_t to long in OpenMP loops of detci

  • Loading branch information...
raimis committed Sep 6, 2018
1 parent b51ecbc commit db4fd0eea0ccf8bb14686e421eb91eaba2c7e0d2
Showing with 1 addition and 1 deletion.
  1. +1 −1 psi4/src/psi4/detci/ints.cc
@@ -542,7 +542,7 @@ void CIWavefunction::transform_mcscf_ints_ao(bool approx_only) {
SharedMatrix J = jk_->J()[D_tasks];
SharedMatrix half_trans = Matrix::triplet(Crot, J, Cact, true, false, false);
#pragma omp parallel for schedule(static)
for (size_t p = 0; p < nrot; p++) {
for (long p = 0; p < nrot; p++) {
for (size_t q = 0; q < nact; q++) {
casscf_ints->set(p * nact + q, i * nact + j, half_trans->get(p, q));
casscf_ints->set(p * nact + q, j * nact + i, half_trans->get(p, q));

0 comments on commit db4fd0e

Please sign in to comment.