hipblasCheck Subroutine

  1. SELF_GPUBLAS.f90
  2. SELF_GPUBLAS
  3. hipblasCheck

public subroutine hipblasCheck(hipblasError_t)

Uses

  • proc~~hipblascheck~~UsesGraph proc~hipblascheck hipblasCheck module~self_gpu_enums~2 SELF_GPU_enums proc~hipblascheck->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~~CalledByGraph proc~hipblascheck hipblasCheck proc~init_vector2d Init_Vector2D proc~init_vector2d->proc~hipblascheck proc~init_scalar3d Init_Scalar3D proc~init_scalar3d->proc~hipblascheck proc~free_tensor2d Free_Tensor2D proc~free_tensor2d->proc~hipblascheck proc~free_scalar1d Free_Scalar1D proc~free_scalar1d->proc~hipblascheck proc~self_blas_matrixop_dim2_3d self_blas_matrixop_dim2_3d proc~self_blas_matrixop_dim2_3d->proc~hipblascheck proc~free_vector3d Free_Vector3D proc~free_vector3d->proc~hipblascheck proc~init_tensor2d Init_Tensor2D proc~init_tensor2d->proc~hipblascheck proc~self_blas_matrixop_1d self_blas_matrixop_1d proc~self_blas_matrixop_1d->proc~hipblascheck proc~init_vector3d Init_Vector3D proc~init_vector3d->proc~hipblascheck proc~free_tensor3d Free_Tensor3D proc~free_tensor3d->proc~hipblascheck proc~init_scalar1d~2 Init_Scalar1D proc~init_scalar1d~2->proc~hipblascheck proc~self_blas_matrixop_dim1_3d self_blas_matrixop_dim1_3d proc~self_blas_matrixop_dim1_3d->proc~hipblascheck proc~self_blas_matrixop_dim3_3d self_blas_matrixop_dim3_3d proc~self_blas_matrixop_dim3_3d->proc~hipblascheck proc~free_vector2d Free_Vector2D proc~free_vector2d->proc~hipblascheck proc~free_scalar2d Free_Scalar2D proc~free_scalar2d->proc~hipblascheck proc~init_scalar1d Init_Scalar1D proc~init_scalar1d->proc~hipblascheck proc~free_scalar3d Free_Scalar3D proc~free_scalar3d->proc~hipblascheck proc~init_scalar2d Init_Scalar2D proc~init_scalar2d->proc~hipblascheck proc~free_scalar1d~2 Free_Scalar1D proc~free_scalar1d~2->proc~hipblascheck proc~self_blas_matrixop_dim1_2d self_blas_matrixop_dim1_2d proc~self_blas_matrixop_dim1_2d->proc~hipblascheck proc~init_tensor3d Init_Tensor3D proc~init_tensor3d->proc~hipblascheck proc~self_blas_matrixop_dim2_2d self_blas_matrixop_dim2_2d proc~self_blas_matrixop_dim2_2d->proc~hipblascheck proc~gridinterp_vector3d GridInterp_Vector3D proc~gridinterp_vector3d->proc~self_blas_matrixop_dim2_3d proc~gridinterp_vector3d->proc~self_blas_matrixop_dim1_3d proc~gridinterp_vector3d->proc~self_blas_matrixop_dim3_3d proc~gridinterp_scalar3d GridInterp_Scalar3D proc~gridinterp_scalar3d->proc~self_blas_matrixop_dim2_3d proc~gridinterp_scalar3d->proc~self_blas_matrixop_dim1_3d proc~gridinterp_scalar3d->proc~self_blas_matrixop_dim3_3d proc~gridinterp_scalar1d GridInterp_Scalar1D proc~gridinterp_scalar1d->proc~self_blas_matrixop_1d proc~derivative_scalar1d Derivative_Scalar1D proc~derivative_scalar1d->proc~self_blas_matrixop_1d proc~gradient_vector2d Gradient_Vector2D proc~gradient_vector2d->proc~self_blas_matrixop_dim1_2d proc~gradient_vector2d->proc~self_blas_matrixop_dim2_2d proc~gridinterp_scalar2d GridInterp_Scalar2D proc~gridinterp_scalar2d->proc~self_blas_matrixop_dim1_2d proc~gridinterp_scalar2d->proc~self_blas_matrixop_dim2_2d proc~divergence_vector3d Divergence_Vector3D proc~divergence_vector3d->proc~self_blas_matrixop_dim2_3d proc~divergence_vector3d->proc~self_blas_matrixop_dim1_3d proc~divergence_vector3d->proc~self_blas_matrixop_dim3_3d proc~gradient_scalar3d Gradient_Scalar3D proc~gradient_scalar3d->proc~self_blas_matrixop_dim2_3d proc~gradient_scalar3d->proc~self_blas_matrixop_dim1_3d proc~gradient_scalar3d->proc~self_blas_matrixop_dim3_3d proc~gradient_vector3d Gradient_Vector3D proc~gradient_vector3d->proc~self_blas_matrixop_dim2_3d proc~gradient_vector3d->proc~self_blas_matrixop_dim1_3d proc~gradient_vector3d->proc~self_blas_matrixop_dim3_3d proc~boundaryinterp_scalar1d BoundaryInterp_Scalar1D proc~boundaryinterp_scalar1d->proc~self_blas_matrixop_1d proc~boundaryinterp_scalar1d~2 BoundaryInterp_Scalar1D proc~boundaryinterp_scalar1d~2->proc~self_blas_matrixop_1d proc~gridinterp_vector2d GridInterp_Vector2D proc~gridinterp_vector2d->proc~self_blas_matrixop_dim1_2d proc~gridinterp_vector2d->proc~self_blas_matrixop_dim2_2d proc~gradient_scalar2d Gradient_Scalar2D proc~gradient_scalar2d->proc~self_blas_matrixop_dim1_2d proc~gradient_scalar2d->proc~self_blas_matrixop_dim2_2d

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