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

yet another ld fix

Browse source
This commit is contained in:
edoapra 2018-01-10 12:10:43 -08:00
parent 5d0bb66037
commit 48c1967773
No known key found for this signature in database
GPG key ID: 79CA3F28FF1B91CE
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/ddscf/uhf.F
View file

@ -600,7 +600,7 @@ c
if (nvir*nocc .gt.0) then
do i=ga_nodeid()+1,nocc,ga_nnodes()
call ga_get(g_kvec, ioff+1+(i-1)*nvir, ioff+i*nvir, 1, 1,
$ dbl_mb(k_tmp), 1)
$ dbl_mb(k_tmp), nvir)
call ga_put(g_kmat, nocc1, nmo, i, i,
$ dbl_mb(k_tmp), nmo-nocc1+1)
call dscal(nvir, mone, dbl_mb(k_tmp), 1)
@ -1578,7 +1578,7 @@ c
c
s2 = 0
do i = 1+ga_nodeid(), nbeta, ga_nnodes()
call ga_get(g_smo, 1, nalpha, i, i, dbl_mb(k_x), 1)
call ga_get(g_smo, 1, nalpha, i, i, dbl_mb(k_x), nalpha)
do j = 1, nalpha
s2 = s2 + dbl_mb(k_x+j-1)**2
enddo