Dumb mistake in last commit

This commit is contained in:
Paolo Giannozzi 2024-07-24 11:58:50 +02:00
parent f6e71a6a0c
commit 55bcbd59df
1 changed files with 1 additions and 1 deletions

View File

@ -205,7 +205,7 @@ SUBROUTINE vloc_psi_k_gpu( lda, n, m, psi_d, v, hpsi_d )
hm_vec(1)=group_size ; hm_vec(2)=n ; hm_vec(3)=group_size
ebnd = ibnd+group_size-1
!$acc parallel loop collapse(2)
DO idx = 2, group_size
DO idx = 1, group_size
DO j = 1, n
psi(j,idx) = psi_d(j,ibnd+idx-1)
END DO