get_accdrv_active_device_id Function

public function get_accdrv_active_device_id()

Arguments

None

Return Value integer

Source Code

   FUNCTION get_accdrv_active_device_id()
      INTEGER :: get_accdrv_active_device_id

      get_accdrv_active_device_id = accdrv_active_device_id

   END FUNCTION get_accdrv_active_device_id