comp-chem/cp2k
1
0
Fork 0
mirror of https://github.com/cp2k/cp2k.git synced 2026-07-29 06:35:28 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

DBCSR: Add some more timers

Browse source 
svn-origin-rev: 13162
This commit is contained in:
Ole Schütt 2013-09-24 11:36:02 +00:00
parent b8d5bd8676
commit c71a2a3d2d
3 changed files with 13 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/dbcsr_lib/dbcsr_block_operations.F
View file

@ -1115,7 +1115,7 @@ CONTAINS
! ---------------------------------------------------------------------------
IF (careful_mod) CALL dbcsr_error_set(routineN, error_handler, error)
CALL dbcsr_error_set(routineN, error_handler, error)
CALL dbcsr_assert (ASSOCIATED(area%d),&
dbcsr_fatal_level, dbcsr_caller_error, routineN,&
@ -1329,7 +1329,7 @@ CONTAINS
routineN, "Invalid or unsupported data type.",__LINE__,error)
END SELECT
IF (careful_mod) CALL dbcsr_error_stop(error_handler, error)
CALL dbcsr_error_stop(error_handler, error)
END SUBROUTINE dbcsr_data_clear0

4
src/dbcsr_lib/dbcsr_data_methods_low.F
View file

@ -326,7 +326,7 @@ MODULE dbcsr_data_methods_low
CHARACTER(len=*), PARAMETER :: routineN = 'internal_data_deallocate', &
routineP = moduleN//':'//routineN
INTEGER :: error_handler
INTEGER :: error_handler, error_handler2
! ---------------------------------------------------------------------------
@ -365,9 +365,11 @@ MODULE dbcsr_data_methods_low
END SELECT
IF(area%memory_type%cuda_devalloc) THEN
CALL dbcsr_error_set (routineN//"_cuda", error_handler2, error)
CALL dbcsr_cuda_devmem_deallocate(area%cuda_devmem, error)
CALL dbcsr_cuda_event_destroy(area%cuda_ready, error)
CALL dbcsr_cuda_stream_destroy(area%cuda_stream, error)
CALL dbcsr_error_stop(error_handler2, error)
ENDIF
CALL dbcsr_error_stop(error_handler, error)

10
src/dbcsr_lib/dbcsr_mm_cudadrv.F
View file

@ -160,11 +160,16 @@ MODULE dbcsr_mm_cudadrv
TYPE(dbcsr_work_type), POINTER :: product_wm
TYPE(dbcsr_error_type), INTENT(INOUT) :: error
CHARACTER(len=*), PARAMETER :: routineN = 'dbcsr_mm_cudadrv_init', &
routineP = moduleN//':'//routineN
CHARACTER(len=default_string_length) :: poolname
INTEGER :: i, ithread, n_stack_buffers, &
nthreads
INTEGER :: error_handler, i, ithread, &
n_stack_buffers, nthreads
TYPE(dbcsr_data_obj) :: c_area
CALL dbcsr_error_set(routineN, error_handler, error)
nthreads = 1; ithread = 0
!$ nthreads = OMP_GET_NUM_THREADS () ; ithread = OMP_GET_THREAD_NUM ()
@ -211,6 +216,7 @@ MODULE dbcsr_mm_cudadrv
CALL dbcsr_cuda_event_record(this%c_buffer%d%cuda_ready,&
stream=this%c_buffer%d%cuda_stream, error=error)
CALL dbcsr_error_stop(error_handler, error)
END SUBROUTINE dbcsr_mm_cudadrv_init