acc_init Subroutine

   SUBROUTINE acc_init()

#if ! defined (__DBCSR_ACC)
      DBCSR_ABORT("__DBCSR_ACC not compiled in.")
#else
      INTEGER                                  :: istat
      ! Set active device first
      CALL dbcsr_acc_set_active_device(get_accdrv_active_device_id())
!$OMP    PARALLEL DEFAULT(NONE) PRIVATE(istat)
!$OMP    MASTER
      istat = acc_interface_drv_init()
      IF (istat /= 0) &
         DBCSR_ABORT("acc_init failed")
!$OMP    END MASTER
!$OMP    END PARALLEL
#endif
   END SUBROUTINE acc_init