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

Clock prints updated for init_us_2

This commit is contained in:
Ivan Carnimeo 2021-09-07 14:21:23 +02:00
parent 00c006a6a1
commit c40fbca600
3 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
PW/src/print_clock_pw.f90
View File

@ -92,7 +92,8 @@ SUBROUTINE print_clock_pw()
!
WRITE( stdout, '(/5x,"Called by c_bands:")' )
CALL print_clock( 'init_us_2' )
CALL print_clock( 'init_us_2_gpu' )
CALL print_clock( 'init_us_2:cpu' )
CALL print_clock( 'init_us_2:gpu' )
IF ( isolve == 0 ) THEN
CALL print_clock( 'regterg' ) ; CALL print_clock( 'cegterg' )
ELSE IF (isolve == 1) THEN

4
upflib/init_us_2_base.f90
View File

@ -67,6 +67,8 @@ SUBROUTINE init_us_2_base( npw_, npwx, igk_, q_, nat, tau, ityp, &
INTEGER, PARAMETER :: blocksize = 256
INTEGER :: iblock, numblock, realblocksize
!
CALL start_clock( 'init_us_2:cpu' )
!
IF (lmaxkb < 0) RETURN
!
! setting cache blocking size
@ -205,6 +207,8 @@ SUBROUTINE init_us_2_base( npw_, npwx, igk_, q_, nat, tau, ityp, &
!
IF (spline_ps) DEALLOCATE( xdata )
!
CALL stop_clock( 'init_us_2:cpu' )
!
RETURN
!
END SUBROUTINE init_us_2_base

3
upflib/init_us_2_base_gpu.f90
View File

@ -81,6 +81,7 @@ SUBROUTINE init_us_2_base_gpu( npw_, npwx, igk__d, q_, nat, tau, ityp, &
attributes(PINNED) :: qg_h, vq_h
#endif
!
CALL start_clock( 'init_us_2:gpu' )
!
if (lmaxkb<0) return
@ -242,5 +243,7 @@ SUBROUTINE init_us_2_base_gpu( npw_, npwx, igk__d, q_, nat, tau, ityp, &
deallocate ( qg_h, vq_h )
END IF
!
CALL stop_clock( 'init_us_2:gpu' )
!
return
end subroutine init_us_2_base_gpu