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

Aligned GPU accelerated functions to CPU code

This commit is contained in:
Pietro Bonfa 2019-02-13 10:43:54 +01:00
parent 443f05cd3b
commit 18f527ce77
2 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
PW/src/pw_restart_new.f90
View File

@ -135,7 +135,8 @@ MODULE pw_restart_new
USE control_flags, ONLY : conv_elec, conv_ions, ldftd3
USE input_parameters, ONLY : ts_vdw_econv_thr, ts_vdw_isolated
!
USE wvfct_gpum, ONLY : using_et
USE wvfct_gpum, ONLY : using_et, using_wg
USE wavefunctions_gpum, ONLY : using_evc
!
IMPLICIT NONE
!
@ -196,6 +197,8 @@ MODULE pw_restart_new
! If local PW dimensions are not available, set to 0
!
CALL using_et(0)
CALL using_wg(0)
CALL using_evc(0)
!
ALLOCATE( ngk_g( nkstot ) )
ngk_g(:) = 0

4
PW/src/wfcinit_gpu.f90
View File

@ -31,7 +31,7 @@ SUBROUTINE wfcinit_gpu()
USE wannier_new, ONLY : use_wannier
USE pw_restart_new, ONLY : pw_readschema_file, read_collected_to_evc
USE qes_types_module, ONLY : output_type
USE qes_libs_module, ONLY : qes_reset_output
USE qes_libs_module, ONLY : qes_reset
!
USE wavefunctions_gpum, ONLY : using_evc_d, using_evc
USE uspp_gpum, ONLY : vkb_d, using_vkb_d
@ -81,7 +81,7 @@ SUBROUTINE wfcinit_gpu()
END IF
END IF
END IF
CALL qes_reset_output ( output_obj )
CALL qes_reset ( output_obj )
END IF
!
! ... state what will happen