Get number of accelerator devices
number of accelerator devices
FUNCTION dbcsr_acc_get_ndevices() RESULT(n)
!! Get number of accelerator devices
INTEGER :: n
!! number of accelerator devices
#if defined (__DBCSR_ACC)
INTEGER :: istat
#endif
n = 0
#if defined (__DBCSR_ACC)
istat = acc_get_ndevices_cu(n)
IF (istat /= 0) &
DBCSR_ABORT("dbcsr_acc_get_ndevices: failed")
#endif
END FUNCTION dbcsr_acc_get_ndevices