From 31372d565efc4dfd1669484712787449dcf7af8b Mon Sep 17 00:00:00 2001 From: edoapra Date: Fri, 14 Feb 2020 14:26:53 -0800 Subject: [PATCH] yet another ld fix for ga_get/put --- src/nwdft/lr_tddft/tddft_civecs_phase.F | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/src/nwdft/lr_tddft/tddft_civecs_phase.F b/src/nwdft/lr_tddft/tddft_civecs_phase.F index 768efb3711..f47069056a 100644 --- a/src/nwdft/lr_tddft/tddft_civecs_phase.F +++ b/src/nwdft/lr_tddft/tddft_civecs_phase.F @@ -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