comp-chem/NWChem
1
0
Fork 0
mirror of https://github.com/nwchemgit/nwchem.git synced 2026-07-26 21:25:29 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 3

bug fix for commit 518b2b72b1

Browse source
This commit is contained in:
edoapra 2022-12-05 12:08:09 -08:00
parent 06909b1a91
commit fdc654b515
No known key found for this signature in database
GPG key ID: E6E392F4E14FB937
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/mp2_grad/mp2_make_tot_dens.F
View file

@ -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