Commit 4d841334 authored by Andreas Marek's avatar Andreas Marek
Browse files

Abort if GPUs are requested but not detected

parent 3be90dbf
......@@ -637,7 +637,10 @@ function elpa_solve_evp_real_1stage_double(na, nev, a, lda, ev, q, ldq, nblk, &
cudaMemcpyDeviceToDevice = cuda_memcpyDeviceToDevice()
cudaHostRegisterPortable = cuda_hostRegisterPortable()
cudaHostRegisterMapped = cuda_hostRegisterMapped()
else
print *,"GPUs are requested but not detected! Aborting..."
success = .false.
return
endif
endif
else
......@@ -813,7 +816,10 @@ function elpa_solve_evp_real_1stage_single(na, nev, a, lda, ev, q, ldq, nblk, ma
cudaMemcpyDeviceToDevice = cuda_memcpyDeviceToDevice()
cudaHostRegisterPortable = cuda_hostRegisterPortable()
cudaHostRegisterMapped = cuda_hostRegisterMapped()
else
print *,"GPUs are requested but not detected! Aborting..."
success = .false.
return
endif
endif
else
......@@ -991,7 +997,10 @@ function elpa_solve_evp_complex_1stage_double(na, nev, a, lda, ev, q, ldq, nblk,
cudaMemcpyDeviceToDevice = cuda_memcpyDeviceToDevice()
cudaHostRegisterPortable = cuda_hostRegisterPortable()
cudaHostRegisterMapped = cuda_hostRegisterMapped()
else
print *,"GPUs are requested but not detected! Aborting..."
success = .false.
return
endif
endif
else
......@@ -1179,7 +1188,10 @@ function elpa_solve_evp_complex_1stage_single(na, nev, a, lda, ev, q, ldq, nblk,
cudaMemcpyDeviceToDevice = cuda_memcpyDeviceToDevice()
cudaHostRegisterPortable = cuda_hostRegisterPortable()
cudaHostRegisterMapped = cuda_hostRegisterMapped()
else
print *,"GPUs are requested but not detected! Aborting..."
success = .false.
return
endif
endif
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment