gpuCheck Subroutine

  1. SELF_GPU.f90
  2. SELF_GPU
  3. gpuCheck

public subroutine gpuCheck(gpuError_t)

Arguments

TypeIntentOptionalAttributesName
integer(kind=kind(hipSuccess)) :: gpuError_t

Contents

Source Code

gpuCheck

Source Code

                  subroutine gpuCheck(gpuError_t)
                    implicit none
                    integer(kind(hipSuccess)) :: gpuError_t

                    if(gpuError_t /= hipSuccess) then
                      write(*,*) "GPU ERROR: Error code = ",gpuError_t
                      call exit(gpuError_t)
                    endif
                  endsubroutine gpuCheck