acc_finalize Subroutine

public subroutine acc_finalize()

Arguments

None

Source Code

   SUBROUTINE acc_finalize()

#if ! defined (__DBCSR_ACC)
      DBCSR_ABORT("__DBCSR_ACC not compiled in.")
#else
      INTEGER                                :: istat
!$OMP    PARALLEL DEFAULT(NONE) PRIVATE(istat)
!$OMP    MASTER
      istat = acc_interface_drv_finalize()
      IF (istat /= 0) &
         DBCSR_ABORT("acc_finalize failed")
!$OMP    END MASTER
!$OMP    END PARALLEL
#endif
   END SUBROUTINE acc_finalize