yet another ld fix

nwchemgit · Jan 10, 2018 · 48c1967 · 48c1967
1 parent 5d0bb66
commit 48c1967
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/ddscf/uhf.F b/src/ddscf/uhf.F
@@ -600,7 +600,7 @@ subroutine uhf_k2cf(basis, nbf, nmo, nalpha, nbeta, g_kvec,
          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 @@ subroutine uhf_spin(sz, s2)
 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