dbcsr_acc_set_active_device Subroutine

public subroutine dbcsr_acc_set_active_device(device_id)

Set active accelerator device

Arguments

TypeIntentOptionalAttributesName
integer :: device_id

Contents


Source Code

   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