hipblasCheck Subroutine

  1. SELF_GPUBLAS.f90
  2. SELF_GPUBLAS
  3. hipblasCheck

public subroutine hipblasCheck(hipblasError_t)

Uses

  • proc~~hipblascheck~2~~UsesGraph proc~hipblascheck~2 hipblasCheck module~self_gpu_enums~2 SELF_GPU_enums proc~hipblascheck~2->module~self_gpu_enums~2 iso_c_binding iso_c_binding module~self_gpu_enums~2->iso_c_binding

Arguments

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

Called by

proc~~hipblascheck~2~~CalledByGraph proc~hipblascheck~2 hipblasCheck proc~self_blas_matrixop_1d~2 self_blas_matrixop_1d proc~self_blas_matrixop_1d~2->proc~hipblascheck~2 proc~self_blas_matrixop_dim2_3d~2 self_blas_matrixop_dim2_3d proc~self_blas_matrixop_dim2_3d~2->proc~hipblascheck~2 proc~self_blas_matrixop_dim1_3d~2 self_blas_matrixop_dim1_3d proc~self_blas_matrixop_dim1_3d~2->proc~hipblascheck~2 proc~self_blas_matrixop_dim2_2d~2 self_blas_matrixop_dim2_2d proc~self_blas_matrixop_dim2_2d~2->proc~hipblascheck~2 proc~self_blas_matrixop_dim1_2d~2 self_blas_matrixop_dim1_2d proc~self_blas_matrixop_dim1_2d~2->proc~hipblascheck~2 proc~self_blas_matrixop_dim3_3d~2 self_blas_matrixop_dim3_3d proc~self_blas_matrixop_dim3_3d~2->proc~hipblascheck~2

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