nvtx.F90

Go to the documentation of this file.

!! Copyright (C) 2019 S. Ohlmann
!!
!! This Source Code Form is subject to the terms of the Mozilla Public
!! License, v. 2.0. If a copy of the MPL was not distributed with this
!! file, You can obtain one at https://mozilla.org/MPL/2.0/.
!!
 
! This is the fortran part of the wrapper around the NVTX
! (NVIDIA Tools Extension) profiling functions.
 
#include "global.h"
 
module nvtx_oct_m
  use iso_c_binding
  implicit none
 
  private
  public ::          &
    nvtx_range_push, &
    nvtx_range_pop
 
  interface nvtx_range_push
    subroutine nvtx_range_push_low(range_name, idx) bind(c)
      use iso_c_binding
      implicit none
 
      character(kind=c_char), intent(in)    :: range_name(*)
      integer,                intent(in)    :: idx
    end subroutine nvtx_range_push_low
  end interface
 
  interface nvtx_range_pop
    subroutine nvtx_range_pop()
      use iso_c_binding
      implicit none
    end subroutine nvtx_range_pop
  end interface nvtx_range_pop
 
end module nvtx_oct_m
 
!! Local Variables:
!! mode: f90
!! coding: utf-8
!! End: