scnc
/
quantum-espresso
mirror of https://gitlab.com/QEF/q-e.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'fix_gram_acc' into 'develop' 

fix: acc kernels clause with if inside

See merge request QEF/q-e!2120
This commit is contained in:
Pietro Delugas 2023-07-10 10:19:54 +00:00
parent 80e36d9341 0eca841e44
commit 89fc997568
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
CPV/src/gram.f90
View File

@ -218,13 +218,15 @@ DEV_ACC kernels present(csc)
csc = 0.0d0 csc = 0.0d0
DEV_ACC end kernels DEV_ACC end kernels
ibgrp_i = ibgrp_g2l( i ) ibgrp_i = ibgrp_g2l( i )
DEV_ACC kernels present(cp_tmp)
IF( ibgrp_i > 0 ) THEN IF( ibgrp_i > 0 ) THEN
DEV_ACC kernels present(cp_tmp)
cp_tmp = cp_bgrp( :, ibgrp_i ) cp_tmp = cp_bgrp( :, ibgrp_i )
ELSE
cp_tmp = 0.0d0
END IF
DEV_ACC end kernels DEV_ACC end kernels
ELSE
DEV_ACC kernels present(cp_tmp)
cp_tmp = 0.0d0
DEV_ACC end kernels
END IF
!!DEV_ACC host_data use_device(cp_tmp) !!DEV_ACC host_data use_device(cp_tmp)
!!DEV_ACC update self(cp_tmp) !!DEV_ACC update self(cp_tmp)