roctx.F90

Go to the documentation of this file.

 
module roctx
  use, intrinsic :: iso_c_binding, only : c_char, c_null_char
  implicit none
  private
 
  integer, parameter :: roctx_max_len = 256
 
#ifdef HAVE_ROCTX
  interface roctxrangepusha
     subroutine roctxrangepusha(name) bind(C, name = 'roctxRangePushA')
       use, intrinsic :: iso_c_binding
       character(kind=c_char) :: name(256)
     end subroutine roctxrangepusha
  end interface roctxrangepusha
 
  interface roctxrangepop
     subroutine roctxrangepop() bind(C, name = 'roctxRangePop')
     end subroutine roctxrangepop
  end interface roctxrangepop
 
  public :: roctxstartrange, roctxrangepusha, roctxrangepop
 
contains
 
  subroutine roctxstartrange(name)
    character(kind=c_char, len=*) :: name
    character :: c_name(roctx_max_len)
    integer:: i, str_len
 
    str_len = len(trim(name))
    do i = 1, len(trim(name))
       c_name(i) = name(i:i)
    end do
    c_name(str_len+1) = c_null_char
 
    call roctxrangepusha(c_name)
 
  end subroutine roctxstartrange
 
#endif
end module roctx