Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
character(len=*), | intent(in) | :: | routineN |
SUBROUTINE cuda_nvtx_range_push(routineN)
CHARACTER(LEN=*), INTENT(IN) :: routineN
#if defined( __CUDA_PROFILING )
INTEGER :: level
level = cuda_nvtx_range_push_dc(TRIM(routineN)//CHAR(0))
#else
CALL dbcsr_abort(__LOCATION__, "cuda_nvtx_range_push: "// &
"__CUDA_PROFILING not compiled in, but called with:"//TRIM(routineN))
#endif
END SUBROUTINE cuda_nvtx_range_push