Set active accelerator device
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer | :: | device_id |
SUBROUTINE dbcsr_acc_set_active_device(device_id)
!! Set active accelerator device
INTEGER :: device_id
#if defined (__DBCSR_ACC)
INTEGER :: istat
!$OMP PARALLEL DEFAULT(NONE) PRIVATE(istat) SHARED(device_id)
istat = acc_set_active_device_cu(device_id)
IF (istat /= 0) &
DBCSR_ABORT("dbcsr_acc_set_active_device: failed")
!$OMP END PARALLEL
#else
MARK_USED(device_id)
DBCSR_ABORT("__DBCSR_ACC not compiled in")
#endif
END SUBROUTINE dbcsr_acc_set_active_device