device_Get_Attribute Function

public function device_Get_Attribute(val, attr, device) result(stat)

Wrapper function for "cudaDeviceGetAttribute"

Arguments

Type IntentOptional Attributes Name
integer(kind=int32) :: val
integer(kind=int32), intent(in) :: attr
integer(kind=int32), intent(in) :: device

Return Value integer


Calls

proc~~device_get_attribute~~CallsGraph proc~device_get_attribute device_Get_Attribute interface~cudadevicegetattribute cudaDeviceGetAttribute proc~device_get_attribute->interface~cudadevicegetattribute

Called by

proc~~device_get_attribute~~CalledByGraph proc~device_get_attribute device_Get_Attribute proc~device_info device_info proc~device_info->proc~device_get_attribute

Source Code

     integer function device_Get_Attribute(val,attr,device) result(stat)
       !> Wrapper function for "cudaDeviceGetAttribute"
       implicit none
       integer(int32), intent(in) :: attr
       integer(int32), intent(in) :: device
       integer(int32)             :: val
       ! Work variables
       integer(c_int) :: c_val
  
       stat = cudaDeviceGetAttribute(c_val,int(attr,c_int),int(device,c_int))
       val  = int(c_val,int32)
  
       return
     end function device_Get_Attribute