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

yet another ld fix for ga_get/put

Browse source
This commit is contained in:
edoapra 2020-02-14 14:26:53 -08:00
parent f49eb48e0c
commit 31372d565e
No known key found for this signature in database
GPG key ID: 48E12DA1EDE9E1B0
1 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

16
src/nwdft/lr_tddft/tddft_civecs_phase.F
View file

@ -44,11 +44,11 @@ c
end if
c
do i = ga_nodeid()+1,m, ga_nnodes()
call ga_get(g_x(1),1,n,i,i,dbl_mb(k_x),1)
if (.not.tda) call ga_get(g_y(1),1,n,i,i,dbl_mb(k_y),1)
call ga_get(g_x(1),1,n,i,i,dbl_mb(k_x),n)
if (.not.tda) call ga_get(g_y(1),1,n,i,i,dbl_mb(k_y),n)
if (ipol.gt.1) then
call ga_get(g_x(2),1,n2,i,i,dbl_mb(k_x2),1)
if (.not.tda) call ga_get(g_y(2),1,n2,i,i,dbl_mb(k_y2),1)
call ga_get(g_x(2),1,n2,i,i,dbl_mb(k_x2),n2)
if (.not.tda) call ga_get(g_y(2),1,n2,i,i,dbl_mb(k_y2),n2)
end if
v = 0.0d0
k = 0
@ -67,17 +67,17 @@ c
enddo
if (dbl_mb(k_x+k).lt.0.0d0) then
call dscal(n,-1.0d0,dbl_mb(k_x),1)
call ga_put(g_x(1),1,n,i,i,dbl_mb(k_x),1)
call ga_put(g_x(1),1,n,i,i,dbl_mb(k_x),n)
if (.not.tda) then
call dscal(n,-1.0d0,dbl_mb(k_y),1)
call ga_put(g_y(1),1,n,i,i,dbl_mb(k_y),1)
call ga_put(g_y(1),1,n,i,i,dbl_mb(k_y),n)
end if
if (ipol.gt.1) then
call dscal(n2,-1.0d0,dbl_mb(k_x2),1)
call ga_put(g_x(2),1,n2,i,i,dbl_mb(k_x2),1)
call ga_put(g_x(2),1,n2,i,i,dbl_mb(k_x2),n2)
if (.not.tda) then
call dscal(n2,-1.0d0,dbl_mb(k_y2),1)
call ga_put(g_y(2),1,n2,i,i,dbl_mb(k_y2),1)
call ga_put(g_y(2),1,n2,i,i,dbl_mb(k_y2),n2)
end if
end if
endif