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