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

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