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

fixing some __DEBUG sections

This commit is contained in:
Pietro Delugas 2021-10-19 09:13:08 +02:00
parent d65644d8f4
commit d641a51901
6 changed files with 21 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Modules/becmod_gpu.f90
View File

@ -23,9 +23,10 @@
INTEGER, PARAMETER :: sgl = selected_real_kind(6,30)
INTEGER, PARAMETER :: i4b = selected_int_kind(9)
INTEGER, PARAMETER :: i8b = selected_int_kind(18)
INTEGER :: iverbosity = 0
#if defined(__DEBUG)
iverbosity = 1
#if defined(__DEBUG)
INTEGER :: iverbosity = 1
#else
INTEGER :: iverbosity = 1
#endif
!
TYPE bec_type_d

4
Modules/becmod_subs_gpu.f90
View File

@ -78,7 +78,9 @@ CONTAINS
ELSE
local_nbnd = size ( psi_d, 2)
ENDIF
#if defined (__DEBUG)
write (*,*) 'calbec local_nbnd:', local_nbnd
#endif
IF ( gamma_only ) THEN
!
IF( betapsi_d%comm == mp_get_comm_null() ) THEN

7
Modules/wavefunctions_gpu.f90
View File

@ -22,9 +22,10 @@
INTEGER, PARAMETER :: sgl = selected_real_kind(6,30)
INTEGER, PARAMETER :: i4b = selected_int_kind(9)
INTEGER, PARAMETER :: i8b = selected_int_kind(18)
INTEGER :: iverbosity = 0
#if defined(__DEBUG)
iverbosity = 1
#if defined (__DEBUG)
INTEGER :: iverbosity = 1
#else
INTEGER :: iverbosity = 1
#endif
!
COMPLEX(DP), ALLOCATABLE, TARGET :: evc_d(:, :)

5
PW/src/g_psi_mod_gpu.f90
View File

@ -22,9 +22,10 @@
INTEGER, PARAMETER :: sgl = selected_real_kind(6,30)
INTEGER, PARAMETER :: i4b = selected_int_kind(9)
INTEGER, PARAMETER :: i8b = selected_int_kind(18)
INTEGER :: iverbosity = 0
#if defined(__DEBUG)
iverbosity = 1
INTEGER :: iverbosity = 1
#else
INTEGER :: iverbosity = 0
#endif
!
REAL(DP), ALLOCATABLE :: h_diag_d(:, :)

7
PW/src/pwcom_gpu.f90
View File

@ -22,9 +22,10 @@
INTEGER, PARAMETER :: sgl = selected_real_kind(6,30)
INTEGER, PARAMETER :: i4b = selected_int_kind(9)
INTEGER, PARAMETER :: i8b = selected_int_kind(18)
INTEGER :: iverbosity = 0
#if defined(__DEBUG)
iverbosity = 1
#if defined(__DEBUG)
INTEGER :: iverbosity = 1
#else
INTEGER :: iverbosity = 0
#endif
!
REAL(DP), ALLOCATABLE :: g2kin_d(:)

5
PW/src/scf_mod_gpu.f90
View File

@ -22,9 +22,10 @@
INTEGER, PARAMETER :: sgl = selected_real_kind(6,30)
INTEGER, PARAMETER :: i4b = selected_int_kind(9)
INTEGER, PARAMETER :: i8b = selected_int_kind(18)
INTEGER :: iverbosity = 0
#if defined(__DEBUG)
iverbosity = 1
INTEGER :: iverbosity = 1
#else
INTEGER :: iverbosity = 0
#endif
!
REAL(DP), ALLOCATABLE :: vrs_d(:, :)