cuda_nvtx_range_push Subroutine

public subroutine cuda_nvtx_range_push(routineN)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: routineN

Contents

Source Code

cuda_nvtx_range_push

Source Code

   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