From fdc654b515e59ce54c19f2b37041335c99bed372 Mon Sep 17 00:00:00 2001 From: edoapra Date: Mon, 5 Dec 2022 12:08:09 -0800 Subject: [PATCH] bug fix for commit 518b2b72b14fd73e46cb03964715b4d7125f3a46 --- src/mp2_grad/mp2_make_tot_dens.F | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/mp2_grad/mp2_make_tot_dens.F b/src/mp2_grad/mp2_make_tot_dens.F index 45fa16a229..c1f15fc28f 100644 --- a/src/mp2_grad/mp2_make_tot_dens.F +++ b/src/mp2_grad/mp2_make_tot_dens.F @@ -79,7 +79,7 @@ c check if distrib by columns $ ('mp2: insufficient memory : bug ', nmo, MA_ERR) do i=jlo,jhi - if(i.le.nob) then + if(i.le.noa) then call ga_get(g_p_ij_a,1,noa,i,i,dbl_mb(k_buf),noa) call ga_put(g_p_tot_a,1,noa,i,i,dbl_mb(k_buf),noa) else