craypat.F90

Go to the documentation of this file.

 
module craypat
  use, intrinsic :: iso_c_binding
  use stack, only : stack_i4_t
  use utils, only : neko_error
  implicit none
 
  type(stack_i4_t), private :: region_depth
  logical, private :: craypat_on = .false.
#ifdef CRAYPAT
  include 'pat_apif.h'
 
contains
 
  subroutine craypat_record_start
    integer :: ierr
    call region_depth%init()
    call pat_record(pat_state_on, ierr)
    craypat_on = .true.
  end subroutine craypat_record_start
 
  subroutine craypat_record_stop
    integer :: ierr
    call pat_record(pat_state_off, ierr)
    craypat_on = .false.
  end subroutine craypat_record_stop
 
  subroutine craypat_region_begin(name)
    character(kind=c_char,len=*) :: name
    integer :: ierr, region_id
 
    if (craypat_on) then
       if (name .eq. 'Time-Step') then
          region_id = 1
       else if(name .eq. 'Pressure') then
          region_id = 2
       else if (name .eq. 'Velocity') then
          region_id = 3
       else if (name .eq. 'gather-scatter') then
          region_id = 4
       else ! User defined region
          region_id = 99
       end if
 
       call region_depth%push(region_id)
       call pat_region_begin(region_id, name, ierr)
    end if
 
  end subroutine craypat_region_begin
 
  subroutine craypat_region_end
    integer :: ierr
 
    if (craypat_on) then
       if (region_depth%size() .le. 0) then
          call neko_error('Invalid CrayPat region id')
       end if
       call pat_region_end(region_depth%pop(), ierr)
    end if
 
  end subroutine craypat_region_end
 
#endif
 
end module craypat