41 use,
intrinsic :: iso_c_binding
53 #if defined(HAVE_NVTX)
58 call craypat_record_start
66 #if defined(HAVE_NVTX)
71 call craypat_record_stop
78 character(kind=c_char,len=*) :: name
79 integer,
optional :: region_id
82 if (
present(region_id))
then
83 call nvtxstartrange(name, region_id)
85 call nvtxstartrange(name)
88 call roctxstartrange(name)
90 if (
present(region_id))
then
91 call craypat_region_begin(name, region_id)
95 #if defined(__FUJITSU) && defined(NEKO_FJPROF)
96 if (
present(region_id))
then
97 call fapp_start(trim(name), region_id, 0)
101 if (
present(region_id))
then
109 character(kind=c_char, len=*),
optional :: name
110 integer,
optional :: region_id
117 if (
present(region_id))
then
118 call craypat_region_end(region_id)
122 #if defined(__FUJITSU) && defined(NEKO_FJPROF)
123 if (
present(name) .and.
present(region_id))
then
124 call fapp_stop(trim(name), region_id, 0)
128 if (
present(name) .and.
present(region_id))
then
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_start_region(name, region_id)
Started a named (name) profiler region.
subroutine, public profiler_end_region(name, region_id)
End the most recently started profiler region.
subroutine, public profiler_stop
Stop profiling.
type(runtime_stats_t), public neko_rt_stats