51 #if defined(HAVE_NVTX)
56 call craypat_record_start
64 #if defined(HAVE_NVTX)
69 call craypat_record_stop
76 character(kind=c_char,len=*) :: name
77 integer,
optional :: region_id
80 if (
present(region_id))
then
81 call nvtxstartrange(name, region_id)
83 call nvtxstartrange(name)
86 call roctxstartrange(name)
Interface to CrayPat F77 API.
Device abstraction, common interface for various accelerators.
subroutine, public device_profiler_stop()
Stop device profiling.
subroutine, public device_profiler_start()
Start device profiling.
integer, parameter neko_bcknd_cuda
Interface to NVTX Based on https://github.com/maxcuda/NVTX_example.
subroutine, public profiler_start
Start profiling.
subroutine, public profiler_end_region
End the most recently started profiler region.
subroutine, public profiler_start_region(name, region_id)
Started a named (name) profiler region.
subroutine, public profiler_stop
Stop profiling.