Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer(kind=kind(HIPBLAS_STATUS_SUCCESS)) | :: | hipblasError_t |
subroutine hipblasCheck(hipblasError_t)
use SELF_GPU_enums
implicit none
integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasError_t
if(hipblasError_t /= HIPBLAS_STATUS_SUCCESS) then
write(*,*) "GPUBLAS ERROR: Error code = ",hipblasError_t
call exit(hipblasError_t)
endif
endsubroutine hipblasCheck