From a5ebdaeed6db35a31151aadc65b9eb25bdfbf53b Mon Sep 17 00:00:00 2001 From: Omar Khalil Ahmed Date: Wed, 27 Nov 2024 11:34:38 -0800 Subject: [PATCH] Add missing OMP map prama for batched dgemm implementation --- src/ccsd/ccsd_trpdrv_openmp_imax.F | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/ccsd/ccsd_trpdrv_openmp_imax.F b/src/ccsd/ccsd_trpdrv_openmp_imax.F index ab58e0426d..cdd8cf5a78 100644 --- a/src/ccsd/ccsd_trpdrv_openmp_imax.F +++ b/src/ccsd/ccsd_trpdrv_openmp_imax.F @@ -394,7 +394,8 @@ & map(to:dintc1,dintx1,t1v1,dintc2,dintx2,t1v2) & map(to:Jia,Tkj,Tia,Kkj,Kia,Tka,Kij) & map(to:Xka,Jij,Xia,Jkj,Jka,Tij,Kka) - + & map(to:a_array1, b_array1, c_array1) + & map(to:a_array2, b_array2, c_array2) do klo = 1, nocc, kchunk akold=0 khi = min(nocc, klo+kchunk-1)