device_num Function

private function device_num() result(num)

Active OpenACC device number, or -1 on CPU builds. Kept private — only the budget logger needs it.

Arguments

None

Return Value integer


Called by

proc~~device_num~~CalledByGraph proc~device_num device_num proc~mem_log_state_budget mem_log_state_budget proc~mem_log_state_budget->proc~device_num proc~driver_run_ocean driver_run_ocean proc~driver_run_ocean->proc~mem_log_state_budget proc~driver_run driver_run proc~driver_run->proc~driver_run_ocean

Source Code

   function device_num() result(num)
      !! Active OpenACC device number, or `-1` on CPU builds.  Kept
      !! private — only the budget logger needs it.
      integer :: num
#ifdef RDB_HAS_OPENACC_RUNTIME
      num = acc_get_device_num(acc_get_device_type())
#else
      num = -1
#endif
   end function device_num