gpuCheck Subroutine

  1. SELF_GPU.f90
  2. SELF_GPU
  3. gpuCheck

public subroutine gpuCheck(gpuError_t)

Uses

  • proc~~gpucheck~2~~UsesGraph proc~gpucheck~2 gpuCheck iso_c_binding iso_c_binding proc~gpucheck~2->iso_c_binding

Arguments

TypeIntentOptionalAttributesName
integer(kind=c_int) :: gpuError_t

Called by

proc~~gpucheck~2~~CalledByGraph proc~gpucheck~2 gpuCheck proc~ensuredevicebuffer EnsureDeviceBuffer proc~ensuredevicebuffer->proc~gpucheck~2

Contents

Source Code

gpuCheck

Source Code

                              subroutine gpuCheck(gpuError_t)
                                use iso_c_binding
                                implicit none
                                integer(c_int) :: gpuError_t

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