hipblasCheck Subroutine

  1. SELF_GPUBLAS.f90
  2. SELF_GPUBLAS
  3. hipblasCheck

public subroutine hipblasCheck(hipblasError_t)

Uses

Arguments

TypeIntentOptionalAttributesName
integer(kind=kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasError_t

Contents

Source Code

hipblasCheck

Source Code

                          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