device_Get_Count Function

public function device_Get_Count(val) result(stat)

Wrapper function for "cudaGetDeviceCount"

Arguments

Type IntentOptional Attributes Name
integer(kind=int32), intent(out) :: val

Return Value integer


Calls

proc~~device_get_count~~CallsGraph proc~device_get_count device_Get_Count interface~cudagetdevicecount cudaGetDeviceCount proc~device_get_count->interface~cudagetdevicecount

Called by

proc~~device_get_count~~CalledByGraph proc~device_get_count device_Get_Count proc~device_info device_info proc~device_info->proc~device_get_count

Source Code

     integer function device_Get_Count(val) result(stat)
       !> Wrapper function for "cudaGetDeviceCount"
       implicit none
       integer(int32), intent(out) :: val
       ! Work variables
       integer(c_int) :: c_val
  
       stat = cudaGetDeviceCount(c_val)
       val  = int(c_val,int32)
  
       return
     end function device_Get_Count